1
0

ybass 741 B

1234567891011121314151617181920212223242526272829303132
  1. # ybass
  2. $metkaM = $ARGS[0]
  3. $locM = $CURLOC
  4. $metka = $ARGS[0]
  5. $loc = $CURLOC
  6. clr
  7. gs 'stat'
  8. '<center><b><font color="maroon">Swimming Pool</font></b></center>'
  9. '<center><img src="images/locations/city/suburb/mansion/ybass.jpg"></center>'
  10. if $clothingworntype ! 'nude': act 'Go to your house':minut += 5 & gt 'youplace'
  11. act 'Go into Gym': gt 'ysport'
  12. act 'Swim (1:00)':
  13. cla
  14. *clr
  15. cumspclnt = 10
  16. gs 'cum_cleanup'
  17. minut += 60
  18. pcs_sweat = 10 + rand(0,4)
  19. pcs_mood += 5
  20. pcs_willpwr += 5
  21. if pcs_stren < 40:stren_exp += 1
  22. '<center><img src="images/locations/shared/lake/swim.jpg"></center>'
  23. 'You swim in the pool, the water refreshes and invigorates.'
  24. act 'Out of the water':gt 'ybass'
  25. end
  26. --- ybass ---------------------------------