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