Kuba - 03-07-2009, 16:52 Temat postu: zabijanie za pomocą min 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 - 03-07-2009, 18:38 To mój program... Kuba - 03-07-2009, 19:25 ???? 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 - 03-07-2009, 22:21 Daj linka... Kuba - 04-07-2009, 05:39 mam link http://colobot.adiblol.cb...wtopic.php?t=12 szukałem w googlach adiblol - 04-07-2009, 09:36 Czy nie zauważyłeś przypadkiem że to moja strona  Nawet po adresie...
Kuba - 04-07-2009, 12:55 a racja |
