home *** CD-ROM | disk | FTP | other *** search
/ Classic Fond 52 / ClassicFond52.iso / GAMES / DROIDW.RAR / DWCD.GOB / mission_cog_05_finalelev.cog < prev    next >
Encoding:
Text File  |  1998-11-04  |  1.3 KB  |  64 lines
  1. #standard type magnetic tram cog.
  2. #don't forget to set blocking walls to "no move"
  3. symbols
  4. message        startup
  5. message        arrived
  6. message        activate
  7. message        entered
  8.  
  9. thing          elevator
  10.  
  11. sector         triggersector  linkid=1
  12.  
  13. surface        bottomswitch
  14. surface        topswitch
  15.  
  16. sector         WhereAngelsPlay     linkid=2
  17. sector         Simone              linkid=2
  18. sector         GoingDown           linkid=2
  19.  
  20.  
  21. end
  22.  
  23. ## Code Section
  24. code                  
  25. startup:
  26.      setwallcel(topswitch, 1);
  27.      setwallcel(bottomswitch, 1);
  28.      player=getlocalplayerthing();
  29.      return;
  30.      
  31. activate:
  32.      curframe=getcurframe(elevator);
  33.      movetoframe(elevator, 1-curframe, 5);
  34.      setwallcel(bottomswitch, 2);
  35.      setwallcel(topswitch, 2);
  36.      return;
  37.      
  38. arrived:
  39.      setwallcel(topswitch, 1);
  40.      setwallcel(bottomswitch, 1);
  41.      return;
  42.      
  43.  
  44. entered:
  45.      print("entered");
  46.      if (getsenderid()==1) {
  47.           sleep(0.5);
  48.           curframe=getcurframe(elevator);
  49.           movetoframe(elevator, 1-curframe, 5);
  50.           setwallcel(bottomswitch, 2);
  51.           setwallcel(topswitch, 2);
  52.      }
  53.      if ( (getsenderid()==2)&&(getcurframe(elevator)==0) ) {
  54.           movetoframe(elevator, 1, 5);         
  55.      }
  56.      return;
  57.  
  58.   
  59. end
  60.  
  61.  
  62.  
  63.  
  64.