[Kuba]

to nie jest MÓJ program znalazłem go na opuszczonej stronie colobota
zabija za pomocą min NIE DZIAŁA NA ROBAKI



extern void object::KillingByMines()
{
int[] aliens;
int[] otherAliens;
int i=0;
aliens[i++]=AlienAnt;
aliens[i++]=AlienSpider;
aliens[i++]=AlienWasp;
aliens[i++]=AlienQueen;
float[] radaliens;
radaliens[AlienAnt]=3; // Geometryczne promienie owadów
radaliens[AlienSpider]=3;
radaliens[AlienWasp]=3;
radaliens[AlienQueen]=7;
i=0;
otherAliens[i++]=AlienEgg; // Obiekty które mogą tworzyć obcych
otherAliens[i++]=AlienQueen;
object item;
while(true) {
item=radar(aliens);
if (item==null) {
if (radar(otherAliens)==null) break; // Nie przerywaj jeśli jest królowa albo jaja
wait(5);
continue;
}
if (item.altitude>0.2) { // użyteczne dla Os
wait(0.1);
continue;
}
produce(PosInFront(item.position, item.orientation, radaliens[item.category]),0,Mine,""); // stwórz minę
wait(1); // Nie śmieć minami po planszy
}
message("Nie ma owadów... i nie będzie!");
}
point object::PosInFront(point pos, float ang, float dist) { // Liczy pozycję z przodu obiektu
point zpos;
zpos.x=cos(ang)*dist+pos.x;
zpos.y=sin(ang)*dist+pos.y;
return zpos;
}


Uruchom program na dowolnym robocie (lub obcym ) i po kilkunastu sekundach ciesz się czystą planszą

[adiblol]

To mój program...

[Kuba]

???? znalazłem go w googlach na jakiejś stronie

[ Dodano: 03-07-2009, 19:26 ]
gratuluje tylko czas oczekiwania można zmienić na 3,4

[adiblol]

Daj linka...

[Kuba]

mam link


http://colobot.adiblol.cb...wtopic.php?t=12


szukałem w googlach

[adiblol]

Czy nie zauważyłeś przypadkiem że to moja strona Nawet po adresie...

[Kuba]

a racja