home *** CD-ROM | disk | FTP | other *** search
/ Classic Fond 52 / ClassicFond52.iso / GAMES / DROIDW.RAR / DWCD.GOB / mission_cog_05_jpcrate2.cog < prev    next >
Encoding:
Text File  |  1998-11-04  |  1.2 KB  |  69 lines
  1. #standard type crate generation cog.
  2. symbols
  3. message        startup
  4. message        arrived
  5. message        entered
  6.  
  7. thing          crateG
  8. thing          teleport1
  9. thing          teleport2
  10.  
  11. template       crateT
  12.  
  13. sector         checksector    linkid=1
  14.  
  15. sector         startsector    linkid=2
  16.  
  17. cog            entrycog
  18.  
  19.  
  20. end
  21.  
  22. ## Code Section
  23. code                  
  24. startup:
  25.      player=getlocalplayerthing();
  26.      return;
  27.  
  28. createcrate:
  29.      newcrate=CreateThing(crateT, crateG);
  30.      CaptureThing(newcrate);
  31.      movetoframe(newcrate, 1, 5);
  32.      return;
  33.      
  34. arrived:   
  35.      if (getcurframe(newcrate)==2) {  
  36.           destroything(newcrate);
  37.           print("teleporting player out");
  38.           if (getthingsector(player)==checksector) teleportthing(player, teleport1);
  39.           else call createcrate;
  40.      }
  41.      else if (getcurframe(newcrate)==1) { 
  42.           sendmessage(entrycog, user3);
  43.           sleep(4);
  44.           sendmessage(entrycog, user4);
  45.           movetoframe(newcrate, 2, 5);
  46.      }
  47.      return;
  48.      
  49. entered:
  50.      if (getsenderid()==2) {
  51.           call createcrate; 
  52.           print("you're in the factory");
  53.      }
  54.      return;
  55.  
  56.      
  57.  
  58. end
  59.      
  60.      
  61.      
  62.     
  63.  
  64.      
  65.      
  66.      
  67.      
  68.  
  69.