[added] buying joints to the drug den (still needs to be activated if the places to smoke them are implemented)

locations/narkopriton.qsrc

@@ -9,51 +9,33 @@ menu_off = 1
 '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 'You roll your eyes and push the door open':
-	gt 'narkopriton', 'start'
-end
+act 'You roll your eyes and push the door open': gt 'narkopriton', 'start'
 
-act 'Get out of here':
-	minut += 5
-	gt 'street'
-end
+act 'Get out of here': minut += 5 & gt 'street'
 
 if $ARGS[0] = 'start':
-	cla
-	*clr
+	*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:
-	    if StoryLine = 1 and snarkozak = 0:
+		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 joints': gt 'narkopriton', 'joint'		
+	 if StoryLine = 1 and snarkozak = 0:
 	        act 'Ask for a drop-off point in Pavlovsk':
 				minut +=5
 				gs 'events', 'narkozakladka'
 			end	
 	    end
-		act 'Ask for heroin': 
-			gt 'narkopriton', 'heroin'
-		end
-		act 'Ask for amphetamine': 
-			gt 'narkopriton', 'amphetamine' 
-		end
-		act 'Leave the drug den': 
-			minut += 5 
-			gt'street' 
-		end
 	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 'Ask for heroin': 
-			gt 'narkopriton', 'heroin'
-		end
-		act 'Ask for amphetamine': 
-			gt 'narkopriton', 'amphetamine' 
-		end
-		act 'Leave the drug den': 
-			minut += 5
-	        gt 'street' 
-		end
+		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 joints': gt 'narkopriton', 'joint'
 	elseif (StrongNarkota > 23 and ampHigh > 23) or ampHigh > 23 or StrongNarkota > 23:
 		gt 'narkopriton', 'kiteHigh'
 	end
@@ -67,18 +49,19 @@ if $ARGS[0] = 'kiteHigh':
 end
 
 if $ARGS[0] = 'amphetamine':
-	cla
-	*clr
+	*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 (1600 <b>₽</b>)': 
 			money -= 1600
 			drugUser = 1
 			amphetamine += 20
-			minut += 5
+			minut += 5			
 			gt 'narkopriton', 'amphetamine'
 		end
 	end
@@ -109,36 +92,81 @@ if $ARGS[0] = 'amphetamine':
 			gt 'narkopriton', 'amphetamine'
 		end
 	end
-	act 'Buy some heroin instead':
-		gt 'narkopriton', 'heroin'
+	act 'Buy some heroin instead': gt 'narkopriton', 'heroin'
+	!!act 'Buy some joints instead': gt 'narkopriton', 'joint'
+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 50 <b>₽</b> per joint," he says.'
+	'You have <<joint>>.'
+	act 'Leave the drug den': minut += 5 & gt 'street'
+	if money >= 1000:
+		act 'Buy 20 (1000 <b>₽</b>)': 
+			money -= 1000
+			drugUser = 1
+			joint += 20
+			minut += 5
+			gs 'stat'
+			gt 'narkopriton', 'joint'
+		end
 	end
-	act 'Leave the drug den':
-		minut += 5
-		gt 'street'
+	if money >= 500:
+		act 'Buy 10 (500 <b>₽</b>)': 
+			money -= 500
+			drugUser = 1
+			joint += 10
+			minut += 5
+			gs 'stat'
+			gt 'narkopriton', 'joint'
+		end
 	end
+	if money >= 250:
+		act 'Buy 5 (250 <b>₽</b>)': 
+			money -= 250
+			drugUser = 1
+			joint += 5
+			minut += 5
+			gt 'narkopriton', 'joint'
+		end
+	end
+	if money >= 50:
+		act 'Buy 1 (50 <b>₽</b>)': 
+			money -= 50
+			drugUser = 1
+			joint += 1
+			minut += 5
+			gt 'narkopriton', 'joint'
+		end
+	end
+	act 'Buy some heroin instead': gt 'narkopriton', 'heroin'
+	act 'Buy some amphetamine instead':	gt 'narkopriton', 'amphetamine'
 end
 
 if $ARGS[0] = 'heroin':
-	cla
-	*clr
+	*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 1000 <b>₽</b>," he says.'
+	act 'Leave the drug den': minut += 5 & gt 'street'
 	if money >= 1000:
 		act 'Buy some heroin and use it (1,000 <b>₽</b>)':
 			money -= 1000
 			if SNarkTimes = 0:
-				cla
-				*clr
+				*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...'
 				act 'You remember the look of bliss on the junkies faces in the park and use the drugs':
-					cla
-					*clr
+					*clr & cla
 					'<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.'
@@ -147,65 +175,53 @@ if $ARGS[0] = 'heroin':
 					pcs_mood += 40
 					SNarkTimes += 1
 					drugUser = 1
+					gs 'stat'
 					act 'You lay there briefly rolling, before leaving': gs 'events', 'snkayf1' 
 				end
 				act 'You can''t help but think of all the horror stories and return the drugs':
-					cla
-					*clr
+					*clr & cla
 					'<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
+					act '"I know," you say and leave': minut += 5 & gt 'street'
 				end
 			elseif SNarkTimes >= 1:
-				cla
-				*clr
+				*clr & cla
 				minut += 5
 				StrongNarkota += 25
 				pcs_mood += 40
 				SNarkTimes += 1
 				drugUser = 1
+				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
+				act 'Leave the drug den': minut += 5 & gt 'street'
 			end
 		end
-	elseif money < 1000 and SLomka > 0:
-		act 'Beg him to give you some':
-			gs 'narkopriton', 'drugslut'
-		end
-	end
-	act 'Buy some amphetamine instead':
-			gt 'narkopriton', 'amphetamine'
-	end
-	act 'Leave the drug den':
-		minut += 5
-		gt 'street'
+	elseif money < 1000 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 joints instead': gt 'narkopriton', 'joint'
 end
 
 if $ARGS[0] = 'drugslut':
-	cla
-	*clr
+	*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'
+	
+	act 'Leave dejectedly':	minut += 5 & gt 'street'
+	
 	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.'
-
+		'"Come on, <<$pcs_nickname>>! You know I don''t do credit!" he snorts.'		
 		act 'Keep begging, promising you''ll do anything':
-			cla
-			*clr
+			*clr & cla
 			minut += 5
 			'<center><b>Local drug den</b></center>'
 			'<center><img <<$set_imgh>> src="images/locations/city/residential/den/narkopriton.jpg"></center>'
@@ -213,8 +229,7 @@ if $ARGS[0] = 'drugslut':
 			'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':
-				cla
-				*clr
+				*clr & cla
 				minut += 5
 				bobrand = rand(0, 4)
 				
@@ -238,7 +253,7 @@ if $ARGS[0] = 'drugslut':
 					gt 'bobka', bobrand
 				end
 				
-				act 'Change your mind and leave':
+				act 'Change your mind and leave': 
 					minut += 5
 					gt 'street'
 				end
@@ -247,8 +262,7 @@ if $ARGS[0] = 'drugslut':
 	
 		if NarkShmaraTimes > 5:
 			act 'Submit to your fate':
-				cla
-				*clr
+				*clr & cla
 				over = 8
 
 				'<center><img <<$set_imgh>> src="images/locations/city/residential/den/crackwhore.jpg"></center>'
@@ -257,27 +271,23 @@ if $ARGS[0] = 'drugslut':
 				'Of course Bobka is no kind Samaritan, and expects things from you in return...'
 
 				act '...':
-					cla
-					*clr
+					*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 '...':
-						cla
-						*clr
+						*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 '...':
-							cla
-							*clr
+							*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 '...':
-								cla
-								*clr
+								*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.'
@@ -285,8 +295,7 @@ if $ARGS[0] = 'drugslut':
 								'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 '...':
-									cla
-									*clr
+									*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.'
@@ -301,33 +310,26 @@ if $ARGS[0] = 'drugslut':
 			end
 		end
 		
-		act 'Leave dejectedly':
-			minut += 5
-			gt 'street'
-		end
-		
+		act 'Leave dejectedly': minut += 5 & gt 'street'		
 	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."'
 
 		act 'Keep begging, promising you''ll do anything':
-			cla
-			*clr
+			*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':
-				cla
-				*clr
+				*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':
-					cla
-					*clr
+					*clr & cla
 					guy += 1
 					swallow += 1
 					NarkShmaraTimes += 1
@@ -343,8 +345,7 @@ if $ARGS[0] = 'drugslut':
 					gs 'stat'
 					
 					act 'Take the hit right in front of him':
-						cla
-						*clr
+						*clr & cla
 						minut += 5
 						StrongNarkota += 25
 						SNarkTimes += 1
@@ -359,25 +360,14 @@ if $ARGS[0] = 'drugslut':
 						gs 'arousal', 'end'
 						gs 'stat'
 						
-						act 'Leave the drug den':
-							minut += 5
-							gt 'street'
-						end
+						act 'Leave the drug den': minut += 5 & gt 'street'
 					end				
 				end
 				
-				act 'Change your mind and leave':
-					minut += 5
-					gt 'street'
-				end
+				act 'Change your mind and leave': minut += 5 & gt 'street'
 			end
 		end
 	end
-	
-	act 'Leave dejectedly':
-		minut += 5
-		gt 'street'
-	end
 end
 
 --- narkopriton ---------------------------------