Merge remote-tracking branch 'Tendaris/master'

locations/telefon

@@ -349,7 +349,7 @@ if $ARGS[0] = 'boyA':
 
 				if harakBoy[1] = 0:
 
-					if bfA >= 90:
+					if pcs_lovers_rel[1] >= 90:
 						loveA = 1
 
 						'<<$boydesc[1]>>, "This is wonderful! We have to celebrate!"'
@@ -381,7 +381,7 @@ if $ARGS[0] = 'boyA':
 								act 'Hang up':gt 'telefon', 'fin'
 							end
 						end
-					elseif bfA < 90:
+					elseif pcs_lovers_rel[1] < 90:
 						money += 20000
 						'<<$boydesc[1]>> "I''m not yet ready to become a dad. I''ll give you the money for an abortion. Get rid of the child.'
 
@@ -395,7 +395,8 @@ if $ARGS[0] = 'boyA':
 					act 'Hang up':gt 'telefon', 'fin'
 				elseif harakBoy[1] = 2:
 
-					bfA = 0
+					pcs_lovers_rel[1] = 0
+					pcs_lover -= 1
 					pregtalk = 0
 					'<<$boydesc[1]>>, "What? You whore! Someone fucked your pussy and now you drop it on me. You''re dumped.'
 
@@ -405,7 +406,7 @@ if $ARGS[0] = 'boyA':
 		elseif pregtime > pcs_lovers_days[1] and knowpreg = 1 and pregtalk = 0:
 			act 'Honey, you will soon become a dad':
 				cla
-				bfA = 0
+				pcs_lovers_rel[1] = 0
 				'"Honey, I''m pregnant with your child."'
 				'<<$boydesc[1]>>, "How the fuck did I manage that? Unless I own a time-machine and went back to before we met and fucked you, it''s someone elses, go and tell him. I don''t want to see you again, goodbye."'
 
@@ -432,10 +433,8 @@ if $ARGS[0] = 'boyA':
 			act 'Pick a time':
 				cla
 				meethourA = input ("When do you want to be picked up. It is now <<hour>> c''clock.")
-
 				if meethourA <= hour or meethourA > 23:meethourA = 20
 
-
 				'"How about <<meethourA>> o''clock?."'
 				'<<$boydesc[1]>>, "Okay <<$sveta>>, see you at <<meethourA>> o''clock."'
 
@@ -445,11 +444,11 @@ if $ARGS[0] = 'boyA':
 
 		act 'Maybe tomorrow':
 			cla
-			bfA -= 1
+			pcs_lovers_rel[1] -= 1
 			'"I''m busy today. Call tomorrow."'
 
-			if bfa <= 0:bfa = 0 & '<<$boydesc[1]>>, Are you fucking me, you know what. Suck my dick.'
-			if bfa > 0:'(<<$boydesc[1]>>) -  Okay, I''ll call tomorrow.'
+			if pcs_lovers_rel[1] <= 0:pcs_lover -= 1 & '<<$boydesc[1]>>, Are you fucking me, you know what. Suck my dick.'
+			if pcs_lovers_rel[1] > 0:'(<<$boydesc[1]>>) -  Okay, I''ll call tomorrow.'
 
 			act 'Hang up':gt 'telefon', 'fin'
 		end
@@ -457,7 +456,8 @@ if $ARGS[0] = 'boyA':
 
 	act 'Leave':
 		cla
-		bfA = 0
+		pcs_lovers_rel[1] = 0
+		pcs_lover -= 1
 		gt 'telefon', 'fin'
 	end
 end
@@ -494,7 +494,7 @@ if $ARGS[0] = 'boyB':
 				'"Honey, I''m pregnant with your child."'
 
 				if harakBoy[2] = 0:
-					if bfB >= 90:
+					if pcs_lovers_rel[2] >= 90:
 						loveB = 1
 						'<<$boydesc[2]>>, "This is wonderful! We have to celebrate!"'
 						'You start talking about living together. <<$boydesc[2]>> tells you that he is not against it in principle, but first he wants you to meet his parents.'
@@ -522,7 +522,7 @@ if $ARGS[0] = 'boyB':
 								act 'Hang up':gt 'telefon', 'fin'
 							end
 						end
-					elseif bfB < 90:
+					elseif pcs_lovers_rel[2] < 90:
 						money += 20000
 						'<<$boydesc[2]>> "I''m not yet ready to become a dad. I''ll give you the money for an abortion. Get rid of the child.'
 
@@ -534,7 +534,8 @@ if $ARGS[0] = 'boyB':
 
 					act 'Hang up':gt 'telefon', 'fin'
 				elseif harakBoy[2] = 2:
-					bfB = 0
+					pcs_lovers_rel[2] = 0
+					pcs_lover -= 1
 					pregtalk = 0
 					'<<$boydesc[2]>>, "What? You whore! Someone fucked your pussy and now you drop it on me. You''re dumped.'
 
@@ -544,7 +545,7 @@ if $ARGS[0] = 'boyB':
 		elseif pregtime > pcs_lovers_days[2] and knowpreg = 1 and pregtalk = 0:
 			act 'Honey, you will soon become a dad':
 				cla
-				bfB = 0
+				pcs_lovers_rel[2] = 0
 				'"Honey, I''m pregnant with your child."'
 				'<<$boydesc[2]>>, "How the fuck did I manage that? Unless I own a time-machine and went back to before we met and fucked you, it''s someone elses, go and tell him. I don''t want to see you again, goodbye."'
 
@@ -562,48 +563,31 @@ if $ARGS[0] = 'boyB':
 
 		act 'Tonight':
 			cla
-			bfB += 1
+			pcs_lovers_rel[2] += 1
 			svidanieB = 1
 			meetdayB = daystart
 			'"How about this evening?"'
 			'<<$boydesc[2]>>, "Sounds great! When can I come to pick you up?"'
 
-
-
-
 			act 'Pick a time':
-
 				cla
 				meethourB = input ("When do you want to be picked up. It is now <<hour>> c''clock.")
-
-
 				if meethourB <= hour or meethourB > 23:meethourB = 20
 
-
-
 				'"How about <<meethourB>> o''clock?."'
 				'<<$boydesc[2]>>, "Okay <<$sveta>>, see you at <<meethourB>> o''clock."'
 
-
-
 				act 'Hang up':gt 'telefon', 'fin'
 			end
 		end
 
-
-
-
-
-
 		act 'Maybe tomorrow':
-
 			cla
-			bfB -= 1
+			pcs_lovers_rel[2] -= 1
 			'"I''m busy today. Call tomorrow."'
 
-			if bfb <= 0:bfb = 0 & '<<$boydesc[2]>>, Are you fucking me, you know what. Suck my dick.'
-			if bfb > 0:'(<<$boydesc[2]>>) -  Okay, I''ll call tomorrow.'
-
+			if pcs_lovers_rel[2] <= 0:pcs_lover -= 1 & '<<$boydesc[2]>>, Are you fucking me, you know what. Suck my dick.'
+			if pcs_lovers_rel[2] > 0:'(<<$boydesc[2]>>) -  Okay, I''ll call tomorrow.'
 
 			act 'Hang up':gt 'telefon', 'fin'
 		end
@@ -611,7 +595,7 @@ if $ARGS[0] = 'boyB':
 
 	act 'Leave':
 		cla
-		bfB = 0
+		pcs_lovers_rel[2] = 0
 		gt 'telefon', 'fin'
 	end
 end
@@ -648,7 +632,7 @@ if $ARGS[0] = 'boyC':
 				'"Honey, I''m pregnant with your child."'
 
 				if harakBoy[3] = 0:
-					if bfC >= 90:
+					if pcs_lovers_rel[3] >= 90:
 						loveC = 1
 						'<<$boydesc[3]>>, "This is wonderful! We have to celebrate!"'
 						'You start talking about living together. <<$boydesc[3]>> tells you that he is not against it in principle, but first he wants you to meet his parents.'
@@ -676,7 +660,7 @@ if $ARGS[0] = 'boyC':
 								act 'Hang up':gt 'telefon', 'fin'
 							end
 						end
-					elseif bfC < 90:
+					elseif pcs_lovers_rel[3] < 90:
 						money += 20000
 						'<<$boydesc[3]>> "I''m not yet ready to become a dad. I''ll give you the money for an abortion. Get rid of the child.'
 
@@ -688,7 +672,8 @@ if $ARGS[0] = 'boyC':
 
 					act 'Hang up':gt 'telefon', 'fin'
 				elseif harakBoy[3] = 2:
-					bfC = 0
+					pcs_lovers_rel[3] = 0
+					pcs_lover -= 1
 					pregtalk = 0
 					'<<$boydesc[3]>>, "What? You whore! Someone fucked your pussy and now you drop it on me. You''re dumped.'
 
@@ -698,7 +683,8 @@ if $ARGS[0] = 'boyC':
 		elseif pregtime > pcs_lovers_days[3] and knowpreg = 1 and pregtalk = 0:
 			act 'Honey, you will soon become a dad':
 				cla
-				bfC = 0
+				pcs_lovers_rel[3] = 0
+				pcs_lover -= 1
 				'"Honey, I''m pregnant with your child."'
 				'<<$boydesc[3]>>, "How the fuck did I manage that? Unless I own a time-machine and went back to before we met and fucked you, it''s someone elses, go and tell him. I don''t want to see you again, goodbye."'
 
@@ -716,48 +702,31 @@ if $ARGS[0] = 'boyC':
 
 		act 'Tonight':
 			cla
-			bfC += 1
+			pcs_lovers_rel[3] += 1
 			svidanieC = 1
 			meetdayC = daystart
 			'"How about this evening?"'
 			'<<$boydesc[3]>>, "Sounds great! When can I come to pick you up?"'
 
-
-
-
 			act 'Pick a time':
-
 				cla
 				meethourC = input ("When do you want to be picked up. It is now <<hour>> c''clock.")
-
-
 				if meethourC <= hour or meethourC > 23:meethourC = 20
 
-
-
 				'"How about <<meethourC>> o''clock?."'
 				'<<$boydesc[3]>>, "Okay <<$sveta>>, see you at <<meethourC>> o''clock."'
 
-
-
 				act 'Hang up':gt 'telefon', 'fin'
 			end
 		end
 
-
-
-
-
-
 		act 'Maybe tomorrow':
-
 			cla
-			bfC -= 1
+			pcs_lovers_rel[3] -= 1
 			'"I''m busy today. Call tomorrow."'
 
-			if bfc <= 0:bfc = 0 & '<<$boydesc[3]>>, Are you fucking me, you know what. Suck my dick.'
-			if bfc > 0:'(<<$boydesc[3]>>) -  Okay, I''ll call tomorrow.'
-
+			if pcs_lovers_rel[3] <= 0:pcs_lover -= 1 & '<<$boydesc[3]>>, Are you fucking me, you know what. Suck my dick.'
+			if pcs_lovers_rel[3] > 0:'(<<$boydesc[3]>>) -  Okay, I''ll call tomorrow.'
 
 			act 'Hang up':gt 'telefon', 'fin'
 		end
@@ -765,7 +734,8 @@ if $ARGS[0] = 'boyC':
 
 	act 'Leave':
 		cla
-		bfC = 0
+		pcs_lovers_rel[3] = 0
+		pcs_lover -= 1
 		gt 'telefon', 'fin'
 	end
 end
@@ -788,7 +758,7 @@ $telotkaz = {
 $telotkazboy = {
 	cla
 	minut += 10
-	'<<$boydescA>>, "Sorry, I''m busy right now, maybe next time."'
+	'<<$boydesc[i]>>, "Sorry, I''m busy right now, maybe next time."'
 
 	act 'Hangup':gt 'telefon', 'fin'
 }