095_saunaroom 1.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960
  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:
  45. 'Water in you no longer climbs.'
  46. end
  47. if water < 20:
  48. 'You gladly drank a glass of water.'
  49. set water += 20
  50. end
  51. act 'Get up from the table': gt $curloc
  52. end
  53. end
  54. --- saunaroom ---------------------------------