# 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>'

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]
	else
		gs 'booty_call_sms', 'default_booty_call', $FuckBuddy[i]
	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 ($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
		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'
	
	!! boy response 2
	if npc_finance[$ARGS[1]] = 2 and ($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
		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'			
			else
				if rand(0,1) = 1:
					$VM['2b'] = 'lets fuck like bunnies today'
				else
					$VM['2b'] = 'come over lets have some fun today'
				end
			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

if $ARGS[0] = 'pre_planned_booty_call':	
	$VM['0'] = dyneval('$result=''hey <<$pcs_nickname>>, you coming over?'' ')

	$VF['1a'] = 'sorry, something came up'
	$VF['1b'] = 'on my way now'

	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
end

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]]>>'' ')
	
	!! boy
	$VM['1'] = 'got some good news'
	
	!! player response 1 option 1
	$VF['1a'] = 'oh?'
	
	!! boy response 1
	$VM['2a'] = 'my std test came back clean. why dont we celebrate tog'
	
	!! player response 1 option 2
	$VF['1b'] = 'what is it?'
	
	!! boy response 2
	$VM['2a'] = 'my std test came back clean'
	
	!! 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


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
	
	!! 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 response 2 option 1
	$VM['3a'] = 'damn scheduling conflicts'
	
	!! player response 2 option 2
	$VF['2b'] = 'ill come right now ;)'
	
	!! 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
end

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
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]
	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]
end


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]
	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]
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]
	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]
end

if $ARGS[0] = 'V2an':
	!! 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
	end
	wait 500
	$trialSMS += $SMSFrM+$VM['3a']+$SMSBkM
	$SMSMessage[ARGS[1]] = $trialSMS
	gs 'telefon', 'show_sms', ARGS[1]
end

if $ARGS[0] = 'V2ap':
	!! 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]
	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 ($home['current'] = 'parents_home' or $home['current'] = 'meynold_household' or $home['current'] = 'shared_apartment') and npc_residence[$SMSContact[ARGS[1]]] >= 3: $booty_call_hotel[$SMSContact[ARGS[1]]] = 'pav'
end

if $ARGS[0] = 'V2bn':
	!! 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
	end
	wait 500
	$trialSMS += $SMSFrM+$VM['3a']+$SMSBkM
	$SMSMessage[ARGS[1]] = $trialSMS
	gs 'telefon', 'show_sms', ARGS[1]
end

if $ARGS[0] = 'V2bp':
	!! 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]
	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 ($home['current'] = 'parents_home' or $home['current'] = 'meynold_household' or $home['current'] = 'shared_apartment') and npc_residence[$SMSContact[ARGS[1]]] >= 3: $booty_call_hotel[$SMSContact[ARGS[1]]] = 'pav'
!!	killvar '$VF'
!!	killvar '$MF'
end

killvar '$trialSMS'


--- hookup_sms ---------------------------------
