home *** CD-ROM | disk | FTP | other *** search
/ Classic Fond 52 / ClassicFond52.iso / GAMES / DROIDW.RAR / DWCD.GOB / mission_cog_02_catwalk.cog < prev    next >
Text File  |  1998-11-04  |  512b  |  42 lines
  1. symbols
  2. message        startup
  3. message        arrived
  4. message        activate
  5.  
  6. surface        switch         linkid=1
  7.  
  8. thing          catwalk
  9.  
  10. end
  11.  
  12. code
  13.  
  14. startup:
  15.      setwallcel(switch, 2);
  16.  
  17.      return;
  18.      
  19. activate:
  20.      if (getsenderid()==1) {
  21.           curframe=getcurframe(catwalk);
  22.           setwallcel(switch, 1);
  23.           movetoframe(catwalk, 1-curframe, 0.5);
  24.      }
  25.      return;
  26.      
  27. arrived:
  28.      setwallcel(switch, 2);
  29.      return;
  30.   
  31. end
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.      
  40.  
  41.  
  42.