home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 51 / PCGamer51_17Demos.iso / games / colobotdemo / colobotdemo10e.exe / script / tchasse1.txt < prev    next >
Encoding:
Text File  |  2001-06-10  |  543 b   |  33 lines
  1. extern void object::Solution( )
  2. {
  3.     aim(-3);
  4.     while ( true )
  5.     {
  6.         object    target;
  7.         float    a, b;
  8.  
  9.         target = radar(TargetBot);
  10.         if ( target == null )  break;
  11.         a = direction(target.position);
  12.         turn(a);
  13.  
  14.         target = radar(TargetBot);
  15.         if ( target == null )  break;
  16.         b = direction(target.position);
  17.         if ( a == b )  // immobile ?
  18.         {
  19.             wait(0.2);
  20.  
  21.             target = radar(TargetBot);
  22.             if ( target == null )  break;
  23.             a = direction(target.position);
  24.             
  25.             if ( a == b )
  26.             {
  27.                 fire(2);
  28.                 wait(2);
  29.             }
  30.         }
  31.     }
  32. }
  33.