glife/sugarcube/src/autogenerated/Functions/drugs.tw

:: drugs
<<set $here = 'drugs'>>
<<set $ARGS = $location_var[$here]>>
<!-- !! How to use:-->
<!-- !! Smoking: gs 'drugs', 'smoke' (if it isn''t svetas cigarette, you have to add siga += 1)-->
<!-- !! Joint/Weed: gs 'drugs', 'joint' (if it isn''t svetas joint, you have to add joint += 1)-->
<!-- !! Heroin: gs 'drugs', 'heroin'-->
<!-- !! Cocaine: gs 'drugs', 'cocaine' (if it isn''t svetas cocaine, you have to add dur += 1)-->
<!-- !! Amphetamine: gs 'drugs', 'amphetamine' (if it isn''t svetas amphetamine, you have to add amphetamine += 1)-->
<!-- !! Neurobooster: gs 'drugs', 'mentats' (if it isn''t svetas mentats, you have to add mentats_have += 1)-->
<!-- !! Aphrodisiac: gs 'drugs', 'aphrodisiac' (if it isn''t svetas aphrodisiac, you have to add aphrodisiac_have += 1)-->
<!-- !! Alcohol: gs 'drugs', 'alcohol', 'type', count-->
<!-- !! Types: beer, champagne, moonshine, rum, scotch, vodka, wine, whiskey-->
<!-- !! Count: Number of drinks of the chosen type sveta drinks (if the number is 1, you don't have add the count, but it isn''t a problem if you do)-->
<!-- !! Example 1: sveta drinks vodka gs 'drugs', 'alcohol', 'vodka' (or gs 'drugs', 'alcohol', 'vodka', 1)-->
<!-- !! Example 2: sveta drinks 2 beer gs 'drugs', 'alcohol', 'beer', 2-->
<<if $location_var[$here][0] == 'smoke'>>
	<<if getvar("$NarkImmune") == 0>>
		<<set $smoker += 1>>
		<<if getvar("$smoker") > 20 and getvar("$smoke_exp") == 0>>
			<<set $smoke_exp = 1>>

		<</if>>
	<</if>>
	<<set $siga -= 1>>
	<<set $smokeDay = $time.daystart>>
	<<set $smokeHour = $time.hour>>
	<<set $smokeminut = $time.minutes + 3>>
	<<set $smokerNeed = 0>>
	<<set $cumspclnt = 2>>
	<<setinit $pc.teeth['smoked'] += 1>>
	<<gs 'cum_cleanup'>>
	<<set $pc.pcs_breath = 0>>
	<<set $pc.mood += 100>>
	<<if $pc.pcs_hydra >= 100>>
		<<set $pc.pcs_hydra -= 5>>
	<<else>>
		<<set $pc.pcs_hydra -= 10>>
	<</if>>
	<<if $pc.pcs_energy < 80>>
		<<setn $pc.pcs_energy += 4>>

	<</if>>
	<<if getvar("$siga_bum") == 1>>
		<<set $siga_bum = 0>>
	<<elseif getvar("$siga") == 0>>
		<<msg 'That was your last cigarette.'>>
	<</if>>
<<elseif $location_var[$here][0] == 'joint'>>
	<<set $time.minutes += 10>>
	<<if getvar("$NarkImmune") == 0>>
		<<set $joint_smoked += 1>>
		<<if getvar("$joint_smoked") > 5 and getvar("$joint_exp") == 0>>
			<<set $joint_exp = 1>>

		<</if>>
	<</if>>
	<<set $joint -= 1>>
	<<set $jointday = $time.daystart>>
	<<set $jointhour = $time.hour>>
	<<set $jointminut = $time.minutes + 2>>
	<<if $time.minutes > 30>>
		<<set $jointhigh = 2>>
	<<else>>
		<<set $jointhigh = 1>>
	<</if>>
	<<set $cumspclnt = 2>>
	<<gs 'cum_cleanup'>>
	<<set $pc.pcs_breath = 0>>
	<<set $pc.mood += 100>>
	<<if $pc.pcs_hydra >= 100>>
		<<set $pc.pcs_hydra -= 5>>
	<<else>>
		<<set $pc.pcs_hydra -= 10>>
	<</if>>
	<<if $pc.pcs_energy > 20>>
		<<set $pc.pcs_energy -= 20>>
	<<else>>
		<<set $pc.pcs_energy = 0>>
	<</if>>
<<elseif $location_var[$here][0] == 'heroin'>>
	<<if getvar("$NarkImmune") == 0>>
		<<set $SNarkTimes += 1>>
		<<if getvar("$SNarkTimes") > 1 and getvar("$heroin_exp") == 0>>
			<<set $heroin_exp = 1>>

		<</if>>
	<</if>>
	<<set $pc.strongNarkota += 25>>
	<<set $pc.narkozakday = $time.day>>
	<<set $pc.mood = 100>>
	<<set $pc.pcs_health -= 10>>
<<elseif $location_var[$here][0] == 'cocaine'>>
	<<if getvar("$NarkImmune") == 0>>
		<<set $cocaine_count += 1>>
		<<if getvar("$cocaine_count") > 3 and getvar("$cocaine_exp") == 0>>
			<<set $cocaine_exp = 1>>

		<</if>>
	<</if>>
	<<set $dur -= 1>>
	<<set $pc.pcs_health = $pc.vitality * 10 + $pc.skillLevel("strength") * 5>>
	<<if $willday_cocaine != $time.daystart>>
		<<set $willday_cocaine = $time.daystart>> <<setn $pc.willpower += 10>>

	<</if>>
	<<set $pc.mood = 100>>
	<<set $pc.horny = 100>>
	<<set $pc.nark += 10>>
<<elseif $location_var[$here][0] == 'amphetamine'>>
	<<if getvar("$NarkImmune") == 0>>
		<<set $amphetamine_count += 1>>
		<<if getvar("$amphetamine_count") > 5 and getvar("$amphetamine_exp") == 0>>
			<<set $amphetamine_exp = 1>>

		<</if>>
	<</if>>
	<<if getvar("$amphIntake") < 2>>
		<font color= blue>You swallow the white pill.</font>
		<<set $amphIntake += 1>>
		<<set $amphetamine -= 1>>
		<<set $amphHigh = 12>>
	<<else>>
		Your heart is already beating uncontrollably in your chest, you should avoid taking anymore pills.
	<</if>>
<<elseif $location_var[$here][0] == 'alcohol'>>
	<<if getvar("$NarkImmune") == 0>>
		<<set $alcohol_count += 1>>
		<<if getvar("$alcohol_count") > 15 and getvar("$alcohol_exp") == 0>>
			<<set $alcohol_exp = 1>>

		<</if>>
	<</if>>
	<<if $location_var[$here][2] <= 1>>
		<<set $alc_count = 1>>
	<<else>>
		<<set $alc_count = $ARGS[2]>>
	<</if>>
	<<warn 'JUMP MARKER ENCOUNTERED: :alcohol_jump'>>
	<<set $alc_count -= 1>>
	<<set $pc.frost = 0>>
	<<set $pc.pcs_health -= 5>>
	<<set $pc.pcs_energy -= 5>>
	<<set $cumspclnt = 2>>
	<<gs 'cum_cleanup'>>
	<<set $pc.pcs_breath = 0>>
	<<if $location_var[$here][1] == 'beer'>>
		<<if $pc.trait('alko_status') == -1>>
			<<set $pc.alko += rand(1,2)>>
		<<elseif $pc.trait('alko_status') == 1>>
			<<set $pc.alko += rand(0,1)>>
		<<else>>
			<<set $pc.alko += 1>>
		<</if>>
		<<set $pc.fat += 3>>
		<<set $pc.mood += 10>>
		<<if $pc.pcs_hydra >= 100>>
			<<set $pc.pcs_hydra += 5>>
		<<else>>
			<<set $pc.pcs_hydra += 10>>
		<</if>>
		<<run $pc.traitInc('alko_day',1)>>
	<<elseif $location_var[$here][1] == 'wine' or $location_var[$here][1] == 'champagne'>>
		<<if $pc.trait('alko_status') == -1>>
			<<set $pc.alko += 3>>
		<<elseif $pc.trait('alko_status') == 1>>
			<<set $pc.alko += 1>>
		<<else>>
			<<set $pc.alko += 2>>
		<</if>>
		<<set $pc.fat += 4>>
		<<set $pc.mood += 20>>
		<<if $pc.pcs_hydra >= 100>>
			<<set $pc.pcs_hydra += 5>>
		<<else>>
			<<set $pc.pcs_hydra += 10>>
		<</if>>
		<<run $pc.traitInc('alko_day',2)>>
	<<elseif $location_var[$here][1] == 'vodka' or $location_var[$here][1] == 'whiskey' or $location_var[$here][1] == 'scotch' or $location_var[$here][1] == 'rum'>>
		<<if $pc.trait('alko_status') == -1>>
			<<set $pc.alko += rand(4,5)>>
		<<elseif $pc.trait('alko_status') == 1>>
			<<set $pc.alko += rand(1,2)>>
		<<else>>
			<<set $pc.alko += 3>>
		<</if>>
		<<set $pc.fat += 6>>
		<<if $pc.pcs_hydra >= 100>>
			<<set $pc.pcs_hydra -= 5>>
		<<else>>
			<<set $pc.pcs_hydra -= 10>>
		<</if>>
		<<run $pc.traitInc('alko_day',3)>>
	<<elseif $location_var[$here][1] == 'moonshine'>>
		<<if $pc.trait('alko_status') == -1>>
			<<set $pc.alko += rand(7,8)>>
		<<elseif $pc.trait('alko_status') == 1>>
			<<set $pc.alko += rand(2,3)>>
		<<else>>
			<<set $pc.alko += 5>>
		<</if>>
		<<set $pc.fat += 6>>
		<<if $pc.pcs_hydra >= 100>>
			<<set $pc.pcs_hydra -= 5>>
		<<else>>
			<<set $pc.pcs_hydra -= 10>>
		<</if>>
		<<run $pc.traitInc('alko_day',5)>>
	<<else>>
		<br><font color = red>Developer note: The type of alcohol is missing in this scene. Please report this and a small part of the text of the current scene as a bug.</font>
	<</if>>
	<<if getvar("$alc_count") > 0>>
		<<warn 'JUMP COMMAND ENCOUNTERED: jump alcohol_jump'>>

	<</if>>
	<<set $alc_count to null>>
<<elseif $location_var[$here][0] == 'mentats'>>
	<<set $mentats_dose += 1>>
	<<set $mentats_have -= 1>>
<<elseif $location_var[$here][0] == 'aphrodisiac'>>
	<<if getvar("$aphrodisiac_overdose") == 1>>
		<<set $aphrodisiac_msg = '<br>You`ve had enough aphrodisiac for today.'>>
	<<elseif getvar("$aphrodisiac_timer") == 0>>
		<<set $aphrodisiac_msg = '<font color = #DB7093><br>You take a gum and chew it. It tastes like strawberry, but is also kind of spicy.</font>'>>
		<<set $aphrodisiac_have -= 1>>
		<<set $aphrodisiac_timer += 8>>
		<<set $pc.horny = 80>>
	<<elseif getvar("$aphrodisiac_timer") > 0 and getvar("$aphrodisiac_timer") <= 8>>
		<<set $aphrodisiac_msg = '<font color = #DB7093><br>You take another gum and chew it. It makes your mouth feel kinda tingly.</font>'>>
		<<set $aphrodisiac_have -= 1>>
		<<set $aphrodisiac_timer += 8>>
		<<set $pc.horny = 100>>
	<<elseif getvar("$aphrodisiac_timer") > 8 and $pc.min_arousal < 60>>
		<<set $aphrodisiac_msg = '<font color = red><b><br>You take yet another gum and start chewing it. Suddenly you find yourself in grip of an intense orgasm!<br>It goes on and on and you sink to the ground and do your best to endure it.</b></font>'>>
		<<set $aphrodisiac_have -= 1>>
		<<set $orgasm += 1>>
		<<set $pc.mood = 100>>
		<<set $pc.min_arousal += 10>>
		<<set $aphrodisiac_overdose = 1>>
		<<if $pc.min_arousal == 10>>
			<<set $pc.horny = $pc.min_arousal>>
			<<set $pc.min_arousal_msg = '<font color = #DB7093>That was intense! You can still feel the tingles.</font>'>>
		<<elseif $pc.min_arousal == 20>>
			<<set $pc.horny = $pc.min_arousal>>
			<<set $pc.min_arousal_msg = '<font color = #DB7093>You are really starting to enjoy these! Your crotch still feels kinda hot though.</font>'>>
		<<elseif $pc.min_arousal == 30>>
			<<set $pc.horny = $pc.min_arousal>>
			<<set $pc.min_arousal_msg = '<font color = #DB7093>As you are trying to get back to your feet you notice that you are still horny. What is happening to you?</font>'>>
		<<elseif $pc.min_arousal == 40>>
			<<set $pc.horny = $pc.min_arousal>>
			<<set $pc.min_arousal_msg = '<font color = #DB7093>You are certain of it. Every time those gums give you an orgasm they also increase your libido.</font>'>>
		<<elseif $pc.min_arousal == 50>>
			<<set $pc.horny = $pc.min_arousal>>
			<<set $pc.min_arousal_msg = '<font color = #DB7093>You run a finger across your slit and shudder. You really should stop chewing these gums while you can still think of something other than sex.</font>'>>
		<<elseif $pc.min_arousal == 60>>
			<<set $pc.horny = $pc.min_arousal>>
			<<set $pc.min_arousal_msg = '<font color = #DB7093>You are burning up. You feel like you could fuck anything and everything all day long.</font>'>>
		<</if>>
	<<else>>
		<<set $aphrodisiac_msg = '<font color = #DB7093>You chew another gum with trepidation, looking forward to more orgasms but nothing happens. Huh. Have you become immune?</font>'>>
		<<set $aphrodisiac_have -= 1>>
	<</if>>
<<else>>
	<br><font color = red>Developer note: The type of drug is wrong or missing in this scene. Please report this and a small part of the text of the current scene as a bug.</font>
<</if>>
<<gs 'traits' 'addictive_personality'>>