glife/locations/sleep.qsrc

# sleep
$sleep_loc = 'sleep'

!! Deals with the sleep cycle, advancing both time and stats during sleep.
!!
!! Moved here from dream_events
!! When busy moves back and forth to sleep_events (and can be redirected from there)
!! When done: Move to wakeup

if $ARGS[0] = 'full':
	msg 'gt ''sleep'', ''full'' is depricated! If you did not load an old save, please report this bug.'
	gt 'pre_sleep_events', 'start'
end

if $ARGS[0] = 'sleep':
	msg 'gt ''sleep'', ''sleep'' is depricated! If you did not load an old save, please report this bug.'
	gt 'pre_sleep', 'prepare_sleep'
end

if $ARGS[0] = 'dream':
	msg 'gt ''sleep'', ''dream'' is depricated! If you did not load an old save, please report this bug.'
	gt 'dream_events', 'start'
end

if $ARGS[0] = 'wake':
	msg 'gt ''sleep'', ''wake'' is depricated! If you did not load an old save, please report this bug.'
	gt 'wakeup', 'start'
end

if $ARGS[0] = 'end':
	msg 'gt ''sleep'', ''end'' is depricated! If you did not load an old save, please report this bug.'
	gt 'bed_get_out', 'start'
end

if $ARGS[0] = '':
	msg 'gt ''sleep'', is depricated! If you did not load an old save, please report this bug.'
	gt 'pre_sleep', 'start'
	
end




if $ARGS[0] = 'start':
	menu_off = 1
!! to avoid sleeping the whole day I decide to calcululate the duration of the sleep in advance
!! the quality of the sleep depends on many factors, so the time of sleep can be modify later, especially the part when the time of sleep is shortened

	sleepVars['time_to_full'] = (100 - pcs_sleep) * 6
!! fully exhausted Sveta can recover in 420 minutes = 7 hours of sleep
!! healthy Sveta can hardly sleep more then 10 hours = 600 minutes
!! so we can add about 3 hours to time to full as a limit
	sleepVars['time_to_full'] += 150 + rand(0, 60)

	sleepVars['time_now'] = daystart * 1440 + hour * 60 + minut

	if alarmVars['alarmOn'] = 1:
		if alarmVars['alarm_holiday'] = 1 and kanikuli ! 0 or ((hour < alarmVars['timerEndH'] and (week = 6 or week = 7)) or (hour => alarmVars['timerEndH'] and (week = 5 or week = 6))):
		!! use weekend time alarm
			sleepVars['alarm_time'] = daystart * 1440 + alarmVars['timerEndH'] * 60 + alarmVars['timerEndM']
			if sleepVars['time_now'] >= sleepVars['alarm_time']: sleepVars['alarm_time'] += 1440
			sleepVars['minutes_to_wakeup'] = min(sleepVars['time_to_full'], sleepVars['alarm_time'] - sleepVars['time_now'])
		else
			sleepVars['alarm_time'] = daystart * 1440 + alarmVars['timerH'] * 60 + alarmVars['timerM']
			if sleepVars['time_now'] >= sleepVars['alarm_time']: sleepVars['alarm_time'] += 1440
			sleepVars['minutes_to_wakeup'] = min(sleepVars['time_to_full'], sleepVars['alarm_time'] - sleepVars['time_now'])
		end
	else
		sleepVars['minutes_to_wakeup'] = sleepVars['time_to_full']
	end

	xgt 'sleep', 'sleep_loop'
end

if $ARGS[0] = 'sleep_handler':
	menu_off = 1
	if sleepVars['minutes_to_wakeup'] > 0:
		xgt 'sleep', 'sleep_loop'
	else
		xgt 'sleep', 'post_sleep'
	end
end


if $ARGS[0] = 'sleep_loop':
	menu_off = 1
	:sleep_loop_loop
		minut += 1
		sleepVars['stime'] += 1
		sleepVars['minutes_to_wakeup'] -= 1
		sleepVars['time_to_full'] -= 1

		if recuperation = 0: pcs_health += 5

		if vibratorIN = 1:
			sleepVars['vtime'] += 1
			if sleepVars['vtime'] >= 5:
				pcs_horny +=1
				sleepVars['vtime'] = 0
			end
		end

		if sleepVars['stime'] >= 60:
			sleepVars['stime'] = 0
			pcs_sleep += 15

			if pcs_sleep >= 100:
				pcs_condition['lack_of_sleep'] = 0
			elseif pcs_condition['lack_of_sleep'] > 0:
				pcs_condition['lack_of_sleep'] -= 1
			end

			gs 'stat'
		end

		if minut = 60: gs 'stat'

		gs 'sleep', 'mod_triggers'
		
		if minute mod 5 = 0:
			gs 'sleep_events', 'start'
		end

	if sleepVars['minutes_to_wakeup'] > 0: jump 'sleep_loop_loop'

	killvar 'sleep_loop_loop'
	xgt 'sleep', 'post_sleep'
end

if $ARGS[0] = 'mod_triggers':
	!! This location is here to allow mods to hook into the system.
	!! Check for: if $sleep_loc = 'pre_sleep' and $ARGS[0] = 'mod_triggers'
	!!
	!! This is NOT for events!!
end


if $ARGS[0] = 'post_sleep':
	menu_off = 1
	if pcs_condition['lack_of_sleep'] >= 10:
	!!Worsening of skin quality if you do not sleep enough.
		skinDailyPenalty += 2
	elseif pcs_condition['lack_of_sleep'] >= 2:
		skinDailyPenalty += 1
	elseif pcs_condition['lack_of_sleep'] > 0:
		skinDailyPenalty += 0
	else
		skinDailyPenalty -= 1
	end
	gs 'stat'

	xgt 'wakeup', 'start'
end


if $ARGS[0] = 'extra':
	act '"Snooze" a few minutes more...':
		menu_off = 1
		slept_in = 1
		gs 'stat'
		gt 'sleep', 'start'
	end
end





--- sleep ---------------------------------