balkon 1.6 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758
  1. # balkon
  2. if $ARGS[0] = 'start':
  3. cla
  4. clr
  5. *clr
  6. minut += 5
  7. gs 'stat'
  8. '<center><b><font color="maroon">Apartment Balcony</font></b></center>'
  9. if nude = 0:
  10. '<center><img src="images/community/balcony_dressed1.jpg"></center>'
  11. elseif nude = 1:
  12. if tanga = 0:'<center><img src="images/community/balcony_naked1.jpg"></center>'
  13. if tanga = 1:'<center><img src="images/community/balcony_underwear1.jpg"></center>'
  14. end
  15. 'You went to the balcony.'
  16. if hour >= 0 and hour <= 6:
  17. 'It''s dark outside. Street lamps illuminate the empty street below.'
  18. elseif hour = 7:
  19. 'Morning is dawning out on the street, birds are singing in the trees.'
  20. elseif hour >= 8 and hour <= 19:
  21. 'It''s clear day out on the street. You can see some people walking by.'
  22. elseif hour >= 20 and hour <= 23:
  23. 'It''s twilight and the street below you is dimly lit.'
  24. end
  25. if nude = 1:
  26. if sosedBalDay ! day:temp = rand(1, 4)
  27. if sosedBalDay = day:temp = rand(1, 3)
  28. if temp = 1:
  29. 'You no one pays you any attention.'
  30. elseif temp = 2:
  31. 'You no one pays you any attention.'
  32. elseif temp = 3:
  33. 'You no one pays you any attention.'
  34. elseif temp = 4:
  35. 'A neighbor from the opposite building is out on his balcony and looking at your naked body.'
  36. act 'Look at the neighbor':gt 'balkon2', 'sosed'
  37. end
  38. end
  39. if sigaret >= 1:act 'Light a cigarette':gt 'balkon2', 'kurit'
  40. !!!Probably CV edition
  41. if horny >= 50:
  42. act 'Masturbate':gt 'balkon2', 'masopt'
  43. end
  44. !!!
  45. act 'Approach the railing':gt 'balkon2', 'niz'
  46. act 'Leave the balcony':gt 'sitr'
  47. end
  48. --- balkon ---------------------------------