123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777 |
- # beverage
- menu_off = 1
- if $ARGS[0] = 'bev_kva':
- *clr & cla
- frost = 1
- minut += 10
- fat += 2
- money -= val($_drink['<<args[1]>>,price'])
- pcs_health += 5
- pcs_mood += 15
- if pcs_hydra >= 100:
- pcs_hydra += 30
- else
- pcs_hydra += 60
- end
- cumspclnt = 2
- gs 'cum_cleanup'
- pcs_breath = 0
- gs 'beverage', 'afterdrink'
- '<center><img <<$set_imgh>> src="images/shared/drinks/kvass.jpg"></center>'
- 'You enjoy a drink of kvass, and<<$mtxt>>'
- gs 'stat'
- killvar '$_drink'
- if food_loc = 1:
- act 'Finish': gt 'food_menu'
- else
- act 'Finish':gt $loc, $loc_arg
- end
- end
- if $ARGS[0] = 'bev_jui':
- *clr & cla
- frost = 1
- if alko > 0: alko -= 1
- minut += 10
- fat += 3
- money -= val($_drink['<<args[1]>>,price'])
- pcs_health += 8
- pcs_mood += 10
- if pcs_hydra >= 100:
- pcs_hydra += 40
- else
- pcs_hydra += 80
- end
- cumspclnt = 2
- gs 'cum_cleanup'
- pcs_breath = 0
- gs 'beverage', 'afterdrink'
- '<center><img <<$set_imgh>> src="images/shared/drinks/juice.jpg"></center>'
- 'You enjoy a refreshing juice, and<<$mtxt>>'
- gs 'stat'
- killvar '$_drink'
- if food_loc = 1:
- act 'Finish': gt 'food_menu'
- else
- act 'Finish':gt $loc, $loc_arg
- end
- end
- if $ARGS[0] = 'bev_mil':
- *clr & cla
- frost = 1
- minut += 10
- fat += 6
- money -= val($_drink['<<args[1]>>,price'])
- pcs_health += 5
- pcs_mood += 20
- pcs_energy += 5
- if pcs_hydra >= 100:
- pcs_hydra += 50
- else
- pcs_hydra += 100
- end
- cumspclnt = 2
- gs 'cum_cleanup'
- pcs_breath = 0
- gs 'beverage', 'afterdrink'
- '<center><img <<$set_imgh>> src="images/shared/drinks/milkshake.jpg"></center>'
- 'You enjoy an ice cold milkshake, and<<$mtxt>>'
- gs 'stat'
- killvar '$_drink'
- if food_loc = 1:
- act 'Finish': gt 'food_menu'
- else
- act 'Finish':gt $loc, $loc_arg
- end
- end
- if $ARGS[0] = 'bev_wat':
- *clr & cla
- frost = 1
- if alko > 0: alko -= 1
- minut += 1
- money -= val($_drink['<<args[1]>>,price'])
- pcs_health += 10
- if pcs_hydra >= 100:
- pcs_hydra += 25
- else
- pcs_hydra += 50
- end
- cumspclnt = 2
- gs 'cum_cleanup'
- gs 'beverage', 'afterdrink'
- '<center><img <<$set_imgh>> src="images/locations/shared/brothel/barorderwater.jpg"></center>'
- 'You enjoy a drink of water, and<<$mtxt>>'
- gs 'stat'
- killvar '$_drink'
- if food_loc = 1:
- act 'Finish': gt 'food_menu'
- else
- act 'Finish':gt $loc, $loc_arg
- end
- end
- if $ARGS[0] = 'bev_cof':
- *clr & cla
- frost = 0
- if alko > 0: alko -= 1
- minut += 10
- money -= val($_drink['<<args[1]>>,price'])
- pcs_health += 5
- pcs_mood += 20
- if pcs_hydra >= 100:
- pcs_hydra += 20
- else
- pcs_hydra += 40
- end
- cumspclnt = 2
- gs 'cum_cleanup'
- pcs_breath = 0
- teeth['caffe_or_tea'] += 5
- gs 'beverage', 'afterdrink'
- '<center><img <<$set_imgh>> src="images/shared/drinks/coffee.jpg"></center>'
- 'You enjoy a hot coffee, and<<$mtxt>>'
- gs 'stat'
- killvar '$_drink'
- if food_loc = 1:
- act 'Finish': gt 'food_menu'
- else
- act 'Finish':gt $loc, $loc_arg
- end
- end
- if $ARGS[0] = 'bev_tea':
- *clr & cla
- frost = 0
- if alko > 0: alko -= 1
- minut += 10
- money -= val($_drink['<<args[1]>>,price'])
- pcs_health += 10
- pcs_mood += 20
- if pcs_hydra >= 100:
- pcs_hydra += 25
- else
- pcs_hydra += 50
- end
- cumspclnt = 2
- gs 'cum_cleanup'
- pcs_breath = 0
- teeth['caffe_or_tea'] += 2
- gs 'beverage', 'afterdrink'
- '<center><img <<$set_imgh>> src="images/shared/drinks/tea.jpg"></center>'
- 'You enjoy a relaxing cup of tea, and<<$mtxt>>'
- gs 'stat'
- killvar '$_drink'
- if food_loc = 1:
- act 'Finish': gt 'food_menu'
- else
- act 'Finish':gt $loc, $loc_arg
- end
- end
- if $ARGS[0] = 'bev_energy_drink':
- *clr & cla
- frost = 1
- if alko > 0: alko -= 1
- minut += 5
- money -= val($_drink['<<args[1]>>,price'])
- pcs_health += 10
- pcs_mood += 20
- pcs_energy += 10
- fat += 3
- if pcs_hydra >= 100:
- pcs_hydra += 25
- else
- pcs_hydra += 50
- end
- cumspclnt = 2
- gs 'cum_cleanup'
- pcs_breath = 0
- gs 'beverage', 'afterdrink'
- '<center><img <<$set_imgh>> src="images/shared/drinks/energy_drink.jpg"></center>'
- 'You enjoy an energy drink, and<<$mtxt>>'
- gs 'stat'
- killvar '$_drink'
- if food_loc = 1:
- act 'Finish': gt 'food_menu'
- else
- act 'Finish':gt $loc, $loc_arg
- end
- end
- if $ARGS[0] = 'bev_vod':
- if pcs_health > 20:
- *clr & cla
- minut += 15
- money -= val($_drink['<<args[1]>>,price'])
- gs 'drugs', 'alcohol', 'vodka'
- gs 'beverage', 'afteralcohol'
- '<center><img <<$set_imgh>> src="images/locations/shared/brothel/barordervodka.jpg"></center>'
- 'The vodka shot disappears, like it was only water, and<<$mtxt>>'
- gs 'stat'
- killvar '$_drink'
- if food_loc = 1 and $loc ! 'brothel':
- act 'Finish': gt 'food_menu'
- else
- act 'Finish':gt $loc, $loc_arg
- end
- $boozeVar = 'vodka'
- else
- msg 'You don''t feel well enough to drink alcohol.'
- gt $loc, $loc_arg
- end
- end
- if $ARGS[0] = 'bev_bla':
- if pcs_health > 20:
- *clr & cla
- minut += 15
- pcs_mood += 10
- money -= val($_drink['<<args[1]>>,price'])
- gs 'drugs', 'alcohol', 'vodka'
- gs 'beverage', 'afteralcohol'
- '<center><img <<$set_imgh>> src="images/shared/drinks/blackrussian.jpg"></center>'
- 'You drink a Black Russian, and<<$mtxt>>'
- gs 'stat'
- killvar '$_drink'
- if food_loc = 1 and $loc ! 'brothel':
- act 'Finish': gt 'food_menu'
- else
- act 'Finish': gt $loc, $loc_arg
- end
- $boozeVar = 'spirit'
- else
- msg 'You don''t feel well enough to drink alcohol.'
- gt $loc, $loc_arg
- end
- end
- if $ARGS[0] = 'bev_sco':
- if pcs_health > 20:
- *clr & cla
- minut += 15
- money -= val($_drink['<<args[1]>>,price'])
- gs 'drugs', 'alcohol', 'scotch'
- gs 'beverage', 'afteralcohol'
- '<center><img <<$set_imgh>> src="images/shared/drinks/scotch.jpg"></center>'
- 'You drink scotch on the rocks, and<<$mtxt>>'
- gs 'stat'
- killvar '$_drink'
- if food_loc = 1 and $loc ! 'brothel':
- act 'Finish': gt 'food_menu'
- else
- act 'Finish':gt $loc, $loc_arg
- end
- $boozeVar = 'spirit'
- else
- msg 'You don''t feel well enough to drink alcohol.'
- gt $loc, $loc_arg
- end
- end
- if $ARGS[0] = 'bev_win':
- if pcs_health > 20:
- *clr & cla
- minut += 15
- money -= val($_drink['<<args[1]>>,price'])
- gs 'drugs', 'alcohol', 'wine'
- gs 'beverage', 'afteralcohol'
- '<center><img <<$set_imgh>> src="images/shared/drinks/redwine.jpg"></center>'
- 'You drink some red wine, and<<$mtxt>>'
- gs 'stat'
- killvar '$_drink'
- if food_loc = 1 and $loc ! 'brothel':
- act 'Finish': gt 'food_menu'
- else
- act 'Finish':gt $loc, $loc_arg
- end
- $boozeVar = 'wine'
- else
- msg 'You don''t feel well enough to drink alcohol.'
- gt $loc, $loc_arg
- end
- end
- if $ARGS[0] = 'bev_mar':
- if pcs_health > 20:
- *clr & cla
- minut += 15
- money -= val($_drink['<<args[1]>>,price'])
- pcs_mood += 10
- gs 'drugs', 'alcohol', 'vodka'
- gs 'beverage', 'afteralcohol'
- '<center><img <<$set_imgh>> src="images/shared/drinks/martini.jpg"></center>'
- 'You drink a vodka martini, and<<$mtxt>>'
- gs 'stat'
- killvar '$_drink'
- if food_loc = 1:
- act 'Finish': gt 'food_menu'
- else
- act 'Finish':gt $loc, $loc_arg
- end
- else
- msg 'You don''t feel well enough to drink alcohol.'
- gt $loc, $loc_arg
- end
- end
- if $ARGS[0] = 'bev_cha':
- if pcs_health > 20:
- *clr & cla
- minut += 15
- money -= val($_drink['<<args[1]>>,price'])
- gs 'drugs', 'alcohol', 'champagne'
- gs 'beverage', 'afteralcohol'
- '<center><img <<$set_imgh>> src="images/shared/drinks/champagne.jpg"></center>'
- 'You drink some champagne, and<<$mtxt>>'
- gs 'stat'
- killvar '$_drink'
- if food_loc = 1:
- act 'Finish': gt 'food_menu'
- else
- act 'Finish':gt $loc, $loc_arg
- end
- else
- msg 'You don''t feel well enough to drink alcohol.'
- gt $loc, $loc_arg
- end
- end
- if $ARGS[0] = 'bev_bee':
- if pcs_health > 20:
- *clr & cla
- minut += 15
- money -= val($_drink['<<args[1]>>,price'])
- gs 'drugs', 'alcohol', 'beer'
- gs 'beverage', 'afteralcohol'
- '<center><img <<$set_imgh>> src="images/shared/drinks/darkbeer.jpg"></center>'
- 'You drink the beer, enjoying the fresh, mildly bitter taste, and<<$mtxt>>'
- gs 'stat'
- killvar '$_drink'
- if food_loc = 1 and $loc ! 'brothel':
- act 'Finish': gt 'food_menu'
- else
- act 'Finish':gt $loc, $loc_arg
- end
- $boozeVar = 'beer'
- else
- msg 'You don''t feel well enough to drink alcohol.'
- gt $loc, $loc_arg
- end
- end
- if $ARGS[0] = 'bev_cocktail':
- if pcs_health > 20:
- *clr & cla
- minut += 20
- money -= val($_drink['<<args[1]>>,price'])
- pcs_mood += 15
- gs 'drugs', 'alcohol', 'rum'
- pcs_horny += rand(10, 50)
- gs 'beverage', 'afteralcohol'
- '<center><img <<$set_imgh>> src="images/shared/drinks/cocktail<<rand(1,4)>>.jpg"></center>'
- 'You drink a fancy cocktail and<<$mtxt>>'
- gs 'stat'
- killvar '$_drink'
- if food_loc = 1:
- act 'Finish': gt 'food_menu'
- else
- act 'Finish':gt $loc, $loc_arg
- end
- else
- msg 'You don''t feel well enough to drink alcohol.'
- gt $loc, $loc_arg
- end
- end
- if $ARGS[0] = 'bev_bbr': food_loc = 0 & gt 'brothel','password'
- if $ARGS[0] = 'afteralcohol':
- if pcs_hydra < 20:
- $mtxt = ' while you drink, you wish you were better hydrated before you started.'
- elseif pcs_hydra <= 40:
- $mtxt = ' you should remind yourself to drink some water later, so you don''t get dehydrated.'
- elseif pcs_hydra <= 60:
- $mtxt = ' you aren''t sure how many more you can fit in before you need to pee.'
- elseif pcs_hydra <= 80:
- $mtxt = ' you definitely need to drink some water now, or you''ll end up with a hangover.'
- else
- $mtxt = ' you enjoyed that drink immensely. Let''s have some more!'
- end
- end
- if $ARGS[0] = 'afterdrink':
- if pcs_hydra > 100:
- $mtxt = ' while your thirst is quenched, you are starting to feel bloated, with your belly full of liquids.'
- elseif pcs_hydra >= 80:
- $mtxt = ' it was sufficient enough to quench your thirst.'
- elseif pcs_hydra >= 60:
- $mtxt = ' you could definitely go another round.'
- elseif pcs_hydra >= 40:
- $mtxt = ' while your mouth is no longer dry, you would like another drink.'
- else
- $mtxt = ' it did nothing to satisfy your thirst; you should probably have some more.'
- end
- end
- !! ------------ just the stats, no descriptions or extra stuff -----------------------
- if $ARGS[0] = 'coffee':
- *clr & cla
- frost = 0
- if alko > 0: alko -= 1
- if pcs_sleep <= 20: pcs_sleep += 5
- pcs_health += 5
- pcs_mood += 20
- if pcs_hydra >= 100:
- pcs_hydra += 20
- else
- pcs_hydra += 40
- end
- cumspclnt = 2
- gs 'cum_cleanup'
- pcs_breath = 0
- gs 'stat'
- end
- if $ARGS[0] = 'only_stat_bev_cocktail':
- pcs_mood += 15
- gs 'drugs', 'alcohol', 'rum'
- pcs_horny += rand(10, 50)
- gs 'beverage', 'afteralcohol'
- gs 'stat'
- end
- !! ------------ just the stats, no descriptions or extra stuff with cost -----------------------
- if $ARGS[0] = 'only_cost_bco':
- *clr & cla
- frost = 0
- if alko > 0: alko -= 1
- money -= val($_drink['<<args[1]>>,price'])
- if pcs_sleep <= 20: pcs_sleep += 5
- pcs_health += 5
- pcs_mood += 20
- if pcs_hydra >= 100:
- pcs_hydra += 20
- else
- pcs_hydra += 40
- end
- cumspclnt = 2
- gs 'cum_cleanup'
- pcs_breath = 0
- teeth['caffe_or_tea'] += 5
- gs 'stat'
- killvar '$_drink'
- *nl
- 'Added to your order'
- gt 'food_menu'
- end
- if $ARGS[0] = 'only_cost_cof':
- *clr & cla
- frost = 0
- if alko > 0: alko -= 1
- money -= val($_drink['<<args[1]>>,price'])
- if pcs_sleep <= 20: pcs_sleep += 5
- pcs_health += 5
- pcs_mood += 20
- if pcs_hydra >= 100:
- pcs_hydra += 20
- else
- pcs_hydra += 40
- end
- fat += 1
- cumspclnt = 2
- gs 'cum_cleanup'
- pcs_breath = 0
- teeth['caffe_or_tea'] += 5
- gs 'stat'
- killvar '$_drink'
- *nl
- 'Added to your order'
- gt 'food_menu'
- end
- if $ARGS[0] = 'only_cost_tea':
- *clr & cla
- frost = 0
- if alko > 0: alko -= 1
- money -= val($_drink['<<args[1]>>,price'])
- pcs_health += 10
- pcs_mood += 20
- if pcs_hydra >= 100:
- pcs_hydra += 25
- else
- pcs_hydra += 50
- end
- cumspclnt = 2
- gs 'cum_cleanup'
- pcs_breath = 0
- teeth['caffe_or_tea'] += 2
- gs 'stat'
- killvar '$_drink'
- *nl
- 'Added to your order'
- gt 'food_menu'
- end
- if $ARGS[0] = 'only_cost_esp':
- *clr & cla
- frost = 0
- if alko > 0: alko -= 1
- money -= val($_drink['<<args[1]>>,price'])
- if pcs_sleep <= 20: pcs_sleep += 5
- pcs_health += 5
- pcs_mood += 20
- cumspclnt = 2
- gs 'cum_cleanup'
- pcs_breath = 0
- gs 'stat'
- killvar '$_drink'
- *nl
- 'Added to your order'
- gt 'food_menu'
- end
- if $ARGS[0] = 'only_cost_kva':
- frost = 1
- fat += 2
- money -= val($_drink['<<args[1]>>,price'])
- pcs_health += 5
- pcs_mood += 15
- if pcs_hydra >= 100:
- pcs_hydra += 30
- else
- pcs_hydra += 60
- end
- cumspclnt = 2
- gs 'cum_cleanup'
- pcs_breath = 0
- gs 'beverage', 'afterdrink'
- gs 'stat'
- killvar '$_drink'
- *nl
- 'Added to your order'
- gt 'food_menu'
- end
- if $ARGS[0] = 'only_cost_jui':
- frost = 1
- if alko > 0: alko -= 1
- fat += 3
- money -= val($_drink['<<args[1]>>,price'])
- pcs_health += 8
- pcs_mood += 10
- if pcs_hydra >= 100:
- pcs_hydra += 40
- else
- pcs_hydra += 80
- end
- cumspclnt = 2
- gs 'cum_cleanup'
- pcs_breath = 0
- gs 'beverage', 'afterdrink'
- gs 'stat'
- killvar '$_drink'
- *nl
- 'Added to your order'
- gt 'food_menu'
- end
- if $ARGS[0] = 'only_cost_mil':
- *clr & cla
- frost = 1
- fat += 6
- money -= val($_drink['<<args[1]>>,price'])
- pcs_health += 5
- pcs_mood += 20
- pcs_energy += 5
- if pcs_hydra >= 100:
- pcs_hydra += 50
- else
- pcs_hydra += 100
- end
- cumspclnt = 2
- gs 'cum_cleanup'
- pcs_breath = 0
- gs 'beverage', 'afterdrink'
- gs 'stat'
- killvar '$_drink'
- *nl
- 'Added to your order'
- gt 'food_menu'
- end
- if $ARGS[0] = 'only_cost_wat':
- frost = 1
- if alko > 0: alko -= 1
- money -= val($_drink['<<args[1]>>,price'])
- pcs_health += 10
- if pcs_hydra >= 100:
- pcs_hydra += 25
- else
- pcs_hydra += 50
- end
- cumspclnt = 2
- gs 'cum_cleanup'
- gs 'beverage', 'afterdrink'
- gs 'stat'
- killvar '$_drink'
- *nl
- 'Added to your order'
- gt 'food_menu'
- end
- if $ARGS[0] = 'only_cost_bev_energy_drink':
- frost = 1
- if alko > 0: alko -= 1
- money -= val($_drink['<<args[1]>>,price'])
- pcs_health += 10
- pcs_mood += 20
- pcs_energy += 10
- fat += 3
- if pcs_hydra >= 100:
- pcs_hydra += 25
- else
- pcs_hydra += 50
- end
- cumspclnt = 2
- gs 'cum_cleanup'
- pcs_breath = 0
- gs 'beverage', 'afterdrink'
- gs 'stat'
- killvar '$_drink'
- *nl
- 'Added to your order'
- gt 'food_menu'
- end
- if $ARGS[0] = 'only_cost_bev_vod':
- money -= val($_drink['<<args[1]>>,price'])
- gs 'drugs', 'alcohol', 'vodka'
- gs 'beverage', 'afteralcohol'
- gs 'stat'
- killvar '$_drink'
- *nl
- 'Added to your order'
- gt 'food_menu'
- end
- if $ARGS[0] = 'only_cost_bev_bla':
- pcs_mood += 10
- money -= val($_drink['<<args[1]>>,price'])
- gs 'drugs', 'alcohol', 'vodka'
- gs 'beverage', 'afteralcohol'
- gs 'stat'
- killvar '$_drink'
- *nl
- 'Added to your order'
- gt 'food_menu'
- end
- if $ARGS[0] = 'only_cost_bev_sco':
- money -= val($_drink['<<args[1]>>,price'])
- gs 'drugs', 'alcohol', 'scotch'
- gs 'beverage', 'afteralcohol'
- gs 'stat'
- killvar '$_drink'
- *nl
- 'Added to your order'
- gt 'food_menu'
- end
- if $ARGS[0] = 'only_cost_bev_win':
- money -= val($_drink['<<args[1]>>,price'])
- gs 'drugs', 'alcohol', 'wine'
- gs 'beverage', 'afteralcohol'
- gs 'stat'
- killvar '$_drink'
- *nl
- 'Added to your order'
- gt 'food_menu'
- end
- if $ARGS[0] = 'only_cost_bev_mar':
- money -= val($_drink['<<args[1]>>,price'])
- pcs_mood += 10
- gs 'drugs', 'alcohol', 'vodka'
- gs 'beverage', 'afteralcohol'
- gs 'stat'
- killvar '$_drink'
- *nl
- 'Added to your order'
- gt 'food_menu'
- end
- if $ARGS[0] = 'only_cost_bev_cha':
- money -= val($_drink['<<args[1]>>,price'])
- gs 'drugs', 'alcohol', 'champagne'
- gs 'beverage', 'afteralcohol'
- gs 'stat'
- killvar '$_drink'
- *nl
- 'Added to your order'
- gt 'food_menu'
- end
- if $ARGS[0] = 'only_cost_bev_bee':
- money -= val($_drink['<<args[1]>>,price'])
- gs 'drugs', 'alcohol', 'beer'
- gs 'beverage', 'afteralcohol'
- gs 'stat'
- killvar '$_drink'
- *nl
- 'Added to your order'
- gt 'food_menu'
- end
- if $ARGS[0] = 'only_cost_bev_cocktail':
- money -= val($_drink['<<args[1]>>,price'])
- pcs_mood += 15
- gs 'drugs', 'alcohol', 'rum'
- pcs_horny += rand(10, 50)
- gs 'beverage', 'afteralcohol'
- gs 'stat'
- killvar '$_drink'
- *nl
- 'Added to your order'
- gt 'food_menu'
- end
- --- beverage ---------------------------------
|