home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Hacker 70
/
HACKER70.ISO
/
Igre
/
Startopia
/
startopiademo.exe
/
missions
/
00
/
meteorsX00.txt
< prev
next >
Wrap
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