home *** CD-ROM | disk | FTP | other *** search
/ Hacker 70 / HACKER70.ISO / Igre / Startopia / startopiademo.exe / missions / 00 / starquakes003.txt < prev    next >
Text File  |  2001-04-20  |  236b  |  9 lines
  1. :starquake100
  2. if
  3.     turn > starquake
  4. then
  5.     set starquake (((rnd%25000) + 50000) + turn)
  6.     incoming stellar_event within 1900 skill ((rnd%20000) + 100) icon 16 "events_quake00"
  7.     set quakearrive (turn + 2000)
  8.     set quakeincoming 1
  9. end