home *** CD-ROM | disk | FTP | other *** search
/ Classic Fond 52 / ClassicFond52.iso / GAMES / DROIDW.RAR / DWCD.GOB / mission_cog_05_thefinal.cog < prev    next >
Encoding:
Text File  |  1998-11-04  |  959 b   |  52 lines
  1. symbols
  2. message        startup
  3. message        used
  4. message        activate
  5. message        pulse
  6.  
  7. cog            EDNcog
  8. cog            goalscog
  9.  
  10. #thing          receptacle   
  11.  
  12. surface        receptacle
  13.  
  14. end
  15.  
  16.  
  17.  
  18. code
  19. startup:
  20.      player=getlocalplayerthing();
  21.      dwFlashInventory();
  22.      SetInvAvailable(player, 33, 1);
  23.      ChangeInv(player, 33, 1);
  24.      return;  
  25.      
  26.  
  27.  
  28. used:     
  29.      if (dwGetActivateBin()==33) {
  30.           if ( (getinv(player, 33)>0)&&(dwgetactivatebin()==33) )  {
  31.                call CreateDD;
  32.           }               
  33.      }
  34.      return;      
  35.      
  36. CreateDD:
  37.      EndPower=GetInv(player, 20);
  38.      setpulse(0.5);
  39.      SetInvAvailable(player, 33, 0);
  40.      ChangeInv(player, 33, -1);
  41.      sendmessage(goalscog, user4);
  42.      SetInv(player, 2, 1);
  43.      sendmessage(EDNcog, user0);
  44.      dwfreezeplayer();
  45.      return;
  46.      
  47. pulse:
  48.      SetInv(player, 20, EndPower);
  49.      return;
  50.  
  51. end
  52.