These are the meteor shower files for the human player in the sandbox. I have added my comments in dark red. Include file text is added in dark green. These comments are based on my own analysis of the code and my experience in working with it. I do not have any special inside information from MuckyFoot about these files, and I may in some instances be wrong.
;METEOR SHOWER - include a, b, c, e, f in human child scripts **********************
; This file loades the element :Stellar000 from just one of the files
; based on the sandbox setting for frequency of meteors.
; To use this in a custom mission, make a copy of this file and replace
; the file includes with :Stellar000 from just one of the files.
{missions\00\meteors000.txt|OPT_METEORS=0}
; Never
:Stellar000
if
turn > meteorevent
then
disable
end
{missions\00\meteors001.txt|OPT_METEORS=1}
; Low Frequency
:Stellar000
if
turn > meteorevent
then
set meteorevent (((rnd%60000) + 60000) + turn)
set meteorand (rnd%16)
end
{missions\00\meteors002.txt|OPT_METEORS=2}
; Medium Frequency
:Stellar000
if
turn > meteorevent
then
set meteorevent (((rnd%40000) + 40000) + turn)
set meteorand (rnd%16)
end
{missions\00\meteors003.txt|OPT_METEORS=3}
; High Frequency
:Stellar000
if
turn > meteorevent
then
set meteorevent (((rnd%20000) + 20000) + turn)
set meteorand (rnd%16)
end
: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