# booty_call
if $ARGS[0] = 'scheduler':
!! clear SMS
!! clear schedule
killvar 'booty_call_time'
killvar 'npc_booty_call'
killvar 'npc_booty_call_time'
i = 0
gs 'booty_call', 'scheduler2'
end
if $ARGS[0] = 'scheduler2':
if i <= arrsize('$fuckbuddy'):
gs 'booty_call', 'npc_stat_update'
!! if (rand(1,10) <= npc_sexdrive[$FuckBuddy[i]] or npc_booty_call[$FuckBuddy[i]] = daystart) and npc_rel[$FuckBuddy[i]] > 0 and npc_no_booty_call[$FuckBuddy[i]] ! daystart and npc_big_fight[$FuckBuddy[i]] < daystart - 7:
!! temporary removal of npc_rel requirement until boy initiated breakups can occur
!! if (rand(1,10) <= npc_sexdrive[$FuckBuddy[i]] or npc_booty_call[$FuckBuddy[i]] = daystart) and npc_no_booty_call[$FuckBuddy[i]] ! daystart and (npc_big_fight[$FuckBuddy[i]] < daystart - 7 and daystart > 7):
if $npc_rel_type[$FuckBuddy[i]] = 'sugar_daddy':
if npc_sugar_daddy_timer[$FuckBuddy[i]] - (npc_rel[$FuckBuddy[i]] / 10) > daystart:
npc_no_booty_call[$FuckBuddy[i]] = daystart
elseif (npc_booty_call_date[$FuckBuddy[i]] = daystart or rand(1,10) <= npc_sexdrive[$FuckBuddy[i]] or rand(1,100) <= npc_rel[$FuckBuddy[i]]) and npc_no_booty_call[$FuckBuddy[i]] ! daystart:
sugar_daddy_call[$FuckBuddy[i]] = 1
gs 'booty_call', 'scheduler3'
else
npc_no_booty_call[$FuckBuddy[i]] = daystart
end
else
if (npc_booty_call_date[$FuckBuddy[i]] = daystart or rand(1,10) <= npc_sexdrive[$FuckBuddy[i]] or rand(1,100) <= npc_rel[$FuckBuddy[i]]) and npc_no_booty_call[$FuckBuddy[i]] ! daystart:
gs 'booty_call', 'scheduler3'
else
npc_no_booty_call[$FuckBuddy[i]] = daystart
end
end
i += 1
gs 'booty_call', 'scheduler2'
end
end
if $ARGS[0] = 'scheduler3':
if npc_booty_call[$FuckBuddy[i]] = daystart:
booty_call_time[$FuckBuddy[i]] = ((npc_booty_call_time[$FuckBuddy[i]] * 60) + rand(0,180))
elseif week = npc_day_off[$FuckBuddy[i]]:
booty_call_time[$FuckBuddy[i]] = (600 + rand(0,720))
elseif week ! npc_day_off[$FuckBuddy[i]]:
booty_call_time[$FuckBuddy[i]] = (rand(npc_start_free_time[$FuckBuddy[i]],(npc_end_free_time[$FuckBuddy[i]] - 1)) * 60) + rand(0,180)
else
booty_call_time[$FuckBuddy[i]] = 2000
end
end
!! if npc_start_free_time[$FuckBuddy[i]] = 0 or npc_day_off[$FuckBuddy[i]] = 0 or npc_end_free_time[$FuckBuddy[i]] = 0:
!! $boy = $FuckBuddy[i]
!! end
!! if ((rand(1,10) <= npc_sexdrive[$FuckBuddy[i]] or npc_booty_call[$FuckBuddy[i]] = daystart) and (rand(1,npc_rel[$FuckBuddy[i]]) > 0)) and npc_no_booty_call[$FuckBuddy[i]] ! daystart and npc_big_fight[$FuckBuddy[i]] < daystart - 7:
!! elseif week < 6:
!! booty_call_time[$FuckBuddy[i]] = 900 + rand(0,210)
!! else
!! booty_call_time[$FuckBuddy[i]] = 600 + rand(0,720)
if $ARGS[0] = 'set_booty_call_date':
sex_ev['set_date'] = 1
if sex_ev['invite_today'] = 1 or hour < 5:
npc_booty_call_date[$boy] = daystart
elseif sex_ev['invite_tomorrow'] = 1:
npc_booty_call_date[$boy] = daystart + 1
end
if npc_booty_call_time[$boy] = 0:
npc_booty_call_time[$boy] = npc_start_free_time[$boy]
end
if $npc_rel_type[$boy] = 'sugar_daddy': sugar_daddy_call[$boy] = 1
end
if $ARGS[0] = 'block_booty_calls':
if sex_ev['invite_today'] = 1:
npc_booty_call_date[$boy] = 0
npc_no_booty_call[$boy] = daystart
npc_booty_call_time[$boy] = 0
elseif sex_ev['invite_tomorrow'] = 1:
npc_no_booty_call[$boy] = daystart + 1
end
end
if $ARGS[0] = 'SMS raiser':
i = 0
:booty_call_sms_raiser_loop
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]
booty_call_time[$FuckBuddy[i]] = 2399
!! this is a bit superfluous, but it makes the code run faster.
booty_call_invite[$FuckBuddy[i]] = daystart
end
i += 1
jump 'booty_call_sms_raiser_loop'
end
end
if $ARGS[0] = 'home_links':
i=0
*nl
:loopBC_homes
if (npc_residence[$Fuckbuddy[i]] = 1 and $loc = 'pav_residential') or (npc_residence[$Fuckbuddy[i]] = 3 and $loc = 'city_residential')or (npc_residence[$Fuckbuddy[i]] = 4 and $loc = 'city_center'):
dynamic(' ''<<$npc_firstname[$Fuckbuddy[i]]>>''''s apartment is nearby.'' ')
!! ''''
end
!! dynamic(' ''<<$npc_firstname[$Fuckbuddy[i]]>>''''s apartment is nearby.'' ')
i +=1
if i < arrsize('$Fuckbuddy') : jump 'loopBC_homes'
end
if $ARGS[0] = 'hotel_links':
i=0
*nl
:loopBC_hotel
if $booty_call_hotel[$Fuckbuddy[i]] = $region and booty_call_invite[$FuckBuddy[i]] = daystart:
dynamic(' ''<<$npc_firstname[$Fuckbuddy[i]]>> booked a hotel room to meet you in.'' ')
!! ''''
end
i +=1
if i < arrsize('$Fuckbuddy') : jump 'loopBC_hotel'
end
!! booty_call_invite['B0']
if $ARGS[0] = 'text':
!! boy code?
!! IMAGE HERE
'Your phone buzzes and you pull it out to see what''s happening. It''s a text from [boy code here].'
*nl
' hey <<$pcs_nickname>>'
'hey yourself'
*nl
'you text back.'
*nl
' i was thinking about you today'
act'What about?':
cla & *clr
!! IMAGE HERE
' i was thinking about you today'
'what were you thinking about?'
booty_call['text'] = rand(1,3)
if booty_call['text'] = 1:
' wanted to know if you wanted to come over to my place'
' have some fun?'
*nl
'You think you know what kind of fun he wants.'
elseif booty_call['text'] = 2:
' your mouth around my cock'
*nl
'You think you know what kind of fun he wants.'
elseif booty_call['text'] = 3:
' fucking you on my couch'
*nl
'You think you know what kind of fun he wants.'
end
end
act'Me too':
gt ''
end
act'About fucking me?':
gt ''
end
end
if $ARGS[0] = 'invite_yourself':
end
if $ARGS[0] = 'get_invited':
if rand(0,1) = 1:
'"Why don''t you come over to my place right now and we can have some fun?"'
else
'"Why don''t you come over to my place tonight and we can have some fun?"'
end
end
!! ----------------------- text dialogue saved for possible future usage later ---------------------------------------
if $ARGS[0] = 'text1':
!! boy code?
!! missing code
!! IMAGE HERE
'Your phone buzzes and you pull it out to see what''s happening. It''s a text from [boy code here].'
*nl
' hey <<$pcs_nickname>>'
'hey yourself'
*nl
'you text back.'
*nl
' i was thinking about you today'
act'What about?':
cla & *clr
!! IMAGE HERE
' i was thinking about you today'
'what were you thinking about?'
booty_call['text'] = rand(1,3)
if booty_call['text'] = 1:
' wanted to know if you wanted to come over to my place'
' have some fun?'
*nl
'You think you know what kind of fun he wants.'
elseif booty_call['text'] = 2:
' your mouth around my cock'
elseif booty_call['text'] = 3:
' fucking you on my bed'
end
gs'booty_call_start','text2'
end
act'Me too':
cla & *clr
!! IMAGE HERE
' i was thinking about you today'
'me too'
' come over'
!! booty_call['text'] = rand(1,3)
!! if booty_call['text'] = 1:
' lets fuck like bunnies'
end
end
if $ARGS[0] = 'text2':
act'Can''t':
cla & *nl
'sorry, i cant'
'i have stuff to do'
' shit'
' maybe next time then'
act'Put your phone away':gt'somewhere'
end
act'I''m on my way':
cla & *nl
'ill come right now ;)'
if npc_humor[$boy] <= 1:
' my cock is waiting for you'
elseif npc_humor[$boy] = 2:
' in the street?'
' damn!'
' keep it in your pants till you get here!'
elseif npc_humor[$boy] = 3:
' phrasing'
end
!! missing code
!! confirm player is coming over
act'Put away your phone':gt $loc, $loc_arg
end
act'I''ll swing by later':
cla & *nl
'not right now'
'but i can come by later?'
' when?'
act 'Pick a time':
cla & *clr
!! IMAGE HERE
!! missing code
!! fix this code to work with this event
contMeetHour[Call4Date["ContactIndex"]] = input ("When do you want to go over to his place? It is now <<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>>. [Enter the hour only <> - 22]")
if contMeetHour[Call4Date["ContactIndex"]] <= hour or contMeetHour[Call4Date["ContactIndex"]] > 23:contMeetHour[Call4Date["ContactIndex"]] = 20
'maybe around <>:00?'
'"How about <>:00?."'
'<<$Call4Date["CallerName"]>>, "Okay <<$Call4Date["SvetaName"]>>, see you at <>:00."'
act'Put away your phone':gt $loc, $loc_arg
end
end
end
if $ARGS[0] = 'invite_yourself1':
!! boy code?
!! missing code
!! IMAGE HERE
'You tap out a quick message on your and hit send.'
*nl
'hey'
'doing anything right now?'
*nl
!! missing code
!! better way of randomizing this? personality based?
if rand(1,3) = 3:
'You don''t receive a response. He must be busy.'
act'Put away your phone':gt $loc, $loc_arg
elseif rand(1,2) = 2 and hour < 18:
' im at work'
act'Sorry, never mind':
cla & *nl
'oh'
'sorry'
'never mind'
'i''ll text you later'
act'Put away your phone':gt $loc, $loc_arg
end
act'This is a booty call':
cla & *nl
'when do you get off?'
'this is a booty call'
' ill probably be free at 19:00'
' wanna come then?'
gs'booty_call_start','invite_yourself2'
end
act'I wanna fuck':
cla & *nl
'i wanna fuck'
'when do you get off?'
' ill probably be free at 19:00'
' wanna come then?'
gs'booty_call_start','invite_yourself2'
end
else
' i was thinking about your naked body in my bed'
act'How about right now?':
cla & *nl
'then we''re on the same page'
'can i come over now?'
' yes'
' hurry'
' i want to fuck you right now'
'i''m on my way <3'
!! missing code
act'Put away your phone':gt $loc, $loc_arg
end
act'Can I come later?':
cla & *nl
!! missing code
contMeetHour[Call4Date["ContactIndex"]] = input ("When do you want to go over to his place? It is now <<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>>. [Enter the hour only <> - 22]")
if contMeetHour[Call4Date["ContactIndex"]] <= hour or contMeetHour[Call4Date["ContactIndex"]] > 23:contMeetHour[Call4Date["ContactIndex"]] = 20
'then we''re on the same page'
'but i''m just trying to plan my day'
'can i come over at <>:00?'
' what the fuck am i supposed to do until then?'
act'I don''t know':
cla & *nl
'i dont know'
'figure something out til i get there'
act'Put away your phone':gt $loc, $loc_arg
end
act'Try to stay hard':
cla & *nl
'just try to stay hard'
'i don''t want to get there and find out my meat stick has gone soft'
act'Put away your phone':gt $loc, $loc_arg
end
act'Dream on it':
cla & *nl
'dream on it ;)'
act'Put away your phone':gt $loc, $loc_arg
end
end
end
end
if $ARGS[0] = 'invite_yourself2':
act'I''m busy then':
cla & *nl
'shit'
'im busy then'
'maybe another day'
!! missing code
!! add prevention so you can''t ask again today
act'Put away your phone':gt $loc, $loc_arg
end
act'Yes':
cla & *nl
'yeah, id like to come around that time ;)'
' great'
!! missing code
!! add event to schedule
act'Put away your phone':gt $loc, $loc_arg
end
end
!! ------------ NPC Stat Updater ------------------------
if $ARGS[0] = 'npc_stat_update':
if npc_start_free_time[$FuckBuddy[i]] = 0 or npc_day_off[$FuckBuddy[i]] = 0:
if npc_finance[$FuckBuddy[i]] = 0:
if rand(1,3) = 1:
npc_start_free_time[$FuckBuddy[i]] = 9
npc_end_free_time[$FuckBuddy[i]] = 12
elseif rand(1,2) = 1:
npc_start_free_time[$FuckBuddy[i]] = 16
npc_end_free_time[$FuckBuddy[i]] = 20
else
npc_start_free_time[$FuckBuddy[i]] = 20
npc_end_free_time[$FuckBuddy[i]] = 23
end
elseif npc_finance[$FuckBuddy[i]] = 1:
if rand(1,2) = 1:
npc_start_free_time[$FuckBuddy[i]] = 9
npc_end_free_time[$FuckBuddy[i]] = 12
else
npc_start_free_time[$FuckBuddy[i]] = 20
npc_end_free_time[$FuckBuddy[i]] = 23
end
elseif npc_finance[$FuckBuddy[i]] = 2:
if rand(1,2) = 1:
npc_start_free_time[$npclastgenerated] = 8
npc_end_free_time[$npclastgenerated] = 12
npc_work_start[$npclastgenerated] = 13
npc_work_end[$npclastgenerated] = 21
else
npc_start_free_time[$npclastgenerated] = 18
npc_end_free_time[$npclastgenerated] = 22
npc_work_start[$npclastgenerated] = 9
npc_work_end[$npclastgenerated] = 17
end
npc_apt_type[$FuckBuddy[i]] = 5
!!npc_apt_type[$npclastgenerated] = rand(5,6)
!! apt_type 6 is disabled until pictures are added
npc_occupation[$FuckBuddy[i]] = rand(14,18)
npc_car[$FuckBuddy[i]] = rand(0,1)
end
npc_day_off[$FuckBuddy[i]] = rand(1,7)
end
end
!! ------------ Legacy Backup ------------------------
if $ARGS[0] = 'draw':
! this routine should invoke a the booty call sms from random friend in $lover list
! but I cannnot randomize the time because the probability is 100 % now
! I suppose that the routine will be modified later to take in account the lovers preferences
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
booty_call['A0'] = daystart
end
end
--- booty_call ---------------------------------