PC World Plus! (NZ) 2001 October/PCW1001.iso/Games/startopiademo1.exe/missions/00/meteorsX00.txt

Text File | 2001-05-01 | 22KB | 1,306 lines

;METEOR SHOWER - include a, b, c, e, f in human child scripts **********************
:stellar200a
if
    0
then
    set meteorcreated 1
    disable
end

:stellar201a
if
    0
then
    set meteorcreated 2
    disable
end

:stellar202a
if
    0
then
    set meteorcreated 3
    disable
end

:stellar203a
if
    0
then
    set meteorcreated 4
    disable
end

:stellar204a
if
    0
then
    set meteorcreated 5
    disable
end

:stellar205a
if
    0
then
    set meteorcreated 6
    disable
end

:stellar206a
if
    0
then
    set meteorcreated 7
    disable
end

:stellar207a
if
    0
then
    set meteorcreated 8
    disable
end

:stellar208a
if
    0
then
    set meteorcreated 9
    disable
end

:stellar209a
if
    0
then
    set meteorcreated 10
    disable
end

:stellar210a
if
    0
then
    set meteorcreated 11
    disable
end

:stellar211a
if
    0
then
    set meteorcreated 12
    disable
end

:stellar212a
if
    0
then
    set meteorcreated 13
    disable
end

:stellar213a
if
    0
then
    set meteorcreated 14
    disable
end

:stellar214a
if
    0
then
    set meteorcreated 15
    disable
end

:stellar215a
if
    0
then
    set meteorcreated 16
    disable
end

;***********************************
:stellar200aAI
if
    meteorcreated = 1
    human = 0
then
    set evactime ((turn + 1900) - (satcom_count * 100))
    set meteor 0
    set meteorcreated 0
    disable
end

:stellar201aAI
if
    meteorcreated = 2
    human = 0
then
    set evactime ((turn + 1900) - (satcom_count * 100))
    set meteor 1
    set meteorcreated 0
    disable
end

:stellar202aAI
if
    meteorcreated = 3
    human = 0
then
    set evactime ((turn + 1900) - (satcom_count * 100))
    set meteor 2
    set meteorcreated 0
    disable
end

:stellar203aAI
if
    meteorcreated = 4
    human = 0
then
    set evactime ((turn + 1900) - (satcom_count * 100))
    set meteor 3
    set meteorcreated 0
    disable
end

:stellar204aAI
if
    meteorcreated = 5
    human = 0
then
    set evactime ((turn + 1900) - (satcom_count * 100))
    set meteor 4
    set meteorcreated 0
    disable
end

:stellar205aAI
if
    meteorcreated = 6
    human = 0
then
    set evactime ((turn + 1900) - (satcom_count * 100))
    set meteor 5
    set meteorcreated 0
    disable
end

:stellar206aAI
if
    meteorcreated = 7
    human = 0
then
    set evactime ((turn + 1900) - (satcom_count * 100))
    set meteor 6
    set meteorcreated 0
    disable
end

:stellar207aAI
if
    meteorcreated = 8
    human = 0
then
    set evactime ((turn + 1900) - (satcom_count * 100))
    set meteor 7
    set meteorcreated 0
    disable
end

:stellar208aAI
if
    meteorcreated = 9
    human = 0
then
    set evactime ((turn + 1900) - (satcom_count * 100))
    set meteor 8
    set meteorcreated 0
    disable
end

:stellar209aAI
if
    meteorcreated = 10
    human = 0
then
    set evactime ((turn + 1900) - (satcom_count * 100))
    set meteor 9
    set meteorcreated 0
    disable
end

:stellar210aAI
if
    meteorcreated = 11
    human = 0
then
    set evactime ((turn + 1900) - (satcom_count * 100))
    set meteor 10
    set meteorcreated 0
    disable
end

:stellar211aAI
if
    meteorcreated = 12
    human = 0
then
    set evactime ((turn + 1900) - (satcom_count * 100))
    set meteor 11
    set meteorcreated 0
    disable
end

:stellar212aAI
if
    meteorcreated = 13
    human = 0
then
    set evactime ((turn + 1900) - (satcom_count * 100))
    set meteor 12
    set meteorcreated 0
    disable
end

:stellar213aAI
if
    meteorcreated = 14
    human = 0
then
    set evactime ((turn + 1900) - (satcom_count * 100))
    set meteor 13
    set meteorcreated 0
    disable
end

:stellar214aAI
if
    meteorcreated = 15
    human = 0
then
    set evactime ((turn + 1900) - (satcom_count * 100))
    set meteor 14
    set meteorcreated 0
    disable
end

:stellar215aAI
if
    meteorcreated = 16
    human = 0
then
    set evactime ((turn + 1900) - (satcom_count * 100))
    set meteor 15
    set meteorcreated 0
    disable
end

;***********************************************************
:stellar200aHuman
if
    meteorcreated = 1
    human = 1
then
    set meteorcreated 0
    set meteorand 99
    set meteormessage 0
    set meteor 0
    disable
end

:stellar201aHuman
if
    meteorcreated = 2
    human = 1
then
    set meteorcreated 0
    set meteorand 99
    set meteormessage 1
    set meteor 1
    disable
end

:stellar202aHuman
if
    meteorcreated = 3
    human = 1
then
    set meteorcreated 0
    set meteorand 99
    set meteormessage 2
    set meteor 2
    disable
end

:stellar203aHuman
if
    meteorcreated = 4
    human = 1
then
    set meteorcreated 0
    set meteorand 99
    set meteormessage 3
    set meteor 3
    disable
end

:stellar204aHuman
if
    meteorcreated = 5
    human = 1
then
    set meteorcreated 0
    set meteorand 99
    set meteormessage 4
    set meteor 4
    disable
end

:stellar205aHuman
if
    meteorcreated = 6
    human = 1
then
    set meteorcreated 0
    set meteorand 99
    set meteormessage 5
    set meteor 5
    disable
end

:stellar206aHuman
if
    meteorcreated = 7
    human = 1
then
    set meteorcreated 0
    set meteorand 99
    set meteormessage 6
    set meteor 6
    disable
end

:stellar207aHuman
if
    meteorcreated = 8
    human = 1
then
    set meteorcreated 0
    set meteorand 99
    set meteormessage 7
    set meteor 7
    disable
end

:stellar208aHuman
if
    meteorcreated = 9
    human = 1
then
    set meteorcreated 0
    set meteorand 99
    set meteormessage 8
    set meteor 8
    disable
end

:stellar209aHuman
if
    meteorcreated = 10
    human = 1
then
    set meteorcreated 0
    set meteorand 99
    set meteormessage 9
    set meteor 9
    disable
end

:stellar210aHuman
if
    meteorcreated = 11
    human = 1
then
    set meteorcreated 0
    set meteorand 99
    set meteormessage 10
    set meteor 10
    disable
end

:stellar211aHuman
if
    meteorcreated = 12
    human = 1
then
    set meteorcreated 0
    set meteorand 99
    set meteormessage 11
    set meteor 11
    disable
end

:stellar212aHuman
if
    meteorcreated = 13
    human = 1
then
    set meteorcreated 0
    set meteorand 99
    set meteormessage 12
    set meteor 12
    disable
end

:stellar213aHuman
if
    meteorcreated = 14
    human = 1
then
    set meteorcreated 0
    set meteorand 99
    set meteormessage 13
    set meteor 13
    disable
end

:stellar214aHuman
if
    meteorcreated = 15
    human = 1
then
    set meteorcreated 0
    set meteorand 99
    set meteormessage 14
    set meteor 14
    disable
end

:stellar215aHuman
if
    meteorcreated = 16
    human = 1
then
    set meteorcreated 0
    set meteorand 99
    set meteormessage 15
    set meteor 15
    disable
end

;***************************************************
:stellar200bHuman
if
    human = 1
    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

:stellar201bHuman
if
    human = 1
    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

:stellar202bHuman
if
    human = 1
    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

:stellar203bHuman
if
    human = 1
    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

:stellar204bHuman
if
    human = 1
    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

:stellar205bHuman
if
    human = 1
    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

:stellar206bHuman
if
    human = 1
    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

:stellar207bHuman
if
    human = 1
    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

:stellar208bHuman
if
    human = 1
    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

:stellar209bHuman
if
    human = 1
    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

:stellar210bHuman
if
    human = 1
    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

:stellar211bHuman
if
    human = 1
    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

:stellar212bHuman
if
    human = 1
    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

:stellar213bHuman
if
    human = 1
    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

:stellar214bHuman
if
    human = 1
    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

:stellar215bHuman
if
    human = 1
    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

;**********************************************************************************
: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

: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

: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

: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

: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

: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

: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

: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

: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

: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

: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

: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

: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

: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

: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

: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

;********************************************************************************
:stellar200e
if
    0
then
    status_message "events_meteor00b"
    disable
end

:stellar201e
if
    0
then
    status_message "events_meteor01b"
    disable
end

:stellar202e
if
    0
then
    status_message "events_meteor02b"
    disable
end

:stellar203e
if
    0
then
    status_message "events_meteor03b"
    disable
end

:stellar204e
if
    0
then
    status_message "events_meteor04b"
    disable
end

:stellar205e
if
    0
then
    status_message "events_meteor05b"
    disable
end

:stellar206e
if
    0
then
    status_message "events_meteor06b"
    disable
end

:stellar207e
if
    0
then
    status_message "events_meteor07b"
    disable
end

:stellar208e
if
    0
then
    status_message "events_meteor08b"
    disable
end

:stellar209e
if
    0
then
    status_message "events_meteor09b"
    disable
end

:stellar210e
if
    0
then
    status_message "events_meteor10b"
    disable
end

:stellar211e
if
    0
then
    status_message "events_meteor11b"
    disable
end

:stellar212e
if
    0
then
    status_message "events_meteor12b"
    disable
end

:stellar213e
if
    0
then
    status_message "events_meteor13b"
    disable
end

:stellar214e
if
    0
then
    status_message "events_meteor14b"
    disable
end

:stellar215e
if
    0
then
    status_message "events_meteor15b"
    disable
end

;**************************************************************88
:stellar200fAI
if
    human = 0
    array ownbiodeck 0 = 1
    turn > evactime
    meteor = 0
then
    set meteor 99
    evacuate bio_deck 0 ((meteorcounter - turn) / 24)
end

:stellar201fAI
if
    human = 0
    array ownbiodeck 1 = 1
    turn > evactime
    meteor = 1
then
    set meteor 99
    evacuate bio_deck 1 ((meteorcounter - turn) / 24)
end

:stellar202fAI
if
    human = 0
    array ownbiodeck 2 = 1
    turn > evactime
    meteor = 2
then
    set meteor 99
    evacuate bio_deck 2 ((meteorcounter - turn) / 24)
end

:stellar203fAI
if
    human = 0
    array ownbiodeck 3 = 1
    turn > evactime
    meteor = 3
then
    set meteor 99
    evacuate bio_deck 3 ((meteorcounter - turn) / 24)
end

:stellar204fAI
if
    human = 0
    array ownbiodeck 4 = 1
    turn > evactime
    meteor = 4
then
    set meteor 99
    evacuate bio_deck 4 ((meteorcounter - turn) / 24)
end

:stellar205fAI
if
    human = 0
    array ownbiodeck 5 = 1
    turn > evactime
    meteor = 5
then
    set meteor 99
    evacuate bio_deck 5 ((meteorcounter - turn) / 24)
end

:stellar206fAI
if
    human = 0
    array ownbiodeck 6 = 1
    turn > evactime
    meteor = 6
then
    set meteor 99
    evacuate bio_deck 6 ((meteorcounter - turn) / 24)
end

:stellar207fAI
if
    human = 0
    array ownbiodeck 7 = 1
    turn > evactime
    meteor = 7
then
    set meteor 99
    evacuate bio_deck 7 ((meteorcounter - turn) / 24)
end

:stellar208fAI
if
    human = 0
    array ownbiodeck 8 = 1
    turn > evactime
    meteor = 8
then
    set meteor 99
    evacuate bio_deck 8 ((meteorcounter - turn) / 24)
end

:stellar209fAI
if
    human = 0
    array ownbiodeck 9 = 1
    turn > evactime
    meteor = 9
then
    set meteor 99
    evacuate bio_deck 9 ((meteorcounter - turn) / 24)
end

:stellar210fAI
if
    human = 0
    array ownbiodeck 10 = 1
    turn > evactime
    meteor = 10
then
    set meteor 99
    evacuate bio_deck 10 ((meteorcounter - turn) / 24)
end

:stellar211fAI
if
    human = 0
    array ownbiodeck 11 = 1
    turn > evactime
    meteor = 11
then
    set meteor 99
    evacuate bio_deck 11 ((meteorcounter - turn) / 24)
end

:stellar212fAI
if
    human = 0
    array ownbiodeck 12 = 1
    turn > evactime
    meteor = 12
then
    set meteor 99
    evacuate bio_deck 12 ((meteorcounter - turn) / 24)
end

:stellar213fAI
if
    human = 0
    array ownbiodeck 13 = 1
    turn > evactime
    meteor = 13
then
    set meteor 99
    evacuate bio_deck 13 ((meteorcounter - turn) / 24)
end

:stellar214fAI
if
    human = 0
    array ownbiodeck 14 = 1
    turn > evactime
    meteor = 14
then
    set meteor 99
    evacuate bio_deck 14 ((meteorcounter - turn) / 24)
end

:stellar215fAI
if
    human = 0
    array ownbiodeck 15 = 1
    turn > evactime
    meteor = 15
then
    set meteor 99
    evacuate bio_deck 15 ((meteorcounter - turn) / 24)
end

;*************************************************************
:stellar200fHuman
if
    human = 1
    meteor = 0
    evac = 2
then
    evacuate bio_deck 0 ((meteorcounter - turn) / 24)
    set evac 3
end

:stellar201fHuman
if
    human = 1
    meteor = 1
    evac = 2
then
    evacuate bio_deck 1 ((meteorcounter - turn) / 24)
    set evac 3
end

:stellar202fHuman
if
    human = 1
    meteor = 2
    evac = 2
then
    evacuate bio_deck 2 ((meteorcounter - turn) / 24)
    set evac 3
end

:stellar203fHuman
if
    human = 1
    meteor = 3
    evac = 2
then
    evacuate bio_deck 3 ((meteorcounter - turn) / 24)
    set evac 3
end

:stellar204fHuman
if
    human = 1
    meteor = 4
    evac = 2
then
    evacuate bio_deck 4 ((meteorcounter - turn) / 24)
    set evac 3
end

:stellar205fHuman
if
    human = 1
    meteor = 5
    evac = 2
then
    evacuate bio_deck 5 ((meteorcounter - turn) / 24)
    set evac 3
end

:stellar206fHuman
if
    human = 1
    meteor = 6
    evac = 2
then
    evacuate bio_deck 6 ((meteorcounter - turn) / 24)
    set evac 3
end

:stellar207fHuman
if
    human = 1
    meteor = 7
    evac = 2
then
    evacuate bio_deck 7 ((meteorcounter - turn) / 24)
    set evac 3
end

:stellar208fHuman
if
    human = 1
    meteor = 8
    evac = 2
then
    evacuate bio_deck 8 ((meteorcounter - turn) / 24)
    set evac 3
end

:stellar209fHuman
if
    human = 1
    meteor = 9
    evac = 2
then
    evacuate bio_deck 9 ((meteorcounter - turn) / 24)
    set evac 3
end

:stellar210fHuman
if
    human = 1
    meteor = 10
    evac = 2
then
    evacuate bio_deck 10 ((meteorcounter - turn) / 24)
    set evac 3
end

:stellar211fHuman
if
    human = 1
    meteor = 11
    evac = 2
then
    evacuate bio_deck 11 ((meteorcounter - turn) / 24)
    set evac 3
end

:stellar212fHuman
if
    human = 1
    meteor = 12
    evac = 2
then
    evacuate bio_deck 12 ((meteorcounter - turn) / 24)
    set evac 3
end

:stellar213fHuman
if
    human = 1
    meteor = 13
    evac = 2
then
    evacuate bio_deck 13 ((meteorcounter - turn) / 24)
    set evac 3
end

:stellar214fHuman
if
    human = 1
    meteor = 14
    evac = 2
then
    evacuate bio_deck 14 ((meteorcounter - turn) / 24)
    set evac 3
end

:stellar215fHuman
if
    human = 1
    meteor = 15
    evac = 2
then
    evacuate bio_deck 15 ((meteorcounter - turn) / 24)
    set evac 3
end