home *** CD-ROM | disk | FTP | other *** search
/ GameStar 2001 November / Gamestar_34_2001-11_cd1.bin / PATCHE / colobotpatch17e.exe / english / script / tremot1b.txt < prev    next >
Text File  |  2001-09-13  |  670b  |  47 lines
  1. extern void object::Slave( )
  2. {
  3.     float    order;
  4.  
  5.     errmode(0);  // don't stop on errors
  6.  
  7.     while ( true )
  8.     {
  9.         // wait for order completion ...
  10.         while ( !testinfo("order", 100) )
  11.         {
  12.             wait(1);
  13.         }
  14.  
  15.         // get the order
  16.         order = receive("order", 100);
  17.  
  18.         if ( order == 1 )
  19.         {
  20.             message("grab( )");
  21.             grab();
  22.         }
  23.         else if ( order == 2 )
  24.         {
  25.             message("drop( )");
  26.             drop();
  27.         }
  28.         else if ( order == 3 )
  29.         {
  30.             message("move(10)");
  31.             move(10);
  32.         }
  33.         else if ( order == 4 )
  34.         {
  35.             message("move(-10)");
  36.             move(-10);
  37.         }
  38.         else
  39.         {
  40.             message("Unknown order");
  41.         }
  42.  
  43.         // signal "end of work"
  44.         deleteinfo("order", 100);
  45.     }
  46. }
  47.