home *** CD-ROM | disk | FTP | other *** search
- berserker(pla)
- int pla;
- {
- struct NCommand c;
- int i;
- c.com=DECLARE;
- c.par[1]=WAR;
- for(c.par[0]=0;c.par[0]<PLAYERNO;c.par[0]++) if(general.relation[pla][c.par[0]]!=WAR && pla!=c.par[0]) do_command(pla,&c);
- /* Only mini routine programmed */
- /* Fully implemented in the rest of the code and only waiting to be programmed */
- /* with any interesting strategical idea */
- /* (This core routine and reading Fred Saberhagens Berserker books should give */
- /* you an idea of their 'strategy'(yet to be programmed) )*/
- }
-