home *** CD-ROM | disk | FTP | other *** search
/ Classic Fond 52 / ClassicFond52.iso / GAMES / DROIDW.RAR / DWCD.GOB / mission_cog_02_conveyor2.cog < prev    next >
Encoding:
Text File  |  1998-11-04  |  1.3 KB  |  60 lines
  1. symbols
  2. message        startup          
  3. message        activate
  4. message        timer
  5.  
  6. surface        convA1
  7. surface        convA2
  8. surface        convA3
  9. surface        convB1
  10. surface        convB2
  11. surface        convB3
  12. surface        convB4
  13. surface        convB5
  14.  
  15. surface        moveleft       linkid=5
  16. surface        moveright      linkid=5
  17.  
  18. flex           firstspeed
  19. flex           secondspeed
  20.  
  21. vector         vector1
  22. vector         xvector1a
  23. end
  24.  
  25. code
  26. xbacktonormal:
  27.      call xstopanim;
  28. startup:
  29.      player=getlocalplayerthing();
  30.      setwallcel(moveright,1);
  31.      setwallcel(moveleft,0);
  32.      anim111=slidewall(convA1, vector1, firstspeed);
  33.      anim112=slidewall(convA2, vector1, firstspeed);
  34.      return;  
  35.      
  36. activate:
  37.      if (getsenderid()==5) {
  38.           if (getwallcel(moveright)==0) return;
  39.           setwallcel(moveright, 0);
  40.           setwallcel(moveleft, 1);
  41.           stopanim(anim111);
  42.           stopanim(anim112);        
  43.           anim119=slidewall(convA1, xvector1a, secondspeed);
  44.           anim1110=slidewall(convA2, xvector1a, secondspeed);
  45.           settimer(10);
  46.      }
  47.      return;
  48.      
  49. timer:
  50.      call xbacktonormal;
  51.      return;
  52.      
  53. xstopanim:
  54.      stopanim(anim119);
  55.      stopanim(anim1110);
  56.      return;        
  57.   
  58. end
  59.  
  60.