home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 51 / PCGamer51_17Demos.iso / games / colobotdemo / colobotdemo10e.exe / script / waspe1.txt < prev    next >
Text File  |  2001-06-10  |  556b  |  37 lines
  1. extern void object::GuΩpes()
  2. {
  3. float    p;// puissance max des moteurs
  4. float    r;// nombre alΘatoire
  5. point    c;// centre de la zone permise
  6.  
  7. c.x = 0;
  8. c.y = 0;
  9. c.z = 0;
  10.  
  11. p = 1;
  12. jet( rand()*4 + 1);
  13.  
  14. while (true)
  15. {
  16. if (distance(position, c) > 275)
  17. {
  18. if (direction(c) > 0) motor(0.7*p, p); else motor(p, 0.7*p);
  19. while (abs(direction(c)) > 30) wait(1); 
  20. }
  21.  
  22. motor(p,p);
  23. r = rand();
  24. if (r < 0.4)
  25. {
  26. motor(p, p-rand()*0.8);
  27. }
  28. if (r > 0.6)
  29. {
  30. motor(p-rand()*0.8, p);
  31. }
  32. if (r <= 0.7 and r >= 0.3) jet(rand()*4 + 1);
  33.  
  34. wait(1);
  35. }
  36. }
  37.