1
0

food.qsrc 18 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890
  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. end
  639. if $ARGS[0] = 'h_food':
  640. *clr & cla
  641. frost = 0
  642. minut += 25
  643. money -= val($_eat['<<args[1]>>,price'])
  644. pcs_health += 10
  645. fat += 7
  646. money -= 100
  647. pcs_energy += 60
  648. if pcs_hydra >= 100:
  649. pcs_hydra += 30
  650. else
  651. pcs_hydra += 60
  652. end
  653. cumspclnt = 2
  654. gs 'cum_cleanup'
  655. pcs_breath = 0
  656. gs 'food', 'aftermeal'
  657. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/roomservice.jpg"></center>'
  658. 'The maid brings you a decent meal,<<$mtxt>>'
  659. 'You accompany it with a mug of tea.'
  660. gs 'stat'
  661. killvar '$_eat'
  662. if food_loc = 1:
  663. act 'Finish': gt 'food_menu'
  664. else
  665. act 'Finish':gt $loc, $loc_arg
  666. end
  667. end
  668. if $ARGS[0] = 'h_meal':
  669. *clr & cla
  670. frost = 0
  671. minut += 25
  672. money -= val($_eat['<<args[1]>>,price'])
  673. pcs_health += 20
  674. fat += 1
  675. pcs_energy += 50
  676. if pcs_hydra >= 100:
  677. pcs_hydra += 25
  678. else
  679. pcs_hydra += 50
  680. end
  681. cumspclnt = 2
  682. gs 'cum_cleanup'
  683. pcs_breath = 0
  684. gs 'food', 'aftermeal'
  685. '<center><img <<$set_imgh>> src="images/shared/food/eating-salad.jpg"></center>'
  686. 'You enjoy a crisp salad of fresh greens and<<$mtxt>>'
  687. gs 'stat'
  688. killvar '$_eat'
  689. if food_loc = 1:
  690. act 'Finish': gt 'food_menu'
  691. else
  692. act 'Finish':gt $loc, $loc_arg
  693. end
  694. end
  695. if $ARGS[0] = 'jerky':
  696. *clr & cla
  697. frost = 0
  698. minut += 10
  699. money -= val($_eat['<<args[1]>>,price'])
  700. pcs_health += 10
  701. fat += 1
  702. pcs_hydra -= 15
  703. pcs_energy += 20
  704. cumspclnt = 2
  705. gs 'cum_cleanup'
  706. pcs_breath = 0
  707. gs 'food', 'aftermeal'
  708. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/jerky_mix.jpg"></center>'
  709. '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>>'
  710. gs 'stat'
  711. killvar '$_eat'
  712. if food_loc = 1:
  713. act 'Finish': gt 'food_menu'
  714. else
  715. act 'Finish':gt $loc, $loc_arg
  716. end
  717. end
  718. if $ARGS[0] = 'meat_stew':
  719. *clr & cla
  720. frost = 0
  721. minut += 30
  722. money -= val($_eat['<<args[1]>>,price'])
  723. pcs_health += 10
  724. fat += 3
  725. pcs_energy += 50
  726. if pcs_hydra >= 100:
  727. pcs_hydra += 10
  728. else
  729. pcs_hydra += 20
  730. end
  731. cumspclnt = 2
  732. gs 'cum_cleanup'
  733. pcs_breath = 0
  734. gs 'food', 'aftermeal'
  735. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/soup.jpg"></center>'
  736. 'You thoroughly enjoy the nicely cooked meat stew, and <<$mtxt>>'
  737. 'You accompany it with a mug of tea.'
  738. gs 'stat'
  739. killvar '$_eat'
  740. if food_loc = 1:
  741. act 'Finish': gt 'food_menu'
  742. else
  743. act 'Finish':gt $loc, $loc_arg
  744. end
  745. end
  746. if $ARGS[0] = 'mush_soup':
  747. *clr & cla
  748. frost = 0
  749. minut += 30
  750. money -= val($_eat['<<args[1]>>,price'])
  751. pcs_health += 10
  752. fat += 3
  753. pcs_energy += 40
  754. if pcs_hydra >= 100:
  755. pcs_hydra += 20
  756. else
  757. pcs_hydra += 30
  758. end
  759. cumspclnt = 2
  760. gs 'cum_cleanup'
  761. pcs_breath = 0
  762. gs 'food', 'aftermeal'
  763. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/soup.jpg"></center>'
  764. 'You thoroughly enjoy some warm mushroom soup, and <<$mtxt>>'
  765. 'You accompany it with a mug of tea.'
  766. gs 'stat'
  767. killvar '$_eat'
  768. if food_loc = 1:
  769. act 'Finish': gt 'food_menu'
  770. else
  771. act 'Finish':gt $loc, $loc_arg
  772. end
  773. end
  774. if $ARGS[0] = 'bilberry':
  775. *clr & cla
  776. gs 'stat'
  777. minut += 15
  778. money -= val($_eat['<<args[1]>>,price'])
  779. pcs_health += 5
  780. pcs_mood += 10
  781. fat += 1
  782. pcs_energy += 10
  783. pcs_hydra += 10
  784. cumspclnt = 2
  785. gs 'cum_cleanup'
  786. pcs_breath = 0
  787. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/bilberry.jpg"></center>'
  788. 'You ate a few berries, and<<$mtxt>>'
  789. gs 'stat'
  790. killvar '$_eat'
  791. if food_loc = 1:
  792. act 'Finish': gt 'food_menu'
  793. else
  794. act 'Finish':gt $loc, $loc_arg
  795. end
  796. end
  797. if $ARGS[0] = 'family_meals':
  798. frost = 0
  799. minut += 20
  800. pcs_health += 10
  801. pcs_mood += 10
  802. fat += iif($ARGS[1] = 'dinner', 8, 6)
  803. pcs_energy += 60
  804. if pcs_hydra >= 100:
  805. pcs_hydra += 30
  806. else
  807. pcs_hydra += 60
  808. end
  809. cumspclnt = 2
  810. gs 'cum_cleanup'
  811. pcs_breath = 0
  812. end
  813. if $ARGS[0] = 'aftermeal':
  814. if pcs_energy > 100:
  815. $mtxt = ' you had to force yourself to finish and now you feel stuffed.'
  816. elseif pcs_energy >= 80:
  817. $mtxt = ' it was enough to leave you feeling full and satisfied.'
  818. elseif pcs_energy >= 60:
  819. $mtxt = ' while you no longer feel especially hungry, you don''t feel all that satisfied either.'
  820. elseif pcs_energy >= 40:
  821. $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.'
  822. else
  823. $mtxt = ' did nothing to appease your hunger, in fact, it only amde you want more.'
  824. end
  825. end
  826. --- food ---------------------------------