home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 51 / PCGamer51_17Demos.iso / games / colobotdemo / colobotdemo10e.exe / script / tremova3.txt < prev    next >
Text File  |  2001-06-10  |  629b  |  37 lines
  1. extern void object::Solution( )
  2. {
  3.     for ( int i=0 ; i<2 ; i=i+1 )
  4.     {
  5.         object  obj;
  6.         point   dest;
  7.  
  8.         do
  9.         {
  10.             obj = radar(TitaniumOre);
  11.         }
  12.         while ( obj == null );
  13.         goto(obj.position);
  14.         grab();  // prend le minerai
  15.  
  16.         obj = radar(Converter);
  17.         if ( obj == null )  return;
  18.         goto(obj.position);
  19.         drop();  // dΘpose minerai
  20.         move(-4);  // recule
  21.  
  22.         do
  23.         {
  24.             obj = radar(Titanium, 0, 360, 0, 10);
  25.         }
  26.         while ( obj == null );
  27.         goto(obj.position);
  28.         grab();  // prend le mΘtal
  29.  
  30.         dest.x = 10;
  31.         dest.y = -60-5*i;
  32.         goto(dest);  // va sur la plateforme
  33.  
  34.         drop();  // dΘpose le mΘtal
  35.     }
  36. }
  37.