-#include "sst.h"\r
-\r
-static int tryexit(int lookx, int looky, int ienm, int loccom, int irun) {\r
- int iqx, iqy, l;\r
-\r
- iqx = quadx+(lookx+9)/10 - 1;\r
- iqy = quady+(looky+9)/10 - 1;\r
- if (iqx < 1 || iqx > 8 || iqy < 1 || iqy > 8 ||\r
- state.galaxy[iqx][iqy] > 899)\r
- return 0; /* no can do -- neg energy, supernovae, or >8 Klingons */\r
- if (ienm == IHR) return 0; /* Romulans cannot escape! */\r
- if (irun == 0) {\r
- /* avoid intruding on another commander's territory */\r
- if (ienm == IHC) {\r
- for (l = 1; l <= state.remcom; l++)\r
- if (state.cx[l]==iqx && state.cy[l]==iqy) return 0;\r
- /* refuse to leave if currently attacking starbase */\r
- if (batx==quadx && baty==quady) return 0;\r
- }\r
- /* don't leave if over 1000 units of energy */\r
- if (kpower[loccom] > 1000.) return 0;\r
- }\r
- /* print escape message and move out of quadrant.\r
- We know this if either short or long range sensors are working */\r
- if (damage[DSRSENS] == 0.0 || damage[DLRSENS] == 0.0 ||\r
- condit == IHDOCKED) {\r
- proutn("***");\r
- cramen(ienm);\r
- proutn(" escapes to");\r
- cramlc(1, iqx, iqy);\r
- prout(" (and regains strength).");\r
- }\r
- /* handle local matters related to escape */\r
- kx[loccom] = kx[nenhere];\r
- ky[loccom] = ky[nenhere];\r
- kavgd[loccom] = kavgd[nenhere];\r
- kpower[loccom] = kpower[nenhere];\r
- kdist[loccom] = kdist[nenhere];\r
- klhere--;\r
- nenhere--;\r
- if (condit != IHDOCKED) newcnd();\r
- /* Handle global matters related to escape */\r
- state.galaxy[quadx][quady] -= 100;\r
- state.galaxy[iqx][iqy] += 100;\r
- if (ienm==IHS) {\r
- ishere=0;\r
- iscate=0;\r
- ientesc=0;\r
- isatb=0;\r
- future[FSCMOVE]=0.2777+state.date;\r
- future[FSCDBAS]=1e30;\r
- state.isx=iqx;\r
- state.isy=iqy;\r
- }\r
- else {\r
- for (l=1; l<=state.remcom; l++) {\r
- if (state.cx[l]==quadx && state.cy[l]==quady) {\r
- state.cx[l]=iqx;\r
- state.cy[l]=iqy;\r
- break;\r
- }\r
- }\r
- comhere = 0;\r
- }\r
- return 1; /* success */\r
-}\r
-\r
-\r
-static void movebaddy(int comx, int comy, int loccom, int ienm) {\r
- int motion, mdist, nsteps, mx, my, nextx, nexty, lookx, looky, ll;\r
- int irun = 0;\r
- int krawlx, krawly;\r
- int success;\r
- int attempts;\r
- /* This should probably be just comhere + ishere */\r
- int nbaddys = skill > 3 ?\r
- (int)((comhere*2 + ishere*2+klhere*1.23+irhere*1.5)/2.0):\r
- (comhere + ishere);\r
- double dist1, forces;\r
-\r
- dist1 = kdist[loccom];\r
- mdist = dist1 + 0.5; /* Nearest integer distance */\r
-\r
- /* If SC, check with spy to see if should hi-tail it */\r
- if (ienm==IHS &&\r
- (kpower[loccom] <= 500.0 || (condit==IHDOCKED && damage[DPHOTON]==0))) {\r
- irun = 1;\r
- motion = -10;\r
- }\r
- else {\r
- /* decide whether to advance, retreat, or hold position */\r
-/* Algorithm:\r
- * Enterprise has "force" based on condition of phaser and photon torpedoes.\r
- If both are operating full strength, force is 1000. If both are damaged,\r
- force is -1000. Having shields down subtracts an additional 1000.\r
-\r
- * Enemy has forces equal to the energy of the attacker plus\r
- 100*(K+R) + 500*(C+S) - 400 for novice through good levels OR\r
- 346*K + 400*R + 500*(C+S) - 400 for expert and emeritus.\r
-\r
- Attacker Initial energy levels (nominal):\r
- Klingon Romulan Commander Super-Commander\r
- Novice 400 700 1200 \r
- Fair 425 750 1250\r
- Good 450 800 1300 1750\r
- Expert 475 850 1350 1875\r
- Emeritus 500 900 1400 2000\r
- VARIANCE 75 200 200 200\r
-\r
- Enemy vessels only move prior to their attack. In Novice - Good games\r
- only commanders move. In Expert games, all enemy vessels move if there\r
- is a commander present. In Emeritus games all enemy vessels move.\r
-\r
- * If Enterprise is not docked, an agressive action is taken if enemy\r
- forces are 1000 greater than Enterprise.\r
-\r
- Agressive action on average cuts the distance between the ship and\r
- the enemy to 1/4 the original.\r
-\r
- * At lower energy advantage, movement units are proportional to the\r
- advantage with a 650 advantage being to hold ground, 800 to move forward\r
- 1, 950 for two, 150 for back 4, etc. Variance of 100.\r
-\r
- If docked, is reduced by roughly 1.75*skill, generally forcing a\r
- retreat, especially at high skill levels.\r
-\r
- * Motion is limited to skill level, except for SC hi-tailing it out.\r
- */\r
-\r
- forces = kpower[loccom]+100.0*nenhere+400*(nbaddys-1);\r
- if (shldup==0) forces += 1000; /* Good for enemy if shield is down! */\r
- if (damage[DPHASER] == 0.0 || damage[DPHOTON] == 0.0) {\r
- if (damage[DPHASER] != 0) /* phasers damaged */\r
- forces += 300.0;\r
- else\r
- forces -= 0.2*(energy - 2500.0);\r
- if (damage[DPHOTON] != 0) /* photon torpedoes damaged */\r
- forces += 300.0;\r
- else\r
- forces -= 50.0*torps;\r
- }\r
- else {\r
- /* phasers and photon tubes both out! */\r
- forces += 1000.0;\r
- }\r
- motion = 0;\r
- if (forces <= 1000.0 && condit != IHDOCKED) /* Typical situation */\r
- motion = ((forces+200.0*Rand())/150.0) - 5.0;\r
- else {\r
- if (forces > 1000.0) /* Very strong -- move in for kill */\r
- motion = (1.0-square(Rand()))*dist1 + 1.0;\r
- if (condit==IHDOCKED) /* protected by base -- back off ! */\r
- motion -= skill*(2.0-square(Rand()));\r
- }\r
-#ifdef DEBUG\r
- if (idebug) {\r
- proutn("MOTION = ");\r
- cramf(motion, 1, 2);\r
- proutn(" FORCES = ");\r
- cramf(forces, 1, 2);\r
- skip(1);\r
- }\r
-#endif\r
- /* don't move if no motion */\r
- if (motion==0) return;\r
- /* Limit motion according to skill */\r
- if (abs(motion) > skill) motion = (motion < 0) ? -skill : skill;\r
- }\r
- /* calcuate preferred number of steps */\r
- nsteps = motion < 0 ? -motion : motion;\r
- if (motion > 0 && nsteps > mdist) nsteps = mdist; /* don't overshoot */\r
- if (nsteps > 10) nsteps = 10; /* This shouldn't be necessary */\r
- if (nsteps < 1) nsteps = 1; /* This shouldn't be necessary */\r
-#ifdef DEBUG\r
- if (idebug) {\r
- proutn("NSTEPS = ");\r
- crami(nsteps, 1);\r
- skip(1);\r
- }\r
-#endif\r
- /* Compute preferred values of delta X and Y */\r
- mx = sectx - comx;\r
- my = secty - comy;\r
- if (2.0 * abs(mx) < abs(my)) mx = 0;\r
- if (2.0 * abs(my) < abs(sectx-comx)) my = 0;\r
- if (mx != 0) mx = mx*motion < 0 ? -1 : 1;\r
- if (my != 0) my = my*motion < 0 ? -1 : 1;\r
- nextx = comx;\r
- nexty = comy;\r
- frozen.quad[comx][comy] = IHDOT;\r
- /* main move loop */\r
- for (ll = 1; ll <= nsteps; ll++) {\r
-#ifdef DEBUG\r
- if (idebug) {\r
- crami(ll,2);\r
- skip(1);\r
- }\r
-#endif\r
- /* Check if preferred position available */\r
- lookx = nextx + mx;\r
- looky = nexty + my;\r
- krawlx = mx < 0 ? 1 : -1;\r
- krawly = my < 0 ? 1 : -1;\r
- success = 0;\r
- attempts = 0; /* Settle mysterious hang problem */\r
- while (attempts++ < 20 && !success) {\r
- if (lookx < 1 || lookx > 10) {\r
- if (motion < 0 && tryexit(lookx, looky, ienm, loccom, irun))\r
- return;\r
- if (krawlx == mx || my == 0) break;\r
- lookx = nextx + krawlx;\r
- krawlx = -krawlx;\r
- }\r
- else if (looky < 1 || looky > 10) {\r
- if (motion < 0 && tryexit(lookx, looky, ienm, loccom, irun))\r
- return;\r
- if (krawly == my || mx == 0) break;\r
- looky = nexty + krawly;\r
- krawly = -krawly;\r
- }\r
- else if (frozen.quad[lookx][looky] != IHDOT) {\r
- /* See if we should ram ship */\r
- if (frozen.quad[lookx][looky] == ship &&\r
- (ienm == IHC || ienm == IHS)) {\r
- ram(1, ienm, comx, comy);\r
- return;\r
- }\r
- if (krawlx != mx && my != 0) {\r
- lookx = nextx + krawlx;\r
- krawlx = -krawlx;\r
- }\r
- else if (krawly != my && mx != 0) {\r
- looky = nexty + krawly;\r
- krawly = -krawly;\r
- }\r
- else break; /* we have failed */\r
- }\r
- else success = 1;\r
- }\r
- if (success) {\r
- nextx = lookx;\r
- nexty = looky;\r
-#ifdef DEBUG\r
- if (idebug) {\r
- cramlc(0, nextx, nexty);\r
- skip(1);\r
- }\r
-#endif\r
- }\r
- else break; /* done early */\r
- }\r
- /* Put commander in place within same quadrant */\r
- frozen.quad[nextx][nexty] = ienm;\r
- if (nextx != comx || nexty != comy) {\r
- /* it moved */\r
- kx[loccom] = nextx;\r
- ky[loccom] = nexty;\r
- kdist[loccom] = kavgd[loccom] =\r
- sqrt(square(sectx-nextx)+square(secty-nexty));\r
- if (damage[DSRSENS] == 0 || condit == IHDOCKED) {\r
- proutn("***");\r
- cramen(ienm);\r
- if (kdist[loccom] < dist1) proutn(" advances to");\r
- else proutn(" retreats to");\r
- cramlc(2, nextx, nexty);\r
- skip(1);\r
- }\r
- }\r
-}\r
-\r
-void movcom(void) {\r
- int ix, iy, i;\r
-\r
-#ifdef DEBUG\r
- if (idebug) prout("MOVCOM");\r
-#endif\r
-\r
- /* Figure out which Klingon is the commander (or Supercommander)\r
- and do move */\r
- if (comhere) for (i = 1; i <= nenhere; i++) {\r
- ix = kx[i];\r
- iy = ky[i];\r
- if (frozen.quad[ix][iy] == IHC) {\r
- movebaddy(ix, iy, i, IHC);\r
- break;\r
- }\r
- }\r
- if (ishere) for (i = 1; i <= nenhere; i++) {\r
- ix = kx[i];\r
- iy = ky[i];\r
- if (frozen.quad[ix][iy] == IHS) {\r
- movebaddy(ix, iy, i, IHS);\r
- break;\r
- }\r
- }\r
- /* if skill level is high, move other Klingons and Romulans too!\r
- Move these last so they can base their actions on what the\r
- commander(s) do. */\r
- if (skill > 3) for (i = 1; i <= nenhere; i++) {\r
- ix = kx[i];\r
- iy = ky[i];\r
- if (frozen.quad[ix][iy] == IHK || frozen.quad[ix][iy] == IHR)\r
- movebaddy(ix, iy, i, frozen.quad[ix][iy]);\r
- }\r
-\r
- sortkl();\r
-}\r
-\r
-static int checkdest(int iqx, int iqy, int flag, int *ipage) {\r
- int i, j;\r
-\r
- if ((iqx==quadx && iqy==quady) ||\r
- iqx < 1 || iqx > 8 || iqy < 1 || iqy > 8 ||\r
- state.galaxy[iqx][iqy] > 899) return 1;\r
- if (flag) {\r
- /* Avoid quadrants with bases if we want to avoid Enterprise */\r
- for (i = 1; i <= state.rembase; i++)\r
- if (state.baseqx[i]==iqx && state.baseqy[i]==iqy) return 1;\r
- }\r
-\r
- /* do the move */\r
- state.galaxy[state.isx][state.isy] -= 100;\r
- state.isx = iqx;\r
- state.isy = iqy;\r
- state.galaxy[state.isx][state.isy] += 100;\r
- if (iscate) {\r
- /* SC has scooted, Remove him from current quadrant */\r
- iscate=0;\r
- isatb=0;\r
- ishere=0;\r
- ientesc=0;\r
- future[FSCDBAS]=1e30;\r
- for (i = 1; i <= nenhere; i++) \r
- if (frozen.quad[kx[i]][ky[i]] == IHS) break;\r
- frozen.quad[kx[i]][ky[i]] = IHDOT;\r
- kx[i] = kx[nenhere];\r
- ky[i] = ky[nenhere];\r
- kdist[i] = kdist[nenhere];\r
- kavgd[i] = kavgd[nenhere];\r
- kpower[i] = kpower[nenhere];\r
- klhere--;\r
- nenhere--;\r
- if (condit!=IHDOCKED) newcnd();\r
- sortkl();\r
- }\r
- /* check for a helpful planet */\r
- for (i = 1; i <= inplan; i++) {\r
- if (state.plnets[i].x==state.isx && state.plnets[i].y==state.isy &&\r
- state.plnets[i].crystals == 1) {\r
- /* destroy the planet */\r
- state.plnets[i] = nulplanet;\r
- state.newstuf[state.isx][state.isy] -= 1;\r
- if (damage[DRADIO] == 0.0 || condit == IHDOCKED) {\r
- if (*ipage==0) pause(1);\r
- *ipage = 1;\r
- prout("Lt. Uhura- \"Captain, Starfleet Intelligence reports");\r
- proutn(" a planet in");\r
- cramlc(1, state.isx, state.isy);\r
- prout(" has been destroyed");\r
- prout(" by the Super-commander.\"");\r
- }\r
- break;\r
- }\r
- }\r
- return 0; /* looks good! */\r
-}\r
- \r
- \r
- \r
-\r
-\r
-void scom(int *ipage) {\r
- int i, i2, j, ideltax, ideltay, ibqx, ibqy, sx, sy, ifindit, iwhichb;\r
- int iqx, iqy;\r
- int basetbl[6];\r
- double bdist[6];\r
- int flag;\r
-#ifdef DEBUG\r
- if (idebug) prout("SCOM");\r
-#endif\r
-\r
- /* Decide on being active or passive */\r
- flag = ((state.killc+state.killk)/(state.date+0.01-indate) < 0.1*skill*(skill+1.0) ||\r
- (state.date-indate) < 3.0);\r
- if (iscate==0 && flag) {\r
- /* compute move away from Enterprise */\r
- ideltax = state.isx-quadx;\r
- ideltay = state.isy-quady;\r
- if (sqrt(ideltax*(double)ideltax+ideltay*(double)ideltay) > 2.0) {\r
- /* circulate in space */\r
- ideltax = state.isy-quady;\r
- ideltay = quadx-state.isx;\r
- }\r
- }\r
- else {\r
- /* compute distances to starbases */\r
- if (state.rembase <= 0) {\r
- /* nothing left to do */\r
- future[FSCMOVE] = 1e30;\r
- return;\r
- }\r
- sx = state.isx;\r
- sy = state.isy;\r
- for (i = 1; i <= state.rembase; i++) {\r
- basetbl[i] = i;\r
- ibqx = state.baseqx[i];\r
- ibqy = state.baseqy[i];\r
- bdist[i] = sqrt(square(ibqx-sx) + square(ibqy-sy));\r
- }\r
- if (state.rembase > 1) {\r
- /* sort into nearest first order */\r
- int iswitch;\r
- do {\r
- iswitch = 0;\r
- for (i=1; i < state.rembase-1; i++) {\r
- if (bdist[i] > bdist[i+1]) {\r
- int ti = basetbl[i];\r
- double t = bdist[i];\r
- bdist[i] = bdist[i+1];\r
- bdist[i+1] = t;\r
- basetbl[i] = basetbl[i+1];\r
- basetbl[i+1] =ti;\r
- iswitch = 1;\r
- }\r
- }\r
- } while (iswitch);\r
- }\r
- /* look for nearest base without a commander, no Enterprise, and\r
- without too many Klingons, and not already under attack. */\r
- ifindit = iwhichb = 0;\r
-\r
- for (i2 = 1; i2 <= state.rembase; i2++) {\r
- i = basetbl[i2]; /* bug in original had it not finding nearest*/\r
- ibqx = state.baseqx[i];\r
- ibqy = state.baseqy[i];\r
- if ((ibqx == quadx && ibqy == quady) ||\r
- (ibqx == batx && ibqy == baty) ||\r
- state.galaxy[ibqx][ibqy] > 899) continue;\r
- /* if there is a commander, an no other base is appropriate,\r
- we will take the one with the commander */\r
- for (j = 1; j <= state.remcom; j++) {\r
- if (ibqx==state.cx[j] && ibqy==state.cy[j] && ifindit!= 2) {\r
- ifindit = 2;\r
- iwhichb = i;\r
- break;\r
- }\r
- }\r
- if (j > state.remcom) { /* no commander -- use this one */\r
- ifindit = 1;\r
- iwhichb = i;\r
- break;\r
- }\r
- }\r
- if (ifindit==0) return; /* Nothing suitable -- wait until next time*/\r
- ibqx = state.baseqx[iwhichb];\r
- ibqy = state.baseqy[iwhichb];\r
- /* decide how to move toward base */\r
- ideltax = ibqx - state.isx;\r
- ideltay = ibqy - state.isy;\r
- }\r
- /* Maximum movement is 1 quadrant in either or both axis */\r
- if (ideltax > 1) ideltax = 1;\r
- if (ideltax < -1) ideltax = -1;\r
- if (ideltay > 1) ideltay = 1;\r
- if (ideltay < -1) ideltay = -1;\r
-\r
- /* try moving in both x and y directions */\r
- iqx = state.isx + ideltax;\r
- iqy = state.isy + ideltax;\r
- if (checkdest(iqx, iqy, flag, ipage)) {\r
- /* failed -- try some other maneuvers */\r
- if (ideltax==0 || ideltay==0) {\r
- /* attempt angle move */\r
- if (ideltax != 0) {\r
- iqy = state.isy + 1;\r
- if (checkdest(iqx, iqy, flag, ipage)) {\r
- iqy = state.isy - 1;\r
- checkdest(iqx, iqy, flag, ipage);\r
- }\r
- }\r
- else {\r
- iqx = state.isx + 1;\r
- if (checkdest(iqx, iqy, flag, ipage)) {\r
- iqx = state.isx - 1;\r
- checkdest(iqx, iqy, flag, ipage);\r
- }\r
- }\r
- }\r
- else {\r
- /* try moving just in x or y */\r
- iqy = state.isy;\r
- if (checkdest(iqx, iqy, flag, ipage)) {\r
- iqy = state.isy + ideltay;\r
- iqx = state.isx;\r
- checkdest(iqx, iqy, flag, ipage);\r
- }\r
- }\r
- }\r
- /* check for a base */\r
- if (state.rembase == 0) {\r
- future[FSCMOVE] = 1e30;\r
- }\r
- else for (i=1; i<=state.rembase; i++) {\r
- ibqx = state.baseqx[i];\r
- ibqy = state.baseqy[i];\r
- if (ibqx==state.isx && ibqy == state.isy && state.isx != batx && state.isy != baty) {\r
- /* attack the base */\r
- if (flag) return; /* no, don't attack base! */\r
- iseenit = 0;\r
- isatb=1;\r
- future[FSCDBAS] = state.date + 1.0 +2.0*Rand();\r
- if (batx != 0) future[FSCDBAS] += future[FCDBAS]-state.date;\r
- if (damage[DRADIO] > 0 && condit != IHDOCKED)\r
- return; /* no warning */\r
- iseenit = 1;\r
- if (*ipage == 0) pause(1);\r
- *ipage=1;\r
- proutn("Lt. Uhura- \"Captain, the starbase in");\r
- cramlc(1, state.isx, state.isy);\r
- skip(1);\r
- prout(" reports that it is under attack from the Klingon Super-commander.");\r
- proutn(" It can survive until stardate ");\r
- cramf(future[FSCDBAS], 0, 1);\r
- prout(" .\"");\r
- if (resting==0) return;\r
- prout("Mr. Spock- \"Captain, shall we cancel the rest period?\"");\r
- if (ja()==0) return;\r
- resting = 0;\r
- Time = 0.0; /* actually finished */\r
- return;\r
- }\r
- }\r
- /* Check for intelligence report */\r
- if (\r
-#ifdef DEBUG\r
- idebug==0 &&\r
-#endif\r
- (Rand() > 0.2 ||\r
- (damage[DRADIO] > 0.0 && condit != IHDOCKED) ||\r
- starch[state.isx][state.isy] > 0))\r
- return;\r
- if (*ipage==0) pause(1);\r
- *ipage = 1;\r
- prout("Lt. Uhura- \"Captain, Starfleet Intelligence reports");\r
- proutn(" the Super-commander is in");\r
- cramlc(1, state.isx, state. isy);\r
- prout(".\"");\r
- return;\r
-}\r
-\r
-void movetho(void) {\r
- int idx, idy, im, i, dum, my;\r
- /* Move the Tholian */\r
- if (ithere==0 || justin == 1) return;\r
-\r
- if (ithx == 1 && ithy == 1) {\r
- idx = 1; idy = 10;\r
- }\r
- else if (ithx == 1 && ithy == 10) {\r
- idx = 10; idy = 10;\r
- }\r
- else if (ithx == 10 && ithy == 10) {\r
- idx = 10; idy = 1;\r
- }\r
- else if (ithx == 10 && ithy == 1) {\r
- idx = 1; idy = 1;\r
- }\r
- else {\r
- /* something is wrong! */\r
- ithere = 0;\r
- return;\r
- }\r
-\r
- /* Do nothing if we are blocked */\r
- if (frozen.quad[idx][idy]!= IHDOT && frozen.quad[idx][idy]!= IHWEB) return;\r
- frozen.quad[ithx][ithy] = IHWEB;\r
-\r
- if (ithx != idx) {\r
- /* move in x axis */\r
- im = fabs((double)idx - ithx)/((double)idx - ithx);\r
- while (ithx != idx) {\r
- ithx += im;\r
- if (frozen.quad[ithx][ithy]==IHDOT) frozen.quad[ithx][ithy] = IHWEB;\r
- }\r
- }\r
- else if (ithy != idy) {\r
- /* move in y axis */\r
- im = fabs((double)idy - ithy)/((double)idy - ithy);\r
- while (ithy != idy) {\r
- ithy += im;\r
- if (frozen.quad[ithx][ithy]==IHDOT) frozen.quad[ithx][ithy] = IHWEB;\r
- }\r
- }\r
- frozen.quad[ithx][ithy] = IHT;\r
-\r
- /* check to see if all holes plugged */\r
- for (i = 1; i < 11; i++) {\r
- if (frozen.quad[1][i]!=IHWEB && frozen.quad[1][i]!=IHT) return;\r
- if (frozen.quad[10][i]!=IHWEB && frozen.quad[10][i]!=IHT) return;\r
- if (frozen.quad[i][1]!=IHWEB && frozen.quad[i][1]!=IHT) return;\r
- if (frozen.quad[i][10]!=IHWEB && frozen.quad[i][10]!=IHT) return;\r
- }\r
- /* All plugged up -- Tholian splits */\r
- frozen.quad[ithx][ithy]=IHWEB;\r
- dropin(IHBLANK, &dum, &my);\r
- crmena(1,IHT, 2, ithx, ithy);\r
- prout(" completes web.");\r
- ithere = ithx = ithy = 0;\r
- return;\r
-}\r
+#include "sst.h"
+
+static int tryexit(int lookx, int looky, int ienm, int loccom, int irun) {
+ int iqx, iqy, l;
+
+ iqx = quadx+(lookx+(QUADSIZE-1))/QUADSIZE - 1;
+ iqy = quady+(looky+(QUADSIZE-1))/QUADSIZE - 1;
+ if (iqx < 1 || iqx > GALSIZE || iqy < 1 || iqy > GALSIZE ||
+ game.state.galaxy[iqx][iqy] > 899)
+ return 0; /* no can do -- neg energy, supernovae, or >8 Klingons */
+ if (ienm == IHR) return 0; /* Romulans cannot escape! */
+ if (irun == 0) {
+ /* avoid intruding on another commander's territory */
+ if (ienm == IHC) {
+ for (l = 1; l <= game.state.remcom; l++)
+ if (game.state.cx[l]==iqx && game.state.cy[l]==iqy) return 0;
+ /* refuse to leave if currently attacking starbase */
+ if (batx==quadx && baty==quady) return 0;
+ }
+ /* don't leave if over 1000 units of energy */
+ if (game.kpower[loccom] > 1000.) return 0;
+ }
+ /* print escape message and move out of quadrant.
+ We know this if either short or long range sensors are working */
+ if (game.damage[DSRSENS] == 0.0 || game.damage[DLRSENS] == 0.0 ||
+ condit == IHDOCKED) {
+ crmena(1, ienm, 2, game.kx[loccom], game.ky[loccom]);
+ prout(" escapes to %s (and regains strength).",
+ cramlc(quadrant, iqx, iqy));
+ }
+ /* handle local matters related to escape */
+ game.quad[game.kx[loccom]][game.ky[loccom]] = IHDOT;
+ game.kx[loccom] = game.kx[nenhere];
+ game.ky[loccom] = game.ky[nenhere];
+ game.kavgd[loccom] = game.kavgd[nenhere];
+ game.kpower[loccom] = game.kpower[nenhere];
+ game.kdist[loccom] = game.kdist[nenhere];
+ klhere--;
+ nenhere--;
+ if (condit != IHDOCKED) newcnd();
+ /* Handle global matters related to escape */
+ game.state.galaxy[quadx][quady] -= ENEMY_PLACE;
+ game.state.galaxy[iqx][iqy] += ENEMY_PLACE;
+ if (ienm==IHS) {
+ ishere=0;
+ iscate=0;
+ ientesc=0;
+ isatb=0;
+ game.future[FSCMOVE]=0.2777+game.state.date;
+ game.future[FSCDBAS]=1e30;
+ game.state.isx=iqx;
+ game.state.isy=iqy;
+ }
+ else {
+ for (l=1; l<=game.state.remcom; l++) {
+ if (game.state.cx[l]==quadx && game.state.cy[l]==quady) {
+ game.state.cx[l]=iqx;
+ game.state.cy[l]=iqy;
+ break;
+ }
+ }
+ comhere = 0;
+ }
+ return 1; /* success */
+}
+
+
+static void movebaddy(int comx, int comy, int loccom, int ienm) {
+ int motion, mdist, nsteps, mx, my, nextx, nexty, lookx, looky, ll;
+ int irun = 0;
+ int krawlx, krawly;
+ int success;
+ int attempts;
+ /* This should probably be just comhere + ishere */
+ int nbaddys = skill > 3 ?
+ (int)((comhere*2 + ishere*2+klhere*1.23+irhere*1.5)/2.0):
+ (comhere + ishere);
+ double dist1, forces;
+
+ dist1 = game.kdist[loccom];
+ mdist = dist1 + 0.5; /* Nearest integer distance */
+
+ /* If SC, check with spy to see if should hi-tail it */
+ if (ienm==IHS &&
+ (game.kpower[loccom] <= 500.0 || (condit==IHDOCKED && game.damage[DPHOTON]==0))) {
+ irun = 1;
+ motion = -QUADSIZE;
+ }
+ else {
+ /* decide whether to advance, retreat, or hold position */
+/* Algorithm:
+ * Enterprise has "force" based on condition of phaser and photon torpedoes.
+ If both are operating full strength, force is 1000. If both are damaged,
+ force is -1000. Having shields down subtracts an additional 1000.
+
+ * Enemy has forces equal to the energy of the attacker plus
+ 100*(K+R) + 500*(C+S) - 400 for novice through good levels OR
+ 346*K + 400*R + 500*(C+S) - 400 for expert and emeritus.
+
+ Attacker Initial energy levels (nominal):
+ Klingon Romulan Commander Super-Commander
+ Novice 400 700 1200
+ Fair 425 750 1250
+ Good 450 800 1300 1750
+ Expert 475 850 1350 1875
+ Emeritus 500 900 1400 2000
+ VARIANCE 75 200 200 200
+
+ Enemy vessels only move prior to their attack. In Novice - Good games
+ only commanders move. In Expert games, all enemy vessels move if there
+ is a commander present. In Emeritus games all enemy vessels move.
+
+ * If Enterprise is not docked, an agressive action is taken if enemy
+ forces are 1000 greater than Enterprise.
+
+ Agressive action on average cuts the distance between the ship and
+ the enemy to 1/4 the original.
+
+ * At lower energy advantage, movement units are proportional to the
+ advantage with a 650 advantage being to hold ground, 800 to move forward
+ 1, 950 for two, 150 for back 4, etc. Variance of 100.
+
+ If docked, is reduced by roughly 1.75*skill, generally forcing a
+ retreat, especially at high skill levels.
+
+ * Motion is limited to skill level, except for SC hi-tailing it out.
+ */
+
+ forces = game.kpower[loccom]+100.0*nenhere+400*(nbaddys-1);
+ if (shldup==0) forces += 1000; /* Good for enemy if shield is down! */
+ if (game.damage[DPHASER] == 0.0 || game.damage[DPHOTON] == 0.0) {
+ if (game.damage[DPHASER] != 0) /* phasers damaged */
+ forces += 300.0;
+ else
+ forces -= 0.2*(energy - 2500.0);
+ if (game.damage[DPHOTON] != 0) /* photon torpedoes damaged */
+ forces += 300.0;
+ else
+ forces -= 50.0*torps;
+ }
+ else {
+ /* phasers and photon tubes both out! */
+ forces += 1000.0;
+ }
+ motion = 0;
+ if (forces <= 1000.0 && condit != IHDOCKED) /* Typical situation */
+ motion = ((forces+200.0*Rand())/150.0) - 5.0;
+ else {
+ if (forces > 1000.0) /* Very strong -- move in for kill */
+ motion = (1.0-square(Rand()))*dist1 + 1.0;
+ if (condit==IHDOCKED) /* protected by base -- back off ! */
+ motion -= skill*(2.0-square(Rand()));
+ }
+#ifdef DEBUG
+ if (idebug) {
+ proutn("MOTION = %1.2f", motion);
+ proutn(" FORCES = %1,2f", forces);
+ }
+#endif
+ /* don't move if no motion */
+ if (motion==0) return;
+ /* Limit motion according to skill */
+ if (abs(motion) > skill) motion = (motion < 0) ? -skill : skill;
+ }
+ /* calcuate 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 */
+#ifdef DEBUG
+ if (idebug) {
+ prout("NSTEPS = %d", nsteps);
+ }
+#endif
+ /* Compute preferred values of delta X and Y */
+ mx = sectx - comx;
+ my = secty - comy;
+ if (2.0 * abs(mx) < abs(my)) mx = 0;
+ if (2.0 * abs(my) < abs(sectx-comx)) my = 0;
+ if (mx != 0) mx = mx*motion < 0 ? -1 : 1;
+ if (my != 0) my = my*motion < 0 ? -1 : 1;
+ nextx = comx;
+ nexty = comy;
+ /* main move loop */
+ for (ll = 1; ll <= nsteps; ll++) {
+#ifdef DEBUG
+ if (idebug) {
+ prout("%d", ll);
+ }
+#endif
+ /* Check if preferred position available */
+ lookx = nextx + mx;
+ looky = nexty + my;
+ krawlx = mx < 0 ? 1 : -1;
+ krawly = my < 0 ? 1 : -1;
+ success = 0;
+ attempts = 0; /* Settle mysterious hang problem */
+ while (attempts++ < 20 && !success) {
+ if (lookx < 1 || lookx > QUADSIZE) {
+ if (motion < 0 && tryexit(lookx, looky, ienm, loccom, irun))
+ return;
+ if (krawlx == mx || my == 0) break;
+ lookx = nextx + krawlx;
+ krawlx = -krawlx;
+ }
+ else if (looky < 1 || looky > QUADSIZE) {
+ if (motion < 0 && tryexit(lookx, looky, ienm, loccom, irun))
+ return;
+ if (krawly == my || mx == 0) break;
+ looky = nexty + krawly;
+ krawly = -krawly;
+ }
+ else if (game.quad[lookx][looky] != IHDOT) {
+ /* See if we should ram ship */
+ if (game.quad[lookx][looky] == ship &&
+ (ienm == IHC || ienm == IHS)) {
+ ram(1, ienm, comx, comy);
+ return;
+ }
+ if (krawlx != mx && my != 0) {
+ lookx = nextx + krawlx;
+ krawlx = -krawlx;
+ }
+ else if (krawly != my && mx != 0) {
+ looky = nexty + krawly;
+ krawly = -krawly;
+ }
+ else break; /* we have failed */
+ }
+ else success = 1;
+ }
+ if (success) {
+ nextx = lookx;
+ nexty = looky;
+#ifdef DEBUG
+ if (idebug) {
+ prout(cramlc(neither, nextx, nexty));
+ }
+#endif
+ }
+ else break; /* done early */
+ }
+ /* Put commander in place within same quadrant */
+ game.quad[comx][comy] = IHDOT;
+ game.quad[nextx][nexty] = ienm;
+ if (nextx != comx || nexty != comy) {
+ /* it moved */
+ game.kx[loccom] = nextx;
+ game.ky[loccom] = nexty;
+ game.kdist[loccom] = game.kavgd[loccom] =
+ sqrt(square(sectx-nextx)+square(secty-nexty));
+ if (game.damage[DSRSENS] == 0 || condit == IHDOCKED) {
+ proutn("***");
+ cramen(ienm);
+ proutn(" from %s", cramlc(2, comx, comy));
+ if (game.kdist[loccom] < dist1) proutn(" advances to ");
+ else proutn(" retreats to ");
+ prout(cramlc(sector, nextx, nexty));
+ }
+ }
+}
+
+void movcom(void) {
+ int ix, iy, i;
+
+#ifdef DEBUG
+ if (idebug) prout("MOVCOM");
+#endif
+
+ /* Figure out which Klingon is the commander (or Supercommander)
+ and do move */
+ if (comhere) for (i = 1; i <= nenhere; i++) {
+ ix = game.kx[i];
+ iy = game.ky[i];
+ if (game.quad[ix][iy] == IHC) {
+ movebaddy(ix, iy, i, IHC);
+ break;
+ }
+ }
+ if (ishere) for (i = 1; i <= nenhere; i++) {
+ ix = game.kx[i];
+ iy = game.ky[i];
+ if (game.quad[ix][iy] == IHS) {
+ movebaddy(ix, iy, i, IHS);
+ break;
+ }
+ }
+ /* if skill level is high, move other Klingons and Romulans too!
+ Move these last so they can base their actions on what the
+ commander(s) do. */
+ if (skill > 3) for (i = 1; i <= nenhere; i++) {
+ ix = game.kx[i];
+ iy = game.ky[i];
+ if (game.quad[ix][iy] == IHK || game.quad[ix][iy] == IHR)
+ movebaddy(ix, iy, i, game.quad[ix][iy]);
+ }
+
+ sortkl();
+}
+
+static int movescom(int iqx, int iqy, int flag, int *ipage) {
+ int i;
+
+ if ((iqx==quadx && iqy==quady) ||
+ iqx < 1 || iqx > GALSIZE || iqy < 1 || iqy > GALSIZE ||
+ game.state.galaxy[iqx][iqy] > 899) return 1;
+ if (flag) {
+ /* Avoid quadrants with bases if we want to avoid Enterprise */
+ for (i = 1; i <= game.state.rembase; i++)
+ if (game.state.baseqx[i]==iqx && game.state.baseqy[i]==iqy) return 1;
+ }
+ if (justin && !iscate) return 1;
+ /* do the move */
+ game.state.galaxy[game.state.isx][game.state.isy] -= ENEMY_PLACE;
+ game.state.isx = iqx;
+ game.state.isy = iqy;
+ game.state.galaxy[game.state.isx][game.state.isy] += ENEMY_PLACE;
+ if (ishere) {
+ /* SC has scooted, Remove him from current quadrant */
+ iscate=0;
+ isatb=0;
+ ishere=0;
+ ientesc=0;
+ game.future[FSCDBAS]=1e30;
+ for (i = 1; i <= nenhere; i++)
+ if (game.quad[game.kx[i]][game.ky[i]] == IHS) break;
+ game.quad[game.kx[i]][game.ky[i]] = IHDOT;
+ game.kx[i] = game.kx[nenhere];
+ game.ky[i] = game.ky[nenhere];
+ game.kdist[i] = game.kdist[nenhere];
+ game.kavgd[i] = game.kavgd[nenhere];
+ game.kpower[i] = game.kpower[nenhere];
+ klhere--;
+ nenhere--;
+ if (condit!=IHDOCKED) newcnd();
+ sortkl();
+ }
+ /* check for a helpful planet */
+ for (i = 0; i < inplan; i++) {
+ if (game.state.plnets[i].x==game.state.isx && game.state.plnets[i].y==game.state.isy &&
+ game.state.plnets[i].crystals == 1) {
+ /* destroy the planet */
+ DESTROY(&game.state.plnets[i]);
+ game.state.newstuf[game.state.isx][game.state.isy] -= 1;
+ if (game.damage[DRADIO] == 0.0 || condit == IHDOCKED) {
+ if (*ipage==0) pause_game(1);
+ *ipage = 1;
+ prout("Lt. Uhura- \"Captain, Starfleet Intelligence reports");
+ proutn(" a planet in ");
+ proutn(cramlc(quadrant, game.state.isx, game.state.isy));
+ prout(" has been destroyed");
+ prout(" by the Super-commander.\"");
+ }
+ break;
+ }
+ }
+ return 0; /* looks good! */
+}
+
+
+
+
+
+void scom(int *ipage) {
+ int i, i2, j, ideltax, ideltay, ibqx, ibqy, sx, sy, ifindit, iwhichb;
+ int iqx, iqy;
+ int basetbl[BASEMAX];
+ double bdist[BASEMAX];
+ int flag;
+#ifdef DEBUG
+ if (idebug) prout("SCOM");
+#endif
+
+ /* Decide on being active or passive */
+ flag = ((game.state.killc+game.state.killk)/(game.state.date+0.01-indate) < 0.1*skill*(skill+1.0) ||
+ (game.state.date-indate) < 3.0);
+ if (iscate==0 && flag) {
+ /* compute move away from Enterprise */
+ ideltax = game.state.isx-quadx;
+ ideltay = game.state.isy-quady;
+ if (sqrt(ideltax*(double)ideltax+ideltay*(double)ideltay) > 2.0) {
+ /* circulate in space */
+ ideltax = game.state.isy-quady;
+ ideltay = quadx-game.state.isx;
+ }
+ }
+ else {
+ /* compute distances to starbases */
+ if (game.state.rembase <= 0) {
+ /* nothing left to do */
+ game.future[FSCMOVE] = 1e30;
+ return;
+ }
+ sx = game.state.isx;
+ sy = game.state.isy;
+ for (i = 1; i <= game.state.rembase; i++) {
+ basetbl[i] = i;
+ ibqx = game.state.baseqx[i];
+ ibqy = game.state.baseqy[i];
+ bdist[i] = sqrt(square(ibqx-sx) + square(ibqy-sy));
+ }
+ if (game.state.rembase > 1) {
+ /* sort into nearest first order */
+ int iswitch;
+ do {
+ iswitch = 0;
+ for (i=1; i < game.state.rembase-1; i++) {
+ if (bdist[i] > bdist[i+1]) {
+ int ti = basetbl[i];
+ double t = bdist[i];
+ bdist[i] = bdist[i+1];
+ bdist[i+1] = t;
+ basetbl[i] = basetbl[i+1];
+ basetbl[i+1] =ti;
+ iswitch = 1;
+ }
+ }
+ } while (iswitch);
+ }
+ /* look for nearest base without a commander, no Enterprise, and
+ without too many Klingons, and not already under attack. */
+ ifindit = iwhichb = 0;
+
+ for (i2 = 1; i2 <= game.state.rembase; i2++) {
+ i = basetbl[i2]; /* bug in original had it not finding nearest*/
+ ibqx = game.state.baseqx[i];
+ ibqy = game.state.baseqy[i];
+ if ((ibqx == quadx && ibqy == quady) ||
+ (ibqx == batx && ibqy == baty) ||
+ game.state.galaxy[ibqx][ibqy] > 899) continue;
+ /* if there is a commander, an no other base is appropriate,
+ we will take the one with the commander */
+ for (j = 1; j <= game.state.remcom; j++) {
+ if (ibqx==game.state.cx[j] && ibqy==game.state.cy[j] && ifindit!= 2) {
+ ifindit = 2;
+ iwhichb = i;
+ break;
+ }
+ }
+ if (j > game.state.remcom) { /* no commander -- use this one */
+ ifindit = 1;
+ iwhichb = i;
+ break;
+ }
+ }
+ if (ifindit==0) return; /* Nothing suitable -- wait until next time*/
+ ibqx = game.state.baseqx[iwhichb];
+ ibqy = game.state.baseqy[iwhichb];
+ /* decide how to move toward base */
+ ideltax = ibqx - game.state.isx;
+ ideltay = ibqy - game.state.isy;
+ }
+ /* Maximum movement is 1 quadrant in either or both axis */
+ if (ideltax > 1) ideltax = 1;
+ if (ideltax < -1) ideltax = -1;
+ if (ideltay > 1) ideltay = 1;
+ if (ideltay < -1) ideltay = -1;
+
+ /* try moving in both x and y directions */
+ iqx = game.state.isx + ideltax;
+ iqy = game.state.isy + ideltax;
+ if (movescom(iqx, iqy, flag, ipage)) {
+ /* failed -- try some other maneuvers */
+ if (ideltax==0 || ideltay==0) {
+ /* attempt angle move */
+ if (ideltax != 0) {
+ iqy = game.state.isy + 1;
+ if (movescom(iqx, iqy, flag, ipage)) {
+ iqy = game.state.isy - 1;
+ movescom(iqx, iqy, flag, ipage);
+ }
+ }
+ else {
+ iqx = game.state.isx + 1;
+ if (movescom(iqx, iqy, flag, ipage)) {
+ iqx = game.state.isx - 1;
+ movescom(iqx, iqy, flag, ipage);
+ }
+ }
+ }
+ else {
+ /* try moving just in x or y */
+ iqy = game.state.isy;
+ if (movescom(iqx, iqy, flag, ipage)) {
+ iqy = game.state.isy + ideltay;
+ iqx = game.state.isx;
+ movescom(iqx, iqy, flag, ipage);
+ }
+ }
+ }
+ /* check for a base */
+ if (game.state.rembase == 0) {
+ game.future[FSCMOVE] = 1e30;
+ }
+ else for (i=1; i<=game.state.rembase; i++) {
+ ibqx = game.state.baseqx[i];
+ ibqy = game.state.baseqy[i];
+ if (ibqx==game.state.isx && ibqy == game.state.isy && game.state.isx != batx && game.state.isy != baty) {
+ /* attack the base */
+ if (flag) return; /* no, don't attack base! */
+ iseenit = 0;
+ isatb=1;
+ game.future[FSCDBAS] = game.state.date + 1.0 +2.0*Rand();
+ if (game.future[FCDBAS] < 1e30) game.future[FSCDBAS] +=
+ game.future[FCDBAS]-game.state.date;
+ if (game.damage[DRADIO] > 0 && condit != IHDOCKED)
+ return; /* no warning */
+ iseenit = 1;
+ if (*ipage == 0) pause_game(1);
+ *ipage=1;
+ proutn("Lt. Uhura- \"Captain, the starbase in ");
+ proutn(cramlc(quadrant, game.state.isx, game.state.isy));
+ skip(1);
+ prout(" reports that it is under attack from the Klingon Super-commander.");
+ proutn(" It can survive until stardate %d.\"",
+ (int)game.future[FSCDBAS]);
+ if (resting==0) return;
+ prout("Mr. Spock- \"Captain, shall we cancel the rest period?\"");
+ if (ja()==0) return;
+ resting = 0;
+ Time = 0.0; /* actually finished */
+ return;
+ }
+ }
+ /* Check for intelligence report */
+ if (
+#ifdef DEBUG
+ idebug==0 &&
+#endif
+ (Rand() > 0.2 ||
+ (game.damage[DRADIO] > 0.0 && condit != IHDOCKED) ||
+ game.starch[game.state.isx][game.state.isy] > 0))
+ return;
+ if (*ipage==0) pause_game(1);
+ *ipage = 1;
+ prout("Lt. Uhura- \"Captain, Starfleet Intelligence reports");
+ proutn(" the Super-commander is in ");
+ proutn(cramlc(quadrant, game.state.isx, game.state. isy));
+ prout(".\"");
+ return;
+}
+
+void movetho(void) {
+ int idx, idy, im, i, dum, my;
+ /* Move the Tholian */
+ if (ithere==0 || justin == 1) return;
+
+ if (ithx == 1 && ithy == 1) {
+ idx = 1; idy = QUADSIZE;
+ }
+ else if (ithx == 1 && ithy == QUADSIZE) {
+ idx = QUADSIZE; idy = QUADSIZE;
+ }
+ else if (ithx == QUADSIZE && ithy == QUADSIZE) {
+ idx = QUADSIZE; idy = 1;
+ }
+ else if (ithx == QUADSIZE && ithy == 1) {
+ idx = 1; idy = 1;
+ }
+ else {
+ /* something is wrong! */
+ ithere = 0;
+ return;
+ }
+
+ /* Do nothing if we are blocked */
+ if (game.quad[idx][idy]!= IHDOT && game.quad[idx][idy]!= IHWEB) return;
+ game.quad[ithx][ithy] = IHWEB;
+
+ if (ithx != idx) {
+ /* move in x axis */
+ im = fabs((double)idx - ithx)/((double)idx - ithx);
+ while (ithx != idx) {
+ ithx += im;
+ if (game.quad[ithx][ithy]==IHDOT) game.quad[ithx][ithy] = IHWEB;
+ }
+ }
+ else if (ithy != idy) {
+ /* move in y axis */
+ im = fabs((double)idy - ithy)/((double)idy - ithy);
+ while (ithy != idy) {
+ ithy += im;
+ if (game.quad[ithx][ithy]==IHDOT) game.quad[ithx][ithy] = IHWEB;
+ }
+ }
+ game.quad[ithx][ithy] = IHT;
+ game.kx[nenhere]=ithx;
+ game.ky[nenhere]=ithy;
+
+ /* check to see if all holes plugged */
+ for (i = 1; i < QUADSIZE+1; i++) {
+ if (game.quad[1][i]!=IHWEB && game.quad[1][i]!=IHT) return;
+ if (game.quad[QUADSIZE][i]!=IHWEB && game.quad[QUADSIZE][i]!=IHT) return;
+ if (game.quad[i][1]!=IHWEB && game.quad[i][1]!=IHT) return;
+ if (game.quad[i][QUADSIZE]!=IHWEB && game.quad[i][QUADSIZE]!=IHT) return;
+ }
+ /* All plugged up -- Tholian splits */
+ game.quad[ithx][ithy]=IHWEB;
+ dropin(IHBLANK, &dum, &my);
+ crmena(1,IHT, 2, ithx, ithy);
+ prout(" completes web.");
+ ithere = ithx = ithy = 0;
+ nenhere--;
+ return;
+}
projects / super-star-trek.git / blobdiff