home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 51 / PCGamer51_17Demos.iso / games / colobotdemo / colobotdemo10e.exe / script / tradar2.txt < prev    next >
Text File  |  2001-06-10  |  451b  |  33 lines
  1. extern void object::Sow( )
  2. {
  3.     while ( true )
  4.     {
  5.         float    x, y;
  6.         x = 8+rand()*24;
  7.         y = -89.5+rand()*24;
  8.         goto(x,y,0);
  9.         produce(position, 0, WayPoint, "");
  10.  
  11.         while ( Compte(WayPoint) >= 20 )
  12.         {
  13.             wait(2);
  14.         }
  15.     }
  16. }
  17.  
  18. int Compte(int cat)
  19. {
  20.     int        i, total;
  21.     object    p;
  22.  
  23.     total = 0;
  24.     for ( i=0 ; i<10000 ; i++ )
  25.     {
  26.         p = retobject(i);
  27.         if ( p == null )  break;
  28.         if ( p.category == cat )  total ++;
  29.     }
  30.     return total;
  31. }
  32.  
  33.