home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Hacker 70
/
HACKER70.ISO
/
Igre
/
Startopia
/
startopiademo.exe
/
missions
/
00
/
flaresX00.txt
< prev
next >
Wrap
Text File
|
2001-05-15
|
1KB
|
75 lines
;SOLARFLARE*********************************************************************
:flarecreate
if
0
then
set flarecreate 1
disable
end
:flarecreateAI
if
IAMALOSER < 1
human = 0
flarecreate = 1
then
set flarecounter (turn + 2000)
set flare 2
set flarecreate 0
disable
end
:flarecreateHuman
if
human = 1
flarecreate = 1
then
set flarecounter (turn + 2000)
incoming stellar_event respond flare within 1900 skill ((rnd%10000) + 100) "events_flare01"
; status_message "DEBUG ** Solar flare has been created ** DEBUG"
set flarecreate 0
disable
end
:flareacceptAI
if
human = 0
flare = 2
then
addenergy 5
end
:flareacceptHuman
if
human = 1
flare = 2
then
set flareaccept 1
addenergy 5
end
:flareignore
if
flare < 2
then
set flare 3
end
:flareover
if
flarecounter > 0
flarecounter < turn
then
set flare 3
end
:flareuseHuman
if
human = 1
flareaccept = 1
flarecounter < turn
then
status_message "events_flare02"
set flareaccept 0
end