home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 51 / PCGamer51_17Demos.iso / games / colobotdemo / colobotdemo10e.exe / script / charge3.txt < prev    next >
Encoding:
Text File  |  2001-06-10  |  391 b   |  19 lines
  1. extern void object::Recharge3()
  2. {
  3.     point  depart;
  4.     object item;
  5.  
  6.     depart = position;  // MΘmorise position initiale
  7.  
  8.     item = radar(PowerCaptor);  // Cherche station
  9.     goto(item.position);  // Va sur la station
  10.  
  11.     while ( energyCell.energyLevel < 1 )
  12.     {
  13.         wait(1);  // Attend pile pleine
  14.     }
  15.  
  16.     goto(depart);  // retourne α la position initiale
  17.     message("Recharge terminΘe");
  18. }
  19.