home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / source / conqsrc.lha / Conquest / src / Modules < prev    next >
Encoding:
Text File  |  1994-09-03  |  755 b   |  38 lines
  1. Modules supplied:
  2. console_player, enemy.
  3.  
  4. Init:
  5. start_planet() - Which planet to start on. Map layout known.
  6. start_fleet() - Fleet to start with.
  7.  
  8. TF Battle:
  9. [join_silent()]
  10. show_battle()*
  11. pause()*
  12. [perform_battle()]
  13. show_results()*
  14. while (b_or_c)
  15.   show_battle()*
  16.   battle_commands()* <- Withdraw etc.
  17.   [perform_battle()]
  18.   show_results()* <- Computer player stores results.
  19.  
  20. Planet attack:
  21. while (b_or_c && !conq && !break_off)
  22.   show_attack()*
  23.   battle_attack() <- Does split-up, join etc.
  24.   pause() <- Defending player
  25.   if (!break_off)
  26.     if (#fleets_with_b_or_c > 1)
  27.       select_tf()
  28.     if (#enemy_planets > 1)
  29.       select_planet()
  30.     [perform_battle()]
  31.   show_results()*
  32.  
  33. Investment:
  34. while (balance > 0)
  35.   invest(planet)
  36.  
  37. Movement:
  38. movement()