home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 127.lha / C_Robots / flyby.r < prev    next >
Text File  |  1986-11-20  |  643b  |  62 lines
  1. main()
  2. int x,range,flag;
  3. {
  4. while(1)
  5. {
  6. flag=0;
  7. if (scan(x,10) == 0)
  8.     x=x+180;
  9.  while(flag==0)
  10.    {
  11. range=scan(x,10);
  12. if (range != 0)
  13.     {
  14.     if (range > 400)
  15.     { cannon(x,range);
  16.       drive(x,50);
  17.       x=x-20; }
  18.     else
  19.       {
  20.        x=killit(x,range);
  21.        flag=1; } }
  22.    else x=x-20;
  23.  
  24. }
  25. }
  26. }
  27.  
  28. killit(x,range)
  29. int x,range;
  30.    {
  31.    while ((range != 0) && (range < 500))
  32.    {
  33.      x=improve(x);
  34.      range=scan(x,10);
  35.      if (range>40)
  36.     cannon(x,range);
  37.      if (range>100)
  38.     drive(x-10,50);
  39.    }
  40.    return x; }
  41.  
  42. improve(x)
  43. int x;
  44. {
  45. if (scan(x-5,5) != 0)
  46.     x=x-5;
  47.   else
  48.     x=x+5;
  49. if (scan(x-3,3) != 0)
  50.     x=x-3;
  51.   else
  52.     x=x+3;
  53. return x;
  54. }
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.