Clean up ugly FORTRANISH names.

[super-star-trek.git] / src / ai.c

diff --git a/src/ai.c b/src/ai.c
index 66b50d7165ded56ef8d606e8f368760c8f96b21b..4d9e7ccb8028b7ada14cd3b9549d037c19563da0 100644 (file)
--- a/src/ai.c
+++ b/src/ai.c
@@ -12,7 +12,8 @@ static bool tryexit(coord look, int ienm, int loccom, bool irun)
        game.state.galaxy[iq.x][iq.y].supernova ||
        game.state.galaxy[iq.x][iq.y].klingons > MAXKLQUAD-1)
        return false; /* no can do -- neg energy, supernovae, or >MAXKLQUAD-1 Klingons */
-    if (ienm == IHR) return false; /* Romulans cannot escape! */
+    if (ienm == IHR)
+       return false; /* Romulans cannot escape! */
     if (!irun) {
        /* avoid intruding on another commander's territory */
        if (ienm == IHC) {
@@ -134,7 +135,8 @@ static void movebaddy(coord com, int loccom, feature ienm)
  */
 
        forces = game.kpower[loccom]+100.0*game.nenhere+400*(nbaddys-1);
-       if (!game.shldup) forces += 1000; /* Good for enemy if shield is down! */
+       if (!game.shldup)
+           forces += 1000; /* Good for enemy if shield is down! */
        if (!damaged(DPHASER) || !damaged(DPHOTON)) {
            if (damaged(DPHASER)) /* phasers damaged */
                forces += 300.0;
@@ -169,9 +171,12 @@ static void movebaddy(coord com, int loccom, feature ienm)
     }
     /* calculate preferred number of steps */
     nsteps = motion < 0 ? -motion : motion;
-    if (motion > 0 && nsteps > mdist) nsteps = mdist; /* don't overshoot */
-    if (nsteps > QUADSIZE) nsteps = QUADSIZE; /* This shouldn't be necessary */
-    if (nsteps < 1) nsteps = 1; /* This shouldn't be necessary */
+    if (motion > 0 && nsteps > mdist)
+       nsteps = mdist; /* don't overshoot */
+    if (nsteps > QUADSIZE)
+       nsteps = QUADSIZE; /* This shouldn't be necessary */
+    if (nsteps < 1)
+       nsteps = 1; /* This shouldn't be necessary */
     if (idebug) {
        proutn("NSTEPS = %d:", nsteps);
     }
@@ -268,7 +273,7 @@ static void movebaddy(coord com, int loccom, feature ienm)
 }
 
 void moveklings(void) 
-/* move a commander */
+/* Klingon tactical movement */
 {
     coord w; 
     int i;
@@ -304,7 +309,7 @@ void moveklings(void)
                movebaddy(w, i, game.quad[w.x][w.y]);
        }
 
-    sortkl();
+    sortklings();
 }
 
 static bool movescom(coord iq, bool flag) 
@@ -347,7 +352,7 @@ static bool movescom(coord iq, bool flag)
        game.nenhere--;
        if (game.condition!=docked)
            newcnd();
-       sortkl();
+       sortklings();
     }
     /* check for a helpful planet */
     for (i = 0; i < game.inplan; i++) {
@@ -370,7 +375,7 @@ static bool movescom(coord iq, bool flag)
     return false; /* looks good! */
 }
                        
-void scom(void)
+void supercommander(void)
 /* move the Super Commander */
 {
     int i, i2, j, ideltax, ideltay, ifindit, iwhichb;
@@ -380,7 +385,7 @@ void scom(void)
     bool flag;
 
     if (idebug)
-       prout("== SCOM");
+       prout("== SUPERCOMMANDER");
 
     /* Decide on being active or passive */
     flag = ((NKILLC+NKILLK)/(game.state.date+0.01-game.indate) < 0.1*game.skill*(game.skill+1.0) ||
@@ -451,7 +456,8 @@ void scom(void)
                break;
            }
        }
-       if (ifindit==0) return; /* Nothing suitable -- wait until next time*/
+       if (ifindit==0)
+           return; /* Nothing suitable -- wait until next time*/
        ibq = game.state.baseq[iwhichb];
        /* decide how to move toward base */
        ideltax = ibq.x - game.state.kscmdr.x;
@@ -507,7 +513,8 @@ void scom(void)
        ibq = game.state.baseq[i];
        if (same(ibq, game.state.kscmdr) && same(game.state.kscmdr, game.battle)) {
            /* attack the base */
-           if (flag) return; /* no, don't attack base! */
+           if (flag)
+               return; /* no, don't attack base! */
            game.iseenit = false;
            game.isatb = 1;
            schedule(FSCDBAS, 1.0 +2.0*Rand());
@@ -548,11 +555,10 @@ void scom(void)
     return;
 }
 
-void movetho(void)
+void movetholian(void)
 /* move the Tholian */
 {
     int idx, idy, im, i;
-    /* Move the Tholian */
     if (!game.ithere || game.justin)
        return;