home *** CD-ROM | disk | FTP | other *** search
/ Hacker 70 / HACKER70.ISO / Igre / Startopia / startopiademo.exe / missions / 00 / flaresX00.txt < prev    next >
Text File  |  2001-05-15  |  1KB  |  75 lines
  1. ;SOLARFLARE*********************************************************************
  2. :flarecreate
  3. if
  4.     0
  5. then
  6.     set flarecreate 1 
  7.     disable
  8. end
  9.  
  10. :flarecreateAI
  11. if
  12.     IAMALOSER < 1
  13.     human = 0
  14.     flarecreate = 1
  15. then
  16.     set flarecounter (turn + 2000)
  17.     set flare 2
  18.     set flarecreate 0
  19.     disable
  20. end
  21.  
  22. :flarecreateHuman
  23. if
  24.     human = 1
  25.     flarecreate = 1
  26. then
  27.     set flarecounter (turn + 2000)
  28.     incoming stellar_event respond flare within 1900 skill ((rnd%10000) + 100) "events_flare01"
  29. ;    status_message "DEBUG ** Solar flare has been created ** DEBUG"
  30.     set flarecreate 0
  31.     disable
  32. end
  33.  
  34. :flareacceptAI
  35. if
  36.     human = 0
  37.     flare = 2
  38. then
  39.     addenergy 5
  40. end
  41.  
  42. :flareacceptHuman
  43. if
  44.     human = 1
  45.     flare = 2
  46. then
  47.     set flareaccept 1
  48.     addenergy 5
  49. end
  50.  
  51. :flareignore
  52. if
  53.     flare < 2
  54. then
  55.     set flare 3
  56. end
  57.  
  58. :flareover
  59. if
  60.     flarecounter > 0
  61.     flarecounter < turn
  62. then
  63.     set flare 3
  64. end
  65.  
  66. :flareuseHuman
  67. if
  68.     human = 1
  69.     flareaccept = 1
  70.     flarecounter < turn
  71. then
  72.     status_message "events_flare02"
  73.     set flareaccept 0 
  74. end
  75.