laketoilet.qsrc 1.2 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647
  1. # laketoilet
  2. if $ARGS[0] = 'main':
  3. CLOSE ALL
  4. $metka = $ARGS[0]
  5. $loc = $CURLOC
  6. $location_type = 'bathroom'
  7. $locM = 'laketoilet'
  8. $metkaM = 'main'
  9. $menu_loc = 'laketoilet'
  10. $menu_arg = 'main'
  11. menu_off = 0
  12. cla
  13. *clr
  14. LCtoiletiventrand = rand(1,100)
  15. if (hour >= 22 or hour <= 4) and LCtoiletiventrand >= 75:
  16. '<center><img <<$set_imgh>> src="images/locations/city/industrial/bbq/sex/toiletsexstart.jpg"></center>'
  17. 'When you enter the restroom, you see a naked man slowly jerking himself off. He hasn''t noticed you yet.'
  18. act 'Seduce him':
  19. gt 'LCporn', 'toiletsex'
  20. end
  21. act 'Leave the restroom':gt 'lakecafe', 'main'
  22. else
  23. clr
  24. gs 'stat'
  25. '<center><img <<$set_imgh>> src="images/locations/shared/bathroom/toilet.jpg"></center>'
  26. 'The diner has a single unisex restroom. From the dirt and smell, you don''t think this toilet has ever been cleaned before. Ugh.'
  27. act 'Leave the restroom':gt 'lakecafe', 'main'
  28. act 'Look in the mirror': gt 'mirror', 'start'
  29. if pcs_hairbsh = 0: act 'Brush your hair': gt 'mirror', 'brush'
  30. dynamic $tampon
  31. dynamic $quickwash
  32. dynamic $basin
  33. dynamic $removepan
  34. end
  35. end
  36. --- laketoilet ---------------------------------