Merge branch 'master' of https://git.tfgames.site/anjuna/Girl-Life-Anjuna

locations/booty_call.qsrc

@@ -93,7 +93,6 @@ if $ARGS[0] = 'SMS raiser':
 	if i < arrsize('$FuckBuddy'):
 		if booty_call_time[$FuckBuddy[i]] < ((hour * 60) + minut) and npc_no_booty_call[$FuckBuddy[i]] ! daystart and npc_last_booty_call[$FuckBuddy[i]] ! daystart:
 			gs 'booty_call_sms', 'start', $FuckBuddy[i]
-			gs 'booty_call_sms', 'Add SMS', $FuckBuddy[i]
 			booty_call_time[$FuckBuddy[i]] = 2399
 			!! this is a bit superfluous, but it makes the code run faster.
 			booty_call_invite[$FuckBuddy[i]] = daystart
@@ -466,7 +465,7 @@ if $ARGS[0] = 'draw':
 	if booty_call['A0'] ! daystart :
 		$lover_drawn = $fuckbuddy[rand(0,arrsize('$fuckbuddy')-1)]
 		gs 'booty_call_sms', 'start',$lover_drawn
-		gs 'booty_call_sms', 'Add SMS', $lover_drawn
+!		gs 'booty_call_sms', 'Add SMS', $lover_drawn
 		booty_call['A0'] = daystart
 	end
 end

locations/booty_call_sms.qsrc

@@ -1,424 +1,673 @@
 # booty_call_sms
 
-$SMSFrM = '<table width=80%><tr><td collspan=2 bgcolor="#D4CEF9"><font color=black> '
-$SMSBkM = '</font></td><td width=10%></td></tr></table>'
-$SMSFrF = '<table width=80%><tr><td width=10%></td><td collspan=2 bgcolor=pink><font color=black>'
-$SMSBkF = '</font></td></tr></table>'
+!!=====   Layout stuff   =====================================================================================!!
+!! Open and close receiving text
+$SMS_open_receiving = '<table width=80%><tr><td collspan=2 bgcolor="#D4CEF9"><font color=black>'
+$SMS_close_receiving = '</font></td><td width=10%></td></tr></table>'
+
+!! Open and close sending text
+$SMS_open_sending = '<table width=80%><tr><td width=10%></td><td collspan=2 bgcolor=pink><font color=black>'
+$SMS_close_sending = '</font></td></tr></table>'
+
+!! Start reply
+$SMS_open_replies = '<table><tr><th> Reply</th></tr><tr><td>'
+$SMS_next_reply = '</td></tr><tr><td>'
+$SMS_close_replies = '</td></tr></table>'
+!!=====   END Layout stuff   =====================================================================================!!
+
+
+
+
+!!=====   Reply example here =================================================================================!!
+
+!!  $temp_SMStext += $SMS_open_replies
+!!  	$temp_SMStext += '<a href="exec: gs ''>>Name of the location<<'', ''>>Name of the SMS Branch<<'', ''>>Name of the Choice<<'', telefon[''SMSid'']">' + 'TEXT' + '</a>'
+!!  	$temp_SMStext += $SMS_next_reply
+!!  	$temp_SMStext += '<a href="exec: gs ''>>Name of the location<<'', ''>>Name of the SMS Branch<<'', ''>>Name of the Choice<<'', telefon[''SMSid'']">' + 'TEXT' + '</a>'
+!!  	....
+!!  $temp_SMStext += $SMS_close_replies
+
+!!=====   END Reply example here =================================================================================!!
+
+
+!!=====   Adding Images to SMS ===============================================================================!!
+
+!!    You can add images at the end by manually setting:
+!!    $SMSPicture1[telefon['SMSid']] = Path to picture 1
+!!    $SMSPicture2[telefon['SMSid']] = Path to picture 2
+!!    $SMSPicture3[telefon['SMSid']] = Path to picture 3
+!!    $SMSPicture4[telefon['SMSid']] = Path to picture 4
+
+! You can also always add a picture to the text, scaling is an issue though
+
+
+!!=====   END Adding Images to SMS ===============================================================================!!
+
+
+
 
 if $ARGS[0] = 'start':
-	$booty_call_daily_id[i] = $FuckBuddy[i]
-!!	if npc_booty_call[$ARGS[1]] = daystart:
-!!		gs 'booty_call_sms', 'pre_planned_booty_call', $FuckBuddy[i]
-!!	elseif sugar_daddy_call[$FuckBuddy[i]] = 1:
-	if sugar_daddy_call[$FuckBuddy[i]] = 1:
-		gs 'booty_call_sms', 'sugar_daddy_booty_call', $FuckBuddy[i]
-	elseif npc_std_test[$FuckBuddy[i]] = 1:
-		gs 'booty_call_sms', 'std_free', $FuckBuddy[i]
-!!	elseif npc_booty_call[$FuckBuddy[i]] = daystart:
-!!		gs 'booty_call_sms', 'pre_planned_booty_call', $FuckBuddy[i]
+	$booty_call_daily_id[i] = $ARGS[1]
+
+	if npc_booty_call[$ARGS[1]] = daystart:
+		gs 'booty_call_sms', 'Add SMS2', 'pre_planned_booty_call', $ARGS[1]
+	elseif sugar_daddy_call[$ARGS[1]] = 1:
+		gs 'booty_call_sms', 'Add SMS', 'sugar_daddy_booty_call', $ARGS[1]
+	elseif npc_std_test[$ARGS[1]] = 1:
+		gs 'booty_call_sms', 'Add SMS', 'std_free', $ARGS[1]
 	else
-		gs 'booty_call_sms', 'default_booty_call', $FuckBuddy[i]
+		gs 'booty_call_sms', 'Add SMS', 'default_booty_call', $ARGS[1]
 	end
 end
 
 if $ARGS[0] = 'default_booty_call':	
 	!! boy
-	$VM['0'] = dyneval('$result=''hey <<$pcs_nickname>>'' ')
-	
-	!! player
-	$VF[$ARGS[1]+'0'] = dyneval('$result=''hey <<$npc_nickname[$ARGS[1]]>>'' ')
-	
-	!! boy
-	$VM['1'] = 'ive been thinking about you'
-	
-	!! player response 1 option 1
-	$VF['1a'] = 'what were you thinking about?'
-	
-	!! boy response 1
-	if npc_finance[$ARGS[1]] = 2 and func('homes_properties_attr', 'get_property_attribute', '$town', $home['current']) ! 'city' and npc_residence[$ARGS[1]] >= 3:
-		$VM['2a'] = 'i booked a hotel room in Pav. why dont you come by?'
-	else
-		if $npc_fav_pos[$ARGS[1]] = 'blowjob' and rand(0,2) = 1:
-			$VM['2a'] = 'your mouth around my cock'
-		elseif npc_know_virgin[$ARGS[1]] ! 1:
-			if $npc_cum_pref[$ARGS[1]] = 'creampie' and (npc_condom_conscious[$ARGS[1]] = 0 or npc_bareback[$ARGS[1]] = 1) and rand(0,2) = 1:
-				$VM['2a'] = 'your pussy filled with my cum'
-			elseif npc_sex_speed[$ARGS[1]] = 3 and rand(0,2) = 1:
-				$VM['2a'] = 'fucking you bowlegged'
-			elseif $npc_cum_pref[$ARGS[1]] = 'facial' and rand(0,2) = 1:
-				$VM['2a'] = 'your pretty face covered in my cum'
-			elseif $npc_cum_pref[$ARGS[1]] = 'mouth' and rand(0,2) = 1:
-				$VM['2a'] = 'watching you swallow my cum'
-			elseif $npc_cum_pref[$ARGS[1]] = 'tits' and rand(0,2) = 1:
-				$VM['2a'] = 'my cum all over your tits'
-			elseif $npc_fav_pos[$ARGS[1]] = 'doggy' and rand(0,2) = 1:
-				$VM['2a'] = 'pounding you on all fours'
-			elseif $npc_fav_pos[$ARGS[1]] = 'cowgirl' and rand(0,2) = 1:
-				$VM['2a'] = 'you riding my cock like crazy'			
-			else
-				if rand(0,1) = 1:
-					$VM['2a'] = 'you naked on my bed'
-				else
-					$VM['2a'] = 'want to come over and have some fun?'
-				end
-			end
-		end
-	end
-	
-	!! player response 1 option 2
-	$VF['1b'] = 'me too'
+	$SMSTree['0'] = dyneval('$result=''hey <<$pcs_nickname>>'' ')
+
+		!! player
+		$SMSTree['1'] = dyneval('$result=''hey <<$npc_nickname[$ARGS[1]]>>'' ')
+
+			!! boy
+			$SMSTree['2'] = 'ive been thinking about you'
+
+				!! player response 1 option 1
+				$SMSTree['a3'] = 'what were you thinking about?'
 	
-	!! boy response 2
-	if npc_finance[$ARGS[1]] = 2 and func('homes_properties_attr', 'get_property_attribute', '$town', $home['current']) ! 'city' and npc_residence[$ARGS[1]] >= 3: 
-		$VM['2a'] = 'i booked a hotel room in Pav. why dont you come by?'
-	else
-		if $npc_fav_pos[$ARGS[1]] = 'blowjob' and rand(0,2) = 1:
-			$VM['2a'] = 'i want to feel your mouth around my cock'
-		elseif npc_know_virgin[$ARGS[1]] ! 1:
-			if $npc_cum_pref[$ARGS[1]] = 'creampie' and (npc_condom_conscious[$ARGS[1]] = 0 or npc_bareback[$ARGS[1]] = 1) and rand(0,2) = 1:
-				$VM['2a'] = 'i want to pump you full of cum'
-			elseif npc_sex_speed[$ARGS[1]] = 3 and rand(0,2) = 1:
-				$VM['2b'] = 'come over i want to hear you screaming my name'
-			elseif $npc_cum_pref[$ARGS[1]] = 'facial' and rand(0,2) = 1:
-				$VM['2a'] = 'i want to cum all over your face'
-			elseif $npc_cum_pref[$ARGS[1]] = 'mouth' and rand(0,2) = 1:
-				$VM['2a'] = 'i want to watch you swallow my cum'
-			elseif $npc_cum_pref[$ARGS[1]] = 'tits' and rand(0,2) = 1:
-				$VM['2a'] = 'let me glaze your tits with my cum'
-			elseif $npc_fav_pos[$ARGS[1]] = 'doggy' and rand(0,2) = 1:
-				$VM['2a'] = 'i want to pound you on all fours'
-			elseif $npc_fav_pos[$ARGS[1]] = 'cowgirl' and rand(0,2) = 1:
-				$VM['2a'] = 'i want you to ride my cock like theres no tomorrow'			
+					!! boy response 1
+					if npc_finance[$ARGS[1]] = 2 and func('homes_properties_attr', 'get_property_attribute', '$town', $home['current']) ! 'city' and npc_residence[$ARGS[1]] >= 3:
+						$SMSTree['a4'] = 'i booked a hotel room in Pav. why dont you come by?'
+					else
+						if $npc_fav_pos[$ARGS[1]] = 'blowjob' and rand(0,2) = 1:
+							$SMSTree['a4'] = 'your mouth around my cock'
+						elseif npc_know_virgin[$ARGS[1]] ! 1:
+							if $npc_cum_pref[$ARGS[1]] = 'creampie' and (npc_condom_conscious[$ARGS[1]] = 0 or npc_bareback[$ARGS[1]] = 1) and rand(0,2) = 1:
+								$SMSTree['a4'] = 'your pussy filled with my cum'
+							elseif npc_sex_speed[$ARGS[1]] = 3 and rand(0,2) = 1:
+								$SMSTree['a4'] = 'fucking you bowlegged'
+							elseif $npc_cum_pref[$ARGS[1]] = 'facial' and rand(0,2) = 1:
+								$SMSTree['a4'] = 'your pretty face covered in my cum'
+							elseif $npc_cum_pref[$ARGS[1]] = 'mouth' and rand(0,2) = 1:
+								$SMSTree['a4'] = 'watching you swallow my cum'
+							elseif $npc_cum_pref[$ARGS[1]] = 'tits' and rand(0,2) = 1:
+								$SMSTree['a4'] = 'my cum all over your tits'
+							elseif $npc_fav_pos[$ARGS[1]] = 'doggy' and rand(0,2) = 1:
+								$SMSTree['a4'] = 'pounding you on all fours'
+							elseif $npc_fav_pos[$ARGS[1]] = 'cowgirl' and rand(0,2) = 1:
+								$SMSTree['a4'] = 'you riding my cock like crazy'
+							else
+								if rand(0,1) = 1:
+									$SMSTree['a4'] = 'you naked on my bed'
+								else
+									$SMSTree['a4'] = 'want to come over and have some fun?'
+								end
+							end
+						end
+					end
+
+				!! player response 1 option 2
+				$SMSTree['b3'] = 'me too'
+
+					!! boy response 2
+					if npc_finance[$ARGS[1]] = 2 and func('homes_properties_attr', 'get_property_attribute', '$town', $home['current']) ! 'city' and npc_residence[$ARGS[1]] >= 3: 
+						$SMSTree['b4'] = 'i booked a hotel room in Pav. why dont you come by?'
+					else
+						if $npc_fav_pos[$ARGS[1]] = 'blowjob' and rand(0,2) = 1:
+							$SMSTree['b4'] = 'i want to feel your mouth around my cock'
+						elseif npc_know_virgin[$ARGS[1]] ! 1:
+							if $npc_cum_pref[$ARGS[1]] = 'creampie' and (npc_condom_conscious[$ARGS[1]] = 0 or npc_bareback[$ARGS[1]] = 1) and rand(0,2) = 1:
+								$SMSTree['b4'] = 'i want to pump you full of cum'
+							elseif npc_sex_speed[$ARGS[1]] = 3 and rand(0,2) = 1:
+								$SMSTree['b4'] = 'come over i want to hear you screaming my name'
+							elseif $npc_cum_pref[$ARGS[1]] = 'facial' and rand(0,2) = 1:
+								$SMSTree['b4'] = 'i want to cum all over your face'
+							elseif $npc_cum_pref[$ARGS[1]] = 'mouth' and rand(0,2) = 1:
+								$SMSTree['b4'] = 'i want to watch you swallow my cum'
+							elseif $npc_cum_pref[$ARGS[1]] = 'tits' and rand(0,2) = 1:
+								$SMSTree['b4'] = 'let me glaze your tits with my cum'
+							elseif $npc_fav_pos[$ARGS[1]] = 'doggy' and rand(0,2) = 1:
+								$SMSTree['b4'] = 'i want to pound you on all fours'
+							elseif $npc_fav_pos[$ARGS[1]] = 'cowgirl' and rand(0,2) = 1:
+								$SMSTree['b4'] = 'i want you to ride my cock like theres no tomorrow'
+							else
+								if rand(0,1) = 1:
+									$SMSTree['b4'] = 'lets fuck like bunnies today'
+								else
+									$SMSTree['b4'] = 'come over lets have some fun today'
+								end
+							end
+						end
+					end
+
+						!! player response 2 option 1
+						if hour < 21:
+							$SMSTree['aa5'] = 'sorry, i cant. i have stuff to do'
+							$SMSTree['ba5'] = $SMSTree['aa5']
+						else
+							$SMSTree['aa5'] = 'its late. text me sooner if you want me to come over.'
+							$SMSTree['ba5'] = $SMSTree['aa5']
+						end
+
+							!! boy response 2 option 1
+							$SMSTree['aa6'] = 'shit, maybe next time then'
+							$SMSTree['ba6'] = $SMSTree['aa6']
+
+
+						!! player response 2 option 2
+						$SMSTree['ab5'] = 'ill come right now ;)'
+						$SMSTree['bb5'] = $SMSTree['ab5']
+
+							!! boy response 2 option 2
+							if npc_humor[$ARGS[1]] <= 1 and rand(0,1) = 1:
+								$SMSTRee['ab6'] = 'im already hard'
+								$SMSTree['bb6'] = $SMSTree['ab6']
+							elseif npc_humor[$ARGS[1]] = 2 and rand(0,1) = 1:
+								if rand(0,1) = 1:
+									$SMSTRee['ab6'] = 'in the street?? damn! keep it in your pants till you get here!'
+									$SMSTree['bb6'] = $SMSTree['ab6']
+								else
+									$SMSTRee['ab6'] = 'as long as you make me cum later'
+									$SMSTree['bb6'] = $SMSTree['ab6']
+								end
+							elseif npc_humor[$ARGS[1]] = 3 and rand(0,1) = 1:
+								$SMSTRee['ab6'] = 'phrasing'
+								$SMSTree['bb6'] = $SMSTree['a66']
+							else
+								$SMSTRee['ab6'] = 'cant wait'
+								$SMSTree['bb6'] = $SMSTree['ab6']
+							end
+end
+
+
+if $ARGS[0] = 'pre_planned_booty_call':
+	! boy
+	$SMSTree['0'] = dyneval('$result=''hey <<$pcs_nickname>>, you coming over?'' ')
+
+		! player choice 1 option 1
+		$SMSTree['a1'] = 'sorry, something came up'
+
+		! player choice 1 option 2
+		$SMSTree['b1'] = 'on my way now'
+
+			! boy
+			temp_rand = rand(0, 2)
+			if temp_rand = 0:
+				$SMSTree['b2'] = 'come over to my place lets fuck like bunnies'
+			elseif temp_rand = 1:
+				$SMSTree['b2'] = 'come over to my place i want to hear you screaming my name'
 			else
-				if rand(0,1) = 1:
-					$VM['2b'] = 'lets fuck like bunnies today'
-				else
-					$VM['2b'] = 'come over lets have some fun today'
-				end
+				$SMSTree['b2'] = 'come over to my place lets have some fun today'
 			end
-		end
-	end
-	
-	!! player response 2 option 1
-	if hour < 21:
-		$VF['2a'] = 'sorry, i cant. i have stuff to do'
-	else
-		$VF['2a'] = 'its late. text me sooner if you want me to come over.'
-	end
-	
-	!! boy response 2 option 1
-	$VM['3a'] = 'shit, maybe next time then'
-	
-	!! player response 2 option 2
-	$VF['2b'] = 'ill come right now ;)'
-	
-	!! boy response 2 option 2
-	if npc_humor[$ARGS[1]] <= 1 and rand(0,1) = 1:
-		$VM['3b'] = 'im already hard'
-	elseif npc_humor[$ARGS[1]] = 2 and rand(0,1) = 1:
-		if rand(0,1) = 1:
-			$VM['3b'] = 'in the street?? damn! keep it in your pants till you get here!'
-		else
-			$VM['3b'] = 'as long as you make me cum later'
-		end
-	elseif npc_humor[$ARGS[1]] = 3 and rand(0,1) = 1:
-		$VM['3b'] = 'phrasing'
-	else
-		$VM['3b'] = 'cant wait'
-	end
-end
+			killvar 'temp_rand'
 
-if $ARGS[0] = 'pre_planned_booty_call':	
-	$VM['0'] = dyneval('$result=''hey <<$pcs_nickname>>, you coming over?'' ')
+				! player choice 2 option 1
+				$SMSTree['ba3'] = 'sorry, i cant. i have stuff to do'
 
-	$VF['1a'] = 'sorry, something came up'
-	$VF['1b'] = 'on my way now'
+					! boy
+					$SMSTree['ba4'] = 'shit, maybe next time then'
 
-	if rand(0,2) = 0:
-		$VM['2b'] = 'come over to my place lets fuck like bunnies'
-	else
-		if rand(0,1) = 0:
-			$VM['2b'] = 'come over to my place i want to hear you screaming my name'
-		else
-			$VM['2b'] = 'come over to my place lets have some fun today'
-		end
-	end
 
-	$VF['2a'] = 'sorry, i cant. i have stuff to do'
-	$VM['3a'] = 'shit, maybe next time then'
-
-	$VF['2b'] = 'ill come right now ;)'
-	if npc_humor[$ARGS[1]] <= 1:
-		$VM['3b'] = 'im already hard'
-	elseif npc_humor[$ARGS[1]] = 2:
-		if rand(0,1) = 1:
-			$VM['3b'] = 'in the street?? damn! keep it in your pants till you get here!'
-		else
-			$VM['3b'] = 'as long as you make me cum later'
-		end
-	elseif npc_humor[$ARGS[1]] = 3:
-		if rand(0,1) = 1:
-			$VM['3b'] = 'phrasing'
-		else
-			$VM['3b'] = 'as long as you make me cum later'
-		end
-	end
+				! player choice 2 opiton 2
+				$SMSTree['bb3'] = 'ill come right now ;)'
+
+					! boy
+					if npc_humor[$ARGS[1]] <= 1:
+						$SMSTree['bb4'] = 'im already hard'
+					elseif npc_humor[$ARGS[1]] = 2:
+						if rand(0,1) = 1:
+							$SMSTree['bb4'] = 'in the street?? damn! keep it in your pants till you get here!'
+						else
+							$SMSTree['bb4'] = 'as long as you make me cum later'
+						end
+					elseif npc_humor[$ARGS[1]] = 3:
+						if rand(0,1) = 1:
+							$SMSTree['bb4'] = 'phrasing'
+						else
+							$SMSTree['bb4'] = 'as long as you make me cum later'
+						end
+					end
 end
 
-if $ARGS[0] = 'std_free':	
+
+if $ARGS[0] = 'std_free':
 	!! boy
-	$VM['0'] = dyneval('$result=''hey <<$pcs_nickname>>'' ')
-	
-	!! player
-	$VF[$ARGS[1]+'0'] = dyneval('$result=''hey <<$npc_nickname[$ARGS[1]]>>'' ')
+	$SMSTree['0'] = dyneval('$result=''hey <<$pcs_nickname>>'' ')
 	
-	!! boy
-	$VM['1'] = 'got some good news'
+		!! player
+		$SMSTree['1'] = dyneval('$result=''hey <<$npc_nickname[$ARGS[1]]>>'' ')
 	
-	!! player response 1 option 1
-	$VF['1a'] = 'oh?'
+			!! boy
+			$SMSTree['2'] = 'got some good news'
 	
-	!! boy response 1
-	$VM['2a'] = 'my std test came back clean. why dont we celebrate tog'
+				!! player response 1 option 1
+				$SMSTree['a3'] = 'oh?'
 	
-	!! player response 1 option 2
-	$VF['1b'] = 'what is it?'
+					!! boy response 1
+					$SMSTree['a4'] = 'my std test came back clean. why dont we celebrate tog'
 	
-	!! boy response 2
-	$VM['2a'] = 'my std test came back clean'
+				!! player response 1 option 2
+				$SMSTree['b3'] = 'what is it?'
 	
-	!! player response 2 option 1
-	if hour < 21:
-		$VF['2a'] = 'sorry, i cant. i have stuff to do'
-	else
-		$VF['2a'] = 'its late. text me sooner if you want me to come over.'
-	end
+					!! boy response 2
+					$SMSTree['b4'] = 'my std test came back clean'
+
+
+						!! player response 2 option 1
+						if hour < 21:
+							$SMSTree['aa5'] = 'sorry, i cant. i have stuff to do'
+							$SMSTree['ba5'] = $SMSTree['aa5']
+						else
+							$SMSTree['aa5'] = 'its late. text me sooner if you want me to come over.'
+							$SMSTree['ba5'] = $SMSTree['aa5']
+						end
 	
-	!! boy response 2 option 1
-	$VM['3a'] = 'shit, maybe next time then'
+							!! boy response 2 option 1
+							$SMSTree['aa6'] = 'shit, maybe next time then'
+							$SMSTree['ba6'] = $SMSTree['aa6']
 	
-	!! player response 2 option 2
-	$VF['2b'] = 'ill come right now ;)'
+						!! player response 2 option 2
+						$SMSTree['ab5'] = 'ill come right now ;)'
+						$SMSTree['bb5'] = $SMSTree['ab5']
 	
-	!! boy response 2 option 2
-	if npc_humor[$ARGS[1]] <= 1 and rand(0,1) = 1:
-		$VM['3b'] = 'im already hard'
-	elseif npc_humor[$ARGS[1]] = 2 and rand(0,1) = 1:
-		if rand(0,1) = 1:
-			$VM['3b'] = 'in the street?? damn! keep it in your pants till you get here!'
-		else
-			$VM['3b'] = 'as long as you make me cum later'
-		end
-	elseif npc_humor[$ARGS[1]] = 3 and rand(0,1) = 1:
-		$VM['3b'] = 'phrasing'
-	else
-		$VM['3b'] = 'cant wait'
-	end
+							!! boy response 2 option 2
+							if npc_humor[$ARGS[1]] <= 1 and rand(0,1) = 1:
+								$SMSTree['ab6'] = 'im already hard'
+								$SMSTree['bb6'] = $SMSTree['ab6']
+							elseif npc_humor[$ARGS[1]] = 2 and rand(0,1) = 1:
+								if rand(0,1) = 1:
+									$SMSTree['ab6'] = 'in the street?? damn! keep it in your pants till you get here!'
+									$SMSTree['bb6'] = $SMSTree['ab6']
+								else
+									$SMSTree['ab6'] = 'as long as you make me cum later'
+									$SMSTree['bb6'] = $SMSTree['ab6']
+								end
+							elseif npc_humor[$ARGS[1]] = 3 and rand(0,1) = 1:
+								$SMSTree['ab6'] = 'phrasing'
+								$SMSTree['bb6'] = $SMSTree['ab6']
+							else
+								$SMSTree['ab6'] = 'cant wait'
+								$SMSTree['bb6'] = $SMSTree['ab6']
+							end
 end
 
 
 if $ARGS[0] = 'sugar_daddy_booty_call':	
 	!! boy
-	$VM['0'] = dyneval('$result=''hey <<$pcs_nickname>>'' ')
-	
-	!! player
-	$VF[$ARGS[1]+'0'] = dyneval('$result=''hey <<$npc_nickname[$ARGS[1]]>>'' ')
-	
-	!! boy
-	$VM['1'] = 'ive been thinking about you'
-	
-	!! player response 1 option 1
-	$VF['1a'] = 'what were you thinking about?'
-	
-	!! boy response 1 option 1
-	if ($home['current'] ! 'city_apartment' and $home['current'] ! 'niko_apartment' and $home['current'] ! 'university_dorm' and $home['current'] ! 'city_house' and $home['current'] ! 'maid_bedroom') and npc_residence[$ARGS[1]] >= 3:
-		$VM['2a'] = 'i booked a hotel room in Pav. why dont you come by?'
-	else
-		$VM['2a'] = 'i want to see you. why dont you come by my apartment?'
-	end
+	$SMSTree['0'] = dyneval('$result=''hey <<$pcs_nickname>>'' ')
+		
+		!! player
+		$SMSTree['1'] = dyneval('$result=''hey <<$npc_nickname[$ARGS[1]]>>'' ')
 	
-	!! player response 1 option 2
-	$VF['1b'] = 'me too'
-	
-	!! boy response 2 option 2
-	if ($home['current'] ! 'city_apartment' and $home['current'] ! 'niko_apartment' and $home['current'] ! 'university_dorm' and $home['current'] ! 'city_house' and $home['current'] ! 'maid_bedroom') and npc_residence[$ARGS[1]] >= 3:
-		$VM['2a'] = 'i booked a hotel room in Pav. why dont you come by?'
-	else
-		$VM['2a'] = 'i want to see you. why dont you come by my apartment?'
-	end
-	
-	!! player response 2 option 1
-	if hour < 21:
-		$VF['2a'] = 'sorry, i cant. i have stuff to do'
-	else
-		$VF['2a'] = 'its late. text me sooner if you want me to come over.'
-	end
+			!! boy
+			$SMSTree['2'] = 'ive been thinking about you'
 	
-	!! boy response 2 option 1
-	$VM['3a'] = 'damn scheduling conflicts'
-	
-	!! player response 2 option 2
-	$VF['2b'] = 'ill come right now ;)'
+				!! player response 1 option 1
+				$SMSTree['a3'] = 'what were you thinking about?'
+
+
+				!! player response 1 option 2
+				$SMSTree['b3'] = 'me too'
 	
-	!! boy response 2 option 2
-	if ($home['current'] = 'parents_home' or $home['current'] = 'meynold_household' or $home['current'] = 'shared_apartment') and npc_residence[$ARGS[1]] >= 3:
-		$VM['3b'] = 'room <<rand(1,3)>><<rand(10,19)>>'
-	else
-		if npc_humor[$ARGS[1]] <= 1 and rand(0,1) = 1:
-			$VM['3b'] = 'im already hard'
-		elseif npc_humor[$ARGS[1]] = 2 and rand(0,1) = 1:
-			$VM['3b'] = 'as long as you make me cum later'
-		elseif npc_humor[$ARGS[1]] = 3 and rand(0,1) = 1:
-			$VM['3b'] = 'phrasing'
-		else
-			$VM['3b'] = 'cant wait'
-		end
-	end
+					!! boy response 1 option 1
+					if ($home['current'] ! 'city_apartment' and $home['current'] ! 'niko_apartment' and $home['current'] ! 'university_dorm' and $home['current'] ! 'city_house' and $home['current'] ! 'maid_bedroom') and npc_residence[$ARGS[1]] >= 3:
+						$SMSTree['a4'] = 'i booked a hotel room in Pav. why dont you come by?'
+						$SMSTree['b4'] = $SMSTree['a4']
+					else
+						$SMSTree['a4'] = 'i want to see you. why dont you come by my apartment?'
+						$SMSTree['b4'] = $SMSTree['a4']
+					end
+
+						!! player response 2 option 1
+						if hour < 21:
+							$SMSTree['aa5'] = 'sorry, i cant. i have stuff to do'
+							$SMSTree['ba5'] = $SMSTree['aa5']
+						else
+							$SMSTree['aa5'] = 'its late. text me sooner if you want me to come over.'
+							$SMSTree['ba5'] = $SMSTree['aa5']
+						end
+
+							!! boy response 2 option 1
+							$SMSTRee['aa6'] = 'damn scheduling conflicts'
+							$SMSTree['ba6'] = $SMSTree['aa6']
+
+
+						!! player response 2 option 2
+						$SMSTree['ab5'] = 'ill come right now ;)'
+						$SMSTree['bb5'] = $SMSTree['ab5']
+							
+							!! boy response 2 option 2
+							if ($home['current'] = 'parents_home' or $home['current'] = 'meynold_household' or $home['current'] = 'shared_apartment') and npc_residence[$ARGS[1]] >= 3:
+								$SMSTree['ab6'] = 'room <<rand(1,3)>><<rand(10,19)>>'
+								$SMSTree['bb6'] = $SMSTree['ab6']
+							else
+								if npc_humor[$ARGS[1]] <= 1 and rand(0,1) = 1:
+									$SMSTree['ab6'] = 'im already hard'
+									$SMSTree['bb6'] = $SMSTree['ab6']
+								elseif npc_humor[$ARGS[1]] = 2 and rand(0,1) = 1:
+									$SMSTree['ab6'] = 'as long as you make me cum later'
+									$SMSTree['bb6'] = $SMSTree['ab6']
+								elseif npc_humor[$ARGS[1]] = 3 and rand(0,1) = 1:
+									$SMSTree['ab6'] = 'phrasing'
+									$SMSTree['bb6'] = $SMSTree['ab6']
+								else
+									$SMSTree['ab6'] = 'cant wait'
+									$SMSTree['bb6'] = $SMSTree['ab6']
+								end
+							end
 end
 
+
+!Does not work with pre-planned?
 if $ARGS[0] = 'Add SMS':
-	$trialSMS  = $SMSFrM+$VM['0']+$SMSBkM
-	$trialSMS += '<table><tr><th> Reply</th></tr>'
-	$trialSMS += '<tr><td><a href="exec: gs ''booty_call_sms'', ''V0'',telefon[''SMSid'']">'+$VF[$ARGS[1]+'0']+'</a></td></tr></table>'
-	gs 'telefon', 'add_sms', $ARGS[1], $trialSMS
+	gs 'booty_call_sms', $ARGS[1], $ARGS[2]
+
+	$temp_SMStext += $SMS_open_receiving + $SMSTree['0'] + $SMS_close_receiving
+	$temp_SMStext += $SMS_open_replies
+		$temp_SMStext += '<a href="exec: gs ''booty_call_sms'', ''SMS_Base'', ''<<$ARGS[1]>>'', ''<<$ARGS[2]>>'', telefon[''SMSid'']">' + $SMSTree['1'] + '</a>'
+	$temp_SMStext += $SMS_close_replies
+
+	gs 'telefon', 'add_sms', $ARGS[1], $temp_SMStext
+end
+
+
+if $ARGS[0] = 'SMS_Base':
+!if $ARGS[0] = 'V0':
+	gs 'booty_call_sms', $ARGS[1], $ARGS[2]
+
+	$temp_SMStext  = $SMS_open_receiving + $SMSTree['0'] + $SMS_close_receiving
+	$temp_SMStext += $SMS_open_sending + $SMSTree['1'] + $SMS_close_sending
+	$SMSMessage[ARGS[3]] = $temp_SMStext
+
+	gs 'telefon', 'show_sms', ARGS[3]
+	wait 500
+
+	$temp_SMStext += $SMS_open_receiving + $SMSTree['2'] + $SMS_close_receiving
+	$temp_SMStext += $SMS_open_replies
+		$temp_SMStext += '<a href="exec: gs ''booty_call_sms'', ''Choice_a'', ''<<$ARGS[1]>>'', ''<<$ARGS[2]>>'', telefon[''SMSid'']">' + $SMSTree['a3'] + '</a>'
+		$temp_SMStext += $SMS_next_reply
+		$temp_SMStext += '<a href="exec: gs ''booty_call_sms'', ''Choice_b'', ''<<$ARGS[1]>>'', ''<<$ARGS[2]>>'', telefon[''SMSid'']">' + $SMSTree['b3'] + '</a>'
+	$temp_SMStext += $SMS_close_replies
+
+	$SMSMessage[ARGS[3]] = $temp_SMStext
+	gs 'telefon', 'show_sms', ARGS[3]
 end
 
-if $ARGS[0] = 'V0':
-	$trialSMS   = $SMSFrM+$VM['0']+$SMSBkM
-	$trialSMS  += $SMSFrF+$VF[$SMSContact[ARGS[1]]+'0']+$SMSBkF
-	$SMSMessage[ARGS[1]] = $trialSMS
-	gs 'telefon', 'show_sms', ARGS[1]
+
+if $ARGS[0] = 'Choice_a':
+	gs 'booty_call_sms', $ARGS[1], $ARGS[2]
+
+	$temp_SMStext  = $SMS_open_receiving + $SMSTree['0'] + $SMS_close_receiving
+	$temp_SMStext += $SMS_open_sending + $SMSTree['1'] + $SMS_close_sending
+	$temp_SMStext += $SMS_open_receiving + $SMSTree['2'] + $SMS_close_receiving
+	$temp_SMStext += $SMS_open_sending + $SMSTree['a3'] + $SMS_close_sending
+	$SMSMessage[ARGS[3]] = $temp_SMStext
+
+	gs 'telefon', 'show_sms', ARGS[3]
+	wait 500
+
+	$temp_SMStext += $SMS_open_receiving + $SMSTree['a4'] + $SMS_close_receiving
+	$temp_SMStext += $SMS_open_replies
+		$temp_SMStext += '<a href="exec: gs ''booty_call_sms'', ''Choice_aa'', ''<<$ARGS[1]>>'', ''<<$ARGS[2]>>'', telefon[''SMSid'']">' + $SMSTree['aa5'] + '</a>'
+		$temp_SMStext += $SMS_next_reply
+		$temp_SMStext += '<a href="exec: gs ''booty_call_sms'', ''Choice_ab'', ''<<$ARGS[1]>>'', ''<<$ARGS[2]>>'', telefon[''SMSid'']">' + $SMSTree['ab5'] + '</a>'
+	$temp_SMStext += $SMS_close_replies
+	$SMSMessage[ARGS[3]] = $temp_SMStext
+
+	gs 'telefon', 'show_sms', ARGS[3]
+end
+
+if $ARGS[0] = 'Choice_aa':
+	!! booty call is declined
+	
+	gs 'booty_call_sms', $ARGS[1], $ARGS[2]
+
+	$temp_SMStext  = $SMS_open_receiving + $SMSTree['0'] + $SMS_close_receiving
+	$temp_SMStext += $SMS_open_sending + $SMSTree['1'] + $SMS_close_sending
+	$temp_SMStext += $SMS_open_receiving + $SMSTree['2'] + $SMS_close_receiving
+	$temp_SMStext += $SMS_open_sending + $SMSTree['a3'] + $SMS_close_sending
+	$temp_SMStext += $SMS_open_receiving + $SMSTree['a4'] + $SMS_close_receiving
+	$temp_SMStext += $SMS_open_sending + $SMSTree['aa5'] + $SMS_close_sending
+	$SMSMessage[ARGS[3]] = $temp_SMStext
+
+	gs 'telefon', 'show_sms', ARGS[3]
+
+	if sugar_daddy_call[$ARGS[2]] = 1:
+		npc_rel[$ARGS[2]] -= 2
+		sugar_daddy_call[$ARGS[2]] = 0
+	end
+
 	wait 500
-	$trialSMS += $SMSFrM+$VM['1']+$SMSBkM
-	$trialSMS += '<table><tr><th> Reply</th></tr>'
-	$trialSMS += '<tr><td><a href="exec: gs ''booty_call_sms'', ''V1a'',telefon[''SMSid'']">'+$VF['1a']+'</a></td></tr>'
-	$trialSMS += '<tr><td><a href="exec: gs ''booty_call_sms'', ''V1b'',telefon[''SMSid'']">'+$VF['1b']+'</a></td></tr></table>'
-	$SMSMessage[ARGS[1]] = $trialSMS
-	gs 'telefon', 'show_sms', ARGS[1]
+
+	$temp_SMStext += $SMS_open_receiving + $SMSTree['aa6'] + $SMS_close_receiving
+	$SMSMessage[ARGS[3]] = $temp_SMStext
+
+	gs 'telefon', 'show_sms', ARGS[3]
 end
 
+if $ARGS[0] = 'Choice_ab':
+	!! booty call is accepted
+
+	gs 'booty_call_sms', $ARGS[1], $ARGS[2]
+
+	$temp_SMStext  = $SMS_open_receiving + $SMSTree['0'] + $SMS_close_receiving
+	$temp_SMStext += $SMS_open_sending + $SMSTree['1'] + $SMS_close_sending
+	$temp_SMStext += $SMS_open_receiving + $SMSTree['2'] + $SMS_close_receiving
+	$temp_SMStext += $SMS_open_sending + $SMSTree['a3'] + $SMS_close_sending
+	$temp_SMStext += $SMS_open_receiving + $SMSTree['a4'] + $SMS_close_receiving
+	$temp_SMStext += $SMS_open_sending + $SMSTree['ab5'] + $SMS_close_sending
+	$SMSMessage[ARGS[3]] = $temp_SMStext
 
-if $ARGS[0] = 'V1a':
-	$trialSMS   = $SMSFrM+$VM['0']+$SMSBkM
-	$trialSMS  += $SMSFrF+$VF[$SMSContact[ARGS[1]]+'0']+$SMSBkF
-	$trialSMS  += $SMSFrM+$VM['1']+$SMSBkM
-	$trialSMS  += $SMSFrF+$VF['1a']+$SMSBkF
-	$SMSMessage[ARGS[1]] = $trialSMS
-	gs 'telefon', 'show_sms', ARGS[1]
+	gs 'telefon', 'show_sms', ARGS[3]
 	wait 500
-	$trialSMS += $SMSFrM+$VM['2a']+$SMSBkM
-	$trialSMS += '<table><tr><th> Reply</th></tr>'
-	$trialSMS += '<tr><td><a href="exec: gs ''booty_call_sms'', ''V2an'',telefon[''SMSid'']">'+$VF['2a']+'</a></td></tr>'
-	$trialSMS += '<tr><td><a href="exec: gs ''booty_call_sms'', ''V2ap'',telefon[''SMSid'']">'+$VF['2b']+'</a></td></tr></table>'
-	$SMSMessage[ARGS[1]] = $trialSMS
-	gs 'telefon', 'show_sms', ARGS[1]
+
+	$temp_SMStext += $SMS_open_receiving + $SMSTree['ab6'] + $SMS_close_receiving
+	$SMSMessage[ARGS[3]] = $temp_SMStext
+
+	gs 'telefon', 'show_sms', ARGS[3]
+
+	booty_call_invite[$ARGS[2]] = daystart
+	if npc_finance[$ARGS[2]] = 2 and func('homes_properties_attr', 'get_property_attribute', '$town', $home['current']) ! 'city' and npc_residence[$ARGS[2]] >= 3:
+		$booty_call_hotel[$ARGS[2]] = 'pav'
+	else
+		$booty_call_hotel[$ARGS[2]] = 'city'
+	end
 end
 
 
-if $ARGS[0] = 'V1b':
-	$trialSMS   = $SMSFrM+$VM['0']+$SMSBkM
-	$trialSMS  += $SMSFrF+$VF[$SMSContact[ARGS[1]]+'0']+$SMSBkF
-	$trialSMS  += $SMSFrM+$VM['1']+$SMSBkM
-	$trialSMS  += $SMSFrF+$VF['1b']+$SMSBkF
-	$SMSMessage[ARGS[1]] = $trialSMS
-	gs 'telefon', 'show_sms', ARGS[1]
+
+
+if $ARGS[0] = 'Choice_b':
+	gs 'booty_call_sms', $ARGS[1], $ARGS[2]
+
+	$temp_SMStext  = $SMS_open_receiving + $SMSTree['0'] + $SMS_close_receiving
+	$temp_SMStext += $SMS_open_sending + $SMSTree['1'] + $SMS_close_sending
+	$temp_SMStext += $SMS_open_receiving + $SMSTree['2'] + $SMS_close_receiving
+	$temp_SMStext += $SMS_open_sending + $SMSTree['b3'] + $SMS_close_sending
+	$SMSMessage[ARGS[3]] = $temp_SMStext
+
+	gs 'telefon', 'show_sms', ARGS[3]
 	wait 500
-	$trialSMS += $SMSFrM+$VM['2b']+$SMSBkM
-	$trialSMS += '<table><tr><th> Reply</th></tr>'
-	$trialSMS += '<tr><td><a href="exec: gs ''booty_call_sms'', ''V2bn'',telefon[''SMSid'']">'+$VF['2a']+'</a></td></tr>'
-	$trialSMS += '<tr><td><a href="exec: gs ''booty_call_sms'', ''V2bp'',telefon[''SMSid'']">'+$VF['2b']+'</a></td></tr></table>'
-	$SMSMessage[ARGS[1]] = $trialSMS
-	gs 'telefon', 'show_sms', ARGS[1]
+
+	$temp_SMStext += $SMS_open_receiving + $SMSTree['b4'] + $SMS_close_receiving
+	$temp_SMStext += $SMS_open_replies
+		$temp_SMStext += '<a href="exec: gs ''booty_call_sms'', ''Choice_ba'', ''<<$ARGS[1]>>'', ''<<$ARGS[2]>>'', telefon[''SMSid'']">' + $SMSTree['ba5'] + '</a>'
+		$temp_SMStext += $SMS_next_reply
+		$temp_SMStext += '<a href="exec: gs ''booty_call_sms'', ''Choice_bb'', ''<<$ARGS[1]>>'', ''<<$ARGS[2]>>'', telefon[''SMSid'']">' + $SMSTree['bb5'] + '</a>'
+	$temp_SMStext += $SMS_close_replies
+	$SMSMessage[ARGS[3]] = $temp_SMStext
+
+	gs 'telefon', 'show_sms', ARGS[3]
 end
 
-if $ARGS[0] = 'V2an':
+
+
+if $ARGS[0] = 'Choice_ba':
 	!! booty call is declined
-	$trialSMS   = $SMSFrM+$VM['0']+$SMSBkM
-	$trialSMS += $SMSFrF+$VF[$SMSContact[ARGS[1]]+'0']+$SMSBkF
-	$trialSMS += $SMSFrM+$VM['1']+$SMSBkM
-	$trialSMS += $SMSFrF+$VF['1a']+$SMSBkF
-	$trialSMS += $SMSFrM+$VM['2a']+$SMSBkM
-	$trialSMS += $SMSFrF+$VF['2a']+$SMSBkF
-	$SMSMessage[ARGS[1]] = $trialSMS
-	gs 'telefon', 'show_sms', ARGS[1]
-	if sugar_daddy_call[$SMSContact[ARGS[1]]] = 1:
-		npc_rel[$SMSContact[ARGS[1]]] -= 2
-		sugar_daddy_call[$SMSContact[ARGS[1]]] = 0
+
+	gs 'booty_call_sms', $ARGS[1], $ARGS[2]
+
+	$temp_SMStext  = $SMS_open_receiving + $SMSTree['0'] + $SMS_close_receiving
+	$temp_SMStext += $SMS_open_sending + $SMSTree['1'] + $SMS_close_sending
+	$temp_SMStext += $SMS_open_receiving + $SMSTree['2'] + $SMS_close_receiving
+	$temp_SMStext += $SMS_open_sending + $SMSTree['b3'] + $SMS_close_sending
+	$temp_SMStext += $SMS_open_receiving + $SMSTree['b4'] + $SMS_close_receiving
+	$temp_SMStext += $SMS_open_sending + $SMSTree['ba5'] + $SMS_close_sending
+	$SMSMessage[ARGS[3]] = $temp_SMStext
+
+	gs 'telefon', 'show_sms', ARGS[3]
+	if sugar_daddy_call[$ARGS[2]] = 1:
+		npc_rel[$ARGS[2]] -= 2
+		sugar_daddy_call[$ARGS[2]] = 0
 	end
 	wait 500
-	$trialSMS += $SMSFrM+$VM['3a']+$SMSBkM
-	$SMSMessage[ARGS[1]] = $trialSMS
-	gs 'telefon', 'show_sms', ARGS[1]
+
+
+	$temp_SMStext += $SMS_open_receiving + $SMSTree['ba6'] + $SMS_close_receiving
+	$SMSMessage[ARGS[3]] = $temp_SMStext
+
+	gs 'telefon', 'show_sms', ARGS[3]
 end
 
-if $ARGS[0] = 'V2ap':
+if $ARGS[0] = 'Choice_bb':
 	!! booty call is accepted
-	$trialSMS  = $SMSFrM+$VM['0']+$SMSBkM
-	$trialSMS += $SMSFrF+$VF[$SMSContact[ARGS[1]]+'0']+$SMSBkF
-	$trialSMS += $SMSFrM+$VM['1']+$SMSBkM
-	$trialSMS += $SMSFrF+$VF['1a']+$SMSBkF
-	$trialSMS += $SMSFrM+$VM['2a']+$SMSBkM
-	$trialSMS += $SMSFrF+$VF['2b']+$SMSBkF
-	$SMSMessage[ARGS[1]] = $trialSMS
-	gs 'telefon', 'show_sms', ARGS[1]
+
+	gs 'booty_call_sms', $ARGS[1], $ARGS[2]
+
+	$temp_SMStext  = $SMS_open_receiving + $SMSTree['0'] + $SMS_close_receiving
+	$temp_SMStext += $SMS_open_sending + $SMSTree['1'] + $SMS_close_sending
+	$temp_SMStext += $SMS_open_receiving + $SMSTree['2'] + $SMS_close_receiving
+	$temp_SMStext += $SMS_open_sending + $SMSTree['b3'] + $SMS_close_sending
+	$temp_SMStext += $SMS_open_receiving + $SMSTree['b4'] + $SMS_close_receiving
+	$temp_SMStext += $SMS_open_sending + $SMSTree['bb5'] + $SMS_close_sending
+	$SMSMessage[ARGS[3]] = $temp_SMStext
+
+	gs 'telefon', 'show_sms', ARGS[3]
 	wait 500
-	$trialSMS += $SMSFrM+$VM['3b']+$SMSBkM
-	$SMSMessage[ARGS[1]] = $trialSMS
-	gs 'telefon', 'show_sms', ARGS[1]
-	booty_call_invite[$SMSContact[ARGS[1]]] = daystart
-	if npc_finance[$ARGS[1]] = 2 and func('homes_properties_attr', 'get_property_attribute', '$town', $home['current']) ! 'city' and npc_residence[$ARGS[1]] >= 3:
-		$booty_call_hotel[$ARGS[1]] = 'pav'
+	
+	$temp_SMStext += $SMS_open_receiving + $SMSTree['bb6'] + $SMS_close_receiving
+	$SMSMessage[ARGS[3]] = $temp_SMStext
+
+
+	gs 'telefon', 'show_sms', ARGS[3]
+	booty_call_invite[$ARGS[2]] = daystart
+!!	if ($home['current'] = 'parents_home' or $home['current'] = 'meynold_household' or $home['current'] = 'shared_apartment') and npc_residence[$SMSContact[ARGS[1]]] >= 3: 
+	if npc_finance[$ARGS[2]] = 2 and func('homes_properties_attr', 'get_property_attribute', '$town', $home['current']) ! 'city' and npc_residence[$ARGS[2]] >= 3:
+		$booty_call_hotel[$ARGS[2]] = 'pav'
 	else
-		$booty_call_hotel[$ARGS[1]] = 'city'
+		$booty_call_hotel[$ARGS[2]] = 'city'
 	end
 end
 
-if $ARGS[0] = 'V2bn':
+
+
+
+
+! For pre-planned
+if $ARGS[0] = 'Add SMS2':
+	gs 'booty_call_sms', $ARGS[1], $ARGS[2]
+
+	$temp_SMStext += $SMS_open_receiving + $SMSTree['0'] + $SMS_close_receiving
+	$temp_SMStext += $SMS_open_replies
+		$temp_SMStext += '<a href="exec: gs ''booty_call_sms'', ''Choice2_a'', ''<<$ARGS[1]>>'', ''<<$ARGS[2]>>'', telefon[''SMSid'']">' + $SMSTree['a1'] + '</a>'
+		$temp_SMStext += $SMS_next_reply
+		$temp_SMStext += '<a href="exec: gs ''booty_call_sms'', ''Choice2_b'', ''<<$ARGS[1]>>'', ''<<$ARGS[2]>>'', telefon[''SMSid'']">' + $SMSTree['b1'] + '</a>'
+	$temp_SMStext += $SMS_close_replies
+
+	gs 'telefon', 'add_sms', $ARGS[1], $temp_SMStext
+end
+
+
+if $ARGS[0] = 'Choice2_a':
+	gs 'booty_call_sms', $ARGS[1], $ARGS[2]
+
+	$temp_SMStext  = $SMS_open_receiving + $SMSTree['0'] + $SMS_close_receiving
+	$temp_SMStext += $SMS_open_sending + $SMSTree['a1'] + $SMS_close_sending
+	$SMSMessage[ARGS[3]] = $temp_SMStext
+
+	gs 'telefon', 'show_sms', ARGS[3]
+end
+
+
+
+if $ARGS[0] = 'Choice2_b':
+	gs 'booty_call_sms', $ARGS[1], $ARGS[2]
+
+	$temp_SMStext  = $SMS_open_receiving + $SMSTree['0'] + $SMS_close_receiving
+	$temp_SMStext += $SMS_open_sending + $SMSTree['b1'] + $SMS_close_sending
+	$SMSMessage[ARGS[3]] = $temp_SMStext
+
+	gs 'telefon', 'show_sms', ARGS[3]
+	wait 500
+
+	$temp_SMStext += $SMS_open_receiving + $SMSTree['b2'] + $SMS_close_receiving
+	$temp_SMStext += $SMS_open_replies
+		$temp_SMStext += '<a href="exec: gs ''booty_call_sms'', ''Choice2_ba'', ''<<$ARGS[1]>>'', ''<<$ARGS[2]>>'', telefon[''SMSid'']">' + $SMSTree['ba3'] + '</a>'
+		$temp_SMStext += $SMS_next_reply
+		$temp_SMStext += '<a href="exec: gs ''booty_call_sms'', ''Choice2_bb'', ''<<$ARGS[1]>>'', ''<<$ARGS[2]>>'', telefon[''SMSid'']">' + $SMSTree['bb3'] + '</a>'
+	$temp_SMStext += $SMS_close_replies
+	$SMSMessage[ARGS[3]] = $temp_SMStext
+
+	gs 'telefon', 'show_sms', ARGS[3]
+end
+
+
+
+if $ARGS[0] = 'Choice2_ba':
 	!! booty call is declined
-	$trialSMS  = $SMSFrM+$VM['0']+$SMSBkM
-	$trialSMS += $SMSFrF+$VF[$SMSContact[ARGS[1]]+'0']+$SMSBkF
-	$trialSMS += $SMSFrM+$VM['1']+$SMSBkM
-	$trialSMS += $SMSFrF+$VF['1b']+$SMSBkF
-	$trialSMS += $SMSFrM+$VM['2b']+$SMSBkM
-	$trialSMS += $SMSFrF+$VF['2a']+$SMSBkF
-	$SMSMessage[ARGS[1]] = $trialSMS
-	gs 'telefon', 'show_sms', ARGS[1]
-	if sugar_daddy_call[$SMSContact[ARGS[1]]] = 1:
-		npc_rel[$SMSContact[ARGS[1]]] -= 2
-		sugar_daddy_call[$SMSContact[ARGS[1]]] = 0
+
+	gs 'booty_call_sms', $ARGS[1], $ARGS[2]
+
+	$temp_SMStext  = $SMS_open_receiving + $SMSTree['0'] + $SMS_close_receiving
+	$temp_SMStext += $SMS_open_sending + $SMSTree['b1'] + $SMS_close_sending
+	$temp_SMStext += $SMS_open_receiving + $SMSTree['b2'] + $SMS_close_receiving
+	$temp_SMStext += $SMS_open_sending + $SMSTree['ba3'] + $SMS_close_sending
+	$SMSMessage[ARGS[3]] = $temp_SMStext
+
+	gs 'telefon', 'show_sms', ARGS[3]
+	if sugar_daddy_call[$ARGS[2]] = 1:
+		npc_rel[$ARGS[2]] -= 2
+		sugar_daddy_call[$ARGS[2]] = 0
 	end
 	wait 500
-	$trialSMS += $SMSFrM+$VM['3a']+$SMSBkM
-	$SMSMessage[ARGS[1]] = $trialSMS
-	gs 'telefon', 'show_sms', ARGS[1]
+
+
+	$temp_SMStext += $SMS_open_receiving + $SMSTree['ba4'] + $SMS_close_receiving
+	$SMSMessage[ARGS[3]] = $temp_SMStext
+
+	gs 'telefon', 'show_sms', ARGS[3]
 end
 
-if $ARGS[0] = 'V2bp':
+if $ARGS[0] = 'Choice2_bb':
 	!! booty call is accepted
-	$trialSMS  = $SMSFrM+$VM['0']+$SMSBkM
-	$trialSMS += $SMSFrF+$VF[$SMSContact[ARGS[1]]+'0']+$SMSBkF
-	$trialSMS += $SMSFrM+$VM['1']+$SMSBkM
-	$trialSMS += $SMSFrF+$VF['1b']+$SMSBkF
-	$trialSMS += $SMSFrM+$VM['2b']+$SMSBkM
-	$trialSMS += $SMSFrF+$VF['2b']+$SMSBkF
-	$SMSMessage[ARGS[1]] = $trialSMS
-	gs 'telefon', 'show_sms', ARGS[1]
+
+	gs 'booty_call_sms', $ARGS[1], $ARGS[2]
+	$temp_SMStext  = $SMS_open_receiving + $SMSTree['0'] + $SMS_close_receiving
+	$temp_SMStext += $SMS_open_sending + $SMSTree['b1'] + $SMS_close_sending
+	$temp_SMStext += $SMS_open_receiving + $SMSTree['b2'] + $SMS_close_receiving
+	$temp_SMStext += $SMS_open_sending + $SMSTree['bb3'] + $SMS_close_sending
+	$SMSMessage[ARGS[3]] = $temp_SMStext
+
+	gs 'telefon', 'show_sms', ARGS[3]
 	wait 500
-	$trialSMS += $SMSFrM+$VM['3b']+$SMSBkM
-	$SMSMessage[ARGS[1]] = $trialSMS
-	gs 'telefon', 'show_sms', ARGS[1]
-	booty_call_invite[$SMSContact[ARGS[1]]] = daystart
+	
+	$temp_SMStext += $SMS_open_receiving + $SMSTree['bb4'] + $SMS_close_receiving
+	$SMSMessage[ARGS[3]] = $temp_SMStext
+
+
+	gs 'telefon', 'show_sms', ARGS[3]
+	booty_call_invite[$ARGS[2]] = daystart
 !!	if ($home['current'] = 'parents_home' or $home['current'] = 'meynold_household' or $home['current'] = 'shared_apartment') and npc_residence[$SMSContact[ARGS[1]]] >= 3: 
-	if npc_finance[$ARGS[1]] = 2 and func('homes_properties_attr', 'get_property_attribute', '$town', $home['current']) ! 'city' and npc_residence[$ARGS[1]] >= 3:
-		$booty_call_hotel[$ARGS[1]] = 'pav'
+	if npc_finance[$ARGS[2]] = 2 and func('homes_properties_attr', 'get_property_attribute', '$town', $home['current']) ! 'city' and npc_residence[$ARGS[2]] >= 3:
+		$booty_call_hotel[$ARGS[2]] = 'pav'
 	else
-		$booty_call_hotel[$ARGS[1]] = 'city'
+		$booty_call_hotel[$ARGS[2]] = 'city'
 	end
-!!	killvar '$VF'
-!!	killvar '$MF'
 end
 
+
+
 killvar '$trialSMS'
+killvar '$SMSTree'
+killvar '$temp_SMStext'
 
 
 --- hookup_sms ---------------------------------