home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 51 / PCGamer51_17Demos.iso / games / colobotdemo / colobotdemo10e.exe / script / titan2.txt < prev    next >
Encoding:
Text File  |  2001-06-15  |  852 b   |  25 lines
  1. extern void object::CollectTitanium2()
  2. {
  3.     // 1) Variable definition.
  4.     object  item;            // info. about objects
  5.     
  6.     // 2) Goes toward the titanium ore and grabs it.
  7.     item = radar(TitaniumOre);// looks for titanium ore
  8.     goto(item.position);     // goes to the position
  9.     grab();                  // grabs the titanium
  10.     
  11.     // 3) Goes toward the converter and drops it.
  12.     item = radar(Converter); // looks for converter
  13.     goto(item.position);     // goes to the position
  14.     drop();                  // drops the titanium
  15.     move(-2.5);              // steps back 2.5 m
  16.     
  17.     // 4) If power cell half empty, recharges.
  18.     if ( energyCell.energyLevel < 0.5 )
  19.     {                               // if so:
  20.         item = radar(PowerStation); // looks for station
  21.         goto(item.position);        // goes there
  22.         wait(5);                    // waits
  23.     }
  24. }
  25.