add scheduler

locations/booty_call.qsrc

@@ -1,4 +1,35 @@
 # booty_call
+if $ARGS[0] = 'scheduler':
+	i = 0
+	:booty_call_time_sched_loop
+	if i < ARRSIZE('$FuckBuddy'):
+		!! clear SMS
+		!! clear schedule
+		killvar 'booty_call_time'
+		if (rand(1,10) <= npc_sexdrive[$FuckBuddy[i]]) and (rand(1,npc_rel[$FuckBuddy[i]]) > 0):
+			booty_call_time[$FuckBuddy[i]] = 900 + rand(0,210)
+		else
+			booty_call_time[$FuckBuddy[i]] = 2000
+		end
+		i += 1
+		jump 'booty_call_time_sched_loop'
+	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*24+minut:
+			gs 'booty_call_sms', 'start',$FuckBuddy[i]
+			gs 'booty_call_sms', 'Add SMS', $FuckBuddy[i]
+			booty_call_time[$FuckBuddy[i]] = 2000
+		end
+		i += 1
+		jump 'booty_call_sms_raiser_loop'
+	end
+end
+
 
 if $ARGS[0] = 'text':
 	!! boy code?