home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 51 / PCGamer51_17Demos.iso / games / colobotdemo / colobotdemo10e.exe / script / ttrap1.txt < prev    next >
Text File  |  2001-06-10  |  688b  |  49 lines
  1. extern void object::Solution( )
  2. {
  3.     while ( true )
  4.     {
  5.         object    spot;
  6.         float    bomb, dir;
  7.  
  8.         spot = radar(Mine, 0, 180, 0, 5);
  9.         if ( spot == null )
  10.         {
  11.             bomb = 0;
  12.         }
  13.         else
  14.         {
  15.             bomb = direction(spot.position);
  16.             if ( bomb < 0 )
  17.             {
  18.                 bomb = bomb+180;
  19.             }
  20.             else
  21.             {
  22.                 bomb = bomb-180;
  23.             }
  24.         }
  25.  
  26.         spot = radar(WayPoint, 0, 360, 0, 100);
  27.         if ( spot == null )  // plus rien ?
  28.         {
  29.             motor(0, 0);  // stoppe
  30.             break;
  31.         }
  32.  
  33.         dir = direction(spot.position);
  34.         if ( bomb != 0 )
  35.         {
  36.             dir = (dir+bomb)/2;
  37.         }
  38.  
  39.         if ( dir < 0 )  // α droite ?
  40.         {
  41.             motor(1, 1+dir/90);
  42.         }
  43.         else  // α gauche ?
  44.         {
  45.             motor(1-dir/90, 1);
  46.         }
  47.     }
  48. }
  49.