home *** CD-ROM | disk | FTP | other *** search
/ Classic Fond 52 / ClassicFond52.iso / GAMES / DROIDW.RAR / DWCD.GOB / mission_cog_02_lightcy.cog < prev    next >
Encoding:
Text File  |  1998-11-04  |  626 b   |  42 lines
  1. symbols
  2. message        startup
  3. message        pulse
  4. message        timer
  5. sector         Lsector
  6. end
  7.  
  8. ## Code Section
  9. code                 
  10. startup:
  11.      flamenum=rand();
  12.      settimer(flamenum);
  13.      setsectorlight(Lsector, 1.0, flamenum);
  14.      x=0;
  15.      return;
  16.      
  17. timer:
  18.      JonBlossom=rand()/2.6;
  19.      if (x==0) {
  20.           setsectorlight(Lsector, 0.2, JonBlossom);
  21.           x=1;
  22.      }  
  23.      if (x==1) {
  24.           setsectorlight(Lsector, 1.0, JonBlossom);
  25.           x=0;
  26.      } 
  27.      settimer(JonBlossom); 
  28.      return;
  29.  
  30.  
  31. end
  32.      
  33.      
  34.      
  35.     
  36.  
  37.      
  38.      
  39.      
  40.      
  41.  
  42.