home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 51 / PCGamer51_17Demos.iso / games / colobotdemo / colobotdemo10e.exe / script / worm01.txt < prev    next >
Text File  |  2001-06-10  |  707b  |  32 lines
  1. extern void object::Attack( )
  2. {
  3.     int        enemy;
  4.     object    p;
  5.     float    dist, prox;
  6.     point    dest;
  7.  
  8.     errmode(0);  // ne stoppe pas si erreur
  9.     while ( ismovie() != 0 )  wait(1);
  10.  
  11.     enemy = WheeledGrabber;
  12.  
  13.     while ( true )
  14.     {
  15.         p = radar(enemy);  // cherche cible
  16.         if ( p == null )
  17.         {
  18.             wait(2);
  19.         }
  20.         else
  21.         {
  22.             dist = distance(p.position, position);
  23.             prox = dist/2;  // on se rapproche
  24.             if ( prox < 2.5 )  prox = 2.5;  // pas trop tout de mΩme
  25.             dest.x = (position.x-p.position.x)*prox/dist + p.position.x;
  26.             dest.y = (position.y-p.position.y)*prox/dist + p.position.y;
  27.             dest.z = (position.z-p.position.z)*prox/dist + p.position.z;
  28.             goto(dest);  // va sur la cible
  29.         }
  30.     }
  31. }
  32.