balkon.qsrc 2.2 KB

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