12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061 |
- # saunaroom
- $metka = $ARGS[0]
- $loc = $CURLOC
- $metkaBroom = $ARGS[0]
- $locBroom = $CURLOC
- $metkaM = $ARGS[0]
- $locM = $CURLOC
- saunaYouRoom = 1
- '<center><b><font color="maroon">Room</font></b></center>'
- '<center><img src="images/etogame/saunaroom.jpg"></center>'
- 'The room is barely removed <a href="exec:sec += 30 & gt ''saunabed''">bed</a> and <a href="exec:gt ''loker'', ''start''">cabinet</a>.'
- 'Hanging on the wall <a href="exec:gt ''mirror'', ''start''">mirror</a>'
- if money > 0 and workDolg > 0:workDolg -= money & money = 0
- if workDolg > 0:'Your debt is <<workDolg>> rubles'
- act 'Go to the sauna':gt 'saunawork'
- if workDolg > 0:
- act 'There are in debt (0:05)':
- cla
- *clr
- minut += 5
- workDolg += 50
- set health += 30
- set manna += 100
- energy = 20
- water = 20
- fat += 50
- salo += 1
- frost = 0
- gs 'stat'
- '<center><img src="images/pics/food.jpg"></center>'
- 'You drank tea with cookies, sweet and very bad for the figure, but so nice.'
- act 'Get up from the table':gt $curloc
- end
- act 'Borrow cosmetics':
- workDolg += 1000
- set kosmetica += 25
- gt $curloc
- end
- end
- if water < 20:
- act 'Drink':
- cla
- set minut += 5
- if water >= 20:'Water in you no longer climbs.'
- if water < 20:
- 'You gladly drank a glass of water.'
- set water += 20
- end
- act 'Get up from the table':gt $curloc
- end
- end
- --- saunaroom ---------------------------------
|