laketoilet 1.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657
  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 < 4 and LCtoiletiventrand >= 83:
  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 'Look in the mirror': gt 'mirror', 'start'
  25. if pcs_hairbsh = 0: act 'Brush your hair': gt 'mirror', 'brush'
  26. if (cumloc[6] = 1 or cumloc[7] = 1):
  27. act 'Wipe the cum off your clothes (0:10)':
  28. cla
  29. *clr
  30. cumspclnt = 6
  31. gs 'cum_cleanup'
  32. minut += 10
  33. '<center><img <<$set_imgh>> src="images/shared/sex/cum/frotsp.jpg"></center>'
  34. 'You spend ten minutes wiping and rinsing the cum stains out of your clothes. By the end, all that remain of them are some damp spots that should dry up in a few minutes.'
  35. act 'Continue':gt 'laketoilet', 'main'
  36. end
  37. end
  38. dynamic $tampon
  39. dynamic $quickwash
  40. dynamic $basin
  41. act 'Leave the restroom':gt 'lakecafe', 'main'
  42. end
  43. end
  44. --- laketoilet ---------------------------------