Hacker 70/HACKER70.ISO/Igre/Startopia/startopiademo.exe/missions/00/meteors00.txt

Text File | 2001-04-20 | 18KB | 1,056 lines

;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