9 Commits fac4388152 ... 1e188313e2

Author SHA1 Message Date
  Kevin_Smarts 1e188313e2 Merge remote-tracking branch 'Hooded_Silence/master' 1 year ago
  Hooded Silence e6c2f70ae5 Missing colons on 519, 525 and 533, reported by maankamara (F95). 1 year ago
  Hooded Silence a4d9190f59 Fix white page bug in journal 1 year ago
  Hooded Silence 976694d77b Temporary removal of hidden event in journal check pending integration of new code for next dev cycle. 1 year ago
  Hooded Silence d4cf0deba8 Fixed accepting job lock-out in shop. 1 year ago
  hornguy6 de07dfee06 [fixed] uncleared actions 1 year ago
  hornguy6 0195daab96 [fixed] blank screen problem 1 year ago
  hornguy6 c6e440cc15 [fixed] onmy typo 1 year ago
  hornguy6 ae3ba8b89e [fixed] wrong location 1 year ago

+ 5 - 5
locations/booty_call_cum.qsrc

@@ -397,7 +397,7 @@ if $ARGS[0] = 'fuck_cum':
 		act'Finish him with your hand':gt 'booty_call_cum', 'cum_jerkoff'
 		act'Finish him with your hand':gt 'booty_call_cum', 'cum_jerkoff'
 		
 		
 		if booty_call['he_ask_facial'] = 1:
 		if booty_call['he_ask_facial'] = 1:
-			act'You can come onmy face':gs 'booty_call_cum', 'cum_facial'
+			act'You can come on my face':gs 'booty_call_cum', 'cum_facial'
 		else
 		else
 			act'On my face!':
 			act'On my face!':
 				if booty_call['cum_where'] = 1:
 				if booty_call['cum_where'] = 1:
@@ -982,9 +982,9 @@ if $ARGS[0] = 'facial_brace':
 					gs'booty_call_sex', 'sex_end'
 					gs'booty_call_sex', 'sex_end'
 				end
 				end
 				
 				
-				act'I should''ve let you come onmy tits':
+				act'I should''ve let you come on my tits':
 					cla & *clr
 					cla & *clr
-					'"I should''ve let you come onmy tits," you grimace, <<$booty_call[''cum_describe2'']>>. "This was a mistake!"'
+					'"I should''ve let you come on my tits," you grimace, <<$booty_call[''cum_describe2'']>>. "This was a mistake!"'
 					gs'booty_call_sex', 'sex_end'
 					gs'booty_call_sex', 'sex_end'
 				end
 				end
 			else
 			else
@@ -1241,11 +1241,11 @@ if $ARGS[0] = 'cum_tits1':
 	!! differing descriptions based on position
 	!! differing descriptions based on position
 	cla & *nl
 	cla & *nl
 	if booty_call['tits_ask'] = 1:
 	if booty_call['tits_ask'] = 1:
-		'"Come onmy tits!"'
+		'"Come on my tits!"'
 	elseif booty_call['he_ask_tits'] = 1:
 	elseif booty_call['he_ask_tits'] = 1:
 		'"Go ahead," you say.'
 		'"Go ahead," you say.'
 	elseif booty_call['he_ask'] = 1:
 	elseif booty_call['he_ask'] = 1:
-		'"Come onmy tits instead!"'
+		'"Come on my tits instead!"'
 	elseif booty_call['not_inside'] = 1:
 	elseif booty_call['not_inside'] = 1:
 		'"Not inside me!" you yelp frantically.'
 		'"Not inside me!" you yelp frantically.'
 	end
 	end

+ 1 - 1
locations/booty_call_morning.qsrc

@@ -908,7 +908,7 @@ end
 
 
 
 
 if $ARGS[0] = 'sneak_out1':
 if $ARGS[0] = 'sneak_out1':
-	act'Sneak out': gt'booty_call_after', 'sneak_out2'
+	act'Sneak out': gt'booty_call_morning', 'sneak_out2'
 	act'Leave a note':
 	act'Leave a note':
 		cla & *clr
 		cla & *clr
 		$npc_apt_hall[$boy]
 		$npc_apt_hall[$boy]

+ 3 - 2
locations/booty_call_sex.qsrc

@@ -108,7 +108,7 @@ if $ARGS[0] = 'position_choose':
 	if stat['think_virgin'] = 1 and booty_call['fuck_count'] = 0: 
 	if stat['think_virgin'] = 1 and booty_call['fuck_count'] = 0: 
 		gs 'booty_call_virgin', 'start_options'
 		gs 'booty_call_virgin', 'start_options'
 	!! initiative roll
 	!! initiative roll
-	elseif booty_call['no_sex'] = 0:
+!!	elseif booty_call['no_sex'] = 0:
 		booty_call['initiative'] = rand(0,1)
 		booty_call['initiative'] = rand(0,1)
 		if (booty_call['initiative'] = 1 and booty_call['force_initiative'] ! 2) or booty_call['force_initiative'] = 1:
 		if (booty_call['initiative'] = 1 and booty_call['force_initiative'] ! 2) or booty_call['force_initiative'] = 1:
 			!! player wins initiative
 			!! player wins initiative
@@ -148,7 +148,7 @@ if $ARGS[0] = 'position_choose':
 				gs 'booty_call_sex', 'rand_position'
 				gs 'booty_call_sex', 'rand_position'
 			end
 			end
 		end
 		end
-	end
+!!	end
 end
 end
 
 
 if $ARGS[0] = 'he_choose_position':
 if $ARGS[0] = 'he_choose_position':
@@ -190,6 +190,7 @@ if $ARGS[0] = 'he_choose_position':
 end
 end
 
 
 if $ARGS[0] = 'rand_position':
 if $ARGS[0] = 'rand_position':
+	cla
 	if booty_call['must_fuck'] = 1:
 	if booty_call['must_fuck'] = 1:
 		booty_call['position_rand'] = rand(1,3)
 		booty_call['position_rand'] = rand(1,3)
 	else
 	else

+ 113 - 114
locations/emp_functions.qsrc

@@ -8,33 +8,33 @@
 !! v.02 - Event generator partially integrated
 !! v.02 - Event generator partially integrated
 !! v.03 - Job management system integrated
 !! v.03 - Job management system integrated
 !! v. 04 - Start of event generation code integration
 !! v. 04 - Start of event generation code integration
-!!
+!! 
 
 
 !! --------------------- UI Interface for Journal
 !! --------------------- UI Interface for Journal
 
 
 if $ARGS[0] = 'gen_schedule':
 if $ARGS[0] = 'gen_schedule':
-	*clr & cla
+	*clr & cla 
 		if night_mode = 1 or night_mode = 2:
 		if night_mode = 1 or night_mode = 2:
 		$header_theme = '#91B0B4'
 		$header_theme = '#91B0B4'
 		$body_theme = '#303030'
 		$body_theme = '#303030'
-		$body_theme_alt	 = '#474747'
+		$body_theme_alt  = '#474747'
 		$font_theme = '#000000'
 		$font_theme = '#000000'
 	else
 	else
 		$header_theme = '#e27c00'
 		$header_theme = '#e27c00'
 		$body_theme = '#E0DED4'
 		$body_theme = '#E0DED4'
-		$body_theme_alt	 = '#D58B32'
+		$body_theme_alt  = '#D58B32'
 		$font_theme = '#FFFFFF'
 		$font_theme = '#FFFFFF'
 	end
 	end
-	if	function_sw = 1:	'<center><h2>' + $npc_firstname['A<<mod_npc_id>>'] + ' ' + $npc_lastname['A<<mod_npc_id>>'] + '</h2></center>'
-	if function_sw = 2:
+	if  function_sw = 1:	'<center><h2>' + $npc_firstname['A<<mod_npc_id>>'] + ' ' + $npc_lastname['A<<mod_npc_id>>'] + '</h2></center>'
+	if function_sw = 2: 
 		gs 'journal', 'journalmenu'
 		gs 'journal', 'journalmenu'
 		'<center><h2>Work</h2></center>'
 		'<center><h2>Work</h2></center>'
 	end
 	end
 	!! Enable selector if attending school or Uni by NPC group type or by character and set default to School
 	!! Enable selector if attending school or Uni by NPC group type or by character and set default to School
-	if (npc_grupTipe['A<<mod_npc_id>>']>= 1 and npc_grupTipe['A<<mod_npc_id>>']<= 5) or mod_npc_id = 34 and function_sw <= 1:
+	if (npc_grupTipe['A<<mod_npc_id>>']>= 1 and npc_grupTipe['A<<mod_npc_id>>']<= 5) or mod_npc_id = 34 and function_sw <= 1: 
 		if flag_schedule = 0: flag_schedule = 1
 		if flag_schedule = 0: flag_schedule = 1
 		school_group = 1
 		school_group = 1
-		'<center>Change to: <a href="exec: flag_schedule = 1 & gs ''emp_functions'', ''gen_schedule''">School</a> | <a href="exec: flag_schedule = 2 &	gs ''emp_functions'', ''gen_schedule''">University</a> | <a href="exec: flag_schedule = 3 &	 gs ''emp_functions'', ''gen_schedule''">Holiday</a> </center>'
+		'<center>Change to: <a href="exec: flag_schedule = 1 & gs ''emp_functions'', ''gen_schedule''">School</a> | <a href="exec: flag_schedule = 2 &  gs ''emp_functions'', ''gen_schedule''">University</a> | <a href="exec: flag_schedule = 3 &  gs ''emp_functions'', ''gen_schedule''">Holiday</a> </center>'
 	else
 	else
 		!! Set schedule to holiday / non-edu NPCs
 		!! Set schedule to holiday / non-edu NPCs
 		flag_schedule = 3
 		flag_schedule = 3
@@ -43,11 +43,11 @@ if $ARGS[0] = 'gen_schedule':
 	!! Initiate loop variables
 	!! Initiate loop variables
 
 
 	i_day = 1
 	i_day = 1
-	mod_max_day = 7
+    mod_max_day = 7
 	i_hour = ARGS[1]
 	i_hour = ARGS[1]
-	mod_max_hour = ARGS[1] + 8
-	header_switch = 1
-	killvar '$tablebody'
+    mod_max_hour = ARGS[1] + 8 
+    header_switch = 1
+	killvar '$tablebody'   
 	killvar '$tableheader'
 	killvar '$tableheader'
 
 
 	!! create header, using header switch to fill in :00 or :30 automatically using mod to determine odd/even and set display hour automatically.
 	!! create header, using header switch to fill in :00 or :30 automatically using mod to determine odd/even and set display hour automatically.
@@ -61,13 +61,13 @@ if $ARGS[0] = 'gen_schedule':
 		if header_switch = 1:
 		if header_switch = 1:
 			header_switch += 1
 			header_switch += 1
 			$tableheader += '<th style="padding: 10px;"><font color="<<$font_theme>>">' + iif(display_hour < 10, '0<<display_hour >>', display_hour) + ':00</font></th>'
 			$tableheader += '<th style="padding: 10px;"><font color="<<$font_theme>>">' + iif(display_hour < 10, '0<<display_hour >>', display_hour) + ':00</font></th>'
-		elseif header_switch=2:
+		elseif header_switch=2: 
 			header_switch = 1
 			header_switch = 1
 			$tableheader += '<th style="padding: 10px;"><font color="<<$font_theme>>">' + iif(display_hour < 10, '0<< display_hour>>', display_hour) + ':30</font></th>'
 			$tableheader += '<th style="padding: 10px;"><font color="<<$font_theme>>">' + iif(display_hour < 10, '0<< display_hour>>', display_hour) + ':30</font></th>'
-		end
+		end		
 		i_hour += 1
 		i_hour += 1
 	if i_hour <=  mod_max_hour: jump 'jmp_header_create'
 	if i_hour <=  mod_max_hour: jump 'jmp_header_create'
-	! Reset i_hour for next loop
+	! Reset i_hour for next loop	
 	killvar 'display_hour'
 	killvar 'display_hour'
 	killvar 'header_switch'
 	killvar 'header_switch'
 	i_hour = ARGS[1]
 	i_hour = ARGS[1]
@@ -75,17 +75,17 @@ if $ARGS[0] = 'gen_schedule':
 	!! Close out table header
 	!! Close out table header
 	$tableheader += '</tr>'
 	$tableheader += '</tr>'
 	!! Create table body, with alternating colour rows for legibility
 	!! Create table body, with alternating colour rows for legibility
-	:jmp_day_create
+    :jmp_day_create
 
 
-		!Set day
-		if i_day = 1 or i_day = 3 or i_day = 5 or i_day = 7:
-			$tablebody += '<tr><td	style="padding: 10px;" bgcolor="<<$header_theme>>"><b><font color="<<$font_theme>>">' + $week[i_day] + '</font></b></td>'
+        !Set day
+        if i_day = 1 or i_day = 3 or i_day = 5 or i_day = 7:
+			$tablebody += '<tr><td  style="padding: 10px;" bgcolor="<<$header_theme>>"><b><font color="<<$font_theme>>">' + $week[i_day] + '</font></b></td>'
 		else
 		else
 			$tablebody += '<tr bgcolor="<<$body_theme_alt>>"><td  style="padding: 10px;" bgcolor="<<$header_theme>>"><b><font color="<<$font_theme>>">' + $week[i_day] + '</font></b></td>'
 			$tablebody += '<tr bgcolor="<<$body_theme_alt>>"><td  style="padding: 10px;" bgcolor="<<$header_theme>>"><b><font color="<<$font_theme>>">' + $week[i_day] + '</font></b></td>'
 		end
 		end
 		!! fill the slots from the NPC schedule
 		!! fill the slots from the NPC schedule
 
 
-		:jmp_hour_create
+        :jmp_hour_create 
 			if i_day >= 1:
 			if i_day >= 1:
 
 
 				!! Create function switcher:
 				!! Create function switcher:
@@ -94,15 +94,15 @@ if $ARGS[0] = 'gen_schedule':
 				!! 3: Event Tracker
 				!! 3: Event Tracker
 
 
 				if function_sw = 1 or function_sw = 0:
 				if function_sw = 1 or function_sw = 0:
-					dynamic $schedule_tracker
+					dynamic $schedule_tracker 
 				elseif function_sw = 2:
 				elseif function_sw = 2:
-					flag_active	 = 1
-					j_id = emp_rota_week[i_day +  '_' + i_hour]
-					if emp_rota_week[i_day +  '_' + i_hour] ! 0:
-						$transient_tb =	 '<a  href="exec:gs ''emp_functions'', ''job_info'', <<j_id>>">' + $emp_job_title[j_id] + '</a>'
-					else
-						$transient_tb  = 'Free'
-					end
+                    flag_active  = 1
+                    j_id = emp_rota_week[i_day +  '_' + i_hour]
+                    if emp_rota_week[i_day +  '_' + i_hour] ! 0:							
+                        $transient_tb =  '<a  href="exec:gs ''emp_functions'', ''job_info'', <<j_id>>">' + $emp_job_title[j_id] + '</a>'
+                    else
+                        $transient_tb  = 'Free'
+                    end
 				elseif function_sw = 3:
 				elseif function_sw = 3:
 				else
 				else
 					msg 'Error - Failed to create body. Please set content switch.'
 					msg 'Error - Failed to create body. Please set content switch.'
@@ -114,42 +114,42 @@ if $ARGS[0] = 'gen_schedule':
 					$tablebody +=  '<td style="padding: 10px;">' + $transient_tb +'</td>'
 					$tablebody +=  '<td style="padding: 10px;">' + $transient_tb +'</td>'
 					flag_active = 0
 					flag_active = 0
 					killvar '$transient_tb'
 					killvar '$transient_tb'
-				end
+				end	
 			else
 			else
 				 i_day += 1
 				 i_day += 1
 				 jump 'jmp_day_create'
 				 jump 'jmp_day_create'
 			end
 			end
 			i_hour += 1
 			i_hour += 1
-			if i_hour <=  mod_max_hour: jump 'jmp_hour_create'
+            if i_hour <=  mod_max_hour: jump 'jmp_hour_create'
 			$tablebody +='</tr>'
 			$tablebody +='</tr>'
 			i_day += 1
 			i_day += 1
 			i_hour = ARGS[1]
 			i_hour = ARGS[1]
-		if i_day <= mod_max_day: jump 'jmp_day_create'
+        if i_day <= mod_max_day: jump 'jmp_day_create'	
 	!! Create navigaton bars
 	!! Create navigaton bars
 	if (mod_max_hour + 8)  <= 48:
 	if (mod_max_hour + 8)  <= 48:
 		set_hour = ARGS[1] + 8
 		set_hour = ARGS[1] + 8
-		$msg_forward = '<a	href="exec:gs ''emp_functions'', ''gen_schedule'', <<set_hour>>"><b>Forward 4 hours</b></a>'
+		$msg_forward = '<a  href="exec:gs ''emp_functions'', ''gen_schedule'', <<set_hour>>"><b>Forward 4 hours</b></a>'
 	else
 	else
 		$msg_forward = 'End of Day'
 		$msg_forward = 'End of Day'
 	end
 	end
-	if (mod_max_hour  - 8) >0 :
+    if (mod_max_hour  - 8) >0 :
 		set_hour = ARGS[1] - 8
 		set_hour = ARGS[1] - 8
-		$msg_back = '<a	 href="exec:gs ''emp_functions'', ''gen_schedule'', <<set_hour>>"><b>Back 4 hours</b></a>'
-	else
+        $msg_back = '<a  href="exec:gs ''emp_functions'', ''gen_schedule'', <<set_hour>>"><b>Back 4 hours</b></a>'
+    else
 		$msg_back = 'Start of day'
 		$msg_back = 'Start of day'
+    end
+
+    !! Start the table constuction    
+    '<center><table border=0 cellpadding=1 bgcolor="<<$body_theme>>" width="95%" align="center"><<$tableheader>><<$tablebody>></table>'
+    '<<$msg_back>> | <<$msg_forward>>'
+    *nl
+    if  function_sw = 1:
+	'<b>Note:</b> Times are approximate, some characters will appear at quarter past or quarter to the hour.</center>' 
 	end
 	end
-
-	!! Start the table constuction
-	'<center><table border=0 cellpadding=1 bgcolor="<<$body_theme>>" width="95%" align="center"><<$tableheader>><<$tablebody>></table>'
-	'<<$msg_back>> | <<$msg_forward>>'
-	*nl
-	if	function_sw = 1:
-	'<b>Note:</b> Times are approximate, some characters will appear at quarter past or quarter to the hour.</center>'
-	end
-	if	function_sw = 2:
-		'<b>Note:</b> Times are approximate, some jobs may extend past the allotted time or have flexi-starts.</center>'
+	if  function_sw = 2:
+		'<b>Note:</b> Times are approximate, some jobs may extend past the allotted time or have flexi-starts.</center>' 
 	end
 	end
-	act 'Back':
+    act 'Back':
 		killvar 'flag_schedule'
 		killvar 'flag_schedule'
 		killvar 'school_group'
 		killvar 'school_group'
 		killvar 'j_id'
 		killvar 'j_id'
@@ -165,7 +165,7 @@ if $ARGS[0] = 'job_info':
 	$msg_body += '<p>Location: ' + $emp_job_loc[j_id] + '</p>'
 	$msg_body += '<p>Location: ' + $emp_job_loc[j_id] + '</p>'
 	$msg_body += '<p>Notes: ' + $emp_job_notes[j_id]+ '</p>'
 	$msg_body += '<p>Notes: ' + $emp_job_notes[j_id]+ '</p>'
 	$msg_body += '<p>Wages: ' +emp_job_wages[j_id] + '<b>₽</b></p>'
 	$msg_body += '<p>Wages: ' +emp_job_wages[j_id] + '<b>₽</b></p>'
-
+	
 	msg '<<$msg_body>>'
 	msg '<<$msg_body>>'
 end
 end
 
 
@@ -191,15 +191,15 @@ if $ARGS[0] = 'disp_evt':
 		'I have this job for you do you want to acccept it?'
 		'I have this job for you do you want to acccept it?'
 		*nl
 		*nl
 		'Event Scheduled for: ' + transient_evt_day + $evt_suffix + ', '+ $monthName[transient_evt_month] +' '+ '20' + transient_evt_year
 		'Event Scheduled for: ' + transient_evt_day + $evt_suffix + ', '+ $monthName[transient_evt_month] +' '+ '20' + transient_evt_year
-		'Job: ' + $evt_job[transient_evt_type]
+		'Job: ' + $evt_job[transient_evt_type]  			
 		'Pay: ' + transient_evt_wages
 		'Pay: ' + transient_evt_wages
 		'Time: ' + transient_evt_hour + ':' +  iif(transient_evt_minutes  >= 0 and transient_evt_minutes <= 4, '00',  '30')
 		'Time: ' + transient_evt_hour + ':' +  iif(transient_evt_minutes  >= 0 and transient_evt_minutes <= 4, '00',  '30')
 		'Duration: ' + transient_evt_duration  + iif(transient_evt_duration  = 1, ' hour',  ' hours')
 		'Duration: ' + transient_evt_duration  + iif(transient_evt_duration  = 1, ' hour',  ' hours')
 		'Location reminder: ' + $transient_mc_locat
 		'Location reminder: ' + $transient_mc_locat
 		'Job Details: ' + $transient_desc
 		'Job Details: ' + $transient_desc
-
+		
 		act 'Accept the job' : gs 'emp_functions', 'cat_evt'
 		act 'Accept the job' : gs 'emp_functions', 'cat_evt'
-		act 'Decline the job':
+		act 'Decline the job': 
 			gs 'emp_functions',  'del_evt', 1
 			gs 'emp_functions',  'del_evt', 1
 			gt 'emp_functions', 'evt_init'
 			gt 'emp_functions', 'evt_init'
 		end
 		end
@@ -209,22 +209,22 @@ if $ARGS[0] = 'disp_evt':
 	if ARGS[1] = 2:	
 	if ARGS[1] = 2:	
 		if evt_event[0] ! '':			
 		if evt_event[0] ! '':			
 			killvar '$evtbody'
 			killvar '$evtbody'
-			job_idx = 0
+			job_idx = 0		
 			*nl
 			*nl
 			:jmp_list_create
 			:jmp_list_create
-				if evt_silent[job_idx] = 1:
-					$evtbody += '<tr><td>' +$week[evt_dow[job_idx]]+' '+ evt_day[job_idx] + $evt_suffix + ', '+ $monthName[evt_month[job_idx]] +' 20'+ evt_year[job_idx] + '</td><td>' + $evt_job[evt_event[job_idx]] + '</td>'
+				!!if evt_silent[job_idx] = 1:
+					$evtbody += '<tr><td>' +$week[evt_dow[job_idx]]+' '+ evt_day[job_idx] + $evt_suffix + ', '+ $monthName[evt_month[job_idx]] +' 20'+ evt_year[job_idx] + '</td><td>' + $evt_job[evt_event[job_idx]] + '</td>' 
 					$evtbody += '<td>' + evt_wages[job_idx] + '₽</td><td>' + evt_hour[job_idx] + ':' +  iif(evt_minutes[job_idx] >= 0 and evt_minutes[job_idx] <= 4, '00', '30') + '</td>'
 					$evtbody += '<td>' + evt_wages[job_idx] + '₽</td><td>' + evt_hour[job_idx] + ':' +  iif(evt_minutes[job_idx] >= 0 and evt_minutes[job_idx] <= 4, '00', '30') + '</td>'
 					$evtbody += '<td>' + evt_duration[job_idx] + iif(evt_duration[job_idx]  = 1, ' hour',  ' hours') + '</td><td>' + $evt_mc_locat[job_idx] + '</td>'
 					$evtbody += '<td>' + evt_duration[job_idx] + iif(evt_duration[job_idx]  = 1, ' hour',  ' hours') + '</td><td>' + $evt_mc_locat[job_idx] + '</td>'
 					$evtbody += '<td><a  href="exec: gs ''emp_functions'',''del_evt'', 2, <<job_idx>>"><img src="images\system\icons\evt_del.png"></a></a></td></tr>'
 					$evtbody += '<td><a  href="exec: gs ''emp_functions'',''del_evt'', 2, <<job_idx>>"><img src="images\system\icons\evt_del.png"></a></a></td></tr>'
-				end
+				!!end
 				job_idx += 1
 				job_idx += 1
 				if job_idx < arrsize('evt_event') : jump 'jmp_list_create'
 				if job_idx < arrsize('evt_event') : jump 'jmp_list_create'
-				if evt_silent[job_idx] = 1:
-					'<center><h2>Current Task List</h2></center>'
+				!!if evt_silent[job_idx] = 1: 
+					'<center><h2>Current Task List</h2></center>'		
 					$evtheader = '<tr><th>Date</th><th>Task</th><th>Pay</th><th>Time</th><th>Duration</th><th>Location</th><th>Cancel Job</th></tr>'
 					$evtheader = '<tr><th>Date</th><th>Task</th><th>Pay</th><th>Time</th><th>Duration</th><th>Location</th><th>Cancel Job</th></tr>'
 					'<center><table width="90%" align="center" width="90%" cellspacing="5" cellpadding="5" valign="top"><tr><<$evtheader>><<$evtbody>></tr></table></center>'
 					'<center><table width="90%" align="center" width="90%" cellspacing="5" cellpadding="5" valign="top"><tr><<$evtheader>><<$evtbody>></tr></table></center>'
-				end
+				!!end
 				killvar '$evtbody'
 				killvar '$evtbody'
 				killvar '$evtheader'
 				killvar '$evtheader'
 			else
 			else
@@ -237,12 +237,12 @@ if $ARGS[0] = 'disp_evt':
 		act_idx = 0
 		act_idx = 0
 		act_tracker = 0
 		act_tracker = 0
 		act_found = 0
 		act_found = 0
-		:jmp_act_create
-			 if evt_hour[act_tracker] = hour or evt_hour[act_tracker] = (hour -1):
+		:jmp_act_create			
+			 if evt_hour[act_tracker] = hour or evt_hour[act_tracker] = (hour -1): 
 				act_found = 1
 				act_found = 1
-				act_idx = act_tracker
+				act_idx = act_tracker 				
 			 end
 			 end
-			 act_tracker +=1
+			 act_tracker +=1 
 		if act_tracker < arrsize('evt_event') or act_found = 0: jump 'jmp_act_create'
 		if act_tracker < arrsize('evt_event') or act_found = 0: jump 'jmp_act_create'
 		if ((evt_hour[act_idx] = hour and evt_minutes[act_idx] <= minut) or evt_hour[act_idx] = (hour - 1)) and $loc = $evt_loc[act_idx]:
 		if ((evt_hour[act_idx] = hour and evt_minutes[act_idx] <= minut) or evt_hour[act_idx] = (hour - 1)) and $loc = $evt_loc[act_idx]:
 			act 'Attend your ' + $evt_job[evt_event[act_idx]] + ' event':
 			act 'Attend your ' + $evt_job[evt_event[act_idx]] + ' event':
@@ -259,43 +259,43 @@ if $ARGS[0] = 'disp_evt':
 	end
 	end
 end
 end
 
 
-if $ARGS[0] = 'gen_evt':
+if $ARGS[0] = 'gen_evt':	
 	!! Get the current year - remove 2000 to get the right year for search function.
 	!! Get the current year - remove 2000 to get the right year for search function.
 	transient_evt_year = year - 2000
 	transient_evt_year = year - 2000
-
+	
 	!! Figure out the month for the seed and ensure it rolls over into new calendar year.
 	!! Figure out the month for the seed and ensure it rolls over into new calendar year.
-	if month = 12:
+	if month = 12:			
 		evt_mseed = 1
 		evt_mseed = 1
 		transient_evt_year += 1
 		transient_evt_year += 1
 	else
 	else
 		evt_mseed = month + 1
 		evt_mseed = month + 1
 	end
 	end
 
 
-	!! randomise the month and month + 1
-	transient_evt_month = rand(month,  evt_mseed)
+	!! randomise the month and month + 1 	
+	transient_evt_month = rand(month,  evt_mseed)      
 	:jmp_job_create
 	:jmp_job_create
 		if transient_evt_month = month:
 		if transient_evt_month = month:
 			if (day + 7) > monthsend[transient_evt_month]:
 			if (day + 7) > monthsend[transient_evt_month]:
 				transient_evt_month += 1
 				transient_evt_month += 1
 				evt_dseed = 1
 				evt_dseed = 1
-			end
+			end	
 		else
 		else
 			evt_dseed = day + 1
 			evt_dseed = day + 1
-		end
-		rnd_day = rand(evt_dseed, monthsend[transient_evt_month])
-	if transient_evt_month  = month and rnd_day <= day: jump 'jmp_job_create'
-
+		end	
+		rnd_day = rand(evt_dseed, monthsend[transient_evt_month])	
+	if transient_evt_month  = month and rnd_day <= day: jump 'jmp_job_create'	
+					
 	!! Set event transients - will be deleted upon completion
 	!! Set event transients - will be deleted upon completion
 	transient_evt_hour = rand(9, 20)
 	transient_evt_hour = rand(9, 20)
-
+	
 	!! For simplicity sake make minutes on the hour or at half hour intervals, store as a single int.
 	!! For simplicity sake make minutes on the hour or at half hour intervals, store as a single int.
 	transient_evt_minutes = rand(0, 9)
 	transient_evt_minutes = rand(0, 9)
-
-	!! Set as multiples of 60
+	
+	!! Set as multiples of 60 	
 	transient_evt_duration = rand(1,8)
 	transient_evt_duration = rand(1,8)
-
+	
 	!! logic check for when randomising event duration
 	!! logic check for when randomising event duration
-
+	
 	if transient_evt_duration + transient_evt_hour >= 22:
 	if transient_evt_duration + transient_evt_hour >= 22:
 		transient_evt_hour = 22 - transient_evt_duration
 		transient_evt_hour = 22 - transient_evt_duration
 	end
 	end
@@ -305,21 +305,21 @@ if $ARGS[0] = 'gen_evt':
 	srch_day_u = rnd_day + 7
 	srch_day_u = rnd_day + 7
 	if srch_day_u >= monthsend[transient_evt_month]:
 	if srch_day_u >= monthsend[transient_evt_month]:
 		srch_day_u = monthsend[transient_evt_month]
 		srch_day_u = monthsend[transient_evt_month]
-		srch_day_l = monthsend[transient_evt_month]	 - rand(7,14)
+		srch_day_l = monthsend[transient_evt_month]  - rand(7,14)
 	else
 	else
 		srch_day_l = rnd_day
 		srch_day_l = rnd_day
 	end
 	end
 
 
 	:setdayloop
 	:setdayloop
 	gs 'shortgs', 'dow',  transient_evt_year, transient_evt_month,  srch_day_l
 	gs 'shortgs', 'dow',  transient_evt_year, transient_evt_month,  srch_day_l
-	if result =  transient_evt_dow:
+	if result =  transient_evt_dow: 
 		transient_evt_day = srch_day_l
 		transient_evt_day = srch_day_l
 	srch_day_l = 99
 	srch_day_l = 99
-	else
-	srch_day_l += 1
-	end
+	else	        
+	srch_day_l += 1					
+	end 	
 
 
-	if srch_day_l <= srch_day_u: jump 'setdayloop'
+	if srch_day_l <= srch_day_u: jump 'setdayloop'	
 end
 end
 
 
 ! ------ Helper Functions ------
 ! ------ Helper Functions ------
@@ -362,8 +362,8 @@ if $ARGS[0] = 'cat_evt':
 	evt_silent[] = transient_evt_silent
 	evt_silent[] = transient_evt_silent
 	!! Event type used in Journal
 	!! Event type used in Journal
 	evt_event[] = transient_evt_type
 	evt_event[] = transient_evt_type
-	!! Additional ID if required
-	evt_event_sub[] = transient_evt_sub_type
+	!! Additional ID if required 
+	evt_event_sub[] = transient_evt_sub_type 
 	!! Day of Week used in Journal and content areas
 	!! Day of Week used in Journal and content areas
 	evt_dow[] = transient_evt_dow
 	evt_dow[] = transient_evt_dow
 	!! Event Date to check against current date & used in Journal and content areas
 	!! Event Date to check against current date & used in Journal and content areas
@@ -385,7 +385,7 @@ if $ARGS[0] = 'cat_evt':
 	!! The following are event location triggers to allow the content to appear in areas such as community centre but host their content elsewhere such as Photography shop
 	!! The following are event location triggers to allow the content to appear in areas such as community centre but host their content elsewhere such as Photography shop
 	!! 	Event area triggers such as city_residential
 	!! 	Event area triggers such as city_residential
 	$evt_loc[] = $transient_loc
 	$evt_loc[] = $transient_loc
-	$evt_loc_arg[] = $transient_arg
+	$evt_loc_arg[] = $transient_arg 
 	!! Content location - optional
 	!! Content location - optional
 	$evt_trigger_exec = $transient_evt_exec
 	$evt_trigger_exec = $transient_evt_exec
 	$evt_trigger[] = $transient_trigger
 	$evt_trigger[] = $transient_trigger
@@ -407,35 +407,35 @@ if $ARGS[0] = 'del_evt':
 		killvar 'transient_event_type'
 		killvar 'transient_event_type'
 		killvar 'transient_evt_year'
 		killvar 'transient_evt_year'
 		killvar 'transient_evt_month'
 		killvar 'transient_evt_month'
-		killvar 'transient_evt_hour'
+		killvar 'transient_evt_hour'	
 		killvar 'transient_evt_minutes'
 		killvar 'transient_evt_minutes'
 		killvar 'transient_evt_duration'
 		killvar 'transient_evt_duration'
 		killvar 'transient_evt_wages'
 		killvar 'transient_evt_wages'
 		killvar '$transient_loc '
 		killvar '$transient_loc '
 		killvar '$transient_arg'
 		killvar '$transient_arg'
-		killvar '$transient_trigger'
+		killvar '$transient_trigger'	
 		killvar '$transient_img'
 		killvar '$transient_img'
 		killvar '$transient_desc'
 		killvar '$transient_desc'
-		killvar 'rnd_min'
+		killvar 'rnd_min'	
 		killvar 'mseed'
 		killvar 'mseed'
-		killvar 'dseed'
+		killvar 'dseed' 
 	end
 	end
 
 
 	! Delete array entry
 	! Delete array entry
 
 
 	if ARGS[1] = 2:
 	if ARGS[1] = 2:
 		!! delete event after firing or cancelled.
 		!! delete event after firing or cancelled.
-		!! killvar 'arr_name', index
+		!! killvar 'arr_name', index 
 		if ARGS[2] >= 0:
 		if ARGS[2] >= 0:
 			evt_idx = ARGS[2]
 			evt_idx = ARGS[2]
 			cla
 			cla
-			'You''re about to delete this job: '
-			'Delete: ' + evt_event
+			'You''re about to delete this job: ' 
+			'Delete: ' + evt_event 
 			'Index: ' + evt_idx
 			'Index: ' + evt_idx
 			Act 'Confirm?':
 			Act 'Confirm?':
 				cla
 				cla
 				'Are you sure?'
 				'Are you sure?'
-				act 'Deleting':
+				act 'Deleting': 
 					cla
 					cla
 					killvar 'evt_silent', evt_idx
 					killvar 'evt_silent', evt_idx
 					killvar 'evt_event', evt_idx
 					killvar 'evt_event', evt_idx
@@ -454,19 +454,19 @@ if $ARGS[0] = 'del_evt':
 					killvar '$evt_media', evt_idx
 					killvar '$evt_media', evt_idx
 					killvar '$evt_desc', evt_idx
 					killvar '$evt_desc', evt_idx
 
 
-					act 'Return': gt 'emp_functions', 'init'
-				end
-				act 'Cancel': gt 'emp_functions', 'init'
+					act 'Return': gs 'journal_work', 'start'
+				end 	 
+				act 'Cancel': gs 'journal_work', 'start'
 			end
 			end
 		else
 		else
 			'<<evt_idx>> - Invalid record - please check your index'
 			'<<evt_idx>> - Invalid record - please check your index'
 		end
 		end
-	end
+	end 
 end
 end
 
 
 if $ARGS[0] = 'evt_day_suffix':
 if $ARGS[0] = 'evt_day_suffix':
 
 
-	if ARGS[1] ! '':
+	if ARGS[1] ! '': 
 		query_day = ARGS[1]
 		query_day = ARGS[1]
 	else
 	else
 		query_day = transient_evt_day
 		query_day = transient_evt_day
@@ -482,8 +482,8 @@ if $ARGS[0] = 'evt_day_suffix':
 	elseif test_day = 1 or test_day = 31:
 	elseif test_day = 1 or test_day = 31:
 		$evt_suffix = 'st'
 		$evt_suffix = 'st'
 	elseif test_day = 2:
 	elseif test_day = 2:
-		$evt_suffix = 'nd'
-	elseif test_day= 3:
+		$evt_suffix = 'nd'    
+	elseif test_day= 3: 
 		$evt_suffix = 'rd'
 		$evt_suffix = 'rd'
 	else
 	else
 		$evt_suffix = 'th'
 		$evt_suffix = 'th'
@@ -511,15 +511,15 @@ end
 !! book role, creates a time slot for emp_rota_week in format day_hour to be used in schedule mode.
 !! book role, creates a time slot for emp_rota_week in format day_hour to be used in schedule mode.
 if $ARGS[0] = 'emp_booking':
 if $ARGS[0] = 'emp_booking':
 	gs 'emp_functions', 'emp_chk_clk'
 	gs 'emp_functions', 'emp_chk_clk'
-	if emp_rota_fail  = 0:
+	if emp_rota_fail  = 0:	
 		gs 'emp_functions', 'loop_configure'
 		gs 'emp_functions', 'loop_configure'
 		j_finish = emp_job_end[j_id]
 		j_finish = emp_job_end[j_id]
 		:jmp_daily_book
 		:jmp_daily_book
 			j_idx = emp_job_start[j_id]
 			j_idx = emp_job_start[j_id]
 			:jmp_hour_book
 			:jmp_hour_book
-				emp_rota_week[d_idx + '_' + j_idx]	= j_id
+				emp_rota_week[d_idx + '_' + j_idx]  = j_id
 				j_idx += 1
 				j_idx += 1
-			if j_idx <= j_finish: jump 'jmp_hour_book'
+			if j_idx <= j_finish: jump 'jmp_hour_book'	
 			d_idx += 1
 			d_idx += 1
 		if d_idx <= d_end: jump 'jmp_daily_book'
 		if d_idx <= d_end: jump 'jmp_daily_book'
 		emp_job_status[j_id] = 1
 		emp_job_status[j_id] = 1
@@ -543,14 +543,14 @@ if $ARGS[0] = 'emp_chk_clk':
 		j_idx = emp_job_start[j_id]
 		j_idx = emp_job_start[j_id]
 		:jmp_job_chk
 		:jmp_job_chk
 			if emp_rota_week[d_idx + '_' + j_idx]  >  0:
 			if emp_rota_week[d_idx + '_' + j_idx]  >  0:
-				!! booking failed
+				!! booking failed					
 				emp_rota_fail = 1
 				emp_rota_fail = 1
 			else
 			else
 				!! booking passed
 				!! booking passed
 				emp_rota_fail = 0
 				emp_rota_fail = 0
-			end
+			end	
 			j_idx +=1
 			j_idx +=1
-		if j_idx <= j_finish and emp_rota_fail = 0: jump 'jmp_job_chk'
+		if j_idx <= j_finish and emp_rota_fail = 0: jump 'jmp_job_chk'	
 		d_idx += 1
 		d_idx += 1
 	if d_idx <= d_end and emp_rota_fail = 0: jump 'jmp_daily_chk'
 	if d_idx <= d_end and emp_rota_fail = 0: jump 'jmp_daily_chk'
 end
 end
@@ -564,7 +564,7 @@ if $ARGS[0] = 'emp_terminate':
 			:jmp_hour_book
 			:jmp_hour_book
 				emp_rota_week[d_idx + '_' + j_idx] = 0
 				emp_rota_week[d_idx + '_' + j_idx] = 0
 				j_idx += 1
 				j_idx += 1
-			if j_idx <= j_finish: jump 'jmp_hour_book'
+			if j_idx <= j_finish: jump 'jmp_hour_book'	
 			d_idx += 1
 			d_idx += 1
 		if d_idx <= d_end: jump 'jmp_daily_book'
 		if d_idx <= d_end: jump 'jmp_daily_book'
 		!! Set the termination value
 		!! Set the termination value
@@ -576,20 +576,19 @@ if $ARGS[0] = 'emp_terminate':
 	killvar 'j_idx'
 	killvar 'j_idx'
 	killvar 'j_finish'
 	killvar 'j_finish'
 	killvar 'd_idx'
 	killvar 'd_idx'
-	killvar 'd_end'
+	killvar 'd_end'	
 end
 end
 
 
-if $ARGS[0] = 'loop_configure':
-	if	j_day= 0 or j_day = 1 or j_day = 2:
+if $ARGS[0] = 'loop_configure':	
+	if  j_day= 0 or j_day = 1 or j_day = 2:
 		d_idx = 1
 		d_idx = 1
 	else
 	else
 		d_idx= 6
 		d_idx= 6
 	end
 	end
-	if	j_day <= 1:
+	if  j_day <= 1:
 		d_end = 5
 		d_end = 5
 	else
 	else
 		d_end= 7
 		d_end= 7
-	end
+	end	
 end
 end
---- emp_functions ---------------------------------
-
+--- emp_functions ---------------------------------

+ 1 - 3
locations/shop_photography.qsrc

@@ -208,7 +208,7 @@ if $ARGS[0] = 'photojob_pay':
 	elseif pcs_photoskl > 50:
 	elseif pcs_photoskl > 50:
 		gs 'emp_functions', 'wage_evt', 1
 		gs 'emp_functions', 'wage_evt', 1
 	else
 	else
-		gs 'emp_functions', 'wage_evt', 5, 50
+		gs 'emp_functions', 'wage_evt', 5, 100
 	end
 	end
 end
 end
 
 
@@ -223,8 +223,6 @@ if $ARGS[0] = 'job_init':
 	dynamic $photojob[evt_PhotoID]
 	dynamic $photojob[evt_PhotoID]
 	!! set Day of Week for job to appear on	
 	!! set Day of Week for job to appear on	
 	transient_evt_dow = 6
 	transient_evt_dow = 6
-	!! evt_silent - hide event from player  in journal (or other locations) - 1 to enable.
-	transient_evt_silent = 0 
     !! Now set up the event date
     !! Now set up the event date
     gs 'shop_photography' , 'photojob_pay'
     gs 'shop_photography' , 'photojob_pay'
     gs 'emp_functions', 'gen_evt'
     gs 'emp_functions', 'gen_evt'

+ 3 - 3
locations/vasilyhome.qsrc

@@ -516,13 +516,13 @@ if $ARGS[0] = 'vasily_bazar_night':
 				end
 				end
 			elseif vasyan_textb_gorslut = 1:
 			elseif vasyan_textb_gorslut = 1:
 				' You really seemed to enjoy getting fucked like a drunken slut the other day <<$pcs_nickname>>," Vasily snickers.<br> "Well I... yeah, I kind of got into it," you stammer meekly.<br> "Then you should come drinking with us in the park more often. We''ll gladly fuck you six ways to Sunday if you show up there," he says with a sly grin.<br> "Don''t be surprised if I take you up on that offer," you say with a wink.'
 				' You really seemed to enjoy getting fucked like a drunken slut the other day <<$pcs_nickname>>," Vasily snickers.<br> "Well I... yeah, I kind of got into it," you stammer meekly.<br> "Then you should come drinking with us in the park more often. We''ll gladly fuck you six ways to Sunday if you show up there," he says with a sly grin.<br> "Don''t be surprised if I take you up on that offer," you say with a wink.'
-			elseif vasyan_textb_gorslut = 2
+			elseif vasyan_textb_gorslut = 2:
 				if soniaPS = 1:
 				if soniaPS = 1:
 					' "We have to figure out how to get you and Sonia in the same room," Vasily says hungrily.<br> "I certainly wouldn''t kick her out of bed..." you say and give him a wink.<br> "Just thinking about it is getting me going. Actually seeing you two together would be hot enough to start a fire."<br> You rest your hand on his groin and give it a squeeze. "Oh, I can tell..." you whisper seductively.'
 					' "We have to figure out how to get you and Sonia in the same room," Vasily says hungrily.<br> "I certainly wouldn''t kick her out of bed..." you say and give him a wink.<br> "Just thinking about it is getting me going. Actually seeing you two together would be hot enough to start a fire."<br> You rest your hand on his groin and give it a squeeze. "Oh, I can tell..." you whisper seductively.'
 				else
 				else
 					'"Sonia was talking about you the other day," Vasily tells you.<br> "Oh really? What did she say?" you ask.<br> "She said and I quote: That <<$pcs_nickname>> is crazy hot. Every time I see her, I just want to eat her like a bowl of ice cream," he says laughing.<br> "Well, next time you see her, tell her it tastes like cherry", you tell him laughing.'
 					'"Sonia was talking about you the other day," Vasily tells you.<br> "Oh really? What did she say?" you ask.<br> "She said and I quote: That <<$pcs_nickname>> is crazy hot. Every time I see her, I just want to eat her like a bowl of ice cream," he says laughing.<br> "Well, next time you see her, tell her it tastes like cherry", you tell him laughing.'
 				end
 				end
-			elseif vasyan_textb_gorslut = 3
+			elseif vasyan_textb_gorslut = 3:
 				if SchoolAtestat = 0:
 				if SchoolAtestat = 0:
 					'"Oh, what I would give to see under that little skirt our English teacher wears. Her ass just looks unbelievable in that thing. I swear she must wear it just to drive the kids crazy," Vasily says dreamily.<br> "I totally agree. She knows what''s she is doing. If she keeps it up, I might get under that skirt myself. If I ever do manage to get in there, I''ll report back to you with the details commander," you say while giving him a mock salute.'
 					'"Oh, what I would give to see under that little skirt our English teacher wears. Her ass just looks unbelievable in that thing. I swear she must wear it just to drive the kids crazy," Vasily says dreamily.<br> "I totally agree. She knows what''s she is doing. If she keeps it up, I might get under that skirt myself. If I ever do manage to get in there, I''ll report back to you with the details commander," you say while giving him a mock salute.'
 				else
 				else
@@ -530,7 +530,7 @@ if $ARGS[0] = 'vasily_bazar_night':
 				end
 				end
 			elseif vasyan_textb_gorslut = 4:
 			elseif vasyan_textb_gorslut = 4:
 				'"Hey <<$pcs_nickname>>, did you know that your mother is still a slut? We saw her in the cafe after closing with her boss. She was sucking his dick like it was the fountain of youth. I see where you got your skills from; she must have been a really good teacher."<br> "Ha, dream on asshole," you tell him with a laugh.'
 				'"Hey <<$pcs_nickname>>, did you know that your mother is still a slut? We saw her in the cafe after closing with her boss. She was sucking his dick like it was the fountain of youth. I see where you got your skills from; she must have been a really good teacher."<br> "Ha, dream on asshole," you tell him with a laugh.'
-			elseif vasyan_textb_gorslut = 5
+			elseif vasyan_textb_gorslut = 5:
 				if soniaPS = 1:
 				if soniaPS = 1:
 					if SchoolAtestat = 0:
 					if SchoolAtestat = 0:
 						'"Sonia spends almost the whole day in the boys bathroom at school now. That girl sucks and fucks like quantity is the only things that matters," Vasily tells you.<br> "I think most of her diet is cum these days," you add.<br> "Yeah, I do my part to feed her almost every day," he says laughing.'
 						'"Sonia spends almost the whole day in the boys bathroom at school now. That girl sucks and fucks like quantity is the only things that matters," Vasily tells you.<br> "I think most of her diet is cum these days," you add.<br> "Yeah, I do my part to feed her almost every day," he says laughing.'