home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Plus! (NZ) 2001 October
/
PCW1001.iso
/
Games
/
startopiademo1.exe
/
missions
/
00
/
spies002.txt
< prev
next >
Wrap
Text File
|
2001-05-15
|
2KB
|
91 lines
;SPIES********************************************************************
:Spies100
if
spymessage = 0
spytype = 0
turn > spytime
energy > 10000
enemy_count > 0
then
incoming local_comms respond spy_wanted within 1000 "general_assassin01"
set spymessage 1
end
:Spies101
if
spy_wanted = YES
spytype = 0
then
place_peep spy assasin enemies
addenergy (0-(3000*enemy_count))
set spy_wanted 3
set spytype (rnd%2)
set spytime ((turn + 20000) + (rnd%10000))
set spymessage 0
end
:Spies102
if
spymessage = 0
spytype = 1
turn > spytime
energy > 10000
enemy_count > 0
then
incoming local_comms respond spy_wanted within 1000 "general_bomber01"
set spymessage 1
end
:Spies103
if
spy_wanted = YES
spytype = 1
then
place_peep spy saboteur enemies
addenergy (0-(3000*enemy_count))
set spy_wanted 3
set spytype (rnd%2)
set spytime ((turn + 20000) + (rnd%10000))
set spymessage 0
end
:spies104
if
spy_wanted < 2
then
set spy_wanted 3
set spytime ((turn + 20000) + (rnd%10000))
set spytype (rnd%2)
set spymessage 0
end
:spies105
if
spymessage = 0
turn > spytime
enemy_count < 1
then
set spytime ((turn + 2000) + (rnd%1000))
end
;PEEPSPIES
:AlienSpies
if
turn > 20000
turn > alienspy
then
place_peep ((rnd%10)+ 5) skill 1 saboteur
set alienspy ((turn + 20000) + (rnd%10000))
end
;PEEPASSASSINS
:AlienKiller
if
turn > 20000
turn > alienkiller
then
place_peep ((rnd%4)+ 5) assasin
set alienkiller ((turn + 20000) + (rnd%10000))
end