;METEOR SHOWER - include a, b, c, e, f in human child scripts ********************** {missions\00\meteors000.txt|OPT_METEORS=0} {missions\00\meteors001.txt|OPT_METEORS=1} {missions\00\meteors002.txt|OPT_METEORS=2} {missions\00\meteors003.txt|OPT_METEORS=3} :Stellar200 if meteorand = 0 then set meteorcounter (turn + 2000) multitrigger :stellar200a end :stellar200a if 0 then set meteorand 99 set meteormessage 0 set meteor 0 disable end :stellar200b if array ownbiodeck 0 = 1 meteormessage = 0 then incoming stellar_event respond evac within 1900 icon 9 skill ((rnd%10000) + 100) "events_meteor00" ; status_message "DEBUG ** Meteors have been created ** DEBUG" set meteormessage 99 end :stellar200c if array ownbiodeck 0 = 0 meteormessage = 0 then incoming stellar_event within 1900 icon 9 skill ((rnd%10000) + 100) "events_meteor00a" ; status_message "DEBUG ** Meteors have been created ** DEBUG" set meteormessage 99 end :stellar200d if meteor = 0 meteorcounter < turn then multitrigger :stellar200e set meteor 99 meteor_shower 0 bio_deck ((rnd%4) + 1) end :stellar200e if 0 then status_message "events_meteor00b" disable end :stellar200f if meteor = 0 evac = 2 then evacuate bio_deck 0 ((meteorcounter - turn) / 24) set evac 3 end :Stellar201 if meteorand = 1 then set meteorcounter (turn + 2000) multitrigger :stellar201a end :stellar201a if 0 then set meteorand 99 set meteormessage 1 set meteor 1 disable end :stellar201b if array ownbiodeck 1 = 1 meteormessage = 1 then incoming stellar_event respond evac within 1900 icon 9 skill ((rnd%10000) + 100) "events_meteor01" ; status_message "DEBUG ** Meteors have been created ** DEBUG" set meteormessage 99 end :stellar201c if array ownbiodeck 1 = 0 meteormessage = 1 then incoming stellar_event within 1900 icon 9 skill ((rnd%10000) + 100) "events_meteor01a" ; status_message "DEBUG ** Meteors have been created ** DEBUG" set meteormessage 99 end :stellar201d if meteor = 1 meteorcounter < turn then multitrigger :stellar201e set meteor 99 meteor_shower 1 bio_deck ((rnd%4) + 1) end :stellar201e if 0 then status_message "events_meteor01b" disable end :stellar201f if meteor = 1 evac = 2 then evacuate bio_deck 1 ((meteorcounter - turn) / 24) set evac 3 end :Stellar202 if meteorand = 2 then set meteorcounter (turn + 2000) multitrigger :stellar202a end :stellar202a if 0 then set meteorand 99 set meteormessage 2 set meteor 2 disable end :stellar202b if array ownbiodeck 2 = 1 meteormessage = 2 then incoming stellar_event respond evac within 1900 icon 9 skill ((rnd%10000) + 100) "events_meteor02" ; status_message "DEBUG ** Meteors have been created ** DEBUG" set meteormessage 99 end :stellar202c if array ownbiodeck 2 = 0 meteormessage = 2 then incoming stellar_event within 1900 icon 9 skill ((rnd%10000) + 100) "events_meteor02a" ; status_message "DEBUG ** Meteors have been created ** DEBUG" set meteormessage 99 end :stellar202d if meteor = 2 meteorcounter < turn then multitrigger :stellar202e set meteor 99 meteor_shower 2 bio_deck ((rnd%4) + 1) end :stellar202e if 0 then status_message "events_meteor02b" disable end :stellar202f if meteor = 2 evac = 2 then evacuate bio_deck 2 ((meteorcounter - turn) / 24) set evac 3 end :Stellar203 if meteorand = 3 then set meteorcounter (turn + 2000) multitrigger :stellar203a end :stellar203a if 0 then set meteorand 99 set meteormessage 3 set meteor 3 disable end :stellar203b if array ownbiodeck 3 = 1 meteormessage = 3 then incoming stellar_event respond evac within 1900 icon 9 skill ((rnd%10000) + 100) "events_meteor03" ; status_message "DEBUG ** Meteors have been created ** DEBUG" set meteormessage 99 end :stellar203c if array ownbiodeck 3 = 0 meteormessage = 3 then incoming stellar_event within 1900 icon 9 skill ((rnd%10000) + 100) "events_meteor03a" ; status_message "DEBUG ** Meteors have been created ** DEBUG" set meteormessage 99 end :stellar203d if meteor = 3 meteorcounter < turn then multitrigger :stellar203e set meteor 99 meteor_shower 3 bio_deck ((rnd%4) + 1) end :stellar203e if 0 then status_message "events_meteor03b" disable end :stellar203f if meteor = 3 evac = 2 then evacuate bio_deck 3 ((meteorcounter - turn) / 24) set evac 3 end :Stellar204 if meteorand = 4 then set meteorcounter (turn + 2000) multitrigger :stellar204a end :stellar204a if 0 then set meteorand 99 set meteormessage 4 set meteor 4 disable end :stellar204b if array ownbiodeck 4 = 1 meteormessage = 4 then incoming stellar_event respond evac within 1900 icon 9 skill ((rnd%10000) + 100) "events_meteor04" ; status_message "DEBUG ** Meteors have been created ** DEBUG" set meteormessage 99 end :stellar204c if array ownbiodeck 4 = 0 meteormessage = 4 then incoming stellar_event within 1900 icon 9 skill ((rnd%10000) + 100) "events_meteor04a" ; status_message "DEBUG ** Meteors have been created ** DEBUG" set meteormessage 99 end :stellar204d if meteor = 4 meteorcounter < turn then multitrigger :stellar204e set meteor 99 meteor_shower 4 bio_deck ((rnd%4) + 1) end :stellar204e if 0 then status_message "events_meteor04b" disable end :stellar204f if meteor = 4 evac = 2 then evacuate bio_deck 4 ((meteorcounter - turn) / 24) set evac 3 end :Stellar205 if meteorand = 5 then set meteorcounter (turn + 2000) multitrigger :stellar205a end :stellar205a if 0 then set meteorand 99 set meteormessage 5 set meteor 5 disable end :stellar205b if array ownbiodeck 5 = 1 meteormessage = 5 then incoming stellar_event respond evac within 1900 icon 9 skill ((rnd%10000) + 100) "events_meteor05" ; status_message "DEBUG ** Meteors have been created ** DEBUG" set meteormessage 99 end :stellar205c if array ownbiodeck 5 = 0 meteormessage = 5 then incoming stellar_event within 1900 icon 9 skill ((rnd%10000) + 100) "events_meteor05a" ; status_message "DEBUG ** Meteors have been created ** DEBUG" set meteormessage 99 end :stellar205d if meteor = 5 meteorcounter < turn then multitrigger :stellar205e set meteor 99 meteor_shower 5 bio_deck ((rnd%4) + 1) end :stellar205e if 0 then status_message "events_meteor05b" disable end :stellar205f if meteor = 5 evac = 2 then evacuate bio_deck 5 ((meteorcounter - turn) / 24) set evac 3 end :Stellar206 if meteorand = 6 then set meteorcounter (turn + 2000) multitrigger :stellar206a end :stellar206a if 0 then set meteorand 99 set meteormessage 6 set meteor 6 disable end :stellar206b if array ownbiodeck 6 = 1 meteormessage = 6 then incoming stellar_event respond evac within 1900 icon 9 skill ((rnd%10000) + 100) "events_meteor06" ; status_message "DEBUG ** Meteors have been created ** DEBUG" set meteormessage 99 end :stellar206c if array ownbiodeck 6 = 0 meteormessage = 6 then incoming stellar_event within 1900 icon 9 skill ((rnd%10000) + 100) "events_meteor06a" ; status_message "DEBUG ** Meteors have been created ** DEBUG" set meteormessage 99 end :stellar206d if meteor = 6 meteorcounter < turn then multitrigger :stellar206e set meteor 99 meteor_shower 6 bio_deck ((rnd%4) + 1) end :stellar206e if 0 then status_message "events_meteor06b" disable end :stellar206f if meteor = 6 evac = 2 then evacuate bio_deck 6 ((meteorcounter - turn) / 24) set evac 3 end :Stellar207 if meteorand = 7 then set meteorcounter (turn + 2000) multitrigger :stellar207a end :stellar207a if 0 then set meteorand 99 set meteormessage 7 set meteor 7 disable end :stellar207b if array ownbiodeck 7 = 1 meteormessage = 7 then incoming stellar_event respond evac within 1900 icon 9 skill ((rnd%10000) + 100) "events_meteor07" ; status_message "DEBUG ** Meteors have been created ** DEBUG" set meteormessage 99 end :stellar207c if array ownbiodeck 7 = 0 meteormessage = 7 then incoming stellar_event within 1900 icon 9 skill ((rnd%10000) + 100) "events_meteor07a" ; status_message "DEBUG ** Meteors have been created ** DEBUG" set meteormessage 99 end :stellar207d if meteor = 7 meteorcounter < turn then multitrigger :stellar207e set meteor 99 meteor_shower 7 bio_deck ((rnd%4) + 1) end :stellar207e if 0 then status_message "events_meteor07b" disable end :stellar207f if meteor = 7 evac = 2 then evacuate bio_deck 7 ((meteorcounter - turn) / 24) set evac 3 end :Stellar208 if meteorand = 8 then set meteorcounter (turn + 2000) multitrigger :stellar208a end :stellar208a if 0 then set meteorand 99 set meteormessage 8 set meteor 8 disable end :stellar208b if array ownbiodeck 8 = 1 meteormessage = 8 then incoming stellar_event respond evac within 1900 icon 9 skill ((rnd%10000) + 100) "events_meteor08" ; status_message "DEBUG ** Meteors have been created ** DEBUG" set meteormessage 99 end :stellar208c if array ownbiodeck 8 = 0 meteormessage = 8 then incoming stellar_event within 1900 icon 9 skill ((rnd%10000) + 100) "events_meteor08a" ; status_message "DEBUG ** Meteors have been created ** DEBUG" set meteormessage 99 end :stellar208d if meteor = 8 meteorcounter < turn then multitrigger :stellar208e set meteor 99 meteor_shower 8 bio_deck ((rnd%4) + 1) end :stellar208e if 0 then status_message "events_meteor08b" disable end :stellar208f if meteor = 8 evac = 2 then evacuate bio_deck 8 ((meteorcounter - turn) / 24) set evac 3 end :Stellar209 if meteorand = 9 then set meteorcounter (turn + 2000) multitrigger :stellar209a end :stellar209a if 0 then set meteorand 99 set meteormessage 9 set meteor 9 disable end :stellar209b if array ownbiodeck 9 = 1 meteormessage = 9 then incoming stellar_event respond evac within 1900 icon 9 skill ((rnd%10000) + 100) "events_meteor09" ; status_message "DEBUG ** Meteors have been created ** DEBUG" set meteormessage 99 end :stellar209c if array ownbiodeck 9 = 0 meteormessage = 9 then incoming stellar_event within 1900 icon 9 skill ((rnd%10000) + 100) "events_meteor09a" ; status_message "DEBUG ** Meteors have been created ** DEBUG" set meteormessage 99 end :stellar209d if meteor = 9 meteorcounter < turn then multitrigger :stellar209e set meteor 99 meteor_shower 9 bio_deck ((rnd%4) + 1) end :stellar209e if 0 then status_message "events_meteor09b" disable end :stellar209f if meteor = 9 evac = 2 then evacuate bio_deck 9 ((meteorcounter - turn) / 24) set evac 3 end :Stellar210 if meteorand = 10 then set meteorcounter (turn + 2000) multitrigger :stellar210a end :stellar210a if 0 then set meteorand 99 set meteormessage 10 set meteor 10 disable end :stellar210b if array ownbiodeck 10 = 1 meteormessage = 10 then incoming stellar_event respond evac within 1900 icon 9 skill ((rnd%10000) + 100) "events_meteor10" ; status_message "DEBUG ** Meteors have been created ** DEBUG" set meteormessage 99 end :stellar210c if array ownbiodeck 10 = 0 meteormessage = 10 then incoming stellar_event within 1900 icon 9 skill ((rnd%10000) + 100) "events_meteor10a" ; status_message "DEBUG ** Meteors have been created ** DEBUG" set meteormessage 99 end :stellar210d if meteor = 10 meteorcounter < turn then multitrigger :stellar210e set meteor 99 meteor_shower 10 bio_deck ((rnd%4) + 1) end :stellar210e if 0 then status_message "events_meteor10b" disable end :stellar210f if meteor = 10 evac = 2 then evacuate bio_deck 10 ((meteorcounter - turn) / 24) set evac 3 end :Stellar211 if meteorand = 11 then set meteorcounter (turn + 2000) multitrigger :stellar211a end :stellar211a if 0 then set meteorand 99 set meteormessage 11 set meteor 11 disable end :stellar211b if array ownbiodeck 11 = 1 meteormessage = 11 then incoming stellar_event respond evac within 1900 icon 9 skill ((rnd%10000) + 100) "events_meteor11" ; status_message "DEBUG ** Meteors have been created ** DEBUG" set meteormessage 99 end :stellar211c if array ownbiodeck 11 = 0 meteormessage = 11 then incoming stellar_event within 1900 icon 9 skill ((rnd%10000) + 100) "events_meteor11a" ; status_message "DEBUG ** Meteors have been created ** DEBUG" set meteormessage 99 end :stellar211d if meteor = 11 meteorcounter < turn then multitrigger :stellar211e set meteor 99 meteor_shower 11 bio_deck ((rnd%4) + 1) end :stellar211e if 0 then status_message "events_meteor11b" disable end :stellar211f if meteor = 11 evac = 2 then evacuate bio_deck 11 ((meteorcounter - turn) / 24) set evac 3 end :Stellar212 if meteorand = 12 then set meteorcounter (turn + 2000) multitrigger :stellar212a end :stellar212a if 0 then set meteorand 99 set meteormessage 12 set meteor 12 disable end :stellar212b if array ownbiodeck 12 = 1 meteormessage = 12 then incoming stellar_event respond evac within 1900 icon 9 skill ((rnd%10000) + 100) "events_meteor12" ; status_message "DEBUG ** Meteors have been created ** DEBUG" set meteormessage 99 end :stellar212c if array ownbiodeck 12 = 0 meteormessage = 12 then incoming stellar_event within 1900 icon 9 skill ((rnd%10000) + 100) "events_meteor12a" ; status_message "DEBUG ** Meteors have been created ** DEBUG" set meteormessage 99 end :stellar212d if meteor = 12 meteorcounter < turn then multitrigger :stellar212e set meteor 99 meteor_shower 12 bio_deck ((rnd%4) + 1) end :stellar212e if 0 then status_message "events_meteor12b" disable end :stellar212f if meteor = 12 evac = 2 then evacuate bio_deck 12 ((meteorcounter - turn) / 24) set evac 3 end :Stellar213 if meteorand = 13 then set meteorcounter (turn + 2000) multitrigger :stellar213a end :stellar213a if 0 then set meteorand 99 set meteormessage 13 set meteor 13 disable end :stellar213b if array ownbiodeck 13 = 1 meteormessage = 13 then incoming stellar_event respond evac within 1900 icon 9 skill ((rnd%10000) + 100) "events_meteor13" ; status_message "DEBUG ** Meteors have been created ** DEBUG" set meteormessage 99 end :stellar213c if array ownbiodeck 13 = 0 meteormessage = 13 then incoming stellar_event within 1900 icon 9 skill ((rnd%10000) + 100) "events_meteor13a" ; status_message "DEBUG ** Meteors have been created ** DEBUG" set meteormessage 99 end :stellar213d if meteor = 13 meteorcounter < turn then multitrigger :stellar213e set meteor 99 meteor_shower 13 bio_deck ((rnd%4) + 1) end :stellar213e if 0 then status_message "events_meteor13b" disable end :stellar213f if meteor = 13 evac = 2 then evacuate bio_deck 13 ((meteorcounter - turn) / 24) set evac 3 end :Stellar214 if meteorand = 14 then set meteorcounter (turn + 2000) multitrigger :stellar214a end :stellar214a if 0 then set meteorand 99 set meteormessage 14 set meteor 14 disable end :stellar214b if array ownbiodeck 14 = 1 meteormessage = 14 then incoming stellar_event respond evac within 1900 icon 9 skill ((rnd%10000) + 100) "events_meteor14" ; status_message "DEBUG ** Meteors have been created ** DEBUG" set meteormessage 99 end :stellar214c if array ownbiodeck 14 = 0 meteormessage = 14 then incoming stellar_event within 1900 icon 9 skill ((rnd%10000) + 100) "events_meteor14a" ; status_message "DEBUG ** Meteors have been created ** DEBUG" set meteormessage 99 end :stellar214d if meteor = 14 meteorcounter < turn then multitrigger :stellar214e set meteor 99 meteor_shower 14 bio_deck ((rnd%4) + 1) end :stellar214e if 0 then status_message "events_meteor14b" disable end :stellar214f if meteor = 14 evac = 2 then evacuate bio_deck 14 ((meteorcounter - turn) / 24) set evac 3 end :Stellar215 if meteorand = 15 then set meteorcounter (turn + 2000) multitrigger :stellar215a end :stellar215a if 0 then set meteorand 99 set meteormessage 15 set meteor 15 disable end :stellar215b if array ownbiodeck 15 = 1 meteormessage = 15 then incoming stellar_event respond evac within 1900 icon 9 skill ((rnd%10000) + 100) "events_meteor15" ; status_message "DEBUG ** Meteors have been created ** DEBUG" set meteormessage 99 end :stellar215c if array ownbiodeck 15 = 0 meteormessage = 15 then incoming stellar_event within 1900 icon 9 skill ((rnd%10000) + 100) "events_meteor15a" ; status_message "DEBUG ** Meteors have been created ** DEBUG" set meteormessage 99 end :stellar215d if meteor = 15 meteorcounter < turn then multitrigger :stellar215e set meteor 99 meteor_shower 15 bio_deck ((rnd%4) + 1) end :stellar215e if 0 then status_message "events_meteor15b" disable end :stellar215f if meteor = 15 evac = 2 then evacuate bio_deck 15 ((meteorcounter - turn) / 24) set evac 3 end