Clean up ugly FORTRANISH names.

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

diff --git a/src/battle.c b/src/battle.c
index 387bfa9f88449353b2b5f7bc321669981a0adf45..a1e1377f1e37a94cedf2fffcdded6ac2081a1d10 100644 (file)
--- a/src/battle.c
+++ b/src/battle.c
@@ -241,7 +241,7 @@ void ram(bool ibumpd, feature ienm, coord w)
     prout(_("***Shields are down."));
     if (KLINGREM) {
        pause_game(true);
-       dreprt();
+       damagereport();
     }
     else
        finish(FWON);
@@ -399,7 +399,7 @@ void torpedo(double course, double r, coord in, double *hit, int i, int n)
            prout(_(" destroyed."));
            game.state.nplankl++;
            q->planet = NOPLANET;
-           DESTROY(&game.state.plnets[game.iplnet]);
+           DESTROY(&game.state.planets[game.iplnet]);
            game.iplnet = 0;
            invalidate(game.plnet);
            game.quad[w.x][w.y] = IHDOT;
@@ -413,7 +413,7 @@ void torpedo(double course, double r, coord in, double *hit, int i, int n)
            prout(_(" destroyed."));
            game.state.nworldkl++;
            q->planet = NOPLANET;
-           DESTROY(&game.state.plnets[game.iplnet]);
+           DESTROY(&game.state.planets[game.iplnet]);
            game.iplnet = 0;
            invalidate(game.plnet);
            game.quad[w.x][w.y] = IHDOT;
@@ -503,7 +503,7 @@ void torpedo(double course, double r, coord in, double *hit, int i, int n)
        prout(_(" displaced by blast to %s "), cramlc(sector, jw));
        for_local_enemies(ll)
            game.kdist[ll] = game.kavgd[ll] = distance(game.sector,game.ks[ll]);
-       sortkl();
+       sortklings();
        return;
     }
     skip(1);
@@ -538,7 +538,8 @@ static void fry(double hit)
            if (loop2 < loop1)
                continue;
            ktr += 1;
-           if (ktr==3) skip(1);
+           if (ktr==3)
+               skip(1);
            proutn(_(" and "));
        }
        proutn(device[j]);
@@ -569,7 +570,7 @@ void attack(bool torps_ok)
 
     /* Tholian gewts to move before attacking */
     if (game.ithere) 
-       movetho();
+       movetholian();
 
     /* if you have just entered the RNZ, you'll get a warning */
     if (game.neutz) { /* The one chance not to be attacked */
@@ -579,7 +580,7 @@ void attack(bool torps_ok)
 
     /* commanders get a chance to tac-move towards you */
     if ((((game.comhere || game.ishere) && !game.justin) || game.skill == SKILL_EMERITUS) && torps_ok) 
-       movcom();
+       moveklings();
 
     /* if no enemies remain after movement, we're done */
     if (game.nenhere==0 || (game.nenhere==1 && iqhere && !iqengry)) 
@@ -597,7 +598,8 @@ void attack(bool torps_ok)
        where = sector;
 
     for_local_enemies(loop) {
-       if (game.kpower[loop] < 0) continue;    /* too weak to attack */
+       if (game.kpower[loop] < 0)
+           continue;   /* too weak to attack */
        /* compute hit strength and diminish shield power */
        r = Rand();
        /* Increase chance of photon torpedos if docked or enemy energy low */
@@ -617,7 +619,8 @@ void attack(bool torps_ok)
            (iquad==IHS && r > 0.07) ||
            (iquad==IHQUEST && r > 0.05);
        if (usephasers) {           /* Enemy uses phasers */
-           if (game.condition == docked) continue; /* Don't waste the effort! */
+           if (game.condition == docked)
+               continue; /* Don't waste the effort! */
            attempt = true; /* Attempt to attack */
            dustfac = 0.8+0.05*Rand();
            hit = game.kpower[loop]*pow(dustfac,game.kavgd[loop]);
@@ -721,7 +724,7 @@ void attack(bool torps_ok)
     /* After attack, reset average distance to enemies */
     for_local_enemies(loop)
        game.kavgd[loop] = game.kdist[loop];
-    sortkl();
+    sortklings();
     return;
 }