090_sauna2 1.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263
  1. # sauna2
  2. <<<<<<< 090_sauna2
  3. set minut += 5
  4. '<center><B><font color = maroon>Sauna</font></B></center>'
  5. '<center><img src="images\etogame\sauna1.jpg"></center>'
  6. 'Stay for an hour costs 2000 rubles.'
  7. gs 'stat'
  8. fcolor = rgb(0,0,0)
  9. bcolor = rgb(255,255,255)
  10. =======
  11. set minut = minut + 5
  12. '<center><B><font color=maroon>sauna</font></B></center>'
  13. '<center><img src="pic/sauna1.jpg" ></center>'
  14. 'Stay for an hour worth 2000 RUB.'
  15. gs'stat'
  16. fcolor=rgb(0,0,0)
  17. bcolor=rgb(255,255,255)
  18. >>>>>>> 090_sauna2
  19. LCOLOR = rgb(106,90,205)
  20. <<<<<<< 090_sauna2
  21. act 'QUIT': gt 'sauna'
  22. if money >= 2000 and saunaday ! day:
  23. act 'Stay':
  24. cls
  25. money = money - 2000
  26. minut += 60
  27. fat -= 10
  28. if sweat > -10: set sweat = -10
  29. dynamic $showerdin
  30. saunaday = day
  31. manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
  32. gs 'stat'
  33. '<center><img src="images\etogame\sau.jpg"></center>'
  34. 'You are in for an hour in the sauna steamed, washed under a shower and relax.'
  35. act 'Leave': gt 'sauna'
  36. end
  37. end
  38. =======
  39. act 'GO_OUT':gt'sauna'
  40. if money>= 2000 and saunaday ! day:
  41. act 'stay':
  42. cls
  43. money=money-2000
  44. minut+=60
  45. fat-=10
  46. sweat=-10
  47. dynamic $showerdin
  48. saunaday = day
  49. manna = (intel*magik) + magik*100 + vital*10 + rikudo
  50. gs'stat'
  51. '<center><img src="pic/sau.jpg" ></center>'
  52. 'You are within an hour soared in the sauna, washed in the shower and relax.'
  53. act 'Get_Away':gt'sauna'
  54. end
  55. end
  56. >>>>>>> 090_sauna2
  57. --- sauna2 ---------------------------------