yban 866 B

1234567891011121314151617181920212223242526272829303132333435
  1. # yban
  2. $metkaM = $ARGS[0]
  3. $locM = $CURLOC
  4. $metka = $ARGS[0]
  5. $loc = $CURLOC
  6. clr
  7. gs 'stat'
  8. fcolor = rgb(0, 0, 0)
  9. bcolor = rgb(255, 255, 255)
  10. lcolor = rgb(106, 90, 205)
  11. '<center><b><font color="maroon">Bath</font></b></center>'
  12. '<center><img src="images/etogame/yban.jpg"></center>'
  13. if $clothingworntype ! 'nude':act 'Go to your house':minut += 5 & gt 'youplace'
  14. act 'Go into Gym': minut += 5 & gt 'ysport'
  15. if saunaday ! daystart:
  16. act 'Use Sauna':
  17. cls
  18. minut += 60
  19. fat -= 10
  20. sweat = rand(0,5)
  21. dynamic $showerdin
  22. saunaday = daystart
  23. manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
  24. gs 'stat'
  25. '<center><img src="images/etogame/sau.jpg"></center>'
  26. 'You spend an hour relaxing in the heat of the sauna, having a cool shower and dressing. You feel revitalised.'
  27. act 'Leave':gt 'yban'
  28. end
  29. end
  30. --- yban ---------------------------------