Browse Source

[fixes] removed redundant actions and redundant ends

julzor 5 years ago
parent
commit
d964151aee
1 changed files with 19 additions and 32 deletions
  1. 19 32
      locations/lover_meet.qsrc

+ 19 - 32
locations/lover_meet.qsrc

@@ -165,6 +165,7 @@ if $ARGS[0] = 'start':
 			loverrelation[lover_number] += 0
 			'<<$loverdesc[lover_number]>> gets close to you, and you can tell by <<$tXyr>> body movements <<$tXe>> wants to kiss you.'
 			act 'Kiss with tongue':
+				cla 
 				'You take the initiative and when <<$tXe>> opens <<$tXyr>> mouth you thrust your tongue into <<$tXyr>> mouth.'
 				gs 'arousal', 'kiss', 5
 				pcs_dom += 1
@@ -233,12 +234,13 @@ if $ARGS[0] = 'start':
 						exit
 					end
 				end
-				cla 
+				
 				act 'Continue':	xgt 'lover_meet', 'likes'
 				exit
 			end
 			
 			act 'Kiss with lips':
+				cla
 				'You press your <<$meetlip>> softly against <<$tXyr>>, and for a split second time seems to stop.'
 				pcs_mood += 10
 				if cumloc[11] = 0 and (cumloc[6] = 0 and cumloc[7] = 0):
@@ -320,13 +322,13 @@ if $ARGS[0] = 'start':
 						end
 					end
 				end
-				cla
+				
 				act 'Continue': xgt 'lover_meet', 'likes'
 				exit
 			end
 
 			act 'Hint for a kiss on the cheek':
-				!! *clr 
+				cla 
 				'You make a cute pouty face and turn your cheek toward <<$loverdesc[lover_number]>>. <<$tXec>> understands and though <<$tXe>> wanted to kiss you, <<$tXe>> settles with giving you a peck on the cheek'
 				pcs_mood += 10
 				if cumloc[11] = 0 and (cumloc[6] = 0 and cumloc[7] = 0):
@@ -398,11 +400,12 @@ if $ARGS[0] = 'start':
 						exit
 					end
 				end	
-				cla 
+				
 				act 'Continue': xgt 'lover_meet', 'likes'
 				exit
 			end
 			act 'Push <<$tXyr>> face away': 
+				cla
 				didPushAway = 1
 				'Maybe you had a bad day, maybe you don''t want a kiss, you rudely push <<$tXyr>> face away, and by the looks of it, hurting <<$tXyr>> feelings in the process.'
 				if haraklover[lover_number] = 0:
@@ -415,7 +418,7 @@ if $ARGS[0] = 'start':
 					loverrelation[lover_number] -= 10
 					'<<$tXec>> begins to get angry, <<$tXe>> takes a deep breath and gives you space.'
 				end
-				cla 
+				 
 				act 'Continue': xgt 'lover_meet', 'likes'
 				exit
 			end
@@ -438,6 +441,7 @@ end
 	
 if $ARGS[0] = 'actions':
 	act 'Can I ask you how you think I look?':
+		cla
 		'<<$loverdesc[lover_number]>> says "If you insist" and tells you exactly how <<$tXe>> thinks you look based on what <<$tXe>> likes:'
 		gs 'lover_likes', 'allPref'
 		act 'Okay, lets talk about something else':	xgt 'lover_meet', 'actions'
@@ -1746,39 +1750,21 @@ if $ARGS[0] = 'actions':
 		if rand(0,1): pcs_dom += 1
 		'"What do you want to do?", <<$tXe>> asks'
 		if loverGender[lover_number] = 0:
-			act '"Let''s go just relax in the stairwell and drink some beer."': act 'Go with <<$tXem>>':gt 'podezdM', 'start'
-			act '"Let''s take a walk in the park"': act 'Go with <<$tXem>>':gt 'parkM', 'start'
-			act '"Let''s go see a movie"': act 'Go with <<$tXem>>':gt 'kinoM', 'start'
-			act '"Let''s go to the cafe."': act 'Go with <<$tXem>>':gt 'kafeM', 'start'
+			act '"Let''s go just relax in the stairwell and drink some beer."': gt 'podezdM', 'start'
+			act '"Let''s take a walk in the park"': gt 'parkM', 'start'
+			act '"Let''s go see a movie"': gt 'kinoM', 'start'
+			act '"Let''s go to the cafe."': gt 'kafeM', 'start'
 		elseif loverGender[lover_number] = 1:
 			$telsob = '<<$loverdesc[lover_number]>>'
 			
 			if month > 5 and temper > 20 and sunWeather = 1:
-				act 'Invite to the park':
-					'"Let''s go for a walk in the park."'
-					act 'Go': gt 'parksvid'
-				end
-			end
-
-			act 'Invite to a movie':
-				'"Want to go see a movie?"'
-				act 'Go to the movies': gt 'kinosvid'
-			end
-
-			act 'Invite to the pool hall':
-				'"Let''s play pool."'
-				act 'Go play pool': gt 'billsvid'
-			end
-
-			act 'Invite to the cafe':
-				'"Let''s go to the cafe."'
-				act 'Go to the cafe': gt 'kafesvid'
+				act 'Invite to the park': gt 'parksvid'
 			end
 
-			act 'Invite to the casino':
-				'"Let''s go to the casino."'
-				act 'Go to the casino': gt 'kazinosvid'
-			end
+			act 'Invite to a movie': gt 'kinosvid'
+			act 'Invite to the pool hall': gt 'billsvid'
+			act 'Invite to the cafe': gt 'kafesvid'
+			act 'Invite to the casino': gt 'kazinosvid'
 		end
 		act 'Never mind...':
 			gt 'lover_meet', 'actions'
@@ -1796,5 +1782,6 @@ if $ARGS[0] = 'actions':
 	end
 end
 
+
 --- lover_meet ---------------------------------