balkon.qsrc 2.1 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364
  1. # balkon
  2. if $ARGS[0] = 'start':
  3. cla
  4. *clr
  5. $menu_loc = 'balkon'
  6. $menu_arg = 'start'
  7. menu_off = 0
  8. minut += 1
  9. gs 'stat'
  10. '<center><b><font color="maroon">Apartment Balcony</font></b></center>'
  11. if $clothingworntype = 'nude':
  12. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/balcony_naked1.jpg"></center>'
  13. elseif $pantyworntype = 'none':
  14. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/balcony_dressed1.jpg"></center>'
  15. else
  16. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/balcony_underwear1.jpg"></center>'
  17. end
  18. 'You step out on the balcony. As you step out on the balcony you feel a light breeze making you a bit chilly.'
  19. if hour >= 0 and hour <= 6:
  20. 'It''s dark outside. The street lamps brighten the empty streets below.'
  21. elseif hour = 7:
  22. 'The sun is dawning outside, the birds are waking up and are happily chirping.'
  23. elseif hour >= 8 and hour <= 19:
  24. 'It''s quite nice outside today. The busy streets are reflecting that, there are lot of people walking at a fast pace.'
  25. elseif hour >= 20 and hour <= 23:
  26. 'It''s twilight and the street lights are dimly lit. There''s far less movement on the streets.'
  27. end
  28. if $clothingworntype = 'nude':
  29. if sosedBalDay ! daystart:
  30. if rand(1, 4) = 4:
  31. 'A neighbor from the opposite building is out on his balcony and looking your way. He''s noticed that you''re naked...'
  32. act 'Look at the neighbor':gt 'balkon2', 'sosed'
  33. else
  34. 'A neighbor from the opposite building is out on his balcony and looking your way. You feel a bit creeped out that he''s following you closely with his gaze.'
  35. end
  36. else
  37. 'No one notices that you''re standing naked on your balcony. You feel a bit dejected that no one payed you any attention.'
  38. end
  39. end
  40. act 'Return to the living room':
  41. if $loc = 'sitr':
  42. gt 'sitr'
  43. else
  44. gt 'sitr2x'
  45. end
  46. end
  47. act 'Approach the railing':gt 'balkon2', 'niz'
  48. if siga >= 1:act 'Light a cigarette':gt 'balkon2', 'kurit'
  49. !!!Probably CV edition
  50. if pcs_horny >= 50 and pcs_inhib > 30:
  51. act 'Masturbate':gt 'balkon2', 'masopt'
  52. end
  53. end
  54. --- balkon ---------------------------------