home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Hacker 70
/
HACKER70.ISO
/
Igre
/
Startopia
/
startopiademo.exe
/
missions
/
00
/
emergencies00.txt
< prev
next >
Wrap
Text File
|
2001-05-10
|
8KB
|
403 lines
;EMERGENCIES**********************************************************
;This tells the scripts to generates the emergency and broadcast it
:EmergencyMain
if
turn > EmergencyTrigger
then
set EmergencyAccept 3
set EmergencyTaken 0
set EmergencyGenerated 0
set EmergencyType ((rnd%12) + 1)
set EmergencyTrigger ((turn + (rnd%10000)) + 10000)
end
:Emergency01
if
EmergencyGenerated = 0
EmergencyType = 1
then
multitrigger :EmergencyMessage01
set EmergencyGenerated 1
end
:Emergency02
if
EmergencyGenerated = 0
EmergencyType = 2
then
multitrigger :EmergencyMessage02
set EmergencyGenerated 1
end
:Emergency03
if
EmergencyGenerated = 0
EmergencyType = 3
then
multitrigger :EmergencyMessage03
set EmergencyGenerated 1
end
:Emergency04
if
EmergencyGenerated = 0
EmergencyType = 4
then
multitrigger :EmergencyMessage04
set EmergencyGenerated 1
end
:Emergency05
if
EmergencyGenerated = 0
EmergencyType = 5
then
multitrigger :EmergencyMessage05
set EmergencyGenerated 1
end
:Emergency06
if
EmergencyGenerated = 0
EmergencyType = 6
then
multitrigger :EmergencyMessage06
set EmergencyGenerated 1
end
:Emergency07
if
EmergencyGenerated = 0
EmergencyType = 7
then
multitrigger :EmergencyMessage07
set EmergencyGenerated 1
end
:Emergency08
if
EmergencyGenerated = 0
EmergencyType = 8
then
multitrigger :EmergencyMessage08
set EmergencyGenerated 1
end
:Emergency09
if
EmergencyGenerated = 0
EmergencyType = 9
then
multitrigger :EmergencyMessage09
set EmergencyGenerated 1
end
:Emergency10
if
EmergencyGenerated = 0
EmergencyType = 10
then
multitrigger :EmergencyMessage10
set EmergencyGenerated 1
end
:Emergency11
if
EmergencyGenerated = 0
EmergencyType = 11
then
multitrigger :EmergencyMessage11
set EmergencyGenerated 1
end
:Emergency12
if
EmergencyGenerated = 0
EmergencyType = 12
then
multitrigger :EmergencyMessage12
set EmergencyGenerated 1
end
:EmergencyMessage01
if
0
then
incoming ship_comms respond EmergencyAccept within 1440 skill ((rnd%10000) + 100) "events_emergency01"
; status_message "DEBUG ** Medical emergency has been created ** DEBUG"
disable
end
:EmergencyMessage02
if
0
then
incoming ship_comms respond EmergencyAccept within 1440 skill ((rnd%10000) + 100) "events_emergency02"
; status_message "DEBUG ** Medical emergency has been created ** DEBUG"
disable
end
:EmergencyMessage03
if
0
then
incoming ship_comms respond EmergencyAccept within 1440 skill ((rnd%10000) + 100) "events_emergency03"
; status_message "DEBUG ** Medical emergency has been created ** DEBUG"
disable
end
:EmergencyMessage04
if
0
then
incoming ship_comms respond EmergencyAccept within 1440 skill ((rnd%10000) + 100) "events_emergency04"
; status_message "DEBUG ** Medical emergency has been created ** DEBUG"
disable
end
:EmergencyMessage05
if
0
then
incoming ship_comms respond EmergencyAccept within 1440 skill ((rnd%10000) + 100) "events_emergency05"
; status_message "DEBUG ** Medical emergency has been created ** DEBUG"
disable
end
:EmergencyMessage06
if
0
then
incoming ship_comms respond EmergencyAccept within 1440 skill ((rnd%10000) + 100) "events_emergency06"
; status_message "DEBUG ** Medical emergency has been created ** DEBUG"
disable
end
:EmergencyMessage07
if
0
then
incoming ship_comms respond EmergencyAccept within 1440 skill ((rnd%10000) + 100) "events_emergency07"
; status_message "DEBUG ** Medical emergency has been created ** DEBUG"
disable
end
:EmergencyMessage08
if
0
then
incoming ship_comms respond EmergencyAccept within 1440 skill ((rnd%10000) + 100) "events_emergency08"
; status_message "DEBUG ** Medical emergency has been created ** DEBUG"
disable
end
:EmergencyMessage09
if
0
then
incoming ship_comms respond EmergencyAccept within 1440 skill ((rnd%10000) + 100) "events_emergency09"
; status_message "DEBUG ** Medical emergency has been created ** DEBUG"
disable
end
:EmergencyMessage10
if
0
then
incoming ship_comms respond EmergencyAccept within 1440 skill ((rnd%10000) + 100) "events_emergency10"
; status_message "DEBUG ** Medical emergency has been created ** DEBUG"
disable
end
:EmergencyMessage11
if
0
then
incoming ship_comms respond EmergencyAccept within 1440 skill ((rnd%10000) + 100) "events_emergency11"
; status_message "DEBUG ** Medical emergency has been created ** DEBUG"
disable
end
:EmergencyMessage12
if
0
then
incoming ship_comms respond EmergencyAccept within 1440 skill ((rnd%10000) + 100) "events_emergency12"
; status_message "DEBUG ** Medical emergency has been created ** DEBUG"
disable
end
:EmergencyAccept00
if
EmergencyAccept = 2
EmergencyTaken = 0
then
multitrigger :EmergencyTaken00
set PatientMax ((((rnd%segmentdecks) + 1) / 4) + 3)
set AllPatients ((array curedsofar 1) + PatientMax)
set EmergencyAccept 3
set BonusPaid 0
end
:EmergencyAccceptLate00
if
EmergencyAccept = 2
EmergencyTaken = 1
then
incoming local_comms within 720 icon 4 "events_edocking01"
set EmergencyAccept 3
end
:EmergencyIgnoreDecline00
if
EmergencyAccept < 2
then
set EmergencyAccept 3
end
:EmergencyTaken00
if
0
then
set EmergencyTaken 1
set EmergencyAccept 3
disable
end
:PeepGeneratorInitialise00
if
PatientArrive = PatientMax
PatientArrive > 0
PatientMax > 0
then
set PatientArrive 0
set PatientMax 0
end
:PeepGenerator01
if
EmergencyType = 1
PatientArrive < PatientMax
then
place_peep ((rnd%9) + 5) mood body ((rnd%2000) + 2000) infected 1 1
set PatientArrive (PatientArrive + 1)
end
:PeepGenerator02
if
EmergencyType = 2
PatientArrive < PatientMax
then
place_peep ((rnd%9) + 5) mood body ((rnd%2000) + 2000) infected 2 1
set PatientArrive (PatientArrive + 1)
end
:PeepGenerator03
if
EmergencyType = 3
PatientArrive < PatientMax
then
place_peep ((rnd%9) + 5) mood body ((rnd%2000) + 2000) infected 3 1
set PatientArrive (PatientArrive + 1)
end
:PeepGenerator04
if
EmergencyType = 4
PatientArrive < PatientMax
then
place_peep ((rnd%9) + 5) mood body ((rnd%2000) + 4000) infected 4 1
set PatientArrive (PatientArrive + 1)
end
:PeepGenerator05
if
EmergencyType = 5
PatientArrive < PatientMax
then
place_peep ((rnd%9) + 5) mood body ((rnd%2000) + 2000) infected 5 1
set PatientArrive (PatientArrive + 1)
end
:PeepGenerator06
if
EmergencyType = 6
PatientArrive < PatientMax
then
place_peep ((rnd%9) + 5) mood body ((rnd%2000) + 2000) infected 6 1
set PatientArrive (PatientArrive + 1)
end
:PeepGenerator07
if
EmergencyType = 7
PatientArrive < PatientMax
then
place_peep ((rnd%9) + 5) mood body ((rnd%2000) + 2000) infected 7 1
set PatientArrive (PatientArrive + 1)
end
:PeepGenerator08
if
EmergencyType = 8
PatientArrive < PatientMax
then
place_peep ((rnd%9) + 5) mood body ((rnd%2000) + 2000) infected 8 1
set PatientArrive (PatientArrive + 1)
end
:PeepGenerator09
if
EmergencyType = 9
PatientArrive < PatientMax
then
place_peep ((rnd%9) + 5) mood body ((rnd%2000) + 2000) infected 9 1
set PatientArrive (PatientArrive + 1)
end
:PeepGenerator10
if
EmergencyType = 10
PatientArrive < PatientMax
then
place_peep ((rnd%9) + 5) mood body ((rnd%2000) + 2000) infected 10 1
set PatientArrive (PatientArrive + 1)
end
:PeepGenerator11
if
EmergencyType = 11
PatientArrive < PatientMax
then
place_peep ((rnd%9) + 5) mood body ((rnd%2000) + 2000) infected 11 1
set PatientArrive (PatientArrive + 1)
end
:PeepGenerator12
if
EmergencyType = 12
PatientArrive < PatientMax
then
place_peep ((rnd%9) + 5) mood body ((rnd%2000) + 2000) infected 12 1
set PatientArrive (PatientArrive + 1)
end
:EmergencyFees00
if
array curedsofar 1 > PaidCures
then
addenergy 1000
set PaidCures (array curedsofar 1)
status_message "events_cure01"
end
:EmergencyBonus00
if
BonusPaid = 0
array curedsofar 1 = AllPatients
then
incoming local_comms icon 4 "events_treatment01"
addenergy 10000
set BonusPaid 1
end