home *** CD-ROM | disk | FTP | other *** search
/ Classic Fond 52 / ClassicFond52.iso / GAMES / DROIDW.RAR / DWCD.GOB / mission_cog_d0_tread1beam2.cog < prev    next >
Encoding:
Text File  |  1998-11-04  |  709 b   |  54 lines
  1. #standard type crate generation cog.
  2. symbols
  3. message        user0
  4. message        user1
  5. thing          magnettram
  6. thing          beam1mid
  7. int            beamnum
  8. int            x=1
  9.  
  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 laser2");
  23.           removelaser(firstlaser);
  24.           x=1;
  25.      }
  26.      return;    
  27.  
  28. user1:
  29.      if (x==0) return;
  30.      else {
  31.           print("adding laser2");
  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.      
  51.      
  52.      
  53.  
  54.