balkon 1.4 KB

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