home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 51 / PCGamer51_17Demos.iso / games / colobotdemo / colobotdemo10e.exe / script / human01.txt < prev    next >
Encoding:
Text File  |  2001-06-10  |  596 b   |  48 lines
  1. extern void object::Activity( )
  2. {
  3.     float    d1, d2;
  4.  
  5.     errmode(0);  // ne stoppe pas si erreur
  6.  
  7.     while ( true )
  8.     {
  9.         d1 = 2+rand()*2;
  10.         d2 = 1+rand()*3;
  11.  
  12.         turn(-50);
  13.         turn(110);
  14.         turn(30);
  15.         move(d1);
  16.         wait(0.5);
  17.         turn(-90);
  18.         if ( rand() < 0.5 )
  19.         {
  20.             wait(2+rand()*2);
  21.         }
  22.         else
  23.         {
  24.             turn(-60);
  25.             turn(110);
  26.             turn(-50);
  27.         }
  28.         turn(-90);
  29.         move(d1+d2);
  30.         wait(0.5);
  31.         turn(90);
  32.         if ( rand() < 0.5 )
  33.         {
  34.             wait(2+rand()*2);
  35.         }
  36.         else
  37.         {
  38.             turn(-30);
  39.             turn(60);
  40.             turn(-30);
  41.         }
  42.         turn(90);
  43.         move(d2);
  44.         wait(0.5);
  45.         turn(-90);
  46.     }
  47. }
  48.