beverage.qsrc 8.5 KB

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