home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 51 / PCGamer51_17Demos.iso / games / colobotdemo / colobotdemo10e.exe / script / Wingsh02.txt < prev    next >
Text File  |  2001-06-10  |  578b  |  38 lines
  1. extern void object::Attaque1()
  2. {
  3.  
  4. object    alien;
  5.  
  6. while(true)
  7. {
  8. if(energyCell != null) if(energyCell.energyLevel > 0.5) break;
  9. }
  10.  
  11. aim(-20);
  12.  
  13. while(true)
  14. {
  15. jet(0.4);
  16. while(position.z - topo(position) < 1.5)
  17. {
  18. wait(1);
  19. }
  20.  
  21. alien = radar(AlienAnt, 0, 360, 0, 1000, -1);
  22. if (alien == null) break;
  23. turn(direction(alien.position));
  24. motor(1,1);
  25. while(distance(position, alien.position) > 50)
  26. {
  27. wait(0.2);
  28. alien = radar(AlienAnt, 0, 360, 0, 1000, -1);
  29. if (alien == null) break;
  30. turn(direction(alien.position));
  31. motor(1,1);
  32. }
  33. fire(3);
  34. wait(4);
  35. }
  36.  
  37. }
  38.