
0 value rangerp
0 value rangero
0 value rangerg
0 value rangerb

0 value hazmat1
0 value hazmata
0 value hazmatb

0 value mystfactory
0 value museumtype

0 value junkpal1
0 value junkpal2

cyoa{ road{

// Lab Office

cyoa: rare1-lab
	"Ominous Laboratory" cyoa-title!
	($ Thegroup .. " drives past an office complex. The sign says " .. "OMNI-BIO-CORP LABS" rbold .. ", which sounds way too evil to be a real company." $) cyoa-text! 3 500 tone
	1.7 8 18 rnd 1 2 rnd zforecast // former 2.5, 2
	"events/rareloc/region/laboffice.df" $load-region
		choice( "Investigate Office" )choice: premission
		gas-draw
;

// Cabin Bunker

cyoa: rare1-bunker
	// image-cabin-in-woods
	"Concrete Bunker" cyoa-title!
	($ Thegroup .. " sees a monstrous army of zombs near a forest road! They are milling around a small concrete structure jutting from the ground." $) cyoa-text! 3 500 tone
	2.4 12 16 rnd 0 zforecast // former 3.5, 2.4
	"events/rareloc/region/bunker.df" $load-region
		choice( "Check it out" )choice: premission
		gas-draw
;

// Junkyard Pals

cyoa: junkpalsrescue
	"Junkyard Rescue" cyoa-title!
	($ Thegroup .. " escapes the junkyard!" $) text! goodfx
	junkpal1 0= not if
		0 junkpal1 .party!
		junkpal1 .alive? if
			($ "Clem" pbold .. " survives, and shows some great repair tips while he fixes up the car!" $) +crtext
			car-weld-rnd car-tune-rnd
			' .mechanic++ foreach-team-char
		else
			($ "Clem" pbold .. " did not escape with you." $) +crtext
			morale--all
		then
	then
	junkpal2 0= not if
		0 junkpal2 .party!
		junkpal2 .alive? if
			($ "You rescued " .. "Leonard" pbold .. ". In thanks, he gives " .. thegroup .. " some shooting tips!" $) +crtext
			30 trunk-rifle-shell+
			' .shooting++ foreach-team-char
		else
			($ "Leonard" pbold .. "'s adventures have ended." $) +crtext
			morale--all
		then
	then
;

cyoa: rare1-junk
	"Junkyard Pals" cyoa-title!
	char-gen to recruitee 67 recruitee .specialtype! ricon
	($ Thegroup .. " sees two people get trapped in a junkyard by a massive crowd of zombies. They could be saved from their fates, if you distract the horde!" $) text! 3 500 tone
	2 12 16 rnd 3 zforecast // former 2.6
	"events/rareloc/region/junkpals.df" $load-region
		choice( "Save them!" )choice: premission
		gas-draw
;

// Fishing

cyoa: rare1-fish
	"Fishing Cabins" cyoa-title!
	($ Thegroup .. " notices a small row of fishing cabins past a river. Let's go fishing! You're out of luck if underwater creatures are having their own zombie apocalypse." $) text! 3 500 tone
	1.3 8 18 rnd 1 2 rnd zforecast
	"events/rareloc/region/fishing.df" $load-region
		choice( "Try fishing" )choice: premission
		gas-draw
;

// Museum

cyoa: rare1-museum
	"Museum Field Trip" cyoa-title!
	someicon 0 3 rnd to museumtype
	($ Thegroup .. " drives close to a museum. It must have been popular, as the undead are " .. "out in droves." rbold .. " Signs and banners outside advertise the " $) cyoa-text! 3 500 tone
	museumtype case
		0 of "MALL KATANAS OF THE UNITED STATES" endof
		1 of "CALL OF GUNS MODERN GUNFARE 20" endof
		2 of "MEDIEVAL AXES AND ARMS" endof
		3 of "SNACK FOODS OF THE KNOWN WORLD" endof
	endcase rbold +text " exhibit." +text
	2 8 18 rnd 1 2 rnd zforecast
	"events/rareloc/region/museum.df" $load-region
		choice( "Visit Museum" )choice: premission
		gas-draw
;

// Mystery Factory

cyoa: rare1-factory
	"Mystery Factory" cyoa-title!
	someicon 0 8 rnd to mystfactory
	($ Thegroup .. " spots a factory whose signs have rusted to nothing. The zombies are " .. "swarming" rbold .. " over the whole place. There's probably some of whatever the factory made left inside, whatever that was." $) cyoa-text! 3 500 tone
	1.5 8 18 rnd 1 2 rnd zforecast // former 1.8
	"events/rareloc/region/industry.df" $load-region
		choice( "Investigate Factory" )choice: premission
		gas-draw
;

// Sacrificial Altar

cyoa: rare1-altar
	"Malicious House" cyoa-title!
	
	($ Thegroup .. " runs into a house at the end of a cul-de-sac. It radiates an " .. "OVERWHELMING" rbold .. " sense of dread and malice.
	There might be a can of food inside!" $) cyoa-text! 3 500 tone
	1.6 8 18 rnd 0 1 rnd zforecast // former 2.3
	"events/rareloc/region/altar.df" $load-region
		choice( "Investigate House" )choice: premission
		gas-draw
;

// Wienermobile

cyoa: rare1-hotdog
	"Giant Hot Dog" cyoa-title!
	
	($ Thegroup .. " sees a gigantic hot dog sitting on the side of the road, in the middle of a bunch of stores. Maybe it is a hallucination? Or some sort of trap?" $) cyoa-text! 3 500 tone
	2.3 8 18 rnd 0 1 rnd zforecast
	"events/rareloc/region/hotdog.df" $load-region
		choice( "Investigate Hot Dog" )choice: premission
		gas-draw
;

// Hermit

cyoa: rare1-hermit
	// image-cabin-in-woods
	char-gen to recruitee 2 recruitee .specialtype! ricon
	"Neighborly Visit" cyoa-title!
	($ "While trying to drive away from a big horde, " .. thegroup .. " takes a detour through the deep woods. After taking a wrong turn, they spot a cabin. There's smoke coming from the chimney!" $) cyoa-text! 3 500 tone
	3 12 16 rnd 1 siegecast // 2.2
	"events/rareloc/region/hermit.df" $load-region
		choice( "Check it out" )choice: premission
		gas-draw
;

// Alien Car

cyoa: rare1-ufo
	"The Truth Is Out There" cyoa-title!
		char-gen to recruitee 51 recruitee .specialtype! ricon
		($ "While driving through the woods, " .. thegroup .. " SEES A UFO AMIDST THE TREES! WHOAAAAAAA!!!!" rbold .. "
		Watch out! There's something moving near it!" $) cyoa-text!
		2.8 14 19 rnd 2 siegecast // untouched
		"events/rareloc/region/alien.df" $load-region
		choice( "Investigate UFO!" )choice: premission
		gas-draw
	 goodfx
;

// Hazmat Guys

cyoa: hazmatrescue
	"Hazmat Rescue" cyoa-title!
	($ Thegroup .. " escapes the sewer!" $) text!
	hazmat1 0= hazmata 0= hazmatb 0= or or if
		($ Thegroup .. " left before finding everyone, so there was no reward." $) +crtext
		morale--all badfx
	then;
		0 hazmat1 .party! 0 hazmata .party! 0 hazmatb .party!
		hazmat1 .alive? hazmata .alive? hazmatb .alive? and and if
			"The entire Hazmat Team made it out alive!" +crtext
			morale2+all
		else
			"Not all of the Hazmat Team made it out, but the help was still appreciated." +crtext
		then

		hazmat1 .alive? if
			($ "Matt" pbold .. " reveals a stash of carefully sealed medical supplies!" $) +crtext
			10 trunk-medical+
		else
			($ "Matt" pbold .. " didn't survive his rescue mission." $) +crtext
		then

		hazmata .alive? if
			($ "Matilda" pbold .. " shows off a cache of food. It may or may not have been stashed in the sewer..." $) +crtext
			20 trunk-food+
		else
			($ "Matilda" pbold .. " didn't make it out of the sewer." $) +crtext
		then

		hazmatb .alive? if
			($ "Mattie" pbold .. " pantomimes some emergency medical techniques." $) +crtext
			' .medical++ foreach-team-char
		else
			($ "Mattie" pbold .. " was left behind." $) +crtext
		then

;

cyoa: rare1-hazmat
	cyoa-start
	"Hazardous Materials" cyoa-title!
	char-gen to recruitee 23 recruitee .specialtype! ricon
	($ Thegroup .. " is driving through an empty city when they see a man in the road. He is in a hazmat suit and is beckoning " .. thegroup .. " for help. As the car gets closer, he opens a manhole and enters the sewer." $) cyoa-text! 3 500 tone
		1.5 19 22 rnd 2 3 rnd zforecast
		// mission{ ' door-no-escape to main-event-mission-location-leave }
		"events/rareloc/region/hazmat.df" $load-region
		choice( "Go after him!" )choice: premission
		gas-draw
;

// Danger Rangers

cyoa: rangerrescue
	"Danger Ranger Fan Club" cyoa-title!
	($ Thegroup .. " escapes that swarmed suburb." $) text!
	rangerp 0= not if
		0 rangerp .party!
		rangerp .alive? if
			($ "Pink" pbold .. " unleashes her Healing Ranger Ray!" $) +crtext
			6 groupheal
		else
			($ "Pink" pbold .. " is no longer there to support the group." $) +crtext
		then
	then
	rangero 0= not if
		0 rangero .party!
		rangero .alive? if
			($ "Orange" pbold .. " bestows some of her energy and fitness." $) +crtext
			' .fitness++ foreach-team-char
		else
			($ "Orange" pbold .. " didn't make it. Their team is lessened." $) +crtext
		then
	then
	rangerg 0= not if
		0 rangerg .party!
		rangerg .alive? if
			($ "Green" pbold .. " grants some of his famous strength." $) +crtext
			' .strength++ foreach-team-char
		else
			($ "Green" pbold .. "'s mighty strength will be missed." $) +crtext
		then
	then
	rangerb 0= not if
		0 rangerb .party!
		rangerb .alive? if
			($ "Blue" pbold .. " gives an inspirational pep talk!" $) +crtext
			morale2+all
		else
			($ "Blue" pbold .. " will no longer provide leadership." $) +crtext
		then
	then
	rangerp 0= rangero 0= rangerg 0= rangerb 0= or or or if
		($ Thegroup .. " feels inadequate over not finding everyone." $) +crtext
		morale--all badfx
	else
		goodfx
	then
;

cyoa: rangerp
	nearestget nearest .character@ to rangerp
	rangerp choosechar cicon
	dead? if npc-died then;
	"Danger Ranger: Pink" cyoa-title!
	($ cname .. " says " .. che .. " is glad " .. pname .. " showed up. 
	She assumes a martial arts stance!" $) cyoa-text!
		mission{ ' rangerrescue to post-mission-cyoa }
;

cyoa: rangero
	nearestget nearest .character@ to rangero
	rangero choosechar cicon
	dead? if npc-died then;
	"Danger Ranger: Orange" cyoa-title!
	($ cname .. " says " .. che .. " needs to get back to her team.
	She does a fancy kick to emphasize her sentence, and loses a shoe." $) cyoa-text!
		mission{ ' rangerrescue to post-mission-cyoa }
;

cyoa: rangerg
	nearestget nearest .character@ to rangerg
	rangerg choosechar cicon
	dead? if npc-died then;
	"Danger Ranger: Green" cyoa-title!
	($ cname .. " says " .. che .. " could use some help! 
	He cracks his knuckles and starts following." $) cyoa-text!
		mission{ ' rangerrescue to post-mission-cyoa }
;

cyoa: rangerb
	nearestget nearest .character@ to rangerb
	rangerb choosechar cicon
	dead? if npc-died then;
	"Danger Ranger: Blue" cyoa-title!
	($ cname .. " says " .. che .. " got separated from his team. 
	He does a few little poses for no good reason." $) cyoa-text!
		mission{ ' rangerrescue to post-mission-cyoa }
;

cyoa: rare1-rangers
	"Danger Rangers" cyoa-title!
	char-gen to recruitee 44 recruitee .specialtype! ricon
	($ Thegroup .. " sees four people in bright, shiny outfits. They're running around punching zombies and doing little poses. They get overwhelmed by the swarm and flee in different directions." $) cyoa-text! 3 500 tone
	2.5 8 14 rnd 2 zforecast // former 3
	"events/rareloc/region/city-rangers.df" $load-region
		choice( "Try to save them" )choice: premission
		gas-draw
;

// Bryce Li

cyoa-choice: bruce-picked 
	($ cname .. " gets a crash course in martial arts!" .. cHe .. " is able to learn one very handy move.
	Now " .. chis .. " hands are anti-zombie weapons!" $) text!
	WEAPON_KUNG cchar .weapon_default! goodfx
;

cyoa: brucerescued
	rescue to recruitee ricon
	0 rescue .party!
	recruitee .alive? if
		"Enter the Death Road" cyoa-title!
		($ rname .. " gets out of the car once it drives safely past the swarmed city." $) text!
		solohuman if
			soloer choosechar
			($ "In return for the help, he teaches " .. cname .. " how to splat zombies with " .. chis .. " bare hands!" $) +crtext
			WEAPON_KUNG cchar .weapon_default! goodfx
		else		
			($ "In thanks for helping " .. rhim .. ", " .. rhe .. " offers to teach one person how to splat zombies bare-handed.
			Who should get the training?" $) +crtext
			' bruce-picked cyoa-human-choice
		then
	else
		"Crushing Defeat" cyoa-title!
		($ Thegroup .. " feels a great sense of loss over " .. rname .. " getting eaten.
		His martial arts knowledge is now gone." $) cyoa-text!
		morale2-all badfx
	then
;

cyoa-choice: brucerescue-2
	($ cname .. " starts following " .. pname .. "!
	" .. cHe .. " takes a deep breath, and then assumes a strange fighting stance..." $) cyoa-text!
	0.25 rescue .ai.wander_chance!
	1 rescue .party! 0 nearest .unseen! clear-cyoa goodfx
	mission{ ' brucerescued to post-mission-cyoa }
;

cyoa: brucerescue
	rescue choosechar cicon
	"Bryce Lu" rescue .name!
	dead? if npc-died then;
	"The Way of the Zombie" cyoa-title!
	($ cname .. " says " .. che .. " is glad " .. pname .. " showed up.
	" .. cHe .. " got cornered while trying to sneak past the city on foot. " .. cHe .. " offers to teach " .. pname .. " an anti-zombie martial arts technique if he can get a ride out of here." $) cyoa-text!
		choice( "Let " .. chim .. " follow you"  )choice: brucerescue-2
		choice( "Leave " .. chim .. " for now" )choice
;

cyoa: rare1-bruce
	"Kung Fu to Canada" cyoa-title!
	char-gen to recruitee 48 recruitee .specialtype! ricon
	($ "While driving through a very crowded city, " .. thegroup .. " sees a survivor sneaking through the crowds. He's doing a pretty good job being sneaky, despite his bright yellow jumpsuit." $) cyoa-text! 3 500 tone
	2.2 10 12 rnd 0 1 rnd zforecast // formerly 3.5, 2.7 diff
	"events/rareloc/region/city-bruce.df" $load-region
		choice( "Try to reach him" )choice: premission
		gas-draw
;

} }



