1
0

ybass 735 B

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