1
1

093_saunaroom 1.3 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162
  1. # saunaroom
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. $metkaBroom = $ARGS[0]
  5. $locBroom = $CURLOC
  6. $metkaM = $ARGS[0]
  7. $locM = $CURLOC
  8. saunaYouRoom = 1
  9. '<center><b><font color="maroon">Room</font></b></center>'
  10. '<center><img src="images/etogame/saunaroom.jpg"></center>'
  11. 'The room is barely removed <a href="exec:sec += 30 & gt ''saunabed''">bed</a> and <a href="exec:gt ''loker'', ''start''">cabinet</a>.'
  12. 'Hanging on the wall <a href="exec:gt ''mirror'', ''start''">mirror</a>'
  13. if money > 0 and workDolg > 0:workDolg -= money & money = 0
  14. if workDolg > 0:'Your debt is <<workDolg>> rubles'
  15. act 'Go to the sauna':gt 'saunawork'
  16. if workDolg > 0:
  17. act 'There are in debt (0:05)':
  18. cla
  19. *clr
  20. minut += 5
  21. workDolg += 50
  22. set health += 30
  23. set manna += 100
  24. energy = 20
  25. water = 20
  26. fat += 50
  27. salo += 1
  28. frost = 0
  29. gs 'stat'
  30. '<center><img src="images/pics/food.jpg"></center>'
  31. 'You drank tea with cookies, sweet and very bad for the figure, but so nice.'
  32. act 'Get up from the table':gt $curloc
  33. end
  34. act 'Borrow cosmetics':
  35. workDolg += 1000
  36. set kosmetica += 25
  37. gt $curloc
  38. end
  39. end
  40. if water < 20:
  41. act 'Drink':
  42. cla
  43. set minut += 5
  44. if water >= 20:'Water in you no longer climbs.'
  45. if water < 20:
  46. 'You gladly drank a glass of water.'
  47. set water += 20
  48. end
  49. act 'Get up from the table':gt $curloc
  50. end
  51. end
  52. --- saunaroom ---------------------------------