home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 51 / PCGamer51_17Demos.iso / games / colobotdemo / colobotdemo10e.exe / script / tfollow1.txt < prev    next >
Encoding:
Text File  |  2001-06-10  |  529 b   |  34 lines
  1. extern void object::Solution( )
  2. {
  3.     while ( true )
  4.     {
  5.         object    target;
  6.         float    dir, len;
  7.  
  8.         target = radar(TargetBot);
  9.         if ( target == null )
  10.         {
  11.             motor(0, 0);  // stoppe
  12.             break;
  13.         }
  14.  
  15.         len = distance(position, target.position);
  16.         if ( len < 5 )  // trop proche ?
  17.         {
  18.             motor(len/5-1, len/5-1);  // recule
  19.         }
  20.         else
  21.         {
  22.             dir = direction(target.position);
  23.             if ( dir < 0 )  // α droite ?
  24.             {
  25.                 motor(1, 1+dir/90);
  26.             }
  27.             else  // α gauche ?
  28.             {
  29.                 motor(1-dir/90, 1);
  30.             }
  31.         }
  32.     }
  33. }
  34.