laketoilet.qsrc 1.1 KB

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