1
0

food.qsrc 18 KB

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