home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 51 / PCGamer51_17Demos.iso / games / colobotdemo / colobotdemo10e.exe / script / tfollow2.txt < prev    next >
Encoding:
Text File  |  2001-06-10  |  631 b   |  43 lines
  1. extern void object::Hare( )
  2. {
  3.     int        nb = 0;
  4.  
  5.     while ( true )
  6.     {
  7.         point    dest;
  8.         float    dist;
  9.         object    bot;
  10.  
  11.         do
  12.         {
  13.             dest.x = 8+rand()*24;
  14.             dest.y = -89.5+rand()*24;
  15.             dist = distance(dest, position);
  16.         }
  17.         while ( dist < 10 );
  18.         goto(dest);
  19.         wait(2);
  20.  
  21.         bot = radar(PracticeBot, 0, 360, 0, 10);
  22.         if ( bot == null )
  23.         {
  24.             nb = 0;
  25.             message("RatΘ, trop loin. Recommence 10x ...");
  26.         }
  27.         else
  28.         {
  29.             nb ++;
  30.             if ( nb < 10 )
  31.             {
  32.                 message("RΘussi, reste "+(10-nb)+"x");
  33.             }
  34.             else
  35.             {
  36.                 message("Bravo, allons au garage !");
  37.                 goto(-2, -77.5, 0);
  38.                 break;
  39.             }
  40.         }
  41.     }
  42. }
  43.