home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 51 / PCGamer51_17Demos.iso / games / colobotdemo / colobotdemo10e.exe / script / titan4.txt < prev    next >
Text File  |  2001-06-10  |  1KB  |  44 lines
  1. extern void object::ApporteTitanium4()
  2. {
  3.     object  chose;                // Info sur objet
  4.     
  5.     while ( true )                // RΘpΦte :
  6.     {
  7.         chose = radar(TitaniumOre); // Cherche minerai
  8.         goto(chose.position);     // Va vers minerai
  9.         grab();                   // Prend minerai
  10.         
  11.         chose = radar(Converter); // Cherche convert.
  12.         goto(chose.position);     // Va sur convert.
  13.         drop();                   // Pose minerai
  14.         move(-2.5);               // Recule 2.5m
  15.         do
  16.         {
  17.             wait(1);              // Attend le cube
  18.             chose = radar(Titanium, 0, 45, 0, 5);
  19.         }
  20.         while ( chose == null );
  21.         goto(chose.position);
  22.         grab();                   // Prend le cube
  23.                 
  24.         goto(space(position));    // Va o∙ dΘposer
  25.         drop();                   // DΘpose titanium
  26.         
  27.         // Pile α moitiΘ vide ?
  28.         if ( energyCell.energyLevel < 0.5 )
  29.         {
  30.             chose = radar(PowerCaptor);
  31.             if ( chose != null )  // Station trouvΘe ?
  32.             {
  33.                 goto(chose.position); // Va recharger
  34.                 while ( energyCell.energyLevel < 1 )
  35.                 {
  36.                     wait(1);      // Attend pile pleine
  37.                 }
  38.             }
  39.         }
  40.     }
  41. }
  42.  
  43.  
  44.