home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Hacker 70
/
HACKER70.ISO
/
Igre
/
Startopia
/
startopiademo.exe
/
missions
/
00
/
pilgrimsX00.txt
< prev
next >
Wrap
Text File
|
2001-05-14
|
2KB
|
97 lines
;PILGRIMS**********************************************************************
:PilgrimRequest
if
0
then
set PilgrimAccept 3
set PilgrimRequest 1
set PilgrimTaken 0
disable
end
:PilgrimRequest01AI
if
IAMALOSER < 1
human = 0
temple_count > 0
PilgrimRequest > 0
Preplywaiting < 1
then
set Preplywait (turn + (((rnd%500) + 600) / satcom_count))
set Preplywaiting 1
end
:PilgrimRequest02AI
if
human = 0
PilgrimRequest > 0
Preplywaiting > 0
turn > Preplywait
then
set PilgrimAccept (rnd%3)
set PilgrimRequest 0
set Preplywaiting 0
end
:PilgrimRequest01Human
if
human = 1
temple_count > 0
PilgrimRequest > 0
then
incoming ship_comms respond PilgrimAccept within 1440 skill ((rnd%10000) + 100) "events_pilgrimship01"
set PilgrimRequest 0
; status_message "DEBUG ** Pilgrims have been created ** DEBUG"
end
:PilgrimRequest02
if
temple_count < 1
PilgrimRequest > 0
then
set PilgrimRequest 0
end
:PilgrimAccept
if
PilgrimTaken = 0
PilgrimAccept = 2
then
set PilgrimArrive 0
set PilgrimMax ((rnd%9) + 4)
set PilgrimAccept 3
multitrigger :PilgrimTaken
end
:PilgrimAcceptLate
if
PilgrimTaken = 1
PilgrimAccept = 2
then
incoming ship_comms within 720 "events_pdocking01"
set PilgrimAccept 3
end
:PilgrimIgnoreDecline
if
PilgrimAccept < 2
then
set PilgrimAccept 3
end
:PilgrimTaken
if
0
then
set PilgrimTaken 1
disable
end
:PilgrimGenerator
if
pilgrimarrive < pilgrimmax
then
place_peep ((rnd%9) + 5) mood soul ((rnd%500) + 1000)
set pilgrimarrive (pilgrimarrive + 1)
end