317_ybass 729 B

1234567891011121314151617181920212223242526272829303132
  1. # ybass
  2. $metkaM = $ARGS[0]
  3. $locM = $CURLOC
  4. $metka = $ARGS[0]
  5. $loc = $CURLOC
  6. '<center><B><font color = maroon>Pool</font></B></center>'
  7. '<center><img src="images\etogame\ybass.jpg"></center>'
  8. clr
  9. gs 'stat'
  10. act 'Swim (0:15)':
  11. cla
  12. *clr
  13. set cumpussy = 0
  14. set cumbelly = 0
  15. set cumass = 0
  16. set cumanus =0
  17. set cumlip = 0
  18. set cumface = 0
  19. set cumfrot = 0
  20. set minut += 15
  21. if sweat > -3: set sweat = -3
  22. set manna += 5
  23. set willpower += 5
  24. if stren < 40: set stren += 1
  25. '<center><img src="images\DeX\land\pool.jpg"></center>'
  26. 'You swim in the pool, the water is refreshing and invigorating.'
  27. act 'Out of the water': gt 'ybass'
  28. end
  29. act 'Go to your house': minut += 5 & gt 'youplace'
  30. --- ybass ---------------------------------