1
0

beverage.qsrc 9.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469
  1. # beverage
  2. menu_off = 1
  3. if $ARGS[0] = 'bev_kva':
  4. *clr & cla
  5. frost = 1
  6. minut += 10
  7. fat += 2
  8. money -= val($_drink['<<args[1]>>,price'])
  9. pcs_health += 5
  10. pcs_mood += 15
  11. pcs_energy += 8
  12. if pcs_hydra >= 100:
  13. pcs_hydra += 30
  14. else
  15. pcs_hydra += 60
  16. end
  17. cumspclnt = 2
  18. gs 'cum_cleanup'
  19. pcs_breath = 0
  20. gs 'beverage', 'afterdrink'
  21. '<center><img <<$set_imgh>> src="images/shared/drinks/kvass.jpg"></center>'
  22. 'You enjoy a drink of kvass, and<<$mtxt>>'
  23. gs 'stat'
  24. killvar '$_drink'
  25. if food_loc = 1:
  26. act 'Finish': gt 'food_menu'
  27. else
  28. act 'Finish':gt $loc, $metka
  29. end
  30. end
  31. if $ARGS[0] = 'bev_jui':
  32. *clr & cla
  33. frost = 1
  34. alko -= 1
  35. minut += 10
  36. fat += 3
  37. money -= val($_drink['<<args[1]>>,price'])
  38. pcs_health += 8
  39. pcs_mood += 10
  40. pcs_energy += 10
  41. if pcs_hydra >= 100:
  42. pcs_hydra += 40
  43. else
  44. pcs_hydra += 80
  45. end
  46. cumspclnt = 2
  47. gs 'cum_cleanup'
  48. pcs_breath = 0
  49. gs 'beverage', 'afterdrink'
  50. '<center><img <<$set_imgh>> src="images/shared/drinks/juice.jpg"></center>'
  51. 'You enjoy a refreshing juice, and<<$mtxt>>'
  52. gs 'stat'
  53. killvar '$_drink'
  54. if food_loc = 1:
  55. act 'Finish': gt 'food_menu'
  56. else
  57. act 'Finish':gt $loc, $metka
  58. end
  59. end
  60. if $ARGS[0] = 'bev_mil':
  61. *clr & cla
  62. frost = 1
  63. minut += 10
  64. fat += 6
  65. money -= val($_drink['<<args[1]>>,price'])
  66. pcs_health += 5
  67. pcs_mood += 20
  68. pcs_energy += 8
  69. if pcs_hydra >= 100:
  70. pcs_hydra += 50
  71. else
  72. pcs_hydra += 100
  73. end
  74. cumspclnt = 2
  75. gs 'cum_cleanup'
  76. pcs_breath = 0
  77. gs 'beverage', 'afterdrink'
  78. '<center><img <<$set_imgh>> src="images/shared/drinks/milkshake.jpg"></center>'
  79. 'You enjoy an ice cold milkshake, and<<$mtxt>>'
  80. gs 'stat'
  81. killvar '$_drink'
  82. if food_loc = 1:
  83. act 'Finish': gt 'food_menu'
  84. else
  85. act 'Finish':gt $loc, $metka
  86. end
  87. end
  88. if $ARGS[0] = 'bev_wat':
  89. *clr & cla
  90. frost = 1
  91. alko -= 1
  92. minut += 5
  93. money -= val($_drink['<<args[1]>>,price'])
  94. pcs_health += 10
  95. pcs_energy += 4
  96. if pcs_hydra >= 100:
  97. pcs_hydra += 25
  98. else
  99. pcs_hydra += 50
  100. end
  101. cumspclnt = 2
  102. gs 'cum_cleanup'
  103. gs 'beverage', 'afterdrink'
  104. '<center><img <<$set_imgh>> src="images/locations/shared/brothel/barorderwater.jpg"></center>'
  105. 'You enjoy a drink of water, and<<$mtxt>>'
  106. gs 'stat'
  107. killvar '$_drink'
  108. if food_loc = 1:
  109. act 'Finish': gt 'food_menu'
  110. else
  111. act 'Finish':gt $loc, $metka
  112. end
  113. end
  114. if $ARGS[0] = 'bev_cof':
  115. *clr & cla
  116. frost = 0
  117. alko -= 1
  118. minut += 10
  119. money -= val($_drink['<<args[1]>>,price'])
  120. pcs_health += 5
  121. pcs_mood += 20
  122. pcs_energy += 15
  123. if pcs_hydra >= 100:
  124. pcs_hydra += 20
  125. else
  126. pcs_hydra += 40
  127. end
  128. cumspclnt = 2
  129. gs 'cum_cleanup'
  130. pcs_breath = 0
  131. gs 'beverage', 'afterdrink'
  132. '<center><img <<$set_imgh>> src="images/shared/drinks/coffee.jpg"></center>'
  133. 'You enjoy a hot coffee, and<<$mtxt>>'
  134. gs 'stat'
  135. killvar '$_drink'
  136. if food_loc = 1:
  137. act 'Finish': gt 'food_menu'
  138. else
  139. act 'Finish':gt $loc, $metka
  140. end
  141. end
  142. if $ARGS[0] = 'bev_tea':
  143. *clr & cla
  144. frost = 0
  145. alko -= 1
  146. minut += 10
  147. money -= val($_drink['<<args[1]>>,price'])
  148. pcs_health += 10
  149. pcs_mood += 20
  150. pcs_energy += 10
  151. if pcs_hydra >= 100:
  152. pcs_hydra += 25
  153. else
  154. pcs_hydra += 50
  155. end
  156. cumspclnt = 2
  157. gs 'cum_cleanup'
  158. pcs_breath = 0
  159. gs 'beverage', 'afterdrink'
  160. '<center><img <<$set_imgh>> src="images/shared/drinks/tea.jpg"></center>'
  161. 'You enjoy a relaxing cup of tea, and<<$mtxt>>'
  162. gs 'stat'
  163. killvar '$_drink'
  164. if food_loc = 1:
  165. act 'Finish': gt 'food_menu'
  166. else
  167. act 'Finish':gt $loc, $metka
  168. end
  169. end
  170. if $ARGS[0] = 'bev_vod':
  171. if pcs_health > 50:
  172. *clr & cla
  173. frost = 0
  174. alko += 2
  175. minut += 15
  176. fat += 8
  177. money -= val($_drink['<<args[1]>>,price'])
  178. pcs_health -= 5
  179. pcs_mood += 10
  180. pcs_energy -= 4
  181. if pcs_hydra >= 100:
  182. pcs_hydra -= 5
  183. else
  184. pcs_hydra -= 10
  185. end
  186. cumspclnt = 2
  187. gs 'cum_cleanup'
  188. pcs_breath = 0
  189. gs 'beverage', 'afteralcohol'
  190. '<center><img <<$set_imgh>> src="images/locations/shared/brothel/barordervodka.jpg"></center>'
  191. 'The vodka shot disappears, like it was only water, and<<$mtxt>>'
  192. gs 'stat'
  193. killvar '$_drink'
  194. if food_loc = 1 and $loc ! 'brothel':
  195. act 'Finish': gt 'food_menu'
  196. else
  197. act 'Finish':gt $loc, $metka
  198. end
  199. else
  200. msg 'You don''t feel well enough to drink alcohol.'
  201. gt $loc, $metka
  202. end
  203. end
  204. if $ARGS[0] = 'bev_bla':
  205. if pcs_health > 50:
  206. *clr & cla
  207. frost = 0
  208. alko += 3
  209. minut += 15
  210. fat += 8
  211. money -= val($_drink['<<args[1]>>,price'])
  212. pcs_health -= 5
  213. pcs_mood += 15
  214. pcs_energy += 5
  215. if pcs_hydra >= 100:
  216. pcs_hydra -= 5
  217. else
  218. pcs_hydra -= 10
  219. end
  220. cumspclnt = 2
  221. gs 'cum_cleanup'
  222. pcs_breath = 0
  223. gs 'beverage', 'afteralcohol'
  224. '<center><img <<$set_imgh>> src="images/shared/drinks/blackrussian.jpg"></center>'
  225. 'You drink a Black Russian, and<<$mtxt>>'
  226. gs 'stat'
  227. killvar '$_drink'
  228. if food_loc = 1 and $loc ! 'brothel':
  229. act 'Finish': gt 'food_menu'
  230. else
  231. act 'Finish': gt $loc, $metka
  232. end
  233. else
  234. msg 'You don''t feel well enough to drink alcohol.'
  235. gt $loc, $metka
  236. end
  237. end
  238. if $ARGS[0] = 'bev_sco':
  239. if pcs_health > 50:
  240. *clr & cla
  241. frost = 0
  242. alko += 2
  243. minut += 15
  244. fat += 6
  245. money -= val($_drink['<<args[1]>>,price'])
  246. pcs_health -= 5
  247. pcs_mood += 10
  248. pcs_energy -= 4
  249. if pcs_hydra >= 100:
  250. pcs_hydra -= 5
  251. else
  252. pcs_hydra -= 10
  253. end
  254. cumspclnt = 2
  255. gs 'cum_cleanup'
  256. pcs_breath = 0
  257. gs 'beverage', 'afteralcohol'
  258. '<center><img <<$set_imgh>> src="images/shared/drinks/scotch.jpg"></center>'
  259. 'You drink scotch on the rocks, and<<$mtxt>>'
  260. gs 'stat'
  261. killvar '$_drink'
  262. if food_loc = 1 and $loc ! 'brothel':
  263. act 'Finish': gt 'food_menu'
  264. else
  265. act 'Finish':gt $loc, $metka
  266. end
  267. else
  268. msg 'You don''t feel well enough to drink alcohol.'
  269. gt $loc, $metka
  270. end
  271. end
  272. if $ARGS[0] = 'bev_win':
  273. if pcs_health > 50:
  274. *clr & cla
  275. frost = 0
  276. alko += 2
  277. minut += 15
  278. fat += 4
  279. money -= val($_drink['<<args[1]>>,price'])
  280. pcs_health -= 5
  281. pcs_mood += 15
  282. pcs_energy -= 4
  283. if pcs_hydra >= 100:
  284. pcs_hydra -= 5
  285. else
  286. pcs_hydra -= 10
  287. end
  288. cumspclnt = 2
  289. gs 'cum_cleanup'
  290. pcs_breath = 0
  291. gs 'beverage', 'afteralcohol'
  292. '<center><img <<$set_imgh>> src="images/shared/drinks/redwine.jpg"></center>'
  293. 'You drink some red wine, and<<$mtxt>>'
  294. gs 'stat'
  295. killvar '$_drink'
  296. if food_loc = 1 and $loc ! 'brothel':
  297. act 'Finish': gt 'food_menu'
  298. else
  299. act 'Finish':gt $loc, $metka
  300. end
  301. else
  302. msg 'You don''t feel well enough to drink alcohol.'
  303. gt $loc, $metka
  304. end
  305. end
  306. if $ARGS[0] = 'bev_mar':
  307. if pcs_health > 50:
  308. *clr & cla
  309. frost = 0
  310. alko += 3
  311. minut += 15
  312. fat += 8
  313. money -= val($_drink['<<args[1]>>,price'])
  314. pcs_health -= 5
  315. pcs_mood += 20
  316. pcs_energy -= 4
  317. if pcs_hydra >= 100:
  318. pcs_hydra -= 5
  319. else
  320. pcs_hydra -= 10
  321. end
  322. cumspclnt = 2
  323. gs 'cum_cleanup'
  324. pcs_breath = 0
  325. gs 'beverage', 'afteralcohol'
  326. '<center><img <<$set_imgh>> src="images/shared/drinks/martini.jpg"></center>'
  327. 'You drink a vodka martini, and<<$mtxt>>'
  328. gs 'stat'
  329. killvar '$_drink'
  330. if food_loc = 1:
  331. act 'Finish': gt 'food_menu'
  332. else
  333. act 'Finish':gt $loc, $metka
  334. end
  335. else
  336. msg 'You don''t feel well enough to drink alcohol.'
  337. gt $loc, $metka
  338. end
  339. end
  340. if $ARGS[0] = 'bev_cha':
  341. if pcs_health > 50:
  342. *clr & cla
  343. frost = 0
  344. alko += 2
  345. minut += 15
  346. fat += 4
  347. money -= val($_drink['<<args[1]>>,price'])
  348. pcs_health -= 5
  349. pcs_mood += 20
  350. pcs_energy -= 4
  351. if pcs_hydra >= 100:
  352. pcs_hydra -= 5
  353. else
  354. pcs_hydra -= 10
  355. end
  356. cumspclnt = 2
  357. gs 'cum_cleanup'
  358. pcs_breath = 0
  359. gs 'beverage', 'afteralcohol'
  360. '<center><img <<$set_imgh>> src="images/shared/drinks/champagne.jpg"></center>'
  361. 'You drink some champagne, and<<$mtxt>>'
  362. gs 'stat'
  363. killvar '$_drink'
  364. if food_loc = 1:
  365. act 'Finish': gt 'food_menu'
  366. else
  367. act 'Finish':gt $loc, $metka
  368. end
  369. else
  370. msg 'You don''t feel well enough to drink alcohol.'
  371. gt $loc, $metka
  372. end
  373. end
  374. if $ARGS[0] = 'bev_bee':
  375. if pcs_health > 50:
  376. *clr & cla
  377. frost = 0
  378. alko += 1
  379. minut += 15
  380. fat += 3
  381. money -= val($_drink['<<args[1]>>,price'])
  382. pcs_health -= 5
  383. pcs_mood += 5
  384. pcs_energy -= 4
  385. if pcs_hydra >= 100:
  386. pcs_hydra += 5
  387. else
  388. pcs_hydra += 10
  389. end
  390. cumspclnt = 2
  391. gs 'cum_cleanup'
  392. pcs_breath = 0
  393. gs 'beverage', 'afteralcohol'
  394. '<center><img <<$set_imgh>> src="images/shared/drinks/darkbeer.jpg"></center>'
  395. 'You drink the beer, enjoying the fresh, mildly bitter taste, and<<$mtxt>>'
  396. gs 'stat'
  397. killvar '$_drink'
  398. if food_loc = 1 and $loc ! 'brothel':
  399. act 'Finish': gt 'food_menu'
  400. else
  401. act 'Finish':gt $loc, $metka
  402. end
  403. else
  404. msg 'You don''t feel well enough to drink alcohol.'
  405. gt $loc, $metka
  406. end
  407. end
  408. if $ARGS[0] = 'bev_bbr':
  409. food_loc = 0 & gt 'brothel','bar:order:password'
  410. end
  411. if $ARGS[0] = 'afteralcohol':
  412. if pcs_hydra < 100:
  413. $mtxt = ' while your drink, you wish you were better hydrated before you started.'
  414. elseif pcs_hydra <= 80:
  415. $mtxt = ' you should remind yourself to drink some water later, so you don''t get dehydrated.'
  416. elseif pcs_hydra <= 60:
  417. $mtxt = ' you aren''t sure how many more you can fit in before you need to pee.'
  418. elseif pcs_hydra <= 40:
  419. $mtxt = ' you definitely need to drink some water now, or you''ll end up with a hangover.'
  420. else
  421. $mtxt = ' you enjoyed that drink immensely. Let''s have some more!'
  422. end
  423. end
  424. if $ARGS[0] = 'afterdrink':
  425. if pcs_hydra > 100:
  426. $mtxt = ' while your thirst is quenched, you are starting to feel bloated, with your belly full of liquids.'
  427. elseif pcs_hydra >= 80:
  428. $mtxt = ' it was sufficant enough to quench your thirst.'
  429. elseif pcs_hydra >= 60:
  430. $mtxt = ' you could definitely go another round.'
  431. elseif pcs_hydra >= 40:
  432. $mtxt = ' while your mouth is no longer dry, you would like another drink.'
  433. else
  434. $mtxt = ' it did nothing to satisfy your thirst; you should probably have some more.'
  435. end
  436. end
  437. --- beverage ---------------------------------