49 lines
720 B
Plaintext
49 lines
720 B
Plaintext
extern void object::Produce( )
|
|
{
|
|
point path[4];
|
|
int i;
|
|
|
|
errmode(0); // ne stoppe pas si erreur
|
|
while ( ismovie() != 0 ) wait(1);
|
|
|
|
path[0].x = cmdline(0);
|
|
path[0].y = cmdline(1);
|
|
path[1].x = cmdline(2);
|
|
path[1].y = cmdline(3);
|
|
path[2].x = cmdline(4);
|
|
path[2].y = cmdline(5);
|
|
path[3].x = cmdline(6);
|
|
path[3].y = cmdline(7);
|
|
|
|
i = 1;
|
|
while ( true )
|
|
{
|
|
goto(path[i%4]);
|
|
|
|
if ( i%5 == 4 && WaspCount() < 2 )
|
|
{
|
|
produce(position, orientation, AlienWasp, "wasp01.txt");
|
|
}
|
|
|
|
i ++;
|
|
}
|
|
}
|
|
|
|
int object::WaspCount()
|
|
{
|
|
object item;
|
|
int total = 0;
|
|
int i = 0;
|
|
|
|
while ( true )
|
|
{
|
|
item = retobject(i++);
|
|
if ( item == null ) return total;
|
|
|
|
if ( item.category == AlienWasp )
|
|
{
|
|
total ++;
|
|
}
|
|
}
|
|
}
|