home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Hacker 70
/
HACKER70.ISO
/
Igre
/
Startopia
/
startopiademo.exe
/
missions
/
00
/
spies001.txt
< prev
next >
Wrap
Text File
|
2001-05-15
|
2KB
|
92 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 + 30000) + (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 + 30000) + (rnd%10000))
set spymessage 0
end
:spies104
if
spy_wanted < 2
then
set spy_wanted 3
set spytime ((turn + 30000) + (rnd%10000))
set spytype (rnd%2)
set spymessage 0
end
:spies105
if
spymessage = 0
turn > spytime
enemy_count < 1
then
set spytime ((turn + 3000) + (rnd%1000))
end
;PEEPSPIES
:AlienSpies
if
turn > 40000
turn > alienspy
then
place_peep ((rnd%10)+ 5) skill 1 saboteur
set alienspy ((turn + 30000) + (rnd%10000))
end
;PEEPASSASSINS
:AlienKiller
if
turn > 40000
turn > alienkiller
then
place_peep ((rnd%4)+ 5) assasin
set alienkiller ((turn + 30000) + (rnd%10000))
end