beverage.qsrc 8.4 KB

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