# narkopriton

*clr & cla
gs 'stat'
gs 'themes', 'indoors'
menu_off = 1
'<center><b>Local drug den</b></center>'
'<center><img <<$set_imgh>> src="images/locations/city/residential/den/narkopriton.jpg"></center>'
'A local drug den, where you know addicts come to buy and use heroin in peace.'
'A skinny guy opens the door, with a paranoid look in his eyes. He says doubtfully: "Are you sure you can afford to be here? My product ain''t cheap..."'

act 'Get out of here': minut += 5 & gt 'street'
act 'You roll your eyes and push the door open': gt 'narkopriton', 'start'

if $ARGS[0] = 'start':
	*clr & cla
	'<center><b>Local drug den</b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/residential/den/narkopriton.jpg"></center>'
	'The skinny guy at the door looks you up and down as you enter, "So what can I get for you, honey?"'
	if drugUser = 1:
		act 'Leave the drug den': minut += 5 & gt 'street'
		act 'Ask for heroin': gt 'narkopriton', 'heroin'
		act 'Ask for amphetamine': gt 'narkopriton', 'amphetamine'
		act 'Ask for weed': gt 'narkopriton', 'joints'
		act 'Ask for cocaine': gt 'narkopriton', 'cocaine'
		if StoryLine = 1 and snarkozak = 0: act 'Ask for a drop-off point in Pavlovsk':	minut += 5 & gs 'events', 'narkozakladka'
	elseif drugUser = 0:
		'"Ahhh, what do you have?" you ask.'
		'His eyes light up at a freshy and smiles wildy, "Well I have some H and amphetamine."'
		act 'Leave the drug den': minut += 5 & gt 'street'
		act 'Ask for heroin': gt 'narkopriton', 'heroin'
		act 'Ask for amphetamine': gt 'narkopriton', 'amphetamine'
		act 'Ask for weed': gt 'narkopriton', 'joints'
		act 'Ask for cocaine': gt 'narkopriton', 'cocaine'
	elseif (StrongNarkota > 23 and amphHigh > 23) or amphHigh > 23 or StrongNarkota > 23:
		gt 'narkopriton', 'kiteHigh'
	end
end

if $ARGS[0] = 'kiteHigh': act 'Leave the drug den': minut += 15 & gs 'events', 'snkayf1'

if $ARGS[0] = 'amphetamine':
	*clr & cla
	gs 'stat'
	'<center><b>Local drug den</b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/residential/den/narkopriton.jpg"></center>'
	'"That''ll be 80 <b>₽</b> per pill," he says.'
	'You have <<amphetamine>> pills.'
	act 'Leave the drug den': minut += 5 & gt 'street'
	if money >= 1600:
		act 'Buy 20 (1,600 <b>₽</b>)':
			money -= 1600
			drugUser = 1
			amphetamine += 20
			minut += 5
			gt 'narkopriton', 'amphetamine'
		end
	end
	if money >= 800:
		act 'Buy 10 (800 <b>₽</b>)':
			money -= 800
			drugUser = 1
			amphetamine += 10
			minut += 5
			gt 'narkopriton', 'amphetamine'
		end
	end
	if money >= 400:
		act 'Buy 5 (400 <b>₽</b>)':
			money -= 400
			drugUser = 1
			amphetamine += 5
			minut += 5
			gt 'narkopriton', 'amphetamine'
		end
	end
	act 'Buy some heroin instead': gt 'narkopriton', 'heroin'
	act 'Buy some weed instead': gt 'narkopriton', 'joints'
	act 'Buy some cocaine instead': gt 'narkopriton', 'cocaine'
end

if $ARGS[0] = 'joints':
	*clr & cla
	gs 'stat'
	'<center><b>Local drug den</b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/residential/den/narkopriton.jpg"></center>'
	'"That''ll be 250 <b>₽</b> for enough weed to make five joints," he says.'
	'You have enough weed for <<joint>> joints.'
	act 'Leave the drug den': minut += 5 & gt 'street'
	if money >= 1000:
		act 'Buy enough weed for 20 joints (1,000 <b>₽</b>)':
			money -= 1000
			drugUser = 1
			joint += 20
			minut += 5
			gt 'narkopriton', 'joints'
		end
	end
	if money >= 500:
		act 'Buy enough weed for 10 joints  (500 <b>₽</b>)':
			money -= 500
			drugUser = 1
			joint += 10
			minut += 5
			gt 'narkopriton', 'joints'
		end
	end
	if money >= 250:
		act 'Buy enough weed for 5 joints  (250 <b>₽</b>)':
			money -= 250
			drugUser = 1
			joint += 5
			minut += 5
			gt 'narkopriton', 'joints'
		end
	end
	act 'Buy some heroin instead': gt 'narkopriton', 'heroin'
	act 'Buy some amphetamine instead':	gt 'narkopriton', 'amphetamine'
	act 'Buy some cocaine instead': gt 'narkopriton', 'cocaine'
end

if $ARGS[0] = 'cocaine':
	*clr & cla
	gs 'stat'
	'<center><b>Local drug den</b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/residential/den/narkopriton.jpg"></center>'
	'"That''ll be 360 <b>₽</b> for enough cocaine to get you high once," he says.'
	'You have enough cocaine for <<dur>> lines.'
	act 'Leave the drug den': minut += 5 & gt 'street'
	if money >= 7200:
		act 'Buy enough cocaine for 20 lines (7,200 <b>₽</b>)':
			money -= 7200
			drugUser = 1
			dur += 20
			minut += 5
			gt 'narkopriton', 'cocaine'
		end
	end
	if money >= 3600:
		act 'Buy enough cocaine for 10 highs (3,600 <b>₽</b>)':
			money -= 3600
			drugUser = 1
			dur += 10
			minut += 5
			gt 'narkopriton', 'cocaine'
		end
	end
	if money >= 1800:
		act 'Buy enough cocaine for 5 highs (1,800 <b>₽</b>)':
			money -= 1800
			drugUser = 1
			dur += 5
			minut += 5
			gt 'narkopriton', 'cocaine'
		end
	end
	act 'Buy some heroin instead': gt 'narkopriton', 'heroin'
	act 'Buy some amphetamine instead':	gt 'narkopriton', 'amphetamine'
	act 'Buy some weed instead': gt 'narkopriton', 'joints'
end

if $ARGS[0] = 'heroin':
	*clr & cla
	gs 'stat'
	'<center><b>Local drug den</b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/residential/den/narkopriton.jpg"></center>'
	'"That''ll be 300 <b>₽</b>," he says.'
	act 'Leave the drug den': minut += 5 & gt 'street'
	if money >= 420:
		act 'Buy and use heroin (420 <b>₽</b>)':
			money -= 420
			if SNarkTimes = 0:
				*clr & cla
				minut += 10
				gs 'stat'
				'<center><b>Local drug den</b></center>'
				'<center><img <<$set_imgh>> src="images/locations/city/residential/den/narkopriton.jpg"></center>'
				'It''s obvious that you have no idea what to do. He takes pitty on you and cooks you up a shot. He loads the needle full and gives it to you.'
				'"Thanks." You take the needle and go find a couch in the house to sit on.'
				'Finding a couch, you sit down and look at the needle apprehensively, you question yourself...'
				gs 'willpower', 'drugs', 'resist', 'hard'
				if will_cost <= pcs_willpwr:
					act 'You can''t help but think of all the horror stories and return the drugs (<<will_cost>> Willpower)':
						*clr & cla
						gs 'willpower', 'drugs', 'resist', 'hard'
						gs 'willpower', 'pay', 'resist'
						gs 'stat'
						'<center><b>Local drug den</b></center>'
						'<center><img <<$set_imgh>> src="images/locations/city/residential/den/narkopriton.jpg"></center>'
						'You change your mind and give the syringe back to the guy.'
						'"I don''t do refunds girl," he said.'
						act '"I know," you say and leave': minut += 5 & gt 'street'
					end
				else
					act 'You can''t help but think of all the horror stories and return the drugs (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
				end
				act 'You remember the look of bliss on the junkies faces in the park and use the drugs':
					*clr & cla
					minut += 5
					'<center><b>Local drug den</b></center>'
					'<center><img <<$set_imgh>> src="images/locations/city/residential/den/usingheroin.jpg"></center>'
					'You inject the needle into your arm unable to stop yourself from trembling a little.'
					'The rush is instantaneous, you close your eyes as it rolls over you.'
					drugUser = 1
					gs 'drugs', 'heroin'
					gs 'stat'
					act 'You lay there briefly rolling, before leaving': gs 'events', 'snkayf1'
				end
			elseif SNarkTimes >= 1:
				*clr & cla
				minut += 5
				drugUser = 1
				gs 'drugs', 'heroin'
				gs 'stat'
				'<center><b>Local drug den</b></center>'
				'<center><img <<$set_imgh>> src="images/locations/city/residential/den/usingheroin.jpg"></center>'
				'You buy some heroin and find a quiet place in the house to use it, and without thinking twice you shoot up.'

				act 'Leave the drug den': minut += 5 & gt 'street'
			end
		end
	elseif money < 500 and SLomka > 0:
		act 'Beg him to give you some':	gs 'narkopriton', 'drugslut'
	end
	act 'Buy some amphetamine instead':	gt 'narkopriton', 'amphetamine'
	act 'Buy some weed instead': gt 'narkopriton', 'joints'
	act 'Buy some cocaine instead': gt 'narkopriton', 'cocaine'
end

if $ARGS[0] = 'drugslut':
	*clr & cla
	'<center><b>Local drug den</b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/residential/den/narkopriton.jpg"></center>'
	minut += 5
	gs 'stat'

	if NarkShmaraTimes > 0:
		'"Bobka, please! You remember me, right? I''m good for it, you can trust me!" you beg him, but he gives you a wicked grin.'
		'"Come on, <<$pcs_nickname>>! You know I don''t do credit!" he snorts.'
		
		gs 'willpower', 'drugs', 'resist'
		if will_cost <= pcs_willpwr:
			act 'Leave dejectedly (<<will_cost>> Willpower)':
				minut += 5
				gs 'willpower', 'drugs', 'resist'
				gs 'willpower', 'pay', 'resist'
				gs 'stat'
				gt 'street'
			end
		else
			act 'Leave dejectedly (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
		
		act 'Keep begging, promising you''ll do anything':
			*clr & cla
			minut += 5
			'<center><b>Local drug den</b></center>'
			'<center><img <<$set_imgh>> src="images/locations/city/residential/den/narkopriton.jpg"></center>'
			'With a trembling lip, you drop to your knees and continue to beg: "Please! I''ll do anything... anything you want!"'
			'He looks at you appreciatively for a moment, and gives you a short nod with his head: "Shut up, and follow me. I may have some for you, but you''re going to have to earn it."'

			act 'Follow him into the house':
				*clr & cla
				minut += 5
				bobrand = rand(0, 4)

				if bobrand < 3:
					$bobtalk = '"You know the drill. Get on your knees and start sucking!"'
					$bobtext = 'Do as he says'
				elseif bobrand = 3:
					$bobtalk = '"You''re just a dirty whore, aren''t you? Lick my dirty asshole and I''ll consider it!"'
					$bobtext = 'Lick his ass'
				else
					$bobtalk = '"I don''t need more blowjobs from you. I do have to pee, though... maybe you''ll make a decent toilet. Get down on your knees and open your mouth!" <br>Despite your need for drugs, you realize you can''t keep doing this! You''ll lose yourself if you keep this up...'
					$bobtext = 'Kneel down and open your mouth'
				end
				'bobrand: <<bobrand>>'
				'<center><b>Local drug den</b></center>'
				'<center><img <<$set_imgh>> src="images/locations/city/residential/den/narkopriton.jpg"></center>'
				'You keep begging Bobka to give you some heroin, while you follow him to an empty room. He just laughs at you and says: <<$bobtalk>>'

				act '<<$bobtext>>':	NarkShmaraTimes += 1 & gt 'bobka', bobrand
				
				gs 'willpower', 'bj', 'resist'
				if will_cost <= pcs_willpwr:
					act 'Change your mind and leave (<<will_cost>> Willpower)':
						minut += 5
						gs 'willpower', 'bj', 'resist'
						gs 'willpower', 'pay', 'resist'
						gs 'stat'
						gt 'street'
					end
				else
					act 'Change your mind and leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
				end
			end
		end

		if NarkShmaraTimes > 5:
			act 'Submit to your fate':
				*clr & cla
				over = 8

				'<center><img <<$set_imgh>> src="images/locations/city/residential/den/crackwhore.jpg"></center>'
				'Your ever increasing dependence on drugs has taken its toll on you. Your will was slowly being worn down by always having to go to Bobka to beg for your next dosage... and he supplies it readily, considering it an investment. When he thinks you''re ready, he offers you permanent lodging in the drug den.'
				'You readily accept. Paid housing, food and your daily dose, too! What more could you need?'
				'Of course Bobka is no kind Samaritan, and expects things from you in return...'

				act 'Continue':
					*clr & cla
					'<center><img <<$set_imgh>> src="images/characters/city/bobka/sex/crackwhore2.jpg"></center>'
					'Your life has changed drastically. Your mouth, pussy and ass are completely owned by Bobka, and he readily whores you out to whoever will pay him for it. The rumour of the drug den having a new full-time whore spreads quickly. Bobka is willing to rent you out to whoever is willing to pay, even if they''re not paying much at all! Some money is better than no money, in the end...'
					'At first you try to resist, but you soon realize that you can''t. You need Bobka to survive, and have no choice but to meekly accept your new role as his whore.'

					act 'Continue':
						*clr & cla
						'<center><img <<$set_imgh>> src="images/characters/city/bobka/sex/crackwhore3.jpg"></center>'
						'"What difference does it make?" you think to yourself, as yet another stranger buries his cock to the hilt in your well-used ass. Bobka sold you to a brothel owner, who keeps you in his basement as a cheap attraction for his regulars. He takes good care of you though, giving you a roof over your head and the daily dosage of heroin you need so badly.'

						act 'Continue':
							*clr & cla
							'<center><img <<$set_imgh>> src="images/characters/city/bobka/sex/crackwhore4.jpg"></center>'
							'In the rare moments your mind is not intoxicated by your last hit, you think back to the friends and family you used to have. It all seems surreal now.'

							act 'Continue':
								*clr & cla
								'<center><img <<$set_imgh>> src="images/characters/city/bobka/sex/crackwhore5.jpg"></center>'
								'Your future was so bright, when you were in school. The teachers would sing your praises, saying how much potential you had.'
								'You can''t help but wonder what they would think of you now. On your knees, with some random stranger making your cheeks bulge when he feeds you yet another fat cock. The guy snaps you out of your memories when he roughly forces his cock down your throat, nearly making you choke.'
								'It''s nothing new to you, this is your life now. You don''t try to resist or fend him off any more, but simply open your mouth wider and stick your tongue out to give him full access to your throat. Force of habit. What else could you do?'
								'You''ve long since realized it: you''re a whore now, doing whatever perverted acts the customers demand from you. You have to! Anything to earn enough money for your next dose...'

								act 'Continue':
									*clr & cla
									'<center><img <<$set_imgh>> src="images/characters/city/bobka/sex/crackwhore6.jpg"></center>'
									'You''ve long since stopped taking care of yourself, tending to your poor-paying customers'' cocks out of sheer habit. Your former beauty is completely gone, and traces of dried semen cover your hair, face and clothes constantly.'
									'The brothel owner is starting to lose his patience with you. Even his customers, who already have fairly low standards, no longer seem to be very interested in you. Lucky for you, some them of them can''t afford any better.'
									'Occasionally, when you get ready to offer your broken down holes up again to yet another customer, you wonder... was there anything you could''ve done differently?'

									act 'Continue':gt 'gameover'
								end
							end
						end
					end
				end
			end
		end
	elseif NarkShmaraTimes = 0:
		'You beg the man: "Please! I need a hit... I need it badly! Please, I''ll pay you back! I promise!"'
		'The guy laughs: "Yea, sure. Do you know how many times a day I hear that? If I had a ruble for every time someone told me that, I would''ve retired by now! I don''t do credit, simple as that. Get lost."'
		
		gs 'willpower', 'drugs', 'resist'
		if will_cost <= pcs_willpwr:
			act 'Leave dejectedly (<<will_cost>> Willpower)':
				minut += 5
				gs 'willpower', 'drugs', 'resist'
				gs 'willpower', 'pay', 'resist'
				gs 'stat'
				gt 'street'
			end
		else
			act 'Leave dejectedly (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
		
		act 'Keep begging, promising you''ll do anything':
			*clr & cla
			minut += 5
			'With a trembling lip, you drop to your knees and continue to beg: "Please! I''ll do anything... anything you want!"'
			'He looks at you appreciatively for a moment, and gives you a short nod with his head: "Shut up, and follow me. I may have some for you, but you''re going to have to earn it."'

			act 'Follow him into the house':
				*clr & cla
				minut += 5
				gs 'stat'
				'You follow him dejectedly... you don''t know what he wants from you, but what choice do you have?'
				'He takes you by the hand and pulls you into an empty room. He doesn''t bother closing the door, and simply orders you: "Get down on your knees and suck me off. If you do good, we''ll see."'

				act 'Suck his cock':
					*clr & cla
					guy += 1
					swallow += 1
					NarkShmaraTimes += 1
					spafinloc = 12
					gs 'cum_manage'
					gs 'dinSex', 'std_trigger'
					'<center><img <<$set_imgh>> src="images/characters/city/bobka/sex/bj.jpg"></center>'
					'You need the drugs so badly, you drop to your knees automatically and quickly pull his pants down without even thinking of rejecting him. His cock is still flaccid but you close your lips around it anyway, doing the best you can to arouse him. You slowly feel his cock grow inside your mouth and suck him off obediently, until you feel several warm jets of sperm land on the back of your throat.'
					'The guy moans exhaustedly: "Could be better..."'
					'He pulls up his pants again and throws you a syringe, with a discompassionate look in his eyes. He smirks: "I believe this is what you were looking for?"'

					gs 'arousal', 'bj', 5, 'sub'
					gs 'stat'

					act 'Take the hit right in front of him':
						*clr & cla
						minut += 5
						gs 'drugs', 'heroin'
						'<center><b>Local drug den</b></center>'
						'<center><img <<$set_imgh>> src="images/locations/city/residential/den/usingheroin.jpg"></center>'
						'You grab the syringe off the ground nervously and use it without a second thought, injecting it into your arm with a shaky hand. He shakes his head, almost as if he is disappointed in you, but says with a pitiful smile: "I reckon I''m going to see you around more often! My name is Bobka. Who are you?"'
						'The drugs is quickly clouding your mind, and you barely register him talking. You softly mutter: "<<$pcs_nickname>>..."'
						'He laughs, and says: "I think we''ll be seeing more of you here, <<$pcs_nickname>>..."'
						'When the fog in your mind clears, Bobka is gone and you''re by yourself in the room.'

						gs 'arousal', 'end'
						gs 'stat'

						act 'Leave the drug den': minut += 5 & gt 'street'
					end
				end

				gs 'willpower', 'bj', 'resist'
				if will_cost <= pcs_willpwr:
					act 'Change your mind and leave (<<will_cost>> Willpower)':
						minut += 5
						gs 'willpower', 'bj', 'resist'
						gs 'willpower', 'pay', 'resist'
						gs 'stat'
						gt 'street'
					end
				else
					act 'Change your mind and leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
				end
			end
		end
	end
end

--- narkopriton ---------------------------------