saunaroom 1.5 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 has a thread bare <a href="exec:sec += 30 & gt ''saunabed''">bed</a> and a cheap wardrobe (where you can <a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe''">organize your clothes</a> or <a href="exec:gt ''clothing_QV'', ''list''">pick something to wear</a>).'
  12. 'Hanging on the wall is a dirty <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>> <b>₽</b>'
  15. act 'Go to the sauna':gt 'saunawork'
  16. if workDolg > 0:
  17. act 'Drink tea with cookies (0:05)':
  18. cla
  19. *clr
  20. minut += 5
  21. workDolg += 50
  22. health += 30
  23. manna += 100
  24. energy += 60
  25. water += 60
  26. fat += 3
  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. kosmetica += 25
  37. gt $curloc
  38. end
  39. end
  40. if water < 80:
  41. act 'Drink':
  42. cla
  43. minut += 5
  44. water = 100
  45. cumspclnt = 2
  46. gs 'cum_cleanup'
  47. fbreath = 0
  48. 'You gladly drink a glass of water.'
  49. act 'Get up from the table':gt $curloc
  50. end
  51. end
  52. --- saunaroom ---------------------------------