home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 51 / PCGamer51_17Demos.iso / games / colobotdemo / colobotdemo10e.exe / script / convert.txt < prev    next >
Text File  |  2001-06-10  |  1KB  |  58 lines
  1. extern void object::Convert( )
  2. {
  3.     object p;
  4.     point pConvert;
  5.  
  6.     p = radar(Converter);
  7.     if ( p == null )
  8.     {
  9.         message("Vous devez d'abord construire un convertisseur");
  10.         return;
  11.     }
  12.     pConvert = p.position;
  13.  
  14.     while ( true )
  15.     {
  16.         if ( load.category != TitaniumOre )
  17.         {
  18.             p = radar(TitaniumOre);
  19.             if ( p == null )
  20.             {
  21.                 message("Minerai pas trouvΘ");
  22.                 return;
  23.             }
  24.             goto(p.position);
  25.             grab();  // prend minerai
  26.  
  27.             p = radar(Converter);
  28.             if ( p == null )
  29.             {
  30.                 message("Convertisseur pas trouvΘ");
  31.                 return;
  32.             }
  33.             goto(p.position);
  34.             drop();  // dΘpose minerai
  35.             move(-4);
  36.             wait(15);  // attend conversion
  37.             move(4);
  38.             grab();  // prend mΘtal
  39.             move(-4);
  40.         }
  41.  
  42.         p = radar(SpaceShip);
  43.         if ( p == null )
  44.         {
  45.             message("Vaisseau spatial pas trouvΘ");
  46.             return;
  47.         }
  48.         goto(p.position);
  49.         drop();  // dΘpose minerai
  50.  
  51.         if ( energyCell.energyLevel < 0.25 )
  52.         {
  53.             message("Veuillez changer la pile");
  54.             return;
  55.         }
  56.     }
  57. }
  58.