123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239 |
- # kuhrPar
- act 'Leave the room':gt 'korrPar'
- $metkaM = $ARGS[0]
- $locM = $CURLOC
- $metka = $ARGS[0]
- $loc = $CURLOC
- '<center><b><font color = maroon>Kitchen</font></b></center>'
- '<center><img src="images/qwest/alter/<<$loc>>.jpg "></center>'
- clr
- set minut += 1
- gs 'stat'
- fcolor = rgb(0, 0, 0)
- bcolor = rgb(255, 255, 255)
- lcolor = rgb(106, 90, 205)
- 'The kitchen is next to the stove sink. Large refrigerator in the corner and kitchen table with chairs is against the wall.'
- gs 'family'
- act 'Eat (0:30)':
- cla
- *clr
- gs 'stat'
- frost = 0
- '<center><img src="images/pics/food.jpg"></center>'
- set minut += 30
- set health += 10
- set manna += 20
- if energy >= 30:
- set fat += 5
- 'You can no longer have.'
- end
- if energy >= 20 and energy < 30:
- set fat += 3
- set energy += 10
- 'You pushed through the power of a meal.'
- end
- if energy < 20:
- set energy += 20
- !set fat += 1
- 'You gladly ate cooked food.'
- end
- if water >= 20:'Tea in you no longer climbs.'
- if water < 20:
- 'You gladly drank a mug of tea.'
- set water += 20
- end
- gs 'stat'
- act 'Get up from the table':gt $locM, $metkaM
- end
- act 'Have a snack (0:15)':
- cla
- *clr
- gs 'stat'
- frost = 0
- '<center><img src="images/pics/food.jpg"></center>'
- set minut += 15
- set health += 10
- set manna += 20
- if energy >= 30:
- set fat += 3
- 'You can no longer have.'
- end
- if energy >= 20 and energy < 30:
- set fat += 1
- set energy += 5
- 'You pushed through the power of a meal.'
- end
- if energy < 20:
- set energy += 10
- !set fat += 1
- 'You gladly ate cooked food.'
- end
- if water >= 20:'Tea in you no longer climbs.'
- if water < 20:
- 'You gladly drank a mug of tea.'
- set water += 20
- end
- gs 'stat'
- act 'Get up from the table':gt $locM, $metkaM
- end
- act 'Drink':
- cls
- if water >= 20:'Tea in you no longer climbs.'
- if water < 20:
- 'You gladly drank a mug of tea.'
- set water += 20
- end
- gs 'stat'
- act 'Get up from the table':gt $locM, $metkaM
- end
- if pranik > 0:
- 'Cookies will suffice for <<pranik>> time.'
- act 'Drink tea with cookies (0:15)':
- cla
- *clr
- minut += 15
- pranik -= 1
- set health += 30
- set manna += 100
- energy += 20
- water += 20
- fat += 50
- 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
- end
- if edaD > 0:
- act 'Eat diet food (0:30)':
- cla
- *clr
- frost = 0
- '<center><img src="images/pics/food.jpg"></center>'
- set minut += 30
- set health += 10
- set manna += 20
- set edaD -= 1
- if energy >= 30:'You can no longer have.'
- if energy >= 20 and energy < 30:
- set energy += 10
- 'You pushed through the power of a meal.'
- end
- if energy < 20:
- set energy += 20
- 'You gladly ate cooked food.'
- end
- if water >= 20:'Tea in you no longer climbs.'
- if water < 20:
- 'You gladly drank a cup of tea.'
- set water += 20
- end
- act 'Get up from the table':gt $curloc
- end
- end
- if fatdel > 0:
- act 'Consume fat burners':
- cla
- *clr
- set fatdel -= 1
- set fat -= 25
- if fat < 0:fat = 0
- 'You drank fat burning capsule. These capsules are gradually and results will be seen at once.'
- act 'Get up from the table':gt $curloc
- end
- end
- if lekarstvo > 0:
- 'you <<lekarstvo>> tablets.'
- if sick > 0 and lekarday ! day:
- act 'Take a pill (0:05)':
- cla
- *clr
- set minut += 5
- lekarday = day
- lekarstvo -= 1
- sick -= sick * 20 / 100
- set lekrand = rand(0, 8)
- if lekrand = 0:'<center><img src="images/inBed/lekr1.jpg"></center>'
- if lekrand = 1:'<center><img src="images/inBed/lekr2.jpg"></center>'
- if lekrand = 2:'<center><img src="images/inBed/lekr3.jpg"></center>'
- if lekrand = 3:'<center><img src="images/inBed/lekr4.jpg"></center>'
- if lekrand = 4:'<center><img src="images/inBed/lekr5.jpg"></center>'
- if lekrand = 5:'<center><img src="images/inBed/lekr6.jpg"></center>'
- if lekrand = 6:'<center><img src="images/inBed/lekr7.jpg"></center>'
- if lekrand = 7:'<center><img src="images/inBed/lekr8.jpg"></center>'
- if lekrand = 8:'<center><img src="images/inBed/lekr9.jpg"></center>'
- 'You swallowed the pill'
- act 'move away':gt $curloc
- end
- end
- end
- if vitamin > 0:
- 'you <<vitamin>> vitaminok.'
- if vitaminday ! day:
- act 'Drink Vitamins (0:05)':
- cla
- *clr
- set minut += 5
- vitaminday = day
- vitamin -= 1
- frost = 0
- if KandidozOnce = 1:Kandidoz -= 2
- if GerpesOnce = 1:Gerpes -= 2
- if SifacOnce = 1 and Sifilis >= 10:Sifilis -= rand(0, 1)
- set skinvan += 1
- if skinvan = 20:set skinvan = 0 & set skin += 1
- 'You drank Vitams'
- act 'move away':gt $curloc
- end
- end
- end
- --- kuhrPar ---------------------------------
|