home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MISC / EDUCATIO / PROBOTS.ZIP / NINJA2.PR < prev    next >
Encoding:
Text File  |  1988-11-05  |  1.4 KB  |  62 lines
  1.   PROCEDURE Ninja2;
  2.  
  3.     { Based on a C-Robot by  Hortense Endoh }
  4.  
  5.   VAR
  6.     dir, deg, Range, spd, cnt : Integer;
  7.  
  8.  
  9.     PROCEDURE shoot;
  10.     BEGIN
  11.       drive(dir, spd);
  12.       Range := scan(deg, 10);
  13.       IF (Range > 40)
  14.       THEN cannon(deg, Range)
  15.       ELSE BEGIN
  16.         deg := deg+20;
  17.         Range := scan(deg, 10);
  18.         IF (Range = 0) THEN
  19.           BEGIN
  20.             deg := deg-40;
  21.             Range := scan(deg, 10);
  22.             IF (Range = 0) THEN
  23.               BEGIN
  24.                 deg := deg+60;
  25.                 Range := scan(deg, 10);
  26.                 WHILE (Range = 0) DO
  27.                   BEGIN
  28.                     deg := deg+20;
  29.                     Range := scan(deg, 10);
  30.                   END;
  31.               END;
  32.           END;
  33.         IF (Range > 40) THEN cannon(deg, Range);
  34.       END;
  35.     END; {Shoot}
  36.  
  37.  
  38.   BEGIN {Main Ninja2}
  39.     spd := 100;
  40.     deg := 90;
  41.     dir := 270;
  42.     WHILE (loc_y > 500) DO shoot;
  43.     dir := 90;
  44.     WHILE (loc_y < 500) DO shoot;
  45.  
  46.     REPEAT {until dead or winner}
  47.       cnt := 10;
  48.       WHILE (cnt > 0) DO
  49.         BEGIN
  50.           dir := deg;
  51.           shoot;
  52.           cnt := cnt-1;
  53.         END;
  54.       deg := deg+3;
  55.       dir := 270;
  56.       WHILE (loc_y > 290) DO shoot;
  57.       dir := 0;
  58.       WHILE (loc_x < 710) DO shoot;
  59.     UNTIL Dead OR Winner;
  60.   END; {Main Ninja}
  61.  
  62.