yban 972 B

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