home *** CD-ROM | disk | FTP | other *** search
/ PC World Plus! (NZ) 2001 October / PCW1001.iso / Games / startopiademo1.exe / missions / 00 / starquakes002.txt < prev    next >
Text File  |  2001-04-20  |  236b  |  9 lines
  1. :starquake100
  2. if
  3.     turn > starquake
  4. then
  5.     set starquake (((rnd%37500) + 75000) + 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