home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 51 / PCGamer51_17Demos.iso / games / colobotdemo / colobotdemo10e.exe / script / lady01.txt < prev    next >
Encoding:
Text File  |  2001-06-10  |  768 b   |  49 lines
  1. extern void object::Produce( )
  2. {
  3.     point    path[4];
  4.     int        i;
  5.  
  6.     errmode(0);  // ne stoppe pas si erreur
  7.     while ( ismovie() != 0 )  wait(1);
  8.  
  9.     path[0].x = cmdline(0);
  10.     path[0].y = cmdline(1);
  11.     path[1].x = cmdline(2);
  12.     path[1].y = cmdline(3);
  13.     path[2].x = cmdline(4);
  14.     path[2].y = cmdline(5);
  15.     path[3].x = cmdline(6);
  16.     path[3].y = cmdline(7);
  17.  
  18.     i = 1;
  19.     while ( true )
  20.     {
  21.         goto(path[i%4]);
  22.  
  23.         if ( i%5 == 4 && WaspCount() < 2 )
  24.         {
  25.             produce(position, orientation, AlienWasp, "wasp01.txt");
  26.         }
  27.  
  28.         i ++;
  29.     }
  30. }
  31.  
  32. int object::WaspCount()
  33. {
  34.     object    item;
  35.     int        total = 0;
  36.     int        i = 0;
  37.  
  38.     while ( true )
  39.     {
  40.         item = retobject(i++);
  41.         if ( item == null )  return total;
  42.  
  43.         if ( item.category == AlienWasp )
  44.         {
  45.             total ++;
  46.         }
  47.     }
  48. }
  49.