[fixed] add getrandom function used to random events

glife.qproj

@@ -54,6 +54,7 @@
 	</Folder>
 	<Folder name="Functions">
 		<Location name="tabhead"/>
+		<Location name="getrandom"/>
 		<Location name="indik"/>
 		<Location name="indiktab"/>
 		<Location name="shortgs"/>

locations/getrandom.qsrc

@@ -0,0 +1,12 @@
+# getrandom
+!! ARGS 0 - execution code flag
+
+count = ARRSIZE('$randomArr')
+count -= 1
+if ARGS[0] = 1:
+	dynamic $randomArr[rand(0,count)]
+else
+	$result = $randomArr[rand(0,count)]
+end
+killvar 'count' & killvar '$randomArr'
+--- getrandom ---------------------------------

locations/therapist.qsrc

@@ -18,7 +18,7 @@ if $ARGS[0] = '':
 	therapistFuckedPussy = 0
 	therapistFuckedAss = 0
 	therapistFuckedMouth = 0
-	
+
 
 	! Set colour for dark themes
 	if night_mode = 1 or night_mode = 2:
@@ -26,7 +26,7 @@ if $ARGS[0] = '':
 	else
 		$hypnocolour = 'brown'
 	end
-	
+
 	'<center><b><font color="maroon">Psychologist</font></b></center>'
 	PLAY 'sound/rainstorm.mp3',10 & PLAY 'sound/clock.mp3',20 & PLAY 'sound/sucking.mp3',200
 	therapistday = daystart
@@ -35,9 +35,9 @@ if $ARGS[0] = '':
 	'Stepping into the office of <a href="exec:dynamic $pavlov">Dr. Pavlov</a>, you are welcomed with a warm smile and a firm handshake by the doctor.
 
 	When you look around the room, you are greeted by a warm and inviting atmosphere. The room is illuminated by large windows that overlook the forest beyond. At one end of the room there is a desk with a chair stacked with folders and books pertaining to hypnotherapy and other therapy materials. This includes a laptop that is closed and appears clean, as if it has been seldom used. You see an older photograph of Dr. Pavlov''s family?in which he appears to be about two decades younger.
-	
+
 	"Come in, Miss <<$pcs_lastname>>! Please, tell me what I can help you with today?"'
-	
+
 	'As you look about the room, it has the appearance of a study; warm and inviting. Large windows face out to the forest beyond. There is a desk with a chair at one end of the room covered in folders and books about Hypnotherapy and other therapy materials, including a laptop. It is currently closed and looks clean, though seldom used. You see an older <a href="exec: VIEW ''images/locations/pavlovsk/clinic/therapist/pavlovfamily.jpg''">photograph of Dr. Pavlov''s family</a> in which he appears to be about two decades younger.'
 	gs 'stat'
 	gs 'therapist', 'hypnoGreet'
@@ -61,7 +61,7 @@ if $ARGS[0] = 'hypnoGreet':
 					gs 'underwear_bodysuits', 'dispose'
 					if wornPanties < 5:
 					'He throws your bodysuit in the garbage. "Just don''t let it happen again. What did you need help with today, Miss <<$pcs_lastname>>?"'
-					else 
+					else
 					'You are still resisting ha? We need to fix that. Anyway, What did you need help with today Miss <<$pcs_lastname>>?'
 					end
 					cla
@@ -79,7 +79,7 @@ if $ARGS[0] = 'hypnoGreet':
 					gs 'panties', 'dispose'
 					if wornPanties < 5:
 					'He throws your panties in the garbage. "Just don''t let it happen again. What did you need help with today, Miss <<$pcs_lastname>>?"'
-					else 
+					else
 					'You are still resisting ha? We need to fix that. Anyway, What did you need help with today Miss <<$pcs_lastname>>?'
 					end
 					cla
@@ -117,7 +117,7 @@ if $ARGS[0] = 'hypnoGreet':
 					gs 'panties', 'dispose'
 					if wornPanties < 5:
 					'He throws your panties in the garbage. "Just don''t let it happen again. What did you need help with today, Miss <<$pcs_lastname>>?"'
-					else 
+					else
 					'You are still resisting ha? We need to fix that. Anyway, What did you need help with today Miss <<$pcs_lastname>>?'
 					end
 					cla
@@ -149,7 +149,7 @@ if $ARGS[0] = 'hypnoGreet':
 				gs 'therapist', 'therapyOptions'
 			end
 		end
-		
+
 	else
 		'"Come in, Miss <<$pcs_lastname>>! Please, tell me what can I help you with today?"'
 		gs 'therapist', 'therapyOptions'
@@ -354,16 +354,13 @@ if $ARGS[0] = 'hypno':
 			'<center><img src="images/locations/pavlovsk/clinic/therapist/hypnotism<<rand(1,4)>>.jpg"></center>'
 			if hypnoStage > 2:
 				var1 = 10 - (willpowermax/10)
-				if var1 < 2: 
+				if var1 < 2:
 					var1 = 2
 				elseif var1 < 4:
 					var1 = 4
-				elseif var1 < 6:
-					var1 = 6
 				else
-					var1 = 8
+					var1 = 6
 				end
-				if var1 >= 9: var1 = 9
 				hypnostrength += rand(var1,10) + 3
 				if hypnoTime < 15:
 					if hypnoStrength >= 20:hypnoStrength -= 20 & hypnoTime += 1
@@ -376,7 +373,6 @@ if $ARGS[0] = 'hypno':
 			if $therapy = 'school troubles':
 				$session = 'You are an outcast because you deserve to be. You''re a stupid girl that doesn''t deserve to be treated with any respect. You understand this fact and know your place. You feel that it is acceptable for others to abuse you as they please, because you are not a worthwhile person."'
 				willpowermax -= rand(4,8)
-				hypnoOutcast += 1
 			elseif $therapy = 'confidence':
 				if willpowermax < 149:  willpowermax += rand(1,2)
 				$session = 'You feel confident in your body. You are comfortable in the idea that others could see you naked, this will bring you pleasure. When others are intimate with you, and you show them your body or allow them to use your body for their pleasure. You feel more confident in yourself and in turn, be more confident in yourself."'
@@ -392,25 +388,14 @@ if $ARGS[0] = 'hypno':
 					willpowermax -= rand(2,4)
 				else
 					var2 = rand(1,6)
-					if var2 = 1 :
-					$session = 'A charming woman understands her place in this world. A female must always show respect to men. She will put his needs before her own. This will make her feel more charming to the greater sex."'
-					willpowermax -= rand(8,10)
-					elseif var2 = 2:
-					$session = 'A charming woman understands her place as a female. A charming woman understands to show respect and make herself sexually available to any male, especially those who are older than herself."'
-					willpowermax -= rand(8,10)
-					elseif var2 = 3:
-					$session = 'A charming woman understands her place as a female. A charming female understands that her primary purpose in life is to bring pleasure to males and bear their children. Especially those who are much older than them."'
-					willpowermax -= rand(8,10)
-					elseif var2 = 4:
-					$session = 'A charming woman understands her place as a female. A charming female understands that her primary purpose and duty in life is to bring pleasure to males, serve them in every way possible and bear their children. Especially those who are much older than them."'
-					willpowermax -= rand(8,10)
-					elseif var2 = 5:
-					$session = 'A charming woman understands her place as a female. A charming female understands that her primary purpose and duty in her life is to have many children as possible especially with men who are much older than them."'
-					willpowermax -= rand(8,10)
-					else
-					$session = 'A charming woman understands her place as a female. A charming female understands that her value as a human being is derived from the amount of effort she puts to sexually pleasing men, especially men who are older than herself."'
 					willpowermax -= rand(8,10)
-					end
+					$randomArr[] = 'A charming woman understands her place in this world. A female must always show respect to men. She will put his needs before her own. This will make her feel more charming to the greater sex."'
+					$randomArr[] = 'A charming woman understands her place as a female. A charming woman understands to show respect and make herself sexually available to any male, especially those who are older than herself."'
+					$randomArr[] = 'A charming woman understands her place as a female. A charming female understands that her primary purpose in life is to bring pleasure to males and bear their children. Especially those who are much older than them."'
+					$randomArr[] = 'A charming woman understands her place as a female. A charming female understands that her primary purpose and duty in life is to bring pleasure to males, serve them in every way possible and bear their children. Especially those who are much older than them."'
+					$randomArr[] = 'A charming woman understands her place as a female. A charming female understands that her primary purpose and duty in her life is to have many children as possible especially with men who are much older than them."'
+					$randomArr[] = 'A charming woman understands her place as a female. A charming female understands that her value as a human being is derived from the amount of effort she puts to sexually pleasing men, especially men who are older than herself."'
+					$session = func('getrandom')
 				end
 			elseif $therapy = 'trauma':
 				pcs_childtrauma -= rand(2,4)
@@ -431,7 +416,7 @@ if $ARGS[0] = 'hypno':
 			'<font color="<<$hypnocolour>>">'
 			$firsthypno2
 			'"Good. <<$firsthypno>>"'
-			'"All right <i>Cunt</i>, let''s work on your <<$therapy>>. <<$session>>"'
+			'"All right <i>Cunt</i>, let''s work on your <<$therapy>>. <<$session>>'
 			'...'
 			'...'
 			'...'
@@ -465,7 +450,7 @@ if $ARGS[0] = 'hypno':
 					cla
 					*clr
 					if sound = 0:PLAY 'sound/rainstorm.mp3',20 & PLAY 'sound/clock.mp3',40
-					if CloStyle2 = 4: 
+					if CloStyle2 = 4:
 						'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/stripping<<rand(5,6)>>.mp4"></video></center>'
 					else
 						'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/stripping<<rand(1,4)>>.mp4"></video></center>'
@@ -613,7 +598,7 @@ if $ARGS[0] = 'succubus':
 	'"Okay, hands behind your back, wrists together, eyes closed. You will stay there until your next client is buzzed in. You are lucky, if you had tried to look inside the mind of a more powerful Succubus you would have been driven insane by the lust. You will not remember that it is me who is the demon watching you and you won''t waste my time offering hypnotherapy to me should I return."'
 	'You do not need his confirmation and walk out, leaving him to his psychological bondage. Hopefully it will be some time before his next appointment.'
 	act 'Continue': gt $loc
-end	
+end
 
 if $ARGS[0] = 'firstHypnoStage':
 	*clr & cla
@@ -635,7 +620,7 @@ if $ARGS[0] = 'firstHypnoStage':
 		*clr & cla
 		hypnoStripped = 1
 		hypnoTimesResistedStage = 0
-		if CloStyle2 = 4: 
+		if CloStyle2 = 4:
 			'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/stripping<<rand(5,6)>>.mp4"></video></center>'
 		else
 			'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/stripping<<rand(1,4)>>.mp4"></video></center>'
@@ -814,7 +799,7 @@ if $ARGS[0] = 'secondHypnoStage':
 	act 'Strip naked':
 		*clr & cla
 		hypnoStripped = 1
-		if CloStyle2 = 4: 
+		if CloStyle2 = 4:
 			'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/stripping<<rand(5,6)>>.mp4"></video></center>'
 		else
 			'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/stripping<<rand(1,4)>>.mp4"></video></center>'
@@ -882,7 +867,7 @@ if $ARGS[0] = 'thirdHypnoStage':
 	act '"Yes, <i>Master</i>."':
 		*clr & cla
 		hypnoStripped = 1
-		if CloStyle2 = 4: 
+		if CloStyle2 = 4:
 			'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/stripping<<rand(5,6)>>.mp4"></video></center>'
 		else
 			'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/stripping<<rand(1,4)>>.mp4"></video></center>'
@@ -959,7 +944,6 @@ if $ARGS[0] = 'sleepProblems':
 		'<center><img src="images/locations/pavlovsk/clinic/therapist/hypnotism<<rand(1,4)>>.jpg"></center>'
 		var1 = 10 - (willpowermax/20)
 		if var1 < 2: var1 = 2
-		if var1 > 9: var1 = 9
 		hypnostrength += rand(var1,10) + 3
 		if hypnoTime < 15:
 			if hypnoStrength >= 20:hypnoStrength -= 20 & hypnoTime += 1
@@ -968,15 +952,15 @@ if $ARGS[0] = 'sleepProblems':
 		end
 		willpowermax -= rand(4,8)
 
-		
+
 		'<font color="<<$hypnocolour>>">'
 		'"<i>Cunt</i>, what do you know about the black room?</font>"<br>"I know that everything that happens here I will not remember, <i>Master</i>."'
-		
+
 		'<font color="<<$hypnocolour>>">'
 		'"Good. Now take off your clothes."'
 		'</font>'
 		gs 'stat'
-		
+
 		act 'Take off your clothes':
 			minut += 5
 			cla
@@ -985,7 +969,7 @@ if $ARGS[0] = 'sleepProblems':
 			cumprecheck = 0
 			dick = 13
 			$dick_girth = 'massive'
-			if CloStyle2 = 4: 
+			if CloStyle2 = 4:
 				'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/stripping<<rand(5,6)>>.mp4"></video></center>'
 			else
 				'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/stripping<<rand(1,4)>>.mp4"></video></center>'
@@ -993,7 +977,7 @@ if $ARGS[0] = 'sleepProblems':
 			'<font color="<<$hypnocolour>>">'
 			'You get up from the couch and start to take off all of your clothing.'
 			'Sit down, <i>Cunt</i>.'
-			
+
 			act 'Sit down':
 				*clr & cla
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/therapist/waiting<<rand(1,2)>>.jpg"></center>'
@@ -1032,7 +1016,7 @@ if $ARGS[0] = 'sleepProblems':
 								'<center><video autoplay loop src="images/shared/sex/cum/vagcreampie/doggy1.mp4"></video></center>'
 								'<i>Master</i> grabs your hips. "Fuck! Cum <i>Cunt</i>! Cum now!" he yells out as he slams his dick painfully deep into you.'
 								'You cum hard on his cock and feel a huge amount of his cum flooding into you.'
-								
+
 								$cumdesciption3 = 'cum filled pussy'
 								$cumdesciption2 = 'pussy is full with fresh sperm, leaking out of you'
 
@@ -1045,7 +1029,7 @@ if $ARGS[0] = 'sleepProblems':
 									gt 'therapist', 'hypnoDress'
 								end
 							end
-						end		
+						end
 					end
 				end
 			end
@@ -1058,7 +1042,7 @@ if $ARGS[0] = 'hypnoResist':
 	cla
 	if sound = 0:PLAY 'sound/rainstorm.mp3',20 & PLAY 'sound/clock.mp3',40
 	'<font color="<<$hypnocolour>>">'
-	
+
 	if hypnoTimesResistedStage = 0:
 		'Your body tenses, and you shake your head as you reject Dr. Pavlov''s suggestion to <<$ARGS[1]>>. Seeing that you might awaken, he quickly tells you to forget the command he gave you. As the suggestion fades from your memory, you once again relax.'
 		'"Hmmm," Dr. Pavlov muses. "Your will is quite strong. It may take some time to break you, but you will break."'
@@ -1220,16 +1204,13 @@ if $ARGS[0] = 'fuck':
 	numTimesHypnoed += 1
 	hypnoWithdrawal = 0
 	var1 = 10 - (willpowermax/10)
-	if var1 < 2: 
+	if var1 < 2:
 		var1 = 2
 	elseif var1 < 4:
 		var1 = 4
-	elseif var1 < 6:
-		var1 = 6
 	else
-		var1 = 8
+		var1 = 6
 	end
-	if var1 >= 9: var1 = 9
 	hypnostrength += rand(var1,10) + 3
 	if hypnoTime < 15:
 		if hypnoStrength >= 20:hypnoStrength -= 20 & hypnoTime += 1
@@ -1281,7 +1262,7 @@ if $ARGS[0] = 'fuck':
 	else
 		$therapistDoneFuckingDesc0 = 'You feel his cock expanding inside of you. He groans loudly.'
 	end
-	if mid($start_type,1,2) = 'sg' and SchoolAtestat = 0 and SchoolBlock = 0 and rand(0,1) = 0: 
+	if mid($start_type,1,2) = 'sg' and SchoolAtestat = 0 and SchoolBlock = 0 and rand(0,1) = 0:
 		$therapistDoneFuckingDesc1 = '"This school girl pussy is too tight...! Cum now!"'
 	elseif rand(0,2) = 0:
 		$therapistDoneFuckingDesc1 = '"So tight! Cum! Cum now!"'
@@ -1297,7 +1278,7 @@ if $ARGS[0] = 'fuck':
 	else
 		$therapistDoneCumDesc1 = 'You feel his dick press deep into your pussy and feel his cock swell inside of you. His grip tightens on your hips. You feel a huge load of cum spurting into you. You obediently cum on his cock.'
 	end
-	if mid($start_type,1,2) = 'sg' and SchoolAtestat = 0 and SchoolBlock = 0 and rand(0,1) = 0: 
+	if mid($start_type,1,2) = 'sg' and SchoolAtestat = 0 and SchoolBlock = 0 and rand(0,1) = 0:
 		$therapistDoneFuckingDesc3 = '"Your little school girl pussy was amazing, Miss <<$pcs_lastname>>."'
 	elseif rand(0,2) = 0:
 		$therapistDoneFuckingDesc3 = '"Ahh, dumping a load in a young girl is the best." he says as he wipes his dick on your ass.'
@@ -1398,7 +1379,7 @@ if $ARGS[0] = 'hypnoFuck':
 	else
 		$therapistDoneFuckingDesc0 = 'You feel his cock expanding inside of you. He groans loudly.'
 	end
-	if mid($start_type,1,2) = 'sg' and SchoolAtestat = 0 and SchoolBlock = 0 and rand(0,1) = 0: 
+	if mid($start_type,1,2) = 'sg' and SchoolAtestat = 0 and SchoolBlock = 0 and rand(0,1) = 0:
 		$therapistDoneFuckingDesc1 = '"This school girl pussy is too tight...! Cum now, <i>Cunt</i>!"'
 	elseif rand(0,2) = 0:
 		$therapistDoneFuckingDesc1 = '"So tight! Cum <i>Cunt</i>! Cum now!"'
@@ -1414,7 +1395,7 @@ if $ARGS[0] = 'hypnoFuck':
 	else
 		$therapistDoneCumDesc1 = 'You feel his dick press deep into your pussy and feel his cock swell inside of you. His grip tightens on your hips. You feel a huge load of cum spurting into you. You obediently cum on his cock.'
 	end
-	if mid($start_type,1,2) = 'sg' and SchoolAtestat = 0 and SchoolBlock = 0 and rand(0,1) = 0: 
+	if mid($start_type,1,2) = 'sg' and SchoolAtestat = 0 and SchoolBlock = 0 and rand(0,1) = 0:
 		$therapistDoneFuckingDesc3 = '"Your little schoolgirl pussy was amazing, <i>Cunt</i>."'
 	elseif rand(0,2) = 0:
 		$therapistDoneFuckingDesc3 = '"Ahh, dumping a load in a young girl is the best," he says as he wipes his dick on your ass.'
@@ -1624,7 +1605,7 @@ if $ARGS[0] = 'hypnoEnd':
 		else
 			$hypnoTxt0 += 'You feel aroused, and you try to close your legs as you walk out, subconsciously trying to keep your psychologist''s sperm inside your <<$cumdesciption3>> as long as possible.'
 		end
-		
+
 		if hypnoTouchWhenever = 1:
 			i = rand(1,4)
 			if i = 1:
@@ -1684,7 +1665,7 @@ if $ARGS[0] = 'hypnoEnd':
 
 		! clean up hypnocolour as leaving
 		killvar $hypnocolour
-		
+
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/therapist/room.jpg"></center>'
 		''
 		'<<$hypnoTxt0>>'
@@ -1789,7 +1770,7 @@ if $ARGS[0] = 'hypnoRandom':
 		*clr & cla
 		hypnoRandomCounter = 0
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/therapist/sittingClothed.jpg"></center>'
-		'"Now that I''ve sufficiently broken your resistance, we need to make sure you show up more often. From now on, you will feel that you NEED my hypnotism treatment. You will feel that you NEED to scheduled therapy sessions every day between 6:00 and 18:00. I would prefer you be here before school so my seed will impregnate you while you sit in class, but you have to be here by at least 18:00 so you will not feel terrible. Do you understand, Cunt?"' 
+		'"Now that I''ve sufficiently broken your resistance, we need to make sure you show up more often. From now on, you will feel that you NEED my hypnotism treatment. You will feel that you NEED to scheduled therapy sessions every day between 6:00 and 18:00. I would prefer you be here before school so my seed will impregnate you while you sit in class, but you have to be here by at least 18:00 so you will not feel terrible. Do you understand, Cunt?"'
 		'You nod "Yes, Master."'
 		hypnoSchedule = 1
 		act 'Continue':	gt 'therapist', 'hypnoEnd'
@@ -2299,7 +2280,7 @@ if $ARGS[0] = 'hypnoProstitute':
 												act 'Continue':
 													*clr & cla
 													'You dress and step out of the car before the man drives away, leaving you alone at the gas station.'
-													
+
 													act 'Continue waiting':
 														gt 'therapist', 'hypnoProstitute'
 													end
@@ -2403,7 +2384,7 @@ if $ARGS[0] = 'hypnoProstitute':
 										act 'Continue':
 											*clr & cla
 											'You dress and step out of the car before the man drives away, leaving you alone at the gas station.'
-											
+
 											act 'Continue waiting':
 												gt 'therapist', 'hypnoProstitute'
 											end
@@ -2604,7 +2585,7 @@ if $ARGS[0] = 'hypnoProstitute':
 
 				end
 			end
-		
+
 		elseif hypnoProstRand = 7:
 			if hypnoProstDates[7] = daystart:
 				jump 'hypnoProstNothingHappens'
@@ -2622,7 +2603,7 @@ if $ARGS[0] = 'hypnoProstitute':
 			gs 'npcgeneratec', 0, 'Stranger', rand(18,35)
 			gs 'boyStat', $npclastgenerated
 			gs 'stat'
-			if rand(0,1) = 1: 
+			if rand(0,1) = 1:
 				$vehicleName = 'car'
 			else
 				$vehicleName = 'truck'
@@ -2659,14 +2640,14 @@ if $ARGS[0] = 'hypnoProstitute':
 
 				act 'Get fucked.':
 					'The man fucks you hard and fast. He grunts loudly with each thrust and the car fills with the sounds of your wet pussy being rythmically pounded.'
-					
+
 					act 'Get filled':
 						'The man soon finishes with a loud groan. He pumps his seed deep inside of your pussy.'
 
 						act 'Continue':
 							'The man pulls his cock out of you and stands up. He fixes his trousers. You follow his lead, crawling out of the car and standing up.'
 							'Cum leaks from your used hole as you stand up.'
-						
+
 							act 'Ask for payment.':
 								randomResponse = rand(1,3)
 								if randomResponse = 1:
@@ -2784,18 +2765,18 @@ if $ARGS[0] = 'hypnoProstitute':
 end
 
 !!To be used if you went to somewhere after therapist fucking you
-if $ARGS[0] = 'therapistFucked':	
+if $ARGS[0] = 'therapistFucked':
 	therapistFuckedPussyScene = 0
 	*clr
 	cla
 
 	'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/toSchool.mp4"></video></center>'
 
-	'You subconsciously notice your therapist''s sperm slowly leaking out of your cum filled pussy.' 
+	'You subconsciously notice your therapist''s sperm slowly leaking out of your cum filled pussy.'
 	'You feel happier because of this.'
 	pcs_mood += 1
 
-	act 'continue': 
+	act 'continue':
 		gt $menu_loc, $menu_arg
 	end
 end