Pārlūkot izejas kodu

[added] testing for the new park rape event - fingers crossed it works

hornguy6 1 gadu atpakaļ
vecāks
revīzija
3193861a58
1 mainītis faili ar 236 papildinājumiem un 31 dzēšanām
  1. 236 31
      locations/park_walkevents.qsrc

+ 236 - 31
locations/park_walkevents.qsrc

@@ -863,45 +863,234 @@ if $ARGS[0] = '9':
 	end
 end
 
+if $ARGS[0] = 'running_image':
+	if month >= 11 or month <= 3:
+		if daystage = 2 or daystage = 3:
+			'<center><img <<$set_imgh>> src="images/locations/shared/park/park_jog1.jpg"></center>'
+		else
+			'<center><img <<$set_imgh>> src="images/locations/shared/park/park_jogn1.jpg"></center>'
+		end
+	else
+		if daystage = 2 or daystage = 3:
+			'<center><img <<$set_imgh>> src="images/locations/shared/park/park_jog2.jpg"></center>'
+		else
+			'<center><img <<$set_imgh>> src="images/locations/shared/park/park_jogn2.jpg"></center>'
+		end
+	end
+end
+
+
 if $ARGS[0] = 'run':
-	if $clothingworntype = 'danilovich_outfits' and $shoeworntype = 'danilovich' and hour > 5 and hour < 23 and daybegskver ! daystart and pcs_energy >= 10:
+	if $clothingworntype = 'danilovich_outfits' and $shoeworntype = 'danilovich':
 		act 'Jog through the park (1:00)':
-			*clr & cla
-			menu_off = 1
-			gs 'exercise', 'tier1', 60, 'run'
-			fat -= rand(0,4)
-			gs 'sweat', 'add', 5
-			daybegskver = daystart
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/locations/shared/park/parkbeg.jpg"></center>'
-			'You prepare yourself for a nice jog through the beautiful park, pacing yourself so you last for a full hour.'
-			act 'Finish your run':
-				cla
-				*nl
-				'You feel great after your jogging session. A bit sweaty, but also that you''ve managed to improve your stamina as you even feel a bit slimmer.'
-				act 'Continue': gt $loc, $loc_arg
-			end
-			if pcs_inhib >= 35 or exhibitionist_lvl > 0:
-				act 'Expose your breasts':
+			if daystage = 2 or daystage = 3:
+				*clr & cla
+				menu_off = 1
+				fat -= rand(0,4)
+				gs 'sweat', 'add', 5
+				gs 'stat'
+				gs 'park_walkevents', 'running_image'
+				'You go for a nice long jog through the park.'
+				act 'Run':
+					if daybegskver = daystart:
+						gs 'exercise', 'tier1', 30, 'run_exp'
+					else
+						gs 'exercise', 'tier2', 30, 'run_exp'
+					end
+					daybegskver = daystart
+					if rand(1,20) > hotcat:
+						gt 'park_walkevents', 'run_end'
+					else
+						cla & *clr
+						gs 'park_walkevents', 'running_image'
+						'About halfway through your run, you hear a whistle pierce the air.'
+						act'Turn':
+							cla & *clr
+							if $region = 'city':
+								gs 'npcgeneratec', 0, 'stranger', rand(18,45), rand(3,4)
+							elseif $region = 'pav':
+								gs 'npcgeneratec', 0, 'stranger', rand(18,45), 1
+							end
+							gs 'boy', 'details'
+							'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/'+lover_picrand+'.jpg"></center>'
+							temp['catcall'] = rand(1,3)
+							'Turning your head instinctively at the sound, you see a guy lowering his fingers from his mouth, a wide grin on his face.'
+							if temp['catcall'] = 1:
+								'"Hey sexy! Why don''t you come run back to my place so I can fuck your brains out!"'
+							elseif temp['catcall'] = 2:
+								'"You got a killer rack gorgeous! Look at those tits! Lemme put my face between them!'
+							elseif temp['catcall'] = 3:
+								'"Wooooeee! That ass! I wanna take it home with me and make it mine!"'
+							end
+							
+							act'Ignore him':
+								cla & *clr
+								gs 'park_walkevents', 'running_image'
+								'You roll your eyes but otherwise ignore him, continuing to run until his hollering is nothing but a distant buzz behind you. And soon enough, there''s no hollering at all.'
+								act'Finish your run':gt 'park_walkevents', 'run_end'
+							end
+							
+							act'Ignore him (annoyed)':
+								cla & *clr
+								temp['catcall'] = 4
+								gs 'park_walkevents', 'running_image'
+								'You grit your teeth and try to ignore him, continuing to run past while he shouts lewd remarks about your body and what he''d like to do to it. Even once he''s far behind you, you can''t stop thinking about it, seething internally and grinding your teeth.'
+								*nl
+								'Fuck! Who does he think he is? Are you just a piece of meat to him? Fuck that guy and fuck everybody like him!'
+								act'Finish your run':gt 'park_walkevents', 'run_end'
+							end
+							
+							act'Walk up to him':
+								cla & *clr
+								!! IMAGE HERE
+								'Slowing down, your jog reduces to a walk until you stop right in front of the guy.'
+								'"You serious?" you puff.'
+								'"Serious about you," he snickers before making a kissy face at you. "I''m <<$npc_firstname[$npclastgenerated]>>. What''s your name?"'
+								act'You''re a piece of shit':
+									cla & *nl
+									temp['catcall'] = 4
+									'"You''re a real piece of shit, you know that?" you huff. "You think that girls like this kind of thing? Ugly fucks like you calling out lewd shit about their bodies?"'
+									'"I don''t think they like it, I know they <i>love</i> it. Come on, I''m just being nice, giving you some nice compliments. No need to be such a bitch about it."'
+									'"Ugh, fuck you!" You spit at his shoes and break back into a run, trying to get as far away as possible.'
+									'"You know I would baby! Just come back here and we''ll make it happen!" the guy shouts after you.'
+									act'Finish your run':gt 'park_walkevents', 'run_end'
+								end
+								
+								act'Wanna fuck?':
+									cla & *nl
+									'"<<$pcs_nickname>>." you say flatly. "Nice to meet you. But really. You mean all that stuff you said? Cause if you''re serious, we could go back to your place and get it on. I could go for a good fuck right now."'
+									if rand(1,2) = 1:
+										'He blinks in surprise but recovers quickly. "I mean, hell yeah. If you''re offering."'
+										'"You''re the one who offered," you shrug. "Now hurry up and lead the way."'
+										'He quickly heads out of the park and towards an apartment complex, you follow all the way.'
+										gs 'npcpreservec', $npclastgenerated
+										act 'Go to his place':$hookup['pickup'] = 'park_run' & gt 'hookup', 'start'
+									else
+										'"Uhhh..." he blinks in surprise and begins sputtering. "Well I- You''re uhmm... It''s just-"'
+										'"Ugh," you roll your eyes. "What a waste of fucking time. Limp dick loser." You don''t spare him another thought and break back into a run, leaving him and your disappointment behind.'
+										act'Finish your run':gt 'park_walkevents', 'run_end'
+									end
+								end
+							end
+						end
+					end
+				end
+				if pcs_inhib >= 35 or exhibitionist_lvl > 0:
+					act 'Expose your breasts':
+						if daybegskver = daystart:
+							gs 'exercise', 'tier1', 30, 'run_exp'
+						else
+							gs 'exercise', 'tier2', 30, 'run_exp'
+						end
+						*clr & cla
+						inhib_exp += 2
+						gs 'arousal', 'flash', 5
+						gs 'arousal', 'end'
+						gs 'stat'
+						if rand(0,1) = 0:
+							'<center><img <<$set_imgh>> src="images/locations/shared/park/flash'+rand(3,4)+'.jpg"></center>'
+						else
+							'<center><video autoplay loop src="images/locations/shared/park/flash'+rand(1,2)+'.mp4"></video></center>'
+						end
+						'Halfway through your run, you pull up your top and expose your breasts. The cool air against your warm skin causes you to shiver, and almost immediately your nipples start to harden, a mixed reaction from the air hitting them and your growing excitement.'
+						*nl
+						gs 'park_walkevents', 'run_reactions'
+					end
+				end
+			else
+				cla & *clr
+				if $region = 'pav':
+					gs'pav_park', 'park_image'
+				else
+					'<center><img <<$set_imgh>> src="images/locations/city/centralpark/park.jpg"></center>'
+				end
+				if $daystage['desc'] = 'sunset':
+					'It''s getting dark soon. Are you sure it''s such a good idea to go running right now?'
+				elseif $daystage['desc'] = 'early_night':
+					'It''s pretty dark out. Are you sure it''s such a good idea to go running right at night?'
+				elseif $daystage['desc'] = 'mid_night':
+					'It''s very dark out. Are you sure it''s such a good idea to go running so late at night?'
+				elseif $daystage['desc'] = 'pre_dawn':
+					'It''s still dark out. Are you sure it''s such a good idea to go running so early in the morning?'
+				end
+				
+				act'Maybe not':
+					cla & *nl
+					'On second thought, maybe a young girl like yourself <i>shouldn''t</i> go running in the dark...'
+					act'Continue':gt $loc, $loc_arg
+				end
+				
+				act'It''ll be fine':
+					!! if running late at night
 					*clr & cla
-					inhib_exp += 2
-					gs 'arousal', 'flash', 5
-					gs 'arousal', 'end'
+					menu_off = 1
+					fat -= rand(0,4)
+					gs 'sweat', 'add', 5
 					gs 'stat'
-					if rand(0,1) = 0:
-						'<center><img <<$set_imgh>> src="images/locations/shared/park/flash'+rand(3,4)+'.jpg"></center>'
-					else
-						'<center><video autoplay loop src="images/locations/shared/park/flash'+rand(1,2)+'.mp4"></video></center>'
+					gs 'park_walkevents', 'running_image'
+					'You ignore your instincts and start jogging through the park.'
+					act 'Run':
+						if daybegskver = daystart:
+							gs 'exercise', 'tier1', 30, 'run_exp'
+						else
+							gs 'exercise', 'tier2', 30, 'run_exp'
+						end
+						daybegskver = daystart
+						if rand(1,25) < 8 and cheat_street_rapists ! 1:
+							!! if rand(1,3) = 1: gangrape, else single rapist
+							!! not added yet because don''t have single rapist event written yet
+							temp['rape_type'] = 'gang'
+							cla & *clr
+							'<center><img <<$set_imgh>> src="images/shared/misc/jumped.jpg"></center>'
+							'About halfway through your run, you hear a branch snap to your left. You turn to see a shadow crouching in the bushes, but before you can react, arms grip you from behind and a dirty hand clamps over your mouth. Your eyes go wide with fear as several more shapes emerge from the darkness, moving towards you.'
+							*nl
+							'"Well well well, what do we have here?" a gravely voice says from behind you. "A tasty little treat for us to enjoy?"'
+							act'Scream':gt'rape_events', 'park_rape_struggle_start'
+							act'Fight!':gt'rape_events', 'fight_init'
+						else
+							gt 'park_walkevents', 'run_end'
+						end
+					end
+					if pcs_inhib >= 35 or exhibitionist_lvl > 0:
+						act 'Expose your breasts':
+							if daybegskver = daystart:
+								gs 'exercise', 'tier1', 30, 'run_exp'
+							else
+								gs 'exercise', 'tier2', 30, 'run_exp'
+							end
+							*clr & cla
+							inhib_exp += 1
+							gs 'arousal', 'flash', 5
+							gs 'arousal', 'end'
+							gs 'stat'
+							if rand(0,1) = 0:
+								'<center><img <<$set_imgh>> src="images/locations/shared/park/flash'+rand(3,4)+'.jpg"></center>'
+							else
+								'<center><video autoplay loop src="images/locations/shared/park/flash'+rand(1,2)+'.mp4"></video></center>'
+							end
+							'Halfway through your run, you pull up your top and expose your breasts. The cool night air against your warm skin causes you to shiver and almost immediately your nipples start to harden.'
+							*nl
+							if rand(1,25) < 8 and cheat_street_rapists ! 1:
+								act'Continue':
+								!! if rand(1,3) = 1: gangrape, else single rapist
+								!! not added yet because don''t have single rapist event written yet
+								temp['rape_type'] = 'gang'
+								cla & *clr
+								'<center><img <<$set_imgh>> src="images/shared/misc/jumped.jpg"></center>'
+								'You''re just thinking to yourself how exciting it is to bare your breasts even when no one is around when suddenly arms grip you from behind and a dirty hand clamps over your mouth. Your eyes go wide with fear as several more shapes emerge from the darkness, moving towards you.'
+								*nl
+								'"Well well well, what do we have here?" a gravely voice says from behind you as another hand begins to paw your exposed breasts. "A little slut looking for some fun?"'
+								act'Scream':gt'rape_events', 'park_rape_struggle_start'
+								act'Fight!':gt'rape_events', 'fight_init'
+							else
+								gs 'park_walkevents', 'run_reactions'
+							end
+						end
 					end
-					'Halfway through your run, you pull up your top and expose your breasts. The cool air against your warm skin causes you to shiver, and almost immediately your nipples start to harden, a mixed reaction from the air hitting them and your growing excitement.'
-					*nl
-					gs 'park_walkevents', 'run_reactions'
 				end
 			end
 		end
-	elseif $clothingworntype = 'danilovich_outfits' and $shoeworntype = 'danilovich' and hour > 5 and hour < 23 and daybegskver ! daystart:
-		act 'Jog through the park (1:00)': '<br><font color="red">You feel too hungry to do this.</font>'
-	elseif ($clothingworntype ! 'danilovich_outfits' or $shoeworntype ! 'danilovich') and hour > 5 and hour < 23 and daybegskver ! daystart:
+	elseif ($clothingworntype ! 'danilovich_outfits' or $shoeworntype ! 'danilovich') and hour > 5 and hour < 23:
 		'You could jog around the park if you were wearing sports clothes and shoes.'
 	end
 end
@@ -942,6 +1131,22 @@ if $ARGS[0] = 'run_reactions':
 	act 'Finish your run': gt $loc, $loc_arg
 end
 
+if $ARGS[0] = 'run_end':
+	gs 'park_walkevents', 'running_image'
+	if temp['catcall'] = 4:
+		pcs_mood -= 30
+		'After about a full hour of running, you finally start to slow down, breathing tiredly. Under normal circumstances, you might be in the middle of your runner''s high but that guy in the middle of your jog just soured the whole thing. You feel exhausted and angry and you just want to go home.'
+	else
+		'An hour after you started, you call your run to a halt, breathing tiredly. You feel exhausted in a good way. A bit sweaty, but also that you''ve managed to improve your stamina as you even feel a bit slimmer.'
+	end
+	if daybegskver = daystart:
+		gs 'exercise', 'tier1', 30, 'run_exp'
+	else
+		gs 'exercise', 'tier2', 30, 'run_exp'
+	end
+	act 'Continue': gt $loc, $loc_arg
+end
+
 if $ARGS[0] = 'find_baby':
 	menu_off = 1
 	if hour >= 8 and hour <= 20 and park_baby_found < 1: