home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / bbs / starbatt / st1b.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-11-03  |  28.1 KB  |  998 lines
  1. /* Star Trek IG style
  2. by Kevin Moody
  3. */
  4.  
  5. #include "st1b.h"
  6.  
  7. main(argc, argv)
  8. int argc;
  9. char *argv[];
  10. {
  11.     int i; char c;
  12.     stp = string;
  13.     calltype = 1;
  14.     loc = 0;
  15.     for(i=1; i<argc; i++) {
  16.         if(!strcmp(argv[i], "LOCAL"))
  17.         {
  18.             calltype=0;
  19.             loc=1;
  20.         } 
  21.         if(!strcmp(argv[i], "local"))
  22.         {
  23.             calltype=0;
  24.             loc=1;
  25.         } }
  26.  
  27.     foremout("G#I>0:s>0:k>0:C>2,0:B>0,190,640,200,0:S>0,0,0,0:S>1,0,0,0:S>2,0,0,0:S>3,0,0,0:C>2,2:B>20,20,620,32,0:C>2,1:B>20,32,620,44,0:G>1,3,20,20,620,44:&>44,150,24,0,G,4,2,3,20,x:C>2,0:H>0:B>20,176,620,188,0:C>2,3:\r ");
  28.     foremout("G#B>20,20,300,103,0:L>35,32,41,26:D>47,32:D>32,28:D>50,28:D>35,32:L>38,29,45,29:G>1,3,32,26,50,32:&>32,220,46,0,G,4,2,3,x,26:G>1,3,32,26,280,32:&>26,80,15,0,G,4,2,3,32,x:G>1,3,32,26,239,32:\r ");
  29.     foremout("G#&>34,76,15,0,G,4,2,3,55,x:G>1,3,20,20,620,200:s>0:S>1,6,6,6:S>2,6,0,0:S>3,0,0,4:E>0,20,0:&>200,20,1,0,G,4,2,3,20,x:E>0,10,0:b>8:W>250,12,STAR BATTLE@\r ");
  30.     foremout("G#W>230,195,By Kevin Moody@C>2,0:b>17:s>0:B>0,190,640,199,0:\r ");
  31.     foremout("G#b>22,12:&>1,1,1,0,n,60,12,1,15,55,220,0:12,1,15,60,80,1:12,1,15,65,255,1:12,1,15,64,100,1:12,1,15,60,60,1:12,1,15,57,60,1:12,1,15,62,60,1:12,1,15,67,255,1:12,1,15,67,60,1:12,1,15,71,300,1:\r ");
  32.  
  33.     load();
  34.     planet();
  35.     
  36.     foremout("G#I>0:s>0:k>0:S>0,7,7,7:S>2,0,0,4:S>3,4,4,7:C>2,2:A>2,8,1:B>0,0,639,199,0:C>2,3:A>2,7,1:B>5,4,275,134,1:C>2,2:A>2,8,1:B>12,8,267,130,1:C>2,3:A>2,6,1:B>284,4,634,138,0:C>2,1:A>2,8,1:B>308,22,616,132,1:\r ");
  37.      foremout("G#X>4,47,1,1,638,198,1,?:A>2,5,1:A>2,5,1:O>300,15,7:O>621,15,7:C>1,0:&>352,572,44,0,L,4,x,22,x,132:&>44,110,22,0,L,4,308,x,615,x:C>2,1:A>2,4,1:B>4,140,636,197,1:E>1,10,0:M>2:C>3,1:W>393,18,Ship View Screen@\r ");
  38.     foremout("G#M>1:C>2,0:A>2,4,1:B>17,173,623,194,1:E>0,10,0:M>2:C>3,3:W>95,21,Ship Status@E>4,9,0:C>3,0:W>25,38,STRUCTURE@W>25,46,PHASORS@W>25,54,TORPEDOS@W>25,62,ENGINES@W>25,70,CLASS@W>25,78,SCORE@W>25,86,CRYSTALS@\r ");
  39.     foremout("G#W>25,118,CAPT.@M>1:C>2,1:A>2,6,1:B>18,144,623,169,1:C>2,3:A>2,8,1:B>32,147,123,167,1:B>149,147,240,167,1:B>266,147,350,167,1:B>383,147,474,167,1:B>500,147,591,167,1:\r ");
  40.     foremout("G#M>2:C>3,1:A>2,6,1:W>52,160,Cruise@W>168,160,Warp@W>285,160,Scan@W>402,160,Quit@W>519,160,Help@M>1:C>2,1:A>1,1,1:O>209,91,33:E>4,9,0:M>2:C>3,0:W>87,95,Turns Left@\r ");
  41.     foremout("G#X>4,0,32,147,123,167,1,C:X>4,1,149,147,240,167,1,W:X>4,2,266,147,350,167,1,S:X>4,3,383,147,474,167,1,Q:X>4,4,500,147,591,167,1,H:p>5,22:\r ");
  42.     
  43.     draw(p->px, YOU);
  44.     update();
  45.  
  46. while (zap != 1)  {
  47.     zap = 0; holy = 1;
  48.     foremout("G#T>1,6,4:b>7:<>1,2,1:\r ");    
  49.  
  50.     c = foremgetc();       /* Respond to mouse button */
  51.     if(c=='C')               /* Cruise */
  52.       {
  53.     foremout("G#X>4,9999:S>3,6,4,1:S>2,0,4,3:C>2,3:A>2,8,1:B>32,147,123,167,1:B>149,147,240,167,1:B>266,147,350,167,1:B>383,147,474,167,1:B>500,147,591,167,1:\r ");
  54.     foremout("G#X>4,47,1,1,638,198,1,?:M>2:C>3,1:A>2,6,1:W>52,160,Up@W>168,160,Down@W>285,160,Left@W>402,160,Right@W>519,160,Bridge@\r ");
  55.     foremout("G#X>4,0,32,147,123,167,1,U:X>4,1,149,147,240,167,1,D:X>4,2,266,147,350,167,1,L:X>4,3,383,147,474,167,1,R:X>4,4,500,147,591,167,1,B:\r ");     
  56.       cruise();
  57.       }
  58.     if(c=='W') warp();
  59.     if(c=='S') scan();
  60.     if(c=='Q') zap=1;
  61.     if(c=='?') zap=2;
  62.  
  63.     if(zap==0)  {                   /* define and draw main buttons  */
  64.         foremout("G#X>4,9999:S>2,0,0,4:S>3,4,4,7:X>4,47,1,1,638,198,1,?:C>2,1:A>2,8,1:B>308,22,616,132,1:C>1,0:&>352,572,44,0,L,4,x,22,x,132:&>44,110,22,0,L,4,308,x,615,x:\r ");
  65.         foremout("G#C>2,3:A>2,8,1:B>32,147,123,167,1:B>149,147,240,167,1:B>266,147,350,167,1:B>383,147,474,167,1:B>500,147,591,167,1:\r ");
  66.         foremout("G#X>4,47,1,1,638,198,1,?:M>2:C>3,1:A>2,6,1:W>52,160,Cruise@W>168,160,Warp@W>285,160,Scan@W>402,160,Quit@W>519,160,Help@\r ");
  67.         foremout("G#X>4,0,32,147,123,167,1,C:X>4,1,149,147,240,167,1,W:X>4,2,266,147,350,167,1,S:X>4,3,383,147,474,167,1,Q:X>4,4,500,147,591,167,1,H:\r ");     
  68.         draw(p->px, YOU);
  69.         update();  }
  70.     }         /* Player chose to quit game  */
  71.     save();
  72.     foremout("G#:I>0:s>0:S>2,7,0,0:S>3,0,7,0:k>1:\r ");
  73.     Pterm(0);
  74. }
  75. cruise()
  76. {
  77.     int x;
  78.     char c;
  79.  
  80.   /* draw and define cruise buttons - arrows */
  81. do{  update();
  82.     foremout("G#<>1,2,1:\r ");
  83.     
  84.      c=foremgetc();
  85.     old = x = p->px;
  86.      if(c=='U')        /* move up 1 space */
  87.           {
  88.     if(x<7) x += 28;
  89.     else 
  90.     x -= 7; 
  91.           }
  92.     if(c=='D')
  93.           {
  94.           if(x>27) x -= 28;
  95.     else
  96.     x += 7;
  97.           }
  98.     if(c=='L')
  99.           {
  100.     t = x % 7;
  101.           if(t==0) x += 6;
  102.     else
  103.     x -= 1; 
  104.           }
  105.     if(c=='R')
  106.           {
  107.     t = (x+1) % 7;
  108.     if(t==0) x -= 6;
  109.     else
  110.     x += 1; 
  111.           }
  112.     if(c=='B')  break;
  113.     if(c=='?')    ;
  114.     if(p->energy==0) rebuild(ENGINES);
  115.     if(p->energy > 0) {
  116.     if(c!='?') foremout("G#b>12:\r ");
  117.     draw(old, NONE);
  118.     draw(x, YOU);
  119.     p->px = x;
  120.     if(x!=old) { turn(); p->energy -= 10; }
  121.     if(p->energy <= 0) p->energy=0;
  122.     }
  123.      }while();
  124.     nocry = 0;
  125. }
  126.  
  127. warp()  
  128. {
  129.  
  130. int dep, rer=0, where;
  131.     foremout("G#M>1:C>2,0:A>2,4,1:B>17,173,623,194,1:\r ");
  132. do{    
  133.     foremout("G#p>5,22:\r Warp to Sector (1 - 35): (0=Exit) ");
  134.     foremin(stp);
  135.     sscanf(string,"%d", &where);
  136.     if(where==0) break;
  137.     if((where < 0) || (where > 35)) continue;
  138.     if(p->energy==0) rebuild(ENGINES);
  139.     if(p->energy > 0) {
  140.     foremout("G#b>5:\r ");
  141.     old = p->px;
  142.     p->px = where - 1;
  143.     draw(old, NONE);
  144.     draw(p->px,YOU);
  145.     if(p->px!=old) p->energy -= 30;
  146.     nocry = 0;
  147.     update();
  148.     }
  149.     break;
  150.   }while();
  151. }
  152.  
  153. draw(m,n)
  154. int m, n;
  155. {    int x;
  156.     static char eex[10], eey[10], bigy[30];
  157.     for (x=0;x<30;x++) bigy[x]='\0';
  158.     grid(m);
  159.     itoa(eex, a); itoa(eey, b);
  160.     foremout("G#M>1:H>0:A>1,1,1:\r ");
  161.     switch(n) {
  162.     case MOON:
  163.     foremout("G#C>2,0:\r ");
  164.     break;
  165.     case OTHER:
  166.     foremout("G#H>1:C>2,3:\r ");
  167.     break;
  168.     case ALIEN:
  169.     foremout("G#H>1:C>2,2:\r ");    
  170.     break;
  171.     case YOU:
  172.     foremout("G#H>1:C>2,0:\r ");    
  173.     break;
  174.     case NONE:
  175.     foremout("G#C>2,1:\r ");    
  176.     break;
  177.     }
  178.     strcpy(bigy,"G#O>");
  179.     strcat(bigy,eex);
  180.     strcat(bigy,",");
  181.     strcat(bigy,eey);
  182.     strcat(bigy,",12:\r ");
  183.     foremout(bigy);       /* radius of old circle  */
  184. }
  185. scan()
  186. {
  187.     int planet = 0, x, hm=0;
  188. char i;
  189.     setscan();
  190. do{    combat();
  191.     update();
  192.     foremout("G#<>1,2,1:\r ");
  193.  
  194.     i=foremgetc();
  195.     if(i=='O')        /* orbit nearby planet  */
  196.           {
  197.     for(x=0; x<35; x++)  
  198.     if(brd[p->px][x] == MOON) planet = TRUE; 
  199.     if(planet == FALSE) {
  200.     foremout("G#p>5,22:\r No Planet in this sector...."); 
  201.     foremout("G#t>1:\r "); }
  202.     else  {orbit(); setscan(); }
  203.         }
  204.     if(i=='A')  {
  205.         attack(); 
  206.         setscan(); 
  207.         }
  208.     if(i=='B')  break;   /* Bridge */
  209.     if(i=='C')             /* communicate  */
  210.           {
  211.     for(x=0; x<35; x++)  
  212.     if(brd[(p->px)][x] == ALIEN) {
  213.      foremout("G#p>5,22:\r Aliens attacking...Communications aborted! G#t>1:\r ");
  214.     combat(); hm=1; break; }
  215.     if(!hm) showp();
  216.     }
  217.     if(i=='?')  ;
  218.     foremout("G#p>5,22:\r ");
  219.     }while();
  220. }
  221. orbit()
  222. {
  223.     int  cry, x, fel, treaty=0,  recv, barb, mu, mine=0;
  224.     static char eex[10], c, st[2], bigy[10];
  225.     
  226.     for (x=0; x< MAX; x++)  {
  227.         if(brd[(p->px)][x] == ALIEN)  {
  228.     foremout("G#p>5,22:\r Aliens attacking...Planet Orbiting is aborted!");
  229.     foremout("G#t>1:p>5,22:\r ");
  230.         return;  } }
  231.     fel = rnd(10);
  232.     cry = rnd(200) + 1000*(pl[p->px].class) + rnd(5);
  233.     mu = pl[p->px].align;
  234.     /* Erase sectors with black fill box  and draw increasing fill circle*/
  235.         foremout("G#X>4,9999:S>2,4,0,0:C>2,1:A>2,8,1:B>308,22,616,132,1:C>2,3:A>2,8,1:B>32,147,123,167,1:B>149,147,240,167,1:B>266,147,350,167,1:B>383,147,474,167,1:B>500,147,591,167,1:\r ");
  236.         foremout("G#X>4,47,1,1,638,198,1,?:M>2:C>3,1:A>2,6,1:W>52,160,Treaty@W>168,160,Comm@W>285,160,Mine@W>402,160,Bridge@\r ");
  237.         barb = rnd(4); if(barb==0) barb=2; if(barb==1) barb=3; itoa(st, barb);
  238.         strcpy(bigy, "G#C>2,"); strcat(bigy,st); strcat(bigy,":\r "); foremout(bigy);
  239.         foremout("G#&>3,120,12,0,O,3,462,77,x:X>4,0,32,147,123,167,1,T:X>4,1,149,147,240,167,1,C:X>4,2,266,147,350,167,1,M:X>4,3,383,147,474,167,1,B:\r ");     
  240.     p->energy -= 5;
  241.     if(p->energy <= 0) p->energy=0;
  242.  
  243. do{        update();
  244.     foremout("G#p>5,22:<>1,2,1:\r ");
  245.      c=foremgetc();
  246.      if(c=='T')        /* Make peace treaty with planet */
  247.           {
  248.     treaty = 1; mine =1;
  249.     turn();
  250.     p->energy -= 5;
  251.     if(p->energy <= 0) p->energy=0;
  252.     foremout("G#p>5,22:\r Peace Treaty is acknowledged and accepted");
  253.     foremout("G#t>1:\r ");
  254.           }
  255.     if(c=='C')        /* Comm link to get market stats  */
  256.           {
  257.     if( ( mu==2 || ( mu==1 && fel<6 ) ) && !treaty ) {
  258.     foremout("G#p>5,22:\r Planet demands Treaty..Planet attacks!");
  259.     foremout("G#t>1:p>5,22:\r ");
  260.         if(p->shield > 0) p->shield -= rnd(50);
  261.         if(p->shield <= 0) p->shield = 0;
  262.         rebuild();
  263.       }
  264.     else {
  265.     foremout("G#b>8:\r ");
  266.     foremout("G#p>5,22:\r Planet Market Statistics...");
  267.     planp(cry); 
  268.     mine = 1;   }
  269.          }
  270.     if(c=='M')        /* Mine planet for crystals */
  271.           {
  272.     if(mine) {
  273.     foremout("G#b>12:\r ");
  274.     turn();
  275.     recv = (cry - 10*(pl[p->px].align))/100 + rnd(10);
  276.     foremout("G#p>5,22:\r Amount of Crystals mined from planet is ");
  277.     if(recv<0) recv=0;
  278.     itoa(eex, recv);
  279.     foremout(eex);
  280.     foremout("G#t>1:\r ");
  281.     p->crystal += recv; }
  282.     else {
  283.     foremout("G#p>5,22:\r Planet demands Treaty..Planet attacks!");
  284.     foremout("G#t>1:\r ");
  285.         if(p->shield > 0) p->shield -= rnd(50);
  286.         if(p->shield <= 0) p->shield = 0;
  287.         rebuild();
  288.       }
  289.      }
  290.     if(c=='B')  break;
  291.     if(c=='?')    ;
  292.     }while();
  293. }
  294.  
  295. setscan()
  296. {
  297.     int x, y, ct;
  298.     foremout("G#X>4,9999:S>3,6,4,1:S>2,4,0,0:X>4,47,1,1,638,198,1,?:C>2,1:A>2,8,1:B>308,22,616,132,1:C>1,0:&>352,572,44,0,L,4,x,22,x,132:&>44,110,22,0,L,4,308,x,615,x:\r ");
  299.     foremout("G#C>2,3:A>2,8,1:B>32,147,123,167,1:B>149,147,240,167,1:B>266,147,350,167,1:B>383,147,474,167,1:B>500,147,591,167,1:\r ");
  300.     foremout("G#X>4,47,1,1,638,198,1,?:M>2:C>3,1:A>2,6,1:E>0,9,0:W>52,160,Comm@W>168,160,Orbit@W>285,160,Attack@W>402,160,Bridge@W>519,160,Help@\r ");
  301.     foremout("G#X>4,0,32,147,123,167,1,C:X>4,1,149,147,240,167,1,O:X>4,2,266,147,350,167,1,A:X>4,3,383,147,474,167,1,B:X>4,4,500,147,591,167,1,H:\r ");     
  302.     turn();
  303.     more = 1;
  304.     draw(p->px, NONE);
  305.     for (x=0; x<pc; x++) 
  306.         if (pl[x].ppx == p->px)
  307.             draw(pl[x].ppy, MOON); 
  308.     for (x=0; x<num_recs; x++)
  309.         if (u[x].px == p->px)
  310.         if (strcmp(u[x].name,user)!=0) 
  311.         {   draw(u[x].py, OTHER);
  312.             strcpy(others[more], u[x].name);
  313.             ++more;  }
  314. if(holy) {
  315.     ct = anum = rnd(3);
  316.     while(ct) {
  317.         y = rnd(35);
  318.         if(brd[(p->px)][y] == NONE) {
  319.             brd[(p->px)][y] = ALIEN;
  320.             draw(y, ALIEN);
  321.             --ct;  }    
  322.     } }
  323.     holy = 0;
  324.     x = 0;
  325.     do  {
  326.         y = rnd(35);
  327.         if(brd[(p->px)][y] == NONE) {
  328.             brd[(p->px)][y] = YOU;
  329.             p->py = y;
  330.             draw(y, YOU);
  331.             x = 1;  }
  332.     } while (x == 0);  
  333.  
  334.     for (x=0; x<MAX; x++) 
  335.         if (brd[p->px][x] == ALIEN){
  336.             draw(x, ALIEN); }
  337.  
  338. }
  339.  
  340. attack()
  341. {
  342.     static int x, miss, deter, dmg, zed;
  343. char c;
  344.         foremout("G#X>4,9999:S>3,6,4,1:S>2,4,0,0:X>4,47,1,1,638,198,1,?:C>2,1:A>2,8,1:B>308,22,616,132,1:\r ");
  345.         foremout("G#C>2,3:A>2,8,1:B>32,147,123,167,1:B>149,147,240,167,1:B>266,147,350,167,1:B>383,147,474,167,1:B>500,147,591,167,1:\r ");
  346.         foremout("G#X>4,47,1,1,638,198,1,?:M>2:C>3,1:A>2,6,1:W>52,160,Phasors@W>168,160,Torpedos@W>285,160,Bridge@\r ");
  347.         foremout("G#X>4,0,32,147,123,167,1,P:X>4,1,149,147,240,167,1,T:X>4,2,266,147,350,167,1,B:\r ");     
  348.  
  349.     if(alock==100) {
  350.         showp();
  351.         if(its==0) return;
  352.         aatk = TRUE;
  353.         }
  354. foremout("G#M>1:C>2,3:A>1,1,1:Q>455,44,32,8:C>2,2:A>1,1,1:Q>455,44,18,3:C>2,3:A>3,5,1:B>449,50,459,75,0:T>2,1,17:K>454,105,65,0,175:C>2,2:A>2,8,1:Q>454,76,83,9:\r ");
  355. foremout("G#C>2,1:A>2,6,1:B>387,74,518,79,0:C>2,1:A>2,4,1:O>388,106,19:O>519,106,19:T>2,1,1:\r ");
  356.     
  357. do{    update();
  358.     foremout("G#p>5,22:<>1,2,1:\r ");
  359.     c=foremgetc();
  360.     if(c=='T') { 
  361.         if(p->torpedo == 0 ) rebuild(TORPEDOS);
  362.         if(p->torpedo > 0) {
  363.         foremout("G#b>18:t>1:\r ");      /* 10 - 60 points */
  364.         dmg = 10 + rnd(50); 
  365.         p->torpedo -= 1;
  366.         if(p->torpedo < 0) p->torpedo = 0;  }
  367.         }
  368.     if(c=='P') {
  369.         if(p->phasor == 0 ) rebuild(PHASORS);
  370.         if(p->phasor > 0) {
  371.         foremout("G#b>9:t>1:\r ");       /* 5 - 30 points */
  372.         dmg = 5 + rnd(25); 
  373.         p->phasor -= 1;
  374.         if(p->phasor < 0) p->phasor = 0;  }
  375.         }
  376.     if(c=='?') ;            /* OPPS */
  377.     if(c=='B') break;         /* Back to Bridge  */
  378.     turn();
  379.     deter = rnd(10);
  380.     if(deter > 2) {
  381.         if(aflag) a_dam -= dmg;
  382.         if(aatk) u[q].shield -= dmg;
  383.         if(u[q].shield <=0 && u[q].crystal >4) {
  384.             u[q].shield = 200; u[q].crystal -= 5; }
  385.         if(a_dam <= 0 || u[q].shield <= 0) {
  386.         if(aflag) { p->score += 200; brd[p->px][alock] = NONE; }
  387.         if(aatk) { p->score += 2000; brd[p->px][(u[q].py)] = NONE; u[q].class=0;}
  388.         foremout("G#b>6:&>0,7,1,20,S,4,2,x,0,0:&>7,0,1,20,S,4,2,x,0,0:S>2,4,0,0:C>2,1:A>1,1,1:&>3,120,12,0,Q,4,462,77,x,50:b>6:\r ");    
  389.         foremout("G#p>5,22:\r GOT HIM!");
  390.         a_dam = 60; zed = 1;}
  391.     if(!zed) foremout("G#p>5,22:b>6:&>0,7,1,20,S,4,2,x,0,0:&>7,0,1,20,S,4,2,x,0,0:S>3,6,4,1:S>2,4,0,0:\r Capt, we've HIT our target");
  392. } 
  393.     if(deter < 3) foremout("G#p>5,22:\r We missed our Target, Capt");
  394. combat(); zed = 0; if(alock!=100){
  395. foremout("G#M>1:C>2,3:A>1,1,1:Q>455,44,32,8:C>2,2:A>1,1,1:Q>455,44,18,3:C>2,3:A>3,5,1:B>449,50,459,75,0:T>2,1,17:K>454,105,65,0,175:C>2,2:A>2,8,1:Q>454,76,83,9:\r ");
  396. foremout("G#C>2,1:A>2,6,1:B>387,74,518,79,0:C>2,1:A>2,4,1:O>388,106,19:O>519,106,19:T>2,1,1:\r ");
  397. }
  398. }while();
  399. aatk = 0;
  400. }
  401.  
  402. combat()
  403. {
  404.     int  chance, x;
  405.     aflag = 0; alock=100;
  406.     foremout("G#t>1:p>5,22:\r ");
  407.     for(x=0; x<35; x++)  
  408.     if(brd[(p->px)][x] == ALIEN) {
  409.         aflag = 1;
  410.         alock = x;  }
  411.  
  412.     if(aflag==1 || aatk==1) {
  413.         foremout("G#b>0:\r ");
  414.         chance = rnd(10);
  415.         if (chance > 2)  {        /* 80% chance its a hit  */
  416.         foremout("G#b>6:\r ");        
  417.         foremout("G#p>5,22:&>0,7,1,20,S,4,1,x,0,0:&>7,0,1,20,S,4,1,x,0,0:S>1,0,0,0:S>0,7,7,7:\r Computer reports damage to our structure Capt. ");    
  418.          if(aatk) p->shield -= (5 + rnd(50));
  419.          if(aflag) p->shield -= (5 + rnd(25));
  420.         if(p->shield <= 0) { 
  421.         p->shield = 0; 
  422.         rebuild(SHIELDS); }    
  423.         }
  424.         if(chance < 3) {
  425.             foremout("G#p>5,22:\r The enemy has missed their attack ");
  426.             foremout("G#t>1:\r ");
  427.             }
  428.     }
  429. }
  430.     
  431. planp(dilith)
  432. int dilith;
  433. {
  434. int     x;
  435. static char    eex[10], bigy[80], c; 
  436.  
  437.     foremout("G#M>2:A>0,1,1:B>317,26,607,33,0:E>1,8,0:C>3,0:W>328,32,ALIGN      CLASS   CRYSTALS      NAME@E>0,8,0:\r ");
  438.  
  439.                 strcpy(bigy,"G#W>328,44,");
  440.                 switch(pl[p->px].align) {
  441.                     case 0: strcat(bigy, "FREINDLY  "); break;
  442.                     case 1: strcat(bigy, "NUETRAL   "); break;
  443.                     case 2: strcat(bigy, "HOSTILE   "); break;  }
  444.                 switch(pl[p->px].class) {
  445.                     case 0: strcat(bigy, " POOR    "); break;
  446.                     case 1: strcat(bigy, " NORMAL  "); break;
  447.                     case 2: strcat(bigy, " RICH    "); break;  }
  448.                 itoa(eex, dilith);    
  449.                 strcat(bigy, eex);
  450.                 strcat(bigy, "            ");
  451.                 strcat(bigy, pl[p->px].name);
  452.                 strcat(bigy,"@\r ");
  453.                 foremout(bigy);
  454.  
  455. }
  456.  
  457. showp()
  458. {
  459.     int  x, y, z, poe=42, gain=0, offs=6;
  460. static char eex[10], eey[10], eez[10], bigy[80], c; 
  461.  
  462.     foremout("G#b>8:M>1:C>2,1:A>2,8,1:B>308,22,616,132,1:M>1:C>2,2:A>0,1,1:H>1:B>317,26,607,33,0:B>317,36,606,130,0:E>1,8,0:C>3,0:W>328,32,LIST  CLASS   CRYSTALS      NAME@E>0,8,0:\r ");
  463.     for(x=0; x<more; x++) {
  464.         for(y=0; y<num_recs; y++) {
  465.       if (strcmp(others[x],u[y].name)==0) {
  466.                 strcpy(bigy,"G#W>328,");
  467.                 ++gain;
  468.                 itoa(eex, poe);    
  469.                 strcat(bigy, eex);
  470.                 strcat(bigy, ",");
  471.                 poe += offs;
  472.                 itoa(eey, gain);    
  473.                 strcat(bigy, eey);
  474.                 strcat(bigy, "     ");
  475.                 switch(u[y].class) {
  476.                     case 1: strcat(bigy, "FEDER   "); break;
  477.                     case 2: strcat(bigy, "KLING   "); break;
  478.                     case 3: strcat(bigy, "ROMUL   "); break;  }
  479.                 itoa(eez, u[y].crystal);    
  480.                 strcat(bigy, eez);
  481.                 strcat(bigy,"      ");
  482.                 strcat(bigy, u[y].name);
  483.                 strcat(bigy,"@\r ");
  484.                 foremout(bigy);
  485.                 }}}
  486.  
  487.     if(gain!=0) {
  488.     do  {
  489.         foremout("G#p>5,22:\r Select player by his number above. (0 = Exit) ");
  490.         foremin(stp);
  491.         sscanf(string,"%d", &its);
  492.         if(its<=0) {its=0; break;}
  493.         if(its>more) continue;
  494.         for(x=0; x<num_recs; x++) 
  495.               if (strcmp(others[its],u[x].name)==0) 
  496.                 q = x;
  497.         foremout("G#p>5,22:\r ");
  498.         foremout(u[q].name);
  499.         foremout(" has his ship set on AUTO ATTACK ");
  500.         }while();
  501.         }
  502.     if(gain==0) {
  503.     foremout("G#M>1:C>2,0:A>2,4,1:B>17,173,623,194,1:p>5,22:\r ");
  504.     foremout("G#p>5,22:\r Your all alone here. ");
  505.         its=0;
  506.         }
  507. }
  508.  
  509. grid(pos)        /* look up table for grid position  */
  510. int pos;
  511. {
  512.     switch(pos)  {
  513.         case 0:  a=330 + 0*44; b=33 + 0*22; break;        
  514.         case 1:  a=330 + 1*44; b=33 + 0*22; break;        
  515.         case 2:  a=330 + 2*44; b=33 + 0*22; break;        
  516.         case 3:  a=330 + 3*44; b=33 + 0*22; break;        
  517.         case 4:  a=330 + 4*44; b=33 + 0*22; break;        
  518.         case 5:  a=330 + 5*44; b=33 + 0*22; break;        
  519.         case 6:  a=330 + 6*44; b=33 + 0*22; break;        
  520.  
  521.         case 7:  a=330 + 0*44; b=33 + 1*22; break;        
  522.         case 8:  a=330 + 1*44; b=33 + 1*22; break;        
  523.         case 9:  a=330 + 2*44; b=33 + 1*22; break;        
  524.         case 10:  a=330 + 3*44; b=33 + 1*22; break;        
  525.         case 11:  a=330 + 4*44; b=33 + 1*22; break;        
  526.         case 12:  a=330 + 5*44; b=33 + 1*22; break;        
  527.         case 13:  a=330 + 6*44; b=33 + 1*22; break;        
  528.  
  529.         case 14:  a=330 + 0*44; b=33 + 2*22; break;        
  530.         case 15:  a=330 + 1*44; b=33 + 2*22; break;        
  531.         case 16:  a=330 + 2*44; b=33 + 2*22; break;        
  532.         case 17:  a=330 + 3*44; b=33 + 2*22; break;        
  533.         case 18:  a=330 + 4*44; b=33 + 2*22; break;        
  534.         case 19:  a=330 + 5*44; b=33 + 2*22; break;        
  535.         case 20:  a=330 + 6*44; b=33 + 2*22; break;        
  536.  
  537.         case 21:  a=330 + 0*44; b=33 + 3*22; break;        
  538.         case 22:  a=330 + 1*44; b=33 + 3*22; break;        
  539.         case 23:  a=330 + 2*44; b=33 + 3*22; break;        
  540.         case 24:  a=330 + 3*44; b=33 + 3*22; break;        
  541.         case 25:  a=330 + 4*44; b=33 + 3*22; break;        
  542.         case 26:  a=330 + 5*44; b=33 + 3*22; break;        
  543.         case 27:  a=330 + 6*44; b=33 + 3*22; break;        
  544.  
  545.         case 28:  a=330 + 0*44; b=33 + 4*22; break;        
  546.         case 29:  a=330 + 1*44; b=33 + 4*22; break;        
  547.         case 30:  a=330 + 2*44; b=33 + 4*22; break;        
  548.         case 31:  a=330 + 3*44; b=33 + 4*22; break;        
  549.         case 32:  a=330 + 4*44; b=33 + 4*22; break;        
  550.         case 33:  a=330 + 5*44; b=33 + 4*22; break;        
  551.         case 34:  a=330 + 6*44; b=33 + 4*22; break;        
  552.     }
  553. }
  554.  
  555. turn()
  556. {
  557. static char st[5], bigy[70];
  558.     strcpy(bigy,"G#M>1:C>2,3:A>1,1,1:V>209,91,33,");
  559.     itoa(st, bang);
  560.     strcat(bigy, st);
  561.     strcat(bigy, ",");
  562.     itoa(st, eang);
  563.     strcat(bigy, st);
  564.     strcat(bigy, ":\r ");
  565.     foremout(bigy);
  566.     bang += 10;
  567.     eang += 10;
  568.     turn_left -= 1;
  569.     if(turn_left == 0) {
  570.         foremout("G#p>5,22:\r You have used up all your TURNS -- Sorry Capt. G#t>2:\r ");
  571.         end_game();  }
  572.  
  573. }
  574.  
  575. update()
  576. {
  577. int slev, x;
  578. static char st[5], bigy[27];
  579.     foremout("G#M>2:C>2,0:A>0,1,1:B>167,32,263,38,0:B>167,40,263,46,0:B>167,48,263,54,0:B>167,56,263,62,0:\r ");
  580.     foremout("G#M>1:C>2,1:A>1,1,1:B>168,33,262,37,0:B>168,41,262,45,0:B>168,49,262,53,0:B>168,57,262,61,0:M>1:C>2,2:A>1,1,1:B>102,30,164,91,0:\r ");
  581.     foremout("G#c>0,1:c>1,0:p>14,4:\r ");
  582.     itoa(st,p->shield);
  583.     foremout( st );    
  584.     for(x=0;x<5;x++) st[x]='\0';
  585.     foremout("G#p>14,5:\r ");
  586.     itoa(st,p->phasor);
  587.     foremout( st );    
  588.     for(x=0;x<5;x++) st[x]='\0';
  589.     foremout("G#p>14,6:\r ");
  590.     itoa(st,p->torpedo);
  591.     foremout( st );    
  592.     for(x=0;x<5;x++) st[x]='\0';
  593.     foremout("G#p>14,7:\r ");
  594.     itoa(st,p->energy);
  595.     foremout( st );    
  596.     for(x=0;x<5;x++) st[x]='\0';
  597.     foremout("G#p>14,8:\r ");
  598.     switch(p->class) {
  599.         case 0: /* clear screen / quit game */ break;
  600.         case 1: foremout("Federation "); break;
  601.         case 2: foremout("Klingon ");    break;
  602.         case 3: foremout("Romulan ");    break;  }
  603.     foremout("G#p>14,9:\r ");
  604.     itoa(st,p->score);
  605.     foremout( st );    
  606.     for(x=0;x<5;x++) st[x]='\0';
  607.     foremout("G#p>14,10:\r ");
  608.     itoa(st,p->crystal);
  609.     foremout( st );    
  610.     for(x=0;x<5;x++) st[x]='\0';
  611.     foremout("G#p>14,14:\r ");
  612.     foremout(user);
  613.     foremout("G#C>2,3:\r ");
  614.     slev = (((p->phasor)*94)/ptot) + 168;
  615.     itoa(st, slev);
  616.     strcpy(bigy,"G#B>168,41,");
  617.     strcat(bigy, st);
  618.     strcat(bigy, ",45,0:\r ");
  619.     foremout(bigy);
  620.     slev = (((p->shield)*94)/stot) + 168;
  621.     itoa(st, slev);
  622.     strcpy(bigy,"G#B>168,33,");
  623.     strcat(bigy, st);
  624.     strcat(bigy, ",37,0:\r ");
  625.     foremout(bigy);
  626.     slev = ((p->energy)*94)/etot + 168;
  627.     itoa(st, slev);
  628.     strcpy(bigy,"G#B>168,57,");
  629.     strcat(bigy, st);
  630.     strcat(bigy, ",61,0:\r ");
  631.     foremout(bigy);
  632.     slev = ((p->torpedo)*94)/ttot + 168;
  633.     itoa(st, slev);
  634.     strcpy(bigy,"G#B>168,49,");
  635.     strcat(bigy, st);
  636.     strcat(bigy, ",53,0:\r ");
  637.     foremout(bigy);
  638.     foremout("G#M>1:C>2,0:A>2,4,1:B>17,173,623,194,1:c>0,0:c>1,3:p>5,22:\r ");
  639.     
  640. }
  641.  
  642. rebuild(it)
  643. int it;
  644. {
  645.     switch(it) {
  646.     case SHIELDS:
  647.         if(p->shield==0 && p->crystal > 4) {
  648.             p->crystal -= 5;
  649.             p->shield = stot;
  650.             update();  }
  651.         else { 
  652.             foremout("G#p>5,22:\r You have been destroyed. Better Luck Next Time! G#t>1:\r ");
  653.             p->class = 0;
  654.             end_game();  }
  655.         break;
  656.     case TORPEDOS:
  657.         if(p->torpedo==0 && p->crystal > 4) {
  658.             p->crystal -= 5;
  659.             p->torpedo = ttot;
  660.             update();  }
  661.         else 
  662.             foremout("G#p>5,22:\r We have no more crystals to replenish torpedos! ");
  663.         break;
  664.     case ENGINES:
  665.         if(p->energy==0 && p->crystal > 4) {
  666.             p->crystal -= 5;
  667.             p->energy = etot;
  668.             update();  }
  669.         else 
  670.             foremout("G#p>5,22:\r We have no more crystals to supply energy! ");
  671.         break;
  672.     case PHASORS:
  673.         if(p->phasor==0 && p->crystal > 4) {
  674.             p->crystal -= 5;
  675.             p->phasor = ptot;
  676.             update();  }
  677.         else 
  678.             foremout("G#p>5,22:\r We have no more crystals to replenish phasor banks! ");
  679.         break;
  680.     }
  681. }
  682.  
  683. end_game()
  684. {
  685.     save();
  686.     foremout("G#:I>0:s>0:S>2,7,0,0:S>3,0,7,0:k>1:\r ");
  687.     Pterm(0);
  688. }
  689. add_p()
  690. {
  691.     int x; 
  692.  
  693.     x = num_recs;
  694.     do {
  695.         u[x].px = rnd(MAX);   
  696.         u[x].py = rnd(MAX);
  697.         }
  698.     while (brd[ (u[x].px )][ (u[x].py )] != NONE);
  699.     brd[ (u[x].px )][ (u[x].py )] = YOU;    
  700.     strcpy(u[x].name, user);
  701.     u[x].energy = etot;
  702.     u[x].phasor = ptot;
  703.     u[x].torpedo = ttot;
  704.     u[x].shield = stot;
  705.     u[x].crystal = 5;
  706.     u[x].score = 0;
  707.     u[x].class = rnd(3) + 1;
  708.     p = &u[x];
  709.     ++num_recs;    
  710.  
  711. }
  712.  
  713. load()
  714. {
  715.    FILE *p_file;
  716.    int  x, found=0;
  717.   
  718.     get_foremdat();
  719.     if((p_file = fopen("trek.dat", "r")) == NULL) {
  720.          add_p();
  721.          save();
  722.          return;
  723.       }
  724.    fscanf(p_file, "%d", &num_recs);
  725.  
  726.    for (x=0; x<num_recs; x++) {
  727.       fscanf(p_file, "%s", u[x].name);
  728.          
  729.       fscanf(p_file, "%d", &u[x].px);
  730.       fscanf(p_file, "%d", &u[x].py);
  731.       fscanf(p_file, "%d", &u[x].energy);
  732.       fscanf(p_file, "%d", &u[x].phasor);
  733.       fscanf(p_file, "%d", &u[x].torpedo);
  734.       fscanf(p_file, "%d", &u[x].shield);
  735.       fscanf(p_file, "%d", &u[x].crystal);
  736.       fscanf(p_file, "%d", &u[x].score);
  737.       fscanf(p_file, "%d", &u[x].class);
  738.       fscanf(p_file, "%s", u[x].rec_messg);
  739.       brd[(u[x].px)][(u[x].py)] = OTHER;
  740.       if (strcmp(u[x].name, user)==0) {
  741.           brd[(u[x].px)][(u[x].py)] = YOU;
  742.           p = &u[x];                           /* player p is present */
  743.           found = 1;
  744.           }
  745.       }
  746.       if(found!=1)          /* player is new */
  747.            add_p();
  748.             save();
  749.     fclose(p_file);
  750. }
  751.  
  752. save()
  753. {
  754.    FILE *p_file;
  755. static int x, killp, count;
  756.  
  757.       for(x=0; x<num_recs; x++)  {
  758.         if(u[x].class == 0)
  759.             ++killp;
  760.     }
  761.         count = num_recs - killp;                    
  762.             p_file = fopen("trek.dat", "w");
  763.       fprintf(p_file, "%d\n", count);
  764.       for (x=0; x<num_recs; ++x) {
  765.         if(u[x].class != 0) {
  766.       fprintf(p_file, "%s\n", u[x].name);   
  767.       fprintf(p_file, "%d\n", u[x].px);
  768.       fprintf(p_file, "%d\n", u[x].py);
  769.       fprintf(p_file, "%d\n", u[x].energy);
  770.       fprintf(p_file, "%d\n", u[x].phasor);
  771.       fprintf(p_file, "%d\n", u[x].torpedo);
  772.       fprintf(p_file, "%d\n", u[x].shield);
  773.       fprintf(p_file, "%d\n", u[x].crystal);
  774.       fprintf(p_file, "%d\n", u[x].score);
  775.       fprintf(p_file, "%d\n", u[x].class);
  776.       fprintf(p_file, "%s\n", u[x].rec_messg); }
  777.       }
  778.       fclose(p_file);
  779. }
  780.  
  781. planet()
  782. {
  783.    FILE *p_file;
  784.    int x=0, peer, tip=0;
  785.  
  786.  
  787.          if( (p_file = fopen("planet.dat", "r"))==NULL) {
  788.         tip = 1;
  789.     p_file = fopen("planet.dat", "w");
  790.     for (x=0; x<MAX; x++)  {
  791.         peer = rnd(4);
  792.         if(peer<3)  {
  793.         pl[pc].ppx = x;
  794.         pl[pc].ppy = rnd(MAX);
  795.         pl[pc].align = rnd(3);
  796.         pl[pc].class = rnd(3);
  797.         ++pc;  } 
  798.         }    
  799.           fprintf(p_file, "%d\n", pc); 
  800.     for(x=0; x<pc; x++)  {    
  801.            fprintf(p_file, "%d\n", pl[x].ppx);
  802.               fprintf(p_file, "%d\n", pl[x].ppy);   
  803.               fprintf(p_file, "%d\n", pl[x].align);
  804.               fprintf(p_file, "%d\n", pl[x].class);
  805.               fprintf(p_file, "%s\n", list[x]);
  806.           } 
  807.     }
  808.     if(tip==0) {
  809.        fscanf(p_file, "%d", &pc);
  810.        for (x=0; x<pc; x++) {
  811.               fscanf(p_file, "%d\n", &pl[x].ppx);
  812.               fscanf(p_file, "%d\n", &pl[x].ppy);
  813.               fscanf(p_file, "%d\n", &pl[x].align);   
  814.               fscanf(p_file, "%d\n", &pl[x].class);
  815.             fscanf(p_file, "%s\n", pl[x].name);
  816.         }
  817.     }
  818.  
  819.     for(x=0; x<pc; x++)
  820.         brd[(pl[x].ppx)][(pl[x].ppy)] = MOON;
  821.           fclose(p_file); 
  822. }
  823.  
  824.  
  825. get_foremdat()
  826.   {
  827.   FILE *fd;
  828.     int x;
  829.   fd=fopen("C:\\FOREM\\DOORS\\DORINFO1.DEF","r");
  830.   if(fd==NULL) Pterm(0);
  831.   for(x=0; x<7; x++)
  832.       fgets(user, 30, fd);
  833.   fclose(fd);
  834.   }  
  835.     
  836.  
  837. foremout(string1)
  838. char *string1;
  839. {
  840. int i,j;
  841. char teken;
  842. j = strlen(string1);
  843. /*for(i=0; i<j; i++) string[i] = '\0';
  844. strcpy(string , string1);*/
  845.  
  846. for(i=0;i<j;i++)
  847.      {
  848.      teken = *string1;
  849.     /* Bconout(2,(int)teken);      */   
  850.      if (calltype)                  
  851.           {
  852.           if (!carrier()) return 1; 
  853.           Bconout(1,(int)teken);     
  854.           }
  855.       string1++;                     
  856.       }
  857.     sflush(); 
  858. return 0;                            /* Good return   */
  859. }
  860.  
  861. foremin(string1)
  862. char *string1;
  863. {
  864. char teken = 0x00;
  865. int console=0,modem=0,flag = 0;
  866. int aantal = 0;
  867. timeinfo tijd,tijd1;
  868. tijd.realtime = Tgettime();
  869. while( (!calltype || (carrier())) && (teken != 13))
  870.      {
  871.      if ( ( (modem = Bconstat(1)) ) || ( (console = Bconstat(2)) ) )
  872.           {
  873.           tijd.realtime = Tgettime();
  874.           flag = 0;
  875.           teken = (char)(Bconin( (-modem) + (2*(-console)) )) & 0x00FF;
  876.           if (teken == '\b')                  /* backspace */
  877.                {
  878.                aantal--;
  879.                if (aantal<0) aantal = 0;
  880.                else
  881.                     {
  882.                     foremputc(teken);
  883.                     foremputc(' ');
  884.                     foremputc('\b');
  885.                     string1--;
  886.                     }
  887.                }
  888.           else /*if (isprint(teken))*/
  889.                {
  890.                foremputc(teken);
  891.                *string1 = teken;
  892.                string1++;
  893.                aantal++;
  894.                }
  895.           }
  896.      tijd1.realtime = Tgettime();
  897.      if (tijd1.realtime - tijd.realtime >= 30)
  898.           {
  899.           foremout("\r\nTimeout, program terminating....\r\n");
  900.           save();
  901.           Pterm(0);
  902.           return 1;
  903.           }
  904.      else if ( (tijd1.realtime - tijd.realtime >= 15) && !flag)
  905.           {
  906.           foremout("\r\n30 seconds until time-out termination.\r\n");
  907.           flag = 1;
  908.           } 
  909.      }
  910. foremout("\r ");
  911. *string1 = (char)0;
  912. if (calltype) return !carrier();
  913. else return 0;
  914. }
  915.  
  916. foremputc(teken)
  917. char teken;
  918. {
  919. Bconout(2,(int)teken);
  920. if (calltype)    /* if this is a remote call */
  921.      {
  922.      while (Bcostat(1)==0)
  923.          {
  924.          if (!carrier()) return 1;
  925.          }
  926.      Bconout(1,(int)teken);
  927.      }
  928. return 0;
  929. }
  930.  
  931. foremgetc() 
  932. {
  933. char teken, bat;
  934. int console = 0,modem = 0,flag = 0,loss=1024;
  935. timeinfo tijd,tijd1;
  936. tijd.realtime = Tgettime();
  937. while( !calltype || (carrier()) )
  938.      {
  939.      if ( ( (modem = Bconstat(1)) ) || ( (console = Bconstat(2)) ) )
  940.           {
  941.           tijd.realtime = Tgettime();
  942.           flag = 0;
  943.           teken = (char)((Bconin( (-modem) + (2*(-console)) )) & 0x00FF);
  944.           return teken;
  945.           }
  946.     tijd1.realtime = Tgettime();
  947.      if (tijd1.realtime - tijd.realtime >= 30)
  948.           {
  949.           foremout("\r\nTimeout, program terminating....\r\n");
  950.           Pterm(0);
  951.           return loss;
  952.           }
  953.      else if ( (tijd1.realtime - tijd.realtime == 15) && !flag)
  954.           {
  955.           foremout("\r\n30 seconds until time-out termination.\r\n");
  956.           flag = 1;
  957.           } 
  958.      }
  959. return loss;
  960. }
  961.     
  962. carrier()      /* returns 1 if carrier present, 0 if not */
  963. {
  964. long save_ssp;
  965. int carrier;
  966. char *carptr;
  967. carptr = (char *)0xfffa01L;
  968. save_ssp = Super(0L);
  969. carrier = (!((*carptr) & 2));
  970. Super(save_ssp);
  971. if(!carrier)
  972.     {
  973.     save();
  974.     Pterm(0);
  975.     }
  976. return carrier;
  977. }
  978.  
  979. /* This function clears input buffers */
  980.  
  981. sflush()
  982. {
  983. int fl;
  984. while(Bconstat(AUX))
  985. fl=Bconin(AUX);
  986. while(Bconstat(CON))
  987. fl=Bconin(CON);
  988. }
  989.  
  990. rnd(n)
  991. int n;
  992. {
  993.     int r;
  994.     r=(int) Random();
  995.     r=abs(r)%n;
  996.     return(r);
  997. }
  998.