1
0

beverage.qsrc 8.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436
  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. *clr & cla
  172. frost = 0
  173. alko += 2
  174. minut += 15
  175. fat += 8
  176. money -= val($_drink['<<args[1]>>,price'])
  177. pcs_health -= 5
  178. pcs_mood += 10
  179. pcs_energy -= 4
  180. if pcs_hydra >= 100:
  181. pcs_hydra -= 5
  182. else
  183. pcs_hydra -= 10
  184. end
  185. cumspclnt = 2
  186. gs 'cum_cleanup'
  187. pcs_breath = 0
  188. gs 'beverage', 'afteralcohol'
  189. '<center><img <<$set_imgh>> src="images/locations/shared/brothel/barordervodka.jpg"></center>'
  190. 'The vodka shot disappears, like it was only water, and<<$mtxt>>'
  191. gs 'stat'
  192. killvar '$_drink'
  193. if food_loc = 1:
  194. act 'Finish': gt 'food_menu'
  195. else
  196. act 'Finish':gt $loc, $metka
  197. end
  198. end
  199. if $ARGS[0] = 'bev_bla':
  200. *clr & cla
  201. frost = 0
  202. alko += 3
  203. minut += 15
  204. fat += 8
  205. money -= val($_drink['<<args[1]>>,price'])
  206. pcs_health -= 5
  207. pcs_mood += 15
  208. pcs_energy += 5
  209. if pcs_hydra >= 100:
  210. pcs_hydra -= 5
  211. else
  212. pcs_hydra -= 10
  213. end
  214. cumspclnt = 2
  215. gs 'cum_cleanup'
  216. pcs_breath = 0
  217. gs 'beverage', 'afteralcohol'
  218. '<center><img <<$set_imgh>> src="images/shared/drinks/blackrussian.jpg"></center>'
  219. 'You drink a Black Russian, and<<$mtxt>>'
  220. gs 'stat'
  221. killvar '$_drink'
  222. if food_loc = 1:
  223. act 'Finish': gt 'food_menu'
  224. else
  225. act 'Finish':gt $loc, $metka
  226. end
  227. end
  228. if $ARGS[0] = 'bev_sco':
  229. *clr & cla
  230. frost = 0
  231. alko += 2
  232. minut += 15
  233. fat += 6
  234. money -= val($_drink['<<args[1]>>,price'])
  235. pcs_health -= 5
  236. pcs_mood += 10
  237. pcs_energy -= 4
  238. if pcs_hydra >= 100:
  239. pcs_hydra -= 5
  240. else
  241. pcs_hydra -= 10
  242. end
  243. cumspclnt = 2
  244. gs 'cum_cleanup'
  245. pcs_breath = 0
  246. gs 'beverage', 'afteralcohol'
  247. '<center><img <<$set_imgh>> src="images/shared/drinks/scotch.jpg"></center>'
  248. 'You drink scotch on the rocks, and<<$mtxt>>'
  249. gs 'stat'
  250. killvar '$_drink'
  251. if food_loc = 1:
  252. act 'Finish': gt 'food_menu'
  253. else
  254. act 'Finish':gt $loc, $metka
  255. end
  256. end
  257. if $ARGS[0] = 'bev_win':
  258. *clr & cla
  259. frost = 0
  260. alko += 2
  261. minut += 15
  262. fat += 4
  263. money -= val($_drink['<<args[1]>>,price'])
  264. pcs_health -= 5
  265. pcs_mood += 15
  266. pcs_energy -= 4
  267. if pcs_hydra >= 100:
  268. pcs_hydra -= 5
  269. else
  270. pcs_hydra -= 10
  271. end
  272. cumspclnt = 2
  273. gs 'cum_cleanup'
  274. pcs_breath = 0
  275. gs 'beverage', 'afteralcohol'
  276. '<center><img <<$set_imgh>> src="images/shared/drinks/redwine.jpg"></center>'
  277. 'You drink some red wine, and<<$mtxt>>'
  278. gs 'stat'
  279. killvar '$_drink'
  280. if food_loc = 1:
  281. act 'Finish': gt 'food_menu'
  282. else
  283. act 'Finish':gt $loc, $metka
  284. end
  285. end
  286. if $ARGS[0] = 'bev_mar':
  287. *clr & cla
  288. frost = 0
  289. alko += 3
  290. minut += 15
  291. fat += 8
  292. money -= val($_drink['<<args[1]>>,price'])
  293. pcs_health -= 5
  294. pcs_mood += 20
  295. pcs_energy -= 4
  296. if pcs_hydra >= 100:
  297. pcs_hydra -= 5
  298. else
  299. pcs_hydra -= 10
  300. end
  301. cumspclnt = 2
  302. gs 'cum_cleanup'
  303. pcs_breath = 0
  304. gs 'beverage', 'afteralcohol'
  305. '<center><img <<$set_imgh>> src="images/shared/drinks/martini.jpg"></center>'
  306. 'You drink a vodka martini, and<<$mtxt>>'
  307. gs 'stat'
  308. killvar '$_drink'
  309. if food_loc = 1:
  310. act 'Finish': gt 'food_menu'
  311. else
  312. act 'Finish':gt $loc, $metka
  313. end
  314. end
  315. if $ARGS[0] = 'bev_cha':
  316. *clr & cla
  317. frost = 0
  318. alko += 2
  319. minut += 15
  320. fat += 4
  321. money -= val($_drink['<<args[1]>>,price'])
  322. pcs_health -= 5
  323. pcs_mood += 20
  324. pcs_energy -= 4
  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 'beverage', 'afteralcohol'
  334. '<center><img <<$set_imgh>> src="images/shared/drinks/champagne.jpg"></center>'
  335. 'You drink some champagne, and<<$mtxt>>'
  336. gs 'stat'
  337. killvar '$_drink'
  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] = 'bev_bee':
  345. *clr & cla
  346. frost = 0
  347. alko += 1
  348. minut += 15
  349. fat += 3
  350. money -= val($_drink['<<args[1]>>,price'])
  351. pcs_health -= 5
  352. pcs_mood += 5
  353. pcs_energy -= 4
  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 'beverage', 'afteralcohol'
  363. '<center><img <<$set_imgh>> src="images/shared/drinks/darkbeer.jpg"></center>'
  364. 'You drink the beer, enjoying the fresh, mildly bitter taste, and<<$mtxt>>'
  365. gs 'stat'
  366. killvar '$_drink'
  367. if food_loc = 1:
  368. act 'Finish': gt 'food_menu'
  369. else
  370. act 'Finish':gt $loc, $metka
  371. end
  372. end
  373. if $ARGS[0] = 'bev_bbr':
  374. food_loc = 0 & gt 'brothel','bar:order:password'
  375. end
  376. if $ARGS[0] = 'afteralcohol':
  377. if pcs_hydra < 100:
  378. $mtxt = ' while your drink, you wish you were better hydrated before you started.'
  379. elseif pcs_hydra <= 80:
  380. $mtxt = ' you should remind yourself to drink some water later, so you don''t get dehydrated.'
  381. elseif pcs_hydra <= 60:
  382. $mtxt = ' you aren''t sure how many more you can fit in before you need to pee.'
  383. elseif pcs_hydra <= 40:
  384. $mtxt = ' you definitely need to drink some water now, or you''ll end up with a hangover.'
  385. else
  386. $mtxt = ' you enjoyed that drink immensely. Let''s have some more!'
  387. end
  388. end
  389. if $ARGS[0] = 'afterdrink':
  390. if pcs_hydra > 100:
  391. $mtxt = ' while your thirst is quenched, you are starting to feel bloated, with your belly full of liquids.'
  392. elseif pcs_hydra >= 80:
  393. $mtxt = ' it was sufficant enough to quench your thirst.'
  394. elseif pcs_hydra >= 60:
  395. $mtxt = ' you could definitely go another round.'
  396. elseif pcs_hydra >= 40:
  397. $mtxt = ' while your mouth is no longer dry, you would like another drink.'
  398. else
  399. $mtxt = ' it did nothing to satisfy your thirst; you should probably have some more.'
  400. end
  401. end
  402. --- beverage ---------------------------------