1
0

403_ykuh 10 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379
  1. # ykuh
  2. $metkaM = $ARGS[0]
  3. $locM = $CURLOC
  4. $metka = $ARGS[0]
  5. $loc = $CURLOC
  6. <<<<<<< 403_ykuh
  7. '<center><B><font color = maroon>House</font></B></center>'
  8. '<center>Kitchen</center>'
  9. if ymanrem[6] = 0: '<center><img src="images\etogame\ynill.jpg"></center>'
  10. if ymanrem[6] = 1: '<center><img src="images\etogame\yrem.jpg"></center>'
  11. if ymanrem[6] = 2: '<center><img src="images\etogame\ykun.jpg"></center>'
  12. if ymanrem[6] = 2: ''
  13. clr
  14. gs 'stat'
  15. if dirttarelka > 0 and fairy >= dirttarelka:
  16. cltarelka += dirttarelka
  17. fairy -= dirttarelka
  18. dirttarelka = 0
  19. 'Dishwasher washed your dirty dishes.'
  20. elseif fairy<dirttarelka:
  21. 'Tou have no more dishwashing detergent.'
  22. end
  23. if cltarelka > 0:
  24. 'In the cabinet you have <B><<cltarelka>></B> clean plates'
  25. else
  26. '<B><font color = red>You don´t have any clean plates left.</font></B>'
  27. end
  28. if dirttarelka > 0: 'In the sink are <B><<dirttarelka>></B> dirty dishes. <a href="exec: dynamic $dirtarm ">Wash the dishes</a>.'
  29. if fairy > 0:
  30. 'Under the sink is some dishwashing detergent, which is enough for <B><<fairy>></B> times.'
  31. else
  32. '<B><font color = red>You have nothing to wash dishes with. You should buy some dishwashing detergent.</font></B>'
  33. end
  34. if eda > 0:
  35. if cltarelka = 0 or edahot > 0:$edagot = ''
  36. if cltarelka > 0 and edahot = 0:$edagot = '<a href="exec: dynamic $edagotd ">Cook meal (0:30)</a>'
  37. 'In the refrigerator is enough food for <B><<eda>></B> servings. <<$edagot>>'
  38. elseif edaD = 0 and eda = 0:
  39. '<B><font color = red>The fridge is empty, you have nothing to eat.</font></B>'
  40. end
  41. if edaD > 0:
  42. 'In the refrigerator is some healthy meals that´s good for <B><<edaD>></B> servings.'
  43. =======
  44. '<center><B><font color=maroon>mansion</font></B></center>'
  45. '<center>kitchen</center>'
  46. if ymanrem[6]=0:'<center><img src="pic/ynill.jpg" ></center>'
  47. if ymanrem[6]=1:'<center><img src="pic/yrem.jpg" ></center>'
  48. if ymanrem[6]=2:'<center><img src="pic/ykuh.jpg" ></center>'
  49. if ymanrem[6]=2:''
  50. clr
  51. gs'stat'
  52. if dirttarelka>0 and fairy>=dirttarelka:
  53. cltarelka+=dirttarelka
  54. fairy-=dirttarelka
  55. dirttarelka=0
  56. 'Dishwasher washed the dirty dishes.'
  57. elseif fairy<dirttarelka:
  58. 'It ended with dishwashing detergent.'
  59. end
  60. if cltarelka>0:
  61. 'Standing over the sink <B><<cltarelka>></B> pieces of clean plates'
  62. else
  63. '<B><font color=red>You have not left clean dishes.</font></B>'
  64. end
  65. if dirttarelka > 0:'In the sink are <B><<dirttarelka>></B> pieces of dirty dishes. <a href="exec: dynamic $dirtarm ">That can be washed and</a>.'
  66. if fairy>0:
  67. 'Standing over the sink dishwashing detergent, which is enough for <B><<fairy>></B> time.'
  68. else
  69. '<B><font color=red>You do not have to wash the dishes than, need to buy dishwashing detergent.</font></B>'
  70. end
  71. if eda>0:
  72. if cltarelka=0 or edahot > 0:$edagot=''
  73. if cltarelka>0 and edahot = 0:$edagot='<a href="exec: dynamic $edagotd ">It can be prepared</a>'
  74. 'The refrigerator kept food that will last for <B><<eda>></B> servings. <<$edagot>>'
  75. elseif edaD=0 and eda=0:
  76. '<B><font color=red>The refrigerator ball Roll, generally have nothing to eat.</font></B>'
  77. end
  78. if edaD>0:
  79. 'The refrigerator is kept healthy meal that will last for <B><<edaD>></B> servings.'
  80. >>>>>>> 403_ykuh
  81. end
  82. <<<<<<< 403_ykuh
  83. act 'Leave the room': minut += 1 & gt 'ymans'
  84. =======
  85. act 'Exit the room':minut+=1&gt'ymans'
  86. >>>>>>> 403_ykuh
  87. <<<<<<< 403_ykuh
  88. if edahot > 0: '<a href="exec: dynamic $edahotd ">On the table is a cooked meal (0:30).</a>'
  89. =======
  90. if edahot > 0:'<a href="exec: dynamic $edahotd ">On the table is ready meal.</a>'
  91. >>>>>>> 403_ykuh
  92. <<<<<<< 403_ykuh
  93. if pranik > 0:
  94. 'You have <<pranik>> cookies.'
  95. act 'Drink tea with cookies (0:15)':
  96. cla
  97. *clr
  98. minut += 15
  99. pranik -= 1
  100. set health += 30
  101. set manna += 100
  102. energy += 20
  103. water += 20
  104. fat += 50
  105. frost = 0
  106. gs 'stat'
  107. '<center><img src="images\pics\food.jpg"></center>'
  108. 'You drank tea with cookies, sweet and very bad for your figure, but so good.'
  109. act 'Get up from the table': gt $curloc
  110. end
  111. =======
  112. if pranik>0:
  113. 'Cookie will suffice for <<pranik>> time.'
  114. act 'Cup of tea with cookies (5 min)':
  115. cla
  116. *clr
  117. minut+=5
  118. pranik-=1
  119. set health = health + 30
  120. set manna = manna + 100
  121. energy += 20
  122. water += 20
  123. fat+=50
  124. frost=0
  125. gs'stat'
  126. '<center><img src="pics/food.jpg" ></center>'
  127. 'You drank tea with cookies, very sweet and bad for the figure, but so nice.'
  128. act 'Get up from the table':gt $curloc
  129. end
  130. >>>>>>> 403_ykuh
  131. end
  132. if edaD > 0:
  133. <<<<<<< 403_ykuh
  134. act 'Cook some dietary food (0:30)':
  135. cla
  136. *clr
  137. frost = 0
  138. '<center><img src="images\pics\food.jpg"></center>'
  139. set minut += 30
  140. set health += 10
  141. set manna += 20
  142. set edaD -= 1
  143. if energy >= 30:
  144. 'You are full.'
  145. end
  146. if energy >= 20 and energy < 30:
  147. set energy += 10
  148. 'You are not hungry but you ate it anyway.'
  149. end
  150. if energy < 20:
  151. set energy += 20
  152. 'You gladly ate some cooked food.'
  153. end
  154. if water >= 20:
  155. 'You don´t want to drink anymore.'
  156. end
  157. if water < 20:
  158. 'You gladly drank a mug of tea.'
  159. set water += 20
  160. end
  161. act 'Get up from the table': gt $curloc
  162. end
  163. =======
  164. act 'There are diet food (30 min)':
  165. cla
  166. *clr
  167. frost=0
  168. '<center><img src="pics/food.jpg" ></center>'
  169. set minut = minut + 30
  170. set health = health + 10
  171. set manna = manna + 20
  172. set edaD = edaD - 1
  173. if energy >= 30:
  174. 'You can no longer have.'
  175. end
  176. if energy >= 20 and energy < 30:
  177. set energy = energy + 10
  178. 'You pushed through the power of a meal.'
  179. end
  180. if energy < 20:
  181. set energy = energy +20
  182. 'You gladly ate cooked food.'
  183. end
  184. if water >= 20:
  185. 'Tea in you no longer climbs.'
  186. end
  187. if water < 20:
  188. 'You gladly drank a cup of tea.'
  189. set water = water +20
  190. end
  191. act 'Get up from the table':gt $curloc
  192. end
  193. >>>>>>> 403_ykuh
  194. end
  195. if fatdel > 0:
  196. <<<<<<< 403_ykuh
  197. act 'Consume fat burners':
  198. cla
  199. *clr
  200. set fatdel -= 1
  201. set fat -= 25
  202. if fat < 0: fat = 0
  203. 'You drank fat burning capsule. These capsules operate gradually and results will not be seen immediately.'
  204. act 'Get up from the table': gt $curloc
  205. end
  206. =======
  207. act 'to use fat burners':
  208. cla
  209. *clr
  210. set fatdel = fatdel - 1
  211. set fat = fat - 25
  212. if fat<0:fat=0
  213. 'You drank fat burning capsule. These capsules are gradually and results will be seen at once.'
  214. act 'Get up from the table':gt $curloc
  215. end
  216. >>>>>>> 403_ykuh
  217. end
  218. <<<<<<< 403_ykuh
  219. act 'Drink':
  220. cla
  221. set minut += 5
  222. if water >= 20:
  223. 'You are not thirsty.'
  224. end
  225. if water < 20:
  226. 'You gladly drank a glass of water.'
  227. set water += 20
  228. end
  229. act 'Get up from the table': gt $curloc
  230. end
  231. if husband > 0 and husbanday > 0 and huseatday ! day and eda >= 2:
  232. act 'Cook a meal for your husband, 2 servings (1:00)':
  233. cla
  234. *clr
  235. husband += 5
  236. set eda -= 2
  237. set minut += 60
  238. huseatday = day
  239. manna -= 25
  240. '<center><img src="images\pics\cook.jpg"></center>'
  241. 'You cooked some food for your husband.'
  242. act 'Put the food on the table': gt $curloc
  243. end
  244. =======
  245. act 'drink':
  246. cla
  247. set minut = minut + 5
  248. if water >= 20:
  249. 'Water in you no longer climbs.'
  250. end
  251. if water < 20:
  252. 'You gladly drank a glass of water.'
  253. set water = water +20
  254. end
  255. act 'Get up from the table':gt $curloc
  256. end
  257. if husband>0 and husbanday>0 and huseatday!day and eda>=2:
  258. act 'Cook a meal for her husband 1 h (2 unit of food)':
  259. cla
  260. *clr
  261. husband+=5
  262. set eda = eda - 2
  263. set minut = minut + 60
  264. huseatday=day
  265. manna-=25
  266. '<center><img src="pics/cook.jpg" ></center>'
  267. 'You cooked food on a plate for her husband.'
  268. act 'Move away from the stove':gt $curloc
  269. end
  270. >>>>>>> 403_ykuh
  271. end
  272. <<<<<<< 403_ykuh
  273. if lekarstvo > 0:
  274. 'You have <<lekarstvo>> tablets.'
  275. if sick > 0 and lekarday ! day:
  276. act 'Take a pill':
  277. cla
  278. *clr
  279. set minut += 5
  280. lekarday = day
  281. lekarstvo -= 1
  282. sick -= sick * 20/100
  283. set lekrand = RAND(0,8)
  284. if lekrand = 0: '<center><img src="images\inBed\lekr1.jpg"></center>'
  285. if lekrand = 1: '<center><img src="images\inBed\lekr2.jpg"></center>'
  286. if lekrand = 2: '<center><img src="images\inBed\lekr3.jpg"></center>'
  287. if lekrand = 3: '<center><img src="images\inBed\lekr4.jpg"></center>'
  288. if lekrand = 4: '<center><img src="images\inBed\lekr5.jpg"></center>'
  289. if lekrand = 5: '<center><img src="images\inBed\lekr6.jpg"></center>'
  290. if lekrand = 6: '<center><img src="images\inBed\lekr7.jpg"></center>'
  291. if lekrand = 7: '<center><img src="images\inBed\lekr8.jpg"></center>'
  292. if lekrand = 8: '<center><img src="images\inBed\lekr9.jpg"></center>'
  293. 'You took the pill'
  294. act 'Move away': gt $curloc
  295. end
  296. end
  297. =======
  298. if lekarstvo>0:
  299. 'you have <<lekarstvo>> tablets.'
  300. if sick>0 and lekarday!day:
  301. act 'take a pill':
  302. cla
  303. *clr
  304. set minut = minut + 5
  305. lekarday=day
  306. lekarstvo-=1
  307. sick-=sick*20/100
  308. set lekrand = RAND (0,8)
  309. if lekrand = 0:'<center><img src="inBed/lekr1.jpg" ></center>'
  310. if lekrand = 1:'<center><img src="inBed/lekr2.jpg" ></center>'
  311. if lekrand = 2:'<center><img src="inBed/lekr3.jpg" ></center>'
  312. if lekrand = 3:'<center><img src="inBed/lekr4.jpg" ></center>'
  313. if lekrand = 4:'<center><img src="inBed/lekr5.jpg" ></center>'
  314. if lekrand = 5:'<center><img src="inBed/lekr6.jpg" ></center>'
  315. if lekrand = 6:'<center><img src="inBed/lekr7.jpg" ></center>'
  316. if lekrand = 7:'<center><img src="inBed/lekr8.jpg" ></center>'
  317. if lekrand = 8:'<center><img src="inBed/lekr9.jpg" ></center>'
  318. 'You drank the pill'
  319. act 'move_away':gt $curloc
  320. end
  321. end
  322. >>>>>>> 403_ykuh
  323. end
  324. <<<<<<< 403_ykuh
  325. if vitamin > 0:
  326. 'You have <<vitamin>> vitamins.'
  327. if vitaminday ! day:
  328. act 'Take some vitamins':
  329. cla
  330. *clr
  331. set minut += 5
  332. vitaminday = day
  333. vitamin -= 1
  334. frost = 0
  335. if KandidozOnce = 1: Kandidoz -= 2
  336. if GerpesOnce = 1: Gerpes -= 2
  337. if SifacOnce = 1 and Sifilis >= 10: Sifilis -= RAND(0,1)
  338. set skinvan += 1
  339. if skinvan = 20: set skinvan = 0 & set skin += 1
  340. 'You took vitamins'
  341. act 'Move away': gt $curloc
  342. end
  343. end
  344. =======
  345. if vitamin>0:
  346. 'you have <<vitamin>> vitaminok.'
  347. if vitaminday!day:
  348. act 'drink Vitaminki':
  349. cla
  350. *clr
  351. set minut = minut + 5
  352. vitaminday=day
  353. vitamin-=1
  354. frost=0
  355. if KandidozOnce=1:Kandidoz-=2
  356. if GerpesOnce=1:Gerpes-=2
  357. if SifacOnce=1 and Sifilis>=10:Sifilis-=RAND(0,1)
  358. set skinvan = skinvan + 1
  359. if skinvan = 20:set skinvan = 0&set skin = skin + 1
  360. 'You drank Vitaminki'
  361. act 'move_away':gt $curloc
  362. end
  363. end
  364. >>>>>>> 403_ykuh
  365. end
  366. --- ykuh ---------------------------------