1
0

food.qsrc 16 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767
  1. # food
  2. ! Snacks: +20 pcs_energy, +7 fat (most cases has water available separately)
  3. ! Fast Food: +70 pcs_energy +70 pcs_hydra, +14 fat (hamburgers, fried food, like the downtown diner)
  4. ! Small Meal: +40 pcs_energy +40 pcs_hydra, +4 fat (soup and sandwiches, cafe light lunches, etc)
  5. ! Medium Meal and Hotel Food: +60 pcs_energy +60 pcs_hydra, +7 fat (home cooked dinners and room service equivalent)
  6. ! Large Meal: +100 pcs_energy +100 pcs_hydra, +14 fat (steak dinners, new years party dinner, etc)
  7. ! Bagged Lunch: +40 pcs_energy +40 pcs_hydra, +5 fat (sandwich, cold leftovers, etc)
  8. ! Health Meal: +50 pcs_energy +50 pcs_hydra, +1 fat (Diet food, Salads, rice cakes with peanut butter)
  9. if $ARGS[0] = 'pirosh':
  10. *clr & cla
  11. frost = 0
  12. minut += 15
  13. money -= val($_eat['<<args[1]>>,price'])
  14. pcs_health += 5
  15. mood += 5
  16. fat += 4
  17. pcs_energy += 40
  18. if pcs_hydra >= 100:
  19. pcs_hydra -= 5
  20. else
  21. pcs_hydra -= 10
  22. end
  23. cumspclnt = 2
  24. gs 'cum_cleanup'
  25. pcs_breath = 0
  26. gs 'food', 'aftermeal'
  27. '<center><img <<$set_imgh>> src="images/shared/food/pirozhki.jpg"></center>'
  28. 'You enjoy some vegetarian Piroshki, and <<$mtxt>>'
  29. gs 'stat'
  30. killvar '$_eat'
  31. if food_loc = 1:
  32. act 'Finish': gt 'food_menu'
  33. else
  34. act 'Finish':gt $loc, $metka
  35. end
  36. end
  37. if $ARGS[0] = 'golub':
  38. *clr & cla
  39. frost = 0
  40. minut += 20
  41. money -= val($_eat['<<args[1]>>,price'])
  42. pcs_health += 10
  43. mood += 5
  44. fat += 8
  45. pcs_energy += 60
  46. if pcs_hydra >= 100:
  47. pcs_hydra += 10
  48. else
  49. pcs_hydra += 20
  50. end
  51. cumspclnt = 2
  52. gs 'cum_cleanup'
  53. pcs_breath = 0
  54. gs 'food', 'aftermeal'
  55. '<center><img <<$set_imgh>> src="images/shared/food/golubtsy.jpg"></center>'
  56. 'You enjoy some well made Golubtsy in a tomato sauce. The portions were moderate and<<$mtxt>>'
  57. gs 'stat'
  58. killvar '$_eat'
  59. if food_loc = 1:
  60. act 'Finish': gt 'food_menu'
  61. else
  62. act 'Finish':gt $loc, $metka
  63. end
  64. end
  65. if $ARGS[0] = 'pozhar':
  66. *clr & cla
  67. frost = 0
  68. minut += 20
  69. money -= val($_eat['<<args[1]>>,price'])
  70. pcs_health += 15
  71. mood += 10
  72. fat += 6
  73. pcs_energy += 70
  74. if pcs_hydra >= 100:
  75. pcs_hydra -= 5
  76. else
  77. pcs_hydra -= 10
  78. end
  79. cumspclnt = 2
  80. gs 'cum_cleanup'
  81. pcs_breath = 0
  82. gs 'food', 'aftermeal'
  83. '<center><img <<$set_imgh>> src="images/shared/food/pozharsky.jpg"></center>'
  84. 'You thoroughly enjoy the nicely cooked Pozharsky Cutlets. The portions were moderate and<<$mtxt>>'
  85. gs 'stat'
  86. killvar '$_eat'
  87. if food_loc = 1:
  88. act 'Finish': gt 'food_menu'
  89. else
  90. act 'Finish':gt $loc, $metka
  91. end
  92. end
  93. if $ARGS[0] = 'reuben':
  94. *clr & cla
  95. frost = 0
  96. minut += 25
  97. money -= val($_eat['<<args[1]>>,price'])
  98. pcs_health += 20
  99. mood += 25
  100. fat += 12
  101. pcs_energy += 110
  102. if pcs_hydra >= 100:
  103. pcs_hydra -= 5
  104. else
  105. pcs_hydra -= 10
  106. end
  107. cumspclnt = 2
  108. gs 'cum_cleanup'
  109. pcs_breath = 0
  110. gs 'food', 'aftermeal'
  111. '<center><img <<$set_imgh>> src="images/shared/food/reuben.jpg"></center>'
  112. 'You had trouble finishing the Rueben Sandwich, but you enjoyed it immensely. The portion was fairly large and<<$mtxt>>'
  113. gs 'stat'
  114. killvar '$_eat'
  115. if food_loc = 1:
  116. act 'Finish': gt 'food_menu'
  117. else
  118. act 'Finish':gt $loc, $metka
  119. end
  120. end
  121. if $ARGS[0] = 'blini':
  122. *clr & cla
  123. frost = 0
  124. minut += 15
  125. money -= val($_eat['<<args[1]>>,price'])
  126. pcs_health += 10
  127. mood += 5
  128. fat += 8
  129. pcs_energy += 50
  130. if pcs_hydra >= 100:
  131. pcs_hydra -= 5
  132. else
  133. pcs_hydra -= 10
  134. end
  135. cumspclnt = 2
  136. gs 'cum_cleanup'
  137. pcs_breath = 0
  138. gs 'food', 'aftermeal'
  139. '<center><img <<$set_imgh>> src="images/shared/food/blini.jpg"></center>'
  140. 'You eat some blini. The portions are fairly small and<<$mtxt>>'
  141. gs 'stat'
  142. killvar '$_eat'
  143. if food_loc = 1:
  144. act 'Finish': gt 'food_menu'
  145. else
  146. act 'Finish':gt $loc, $metka
  147. end
  148. end
  149. if $ARGS[0] = 'varenfan':
  150. *clr & cla
  151. frost = 0
  152. minut += 25
  153. money -= val($_eat['<<args[1]>>,price'])
  154. pcs_health += 15
  155. mood += 15
  156. fat += 10
  157. pcs_energy += 40
  158. if pcs_hydra >= 100:
  159. pcs_hydra -= 5
  160. else
  161. pcs_hydra -= 10
  162. end
  163. cumspclnt = 2
  164. gs 'cum_cleanup'
  165. pcs_breath = 0
  166. '<center><img <<$set_imgh>> src="images/shared/food/varenikifancy.jpg"></center>'
  167. 'You sit and eat a plate of yummy Vareniki with potatoes. The portions are fairly moderate and<<$mtxt>>'
  168. gs 'stat'
  169. killvar '$_eat'
  170. if food_loc = 1:
  171. act 'Finish': gt 'food_menu'
  172. else
  173. act 'Finish':gt $loc, $metka
  174. end
  175. end
  176. if $ARGS[0] = 'salfan':
  177. *clr & cla
  178. frost = 0
  179. minut += 40
  180. money -= val($_eat['<<args[1]>>,price'])
  181. pcs_health += 20
  182. mood += 20
  183. fat += 12
  184. pcs_energy += 80
  185. if pcs_hydra >= 100:
  186. pcs_hydra -= 5
  187. else
  188. pcs_hydra -= 10
  189. end
  190. cumspclnt = 2
  191. gs 'cum_cleanup'
  192. pcs_breath = 0
  193. gs 'food', 'aftermeal'
  194. '<center><img <<$set_imgh>> src="images/shared/food/salmonfancy.jpg"></center>'
  195. 'You thoroughly enjoy the massive fresh salmon steak. The meal was simply colossal and<<$mtxt>>'
  196. gs 'stat'
  197. killvar '$_eat'
  198. if food_loc = 1:
  199. act 'Finish': gt 'food_menu'
  200. else
  201. act 'Finish':gt $loc, $metka
  202. end
  203. end
  204. if $ARGS[0] = 'strofan':
  205. *clr & cla
  206. frost = 0
  207. minut += 35
  208. money -= val($_eat['<<args[1]>>,price'])
  209. pcs_health += 20
  210. mood += 30
  211. fat += 6
  212. pcs_energy += 120
  213. if pcs_hydra >= 100:
  214. pcs_hydra -= 5
  215. else
  216. pcs_hydra -= 10
  217. end
  218. cumspclnt = 2
  219. gs 'cum_cleanup'
  220. pcs_breath = 0
  221. gs 'food', 'aftermeal'
  222. '<center><img <<$set_imgh>> src="images/shared/food/stroganofffancy.jpg"></center>'
  223. 'You are loving the delicious Beef Stroganoff. You enjoy it immensely. The portion was fairly moderate and<<$mtxt>>'
  224. gs 'stat'
  225. killvar '$_eat'
  226. if food_loc = 1:
  227. act 'Finish': gt 'food_menu'
  228. else
  229. act 'Finish':gt $loc, $metka
  230. end
  231. end
  232. if $ARGS[0] = 'borfan':
  233. *clr & cla
  234. frost = 0
  235. minut += 25
  236. money -= val($_eat['<<args[1]>>,price'])
  237. pcs_health += 10
  238. mood += 25
  239. fat += 4
  240. pcs_energy += 60
  241. if pcs_hydra >= 100:
  242. pcs_hydra += 20
  243. else
  244. pcs_hydra += 40
  245. end
  246. cumspclnt = 2
  247. gs 'cum_cleanup'
  248. pcs_breath = 0
  249. gs 'food', 'aftermeal'
  250. '<center><img <<$set_imgh>> src="images/shared/food/borschtfancy.jpg"></center>'
  251. 'You a steaming hot bowel of Borscht. The portions are fairly small and<<$mtxt>>'
  252. gs 'stat'
  253. killvar '$_eat'
  254. if food_loc = 1:
  255. act 'Finish': gt 'food_menu'
  256. else
  257. act 'Finish':gt $loc, $metka
  258. end
  259. end
  260. if $ARGS[0] = 'blifan':
  261. *clr & cla
  262. frost = 0
  263. minut += 20
  264. money -= val($_eat['<<args[1]>>,price'])
  265. pcs_health += 30
  266. mood += 40
  267. fat += 6
  268. pcs_energy += 50
  269. if pcs_hydra >= 100:
  270. pcs_hydra -= 5
  271. else
  272. pcs_hydra -= 10
  273. end
  274. cumspclnt = 2
  275. gs 'cum_cleanup'
  276. pcs_breath = 0
  277. gs 'food', 'aftermeal'
  278. '<center><img <<$set_imgh>> src="images/shared/food/blinifancy.jpg"></center>'
  279. 'You eat a petite caviar blini appetiser. The portions are fairly small and<<$mtxt>>'
  280. gs 'stat'
  281. killvar '$_eat'
  282. if food_loc = 1:
  283. act 'Finish': gt 'food_menu'
  284. else
  285. act 'Finish':gt $loc, $metka
  286. end
  287. end
  288. if $ARGS[0] = 'ryesna':
  289. *clr & cla
  290. frost = 0
  291. minut += 10
  292. money -= val($_eat['<<args[1]>>,price'])
  293. pcs_health += 5
  294. mood += 10
  295. fat += 4
  296. pcs_energy += 20
  297. if pcs_hydra >= 100:
  298. pcs_hydra -= 5
  299. else
  300. pcs_hydra -= 10
  301. end
  302. cumspclnt = 2
  303. gs 'cum_cleanup'
  304. pcs_breath = 0
  305. gs 'food', 'aftermeal'
  306. '<center><img <<$set_imgh>> src="images/shared/food/ryesnack.jpg"></center>'
  307. 'You have a tasty bowel of toasted rye snacks. The portions are fairly small and<<$mtxt>>'
  308. gs 'stat'
  309. killvar '$_eat'
  310. if food_loc = 1:
  311. act 'Finish': gt 'food_menu'
  312. else
  313. act 'Finish':gt $loc, $metka
  314. end
  315. end
  316. if $ARGS[0] = 'crisps':
  317. *clr & cla
  318. frost = 0
  319. minut += 10
  320. money -= val($_eat['<<args[1]>>,price'])
  321. pcs_health += 5
  322. mood += 20
  323. fat += 16
  324. pcs_energy += 20
  325. if pcs_hydra >= 100:
  326. pcs_hydra -= 5
  327. else
  328. pcs_hydra -= 10
  329. end
  330. cumspclnt = 2
  331. gs 'cum_cleanup'
  332. pcs_breath = 0
  333. gs 'food', 'aftermeal'
  334. '<center><img <<$set_imgh>> src="images/shared/food/crisps.jpg"></center>'
  335. 'You enjoy the salty flavour of a bowl of crisps. The portions are fairly small and<<$mtxt>>'
  336. gs 'stat'
  337. killvar '$_eat'
  338. if food_loc = 1:
  339. act 'Finish': gt 'food_menu'
  340. else
  341. act 'Finish':gt $loc, $metka
  342. end
  343. end
  344. if $ARGS[0] = 'onring':
  345. *clr & cla
  346. frost = 0
  347. minut += 10
  348. money -= val($_eat['<<args[1]>>,price'])
  349. pcs_health += 10
  350. mood += 5
  351. fat += 16
  352. pcs_energy += 40
  353. if pcs_hydra >= 100:
  354. pcs_hydra -= 5
  355. else
  356. pcs_hydra -= 10
  357. end
  358. cumspclnt = 2
  359. gs 'cum_cleanup'
  360. pcs_breath = 0
  361. gs 'food', 'aftermeal'
  362. '<center><img <<$set_imgh>> src="images/shared/food/onionrings.jpg"></center>'
  363. 'You push yourself to eat the dry fatty onion rings. The portions are fairly small and<<$mtxt>>'
  364. gs 'stat'
  365. killvar '$_eat'
  366. if food_loc = 1:
  367. act 'Finish': gt 'food_menu'
  368. else
  369. act 'Finish':gt $loc, $metka
  370. end
  371. end
  372. if $ARGS[0] = 'vegburg':
  373. *clr & cla
  374. frost = 0
  375. minut += 20
  376. money -= val($_eat['<<args[1]>>,price'])
  377. pcs_health += 20
  378. mood += 10
  379. fat += 8
  380. pcs_energy += 60
  381. if pcs_hydra >= 100:
  382. pcs_hydra -= 5
  383. else
  384. pcs_hydra -= 10
  385. end
  386. cumspclnt = 2
  387. gs 'cum_cleanup'
  388. pcs_breath = 0
  389. gs 'food', 'aftermeal'
  390. '<center><img <<$set_imgh>> src="images/shared/food/vegieburger.jpg"></center>'
  391. 'You eat the delicious vegieburger. The portions are fairly small and<<$mtxt>>'
  392. gs 'stat'
  393. killvar '$_eat'
  394. if food_loc = 1:
  395. act 'Finish': gt 'food_menu'
  396. else
  397. act 'Finish':gt $loc, $metka
  398. end
  399. end
  400. if $ARGS[0] = 'turburg':
  401. *clr & cla
  402. frost = 0
  403. minut += 20
  404. money -= val($_eat['<<args[1]>>,price'])
  405. pcs_health += 10
  406. mood += 10
  407. fat += 10
  408. pcs_energy += 60
  409. if pcs_hydra >= 100:
  410. pcs_hydra -= 5
  411. else
  412. pcs_hydra -= 10
  413. end
  414. cumspclnt = 2
  415. gs 'cum_cleanup'
  416. pcs_breath = 0
  417. gs 'food', 'aftermeal'
  418. '<center><img <<$set_imgh>> src="images/shared/food/turkeyburger.jpg"></center>'
  419. 'You enjoy the turkey burger. The portions are fairly small and<<$mtxt>>'
  420. gs 'stat'
  421. killvar '$_eat'
  422. if food_loc = 1:
  423. act 'Finish': gt 'food_menu'
  424. else
  425. act 'Finish':gt $loc, $metka
  426. end
  427. end
  428. if $ARGS[0] = 'batfish':
  429. *clr & cla
  430. frost = 0
  431. minut += 20
  432. money -= val($_eat['<<args[1]>>,price'])
  433. pcs_health += 15
  434. mood += 15
  435. fat += 11
  436. pcs_energy += 80
  437. if pcs_hydra >= 100:
  438. pcs_hydra -= 5
  439. else
  440. pcs_hydra -= 10
  441. end
  442. cumspclnt = 2
  443. gs 'cum_cleanup'
  444. pcs_breath = 0
  445. gs 'food', 'aftermeal'
  446. '<center><img <<$set_imgh>> src="images/shared/food/batteredfish.jpg"></center>'
  447. 'You eat the fish, but it has little flavour. The portions were moderate and<<$mtxt>>'
  448. gs 'stat'
  449. killvar '$_eat'
  450. if food_loc = 1:
  451. act 'Finish': gt 'food_menu'
  452. else
  453. act 'Finish':gt $loc, $metka
  454. end
  455. end
  456. if $ARGS[0] = 'cheburg':
  457. *clr & cla
  458. frost = 0
  459. minut += 25
  460. money -= val($_eat['<<args[1]>>,price'])
  461. pcs_health += 20
  462. mood += 20
  463. fat += 14
  464. pcs_energy += 120
  465. if pcs_hydra >= 100:
  466. pcs_hydra -= 5
  467. else
  468. pcs_hydra -= 10
  469. end
  470. cumspclnt = 2
  471. gs 'cum_cleanup'
  472. pcs_breath = 0
  473. gs 'food', 'aftermeal'
  474. '<center><img <<$set_imgh>> src="images/shared/food/cheeseburger.jpg"></center>'
  475. 'You are a little sickened by the greasy looking cheeseburger and fries in front of you. The meal was simply colossal and<<$mtxt>>'
  476. gs 'stat'
  477. killvar '$_eat'
  478. if food_loc = 1:
  479. act 'Finish': gt 'food_menu'
  480. else
  481. act 'Finish':gt $loc, $metka
  482. end
  483. end
  484. if $ARGS[0] = 'snack':
  485. *clr & cla
  486. gs 'stat'
  487. minut += 15
  488. money -= val($_eat['<<args[1]>>,price'])
  489. pcs_health += 10
  490. pcs_mood += 20
  491. fat += 6
  492. pcs_energy += 20
  493. cumspclnt = 2
  494. gs 'cum_cleanup'
  495. pcs_breath = 0
  496. '<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
  497. 'You enjoy a small tasty, but somewhat fattening, snack. It wasn''t very much food, and<<$mtxt>>'
  498. gs 'stat'
  499. killvar '$_eat'
  500. if food_loc = 1:
  501. act 'Finish': gt 'food_menu'
  502. else
  503. act 'Finish':gt $loc, $metka
  504. end
  505. end
  506. if $ARGS[0] = 'f_food':
  507. *clr & cla
  508. frost = 0
  509. minut += 20
  510. money -= val($_eat['<<args[1]>>,price'])
  511. pcs_health += 10
  512. fat += 14
  513. pcs_energy += 70
  514. if pcs_hydra >= 100:
  515. pcs_hydra += 35
  516. else
  517. pcs_hydra += 70
  518. end
  519. cumspclnt = 2
  520. gs 'cum_cleanup'
  521. pcs_breath = 0
  522. gs 'food', 'aftermeal'
  523. '<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
  524. 'You happily eat some fast food. The portions are quite generous and<<$mtxt>>'
  525. gs 'stat'
  526. killvar '$_eat'
  527. if food_loc = 1:
  528. act 'Finish': gt 'food_menu'
  529. else
  530. act 'Finish':gt $loc, $metka
  531. end
  532. end
  533. if $ARGS[0] = 's_meal':
  534. *clr & cla
  535. frost = 0
  536. minut += 25
  537. money -= val($_eat['<<args[1]>>,price'])
  538. pcs_health += 10
  539. fat += 4
  540. pcs_energy += 40
  541. if pcs_hydra >= 100:
  542. pcs_hydra += 20
  543. else
  544. pcs_hydra += 40
  545. end
  546. cumspclnt = 2
  547. gs 'cum_cleanup'
  548. pcs_breath = 0
  549. gs 'food', 'aftermeal'
  550. '<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
  551. 'You happily eat your meal. The portions are fairly small and<<$mtxt>>'
  552. gs 'stat'
  553. killvar '$_eat'
  554. if food_loc = 1:
  555. act 'Finish': gt 'food_menu'
  556. else
  557. act 'Finish':gt $loc, $metka
  558. end
  559. end
  560. if $ARGS[0] = 'm_meal':
  561. *clr & cla
  562. frost = 0
  563. minut += 30
  564. money -= val($_eat['<<args[1]>>,price'])
  565. pcs_health += 10
  566. fat += 8
  567. pcs_energy += 60
  568. if pcs_hydra >= 100:
  569. pcs_hydra += 30
  570. else
  571. pcs_hydra += 60
  572. end
  573. cumspclnt = 2
  574. gs 'cum_cleanup'
  575. pcs_breath = 0
  576. gs 'food', 'aftermeal'
  577. '<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
  578. 'You thoroughly enjoy the nicely cooked meal. The portions were moderate and<<$mtxt>>'
  579. 'You accompany it with a mug of tea.'
  580. gs 'stat'
  581. killvar '$_eat'
  582. if food_loc = 1:
  583. act 'Finish': gt 'food_menu'
  584. else
  585. act 'Finish':gt $loc, $metka
  586. end
  587. end
  588. if $ARGS[0] = 'l_meal':
  589. *clr & cla
  590. frost = 0
  591. minut += 35
  592. money -= val($_eat['<<args[1]>>,price'])
  593. pcs_health += 10
  594. fat += 14
  595. pcs_energy += 100
  596. if pcs_hydra >= 100:
  597. pcs_hydra += 50
  598. else
  599. pcs_hydra += 100
  600. end
  601. cumspclnt = 2
  602. gs 'cum_cleanup'
  603. pcs_breath = 0
  604. gs 'food', 'aftermeal'
  605. '<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
  606. 'You are almost overwhelmed by the delicious meal laid before you and enjoy it immensely. The meal was simply colossal and<<$mtxt>>'
  607. gs 'stat'
  608. killvar '$_eat'
  609. if plcooked = 1: killvar 'plcooked'
  610. if food_loc = 1:
  611. act 'Finish': gt 'food_menu'
  612. else
  613. act 'Finish':gt $loc, $metka
  614. end
  615. end
  616. if $ARGS[0] = 'bag_lunch':
  617. *clr & cla
  618. frost = 0
  619. minut += 15
  620. money -= val($_eat['<<args[1]>>,price'])
  621. pcs_health += 10
  622. fat += 5
  623. pcs_energy += 40
  624. if pcs_hydra >= 100:
  625. pcs_hydra += 15
  626. else
  627. pcs_hydra += 40
  628. end
  629. cumspclnt = 2
  630. gs 'cum_cleanup'
  631. pcs_breath = 0
  632. gs 'food', 'aftermeal'
  633. '<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
  634. 'You eat the lunch you packed from home. There was nothing fancy about it and<<$mtxt>>'
  635. gs 'stat'
  636. killvar '$_eat'
  637. if food_loc = 1:
  638. act 'Finish': gt 'food_menu'
  639. else
  640. act 'Finish':gt $loc, $metka
  641. end
  642. end
  643. if $ARGS[0] = 'h_food':
  644. *clr & cla
  645. frost = 0
  646. minut += 25
  647. money -= val($_eat['<<args[1]>>,price'])
  648. pcs_health += 10
  649. fat += 7
  650. money -= 100
  651. pcs_energy += 60
  652. if pcs_hydra >= 100:
  653. pcs_hydra += 30
  654. else
  655. pcs_hydra += 60
  656. end
  657. cumspclnt = 2
  658. gs 'cum_cleanup'
  659. pcs_breath = 0
  660. gs 'food', 'aftermeal'
  661. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/roomservice.jpg"></center>'
  662. 'The maid brings you a decent meal,<<$mtxt>>'
  663. 'You accompany it with a mug of tea.'
  664. gs 'stat'
  665. killvar '$_eat'
  666. if food_loc = 1:
  667. act 'Finish': gt 'food_menu'
  668. else
  669. act 'Finish':gt $loc, $metka
  670. end
  671. end
  672. if $ARGS[0] = 'h_meal':
  673. *clr & cla
  674. frost = 0
  675. minut += 25
  676. money -= val($_eat['<<args[1]>>,price'])
  677. pcs_health += 20
  678. fat += 1
  679. pcs_energy += 50
  680. if pcs_hydra >= 100:
  681. pcs_hydra += 25
  682. else
  683. pcs_hydra += 50
  684. end
  685. cumspclnt = 2
  686. gs 'cum_cleanup'
  687. pcs_breath = 0
  688. gs 'food', 'aftermeal'
  689. '<center><img <<$set_imgh>> src="images/shared/food/eating-salad.jpg"></center>'
  690. 'You enjoy a crisp salad of fresh greens and<<$mtxt>>'
  691. gs 'stat'
  692. killvar '$_eat'
  693. if food_loc = 1:
  694. act 'Finish': gt 'food_menu'
  695. else
  696. act 'Finish':gt $loc, $metka
  697. end
  698. end
  699. if $ARGS[0] = 'aftermeal':
  700. if pcs_energy > 100:
  701. $mtxt = ' you had to force yourself to finish and now you feel stuffed.'
  702. elseif pcs_energy >= 80:
  703. $mtxt = ' it was enough to leave you feeling full and satisfied.'
  704. elseif pcs_energy >= 60:
  705. $mtxt = ' while you no longer feel especially hungry, you don''t feel all that satisfied either.'
  706. elseif pcs_energy >= 40:
  707. $mtxt = ' while you no longer feel like you are starving, you are still quite hungry - in fact, you could probably eat the same amount again and still have room for dessert.'
  708. else
  709. $mtxt = ' did nothing to appease your hunger, in fact, it only amde you want more.'
  710. end
  711. end
  712. --- food ---------------------------------