home *** CD-ROM | disk | FTP | other *** search
/ Classic Fond 52 / ClassicFond52.iso / GAMES / DROIDW.RAR / DWCD.GOB / mission_cog_d0_tread1beam.cog < prev    next >
Encoding:
Text File  |  1998-11-04  |  713 b   |  50 lines
  1. #standard type crate generation cog.
  2. symbols
  3. message        user0
  4. message        user1
  5. message        startup
  6. thing          magnettram
  7. thing          beam1mid
  8. int            beamnum
  9. int            x=1
  10. end
  11.  
  12. ## Code Section
  13. code             
  14.  
  15. startup:
  16.      x=1;
  17.      return;
  18.  
  19. user0:
  20.      if (x==1) return;
  21.      else {
  22.           print("removing laser1");
  23.           removelaser(firstlaser);
  24.           x=1;
  25.      }
  26.      return;    
  27.  
  28. user1:
  29.      if (x==0) return;
  30.      else {
  31.           print("adding laser1");
  32.           firstlaser=(addbeam(beam1mid, magnettram, 147, .02));
  33.           x=0;
  34.      }
  35.      return;
  36.      
  37. end
  38.      
  39.  
  40.  
  41.      
  42.      
  43.     
  44.  
  45.      
  46.      
  47.      
  48.      
  49.  
  50.