home *** CD-ROM | disk | FTP | other *** search
/ Classic Fond 52 / ClassicFond52.iso / GAMES / DROIDW.RAR / DWCD.GOB / mission_cog_05_gears.cog < prev    next >
Encoding:
Text File  |  1998-11-04  |  8.9 KB  |  282 lines
  1. symbols
  2. message        startup
  3. message        taken
  4. message        used
  5. message        pulse
  6. message        activate
  7. message        arrived
  8.  
  9. thing          smallGghost1   mask=0x100     linkid=4
  10. thing          smallGghost2   mask=0x100     linkid=5  
  11. thing          medGghost      mask=0x100     linkid=3
  12.  
  13. thing          largeGear1     linkid=1
  14. thing          largeGear2     linkid=2
  15.  
  16. surface        conveyor       nolink
  17. surface        fakeconveyor   nolink 
  18.  
  19. vector         vector1
  20. vector         vector2
  21.  
  22. template       smallGearT
  23. template       medGearT
  24.  
  25. flex           convspeed=3.0  local
  26. end
  27.  
  28.  
  29.  
  30. code
  31. startup:
  32.      player=getlocalplayerthing();
  33.      lg2x=vectorx(getthingpos(largegear2));
  34.      middleX=lg2x+.08;
  35.      mediumgear=creatething(medgearT, medGghost);
  36.      capturething(mediumgear);
  37.      mediumgearishere=1;
  38.      smallgear1ishere==0;
  39.      smallgear2ishere==0;
  40.      rotatepivot(mediumgear, 1, -1);
  41.      rotatepivot(largegear1, 1, 1);
  42.      rotatepivot(largegear2, 1, 1);
  43.      conv=slidewall(conveyor, vector1, convspeed);
  44.      conv2=slidewall(fakeconveyor, vector1, convspeed);
  45.      LG1Track=0;
  46.      LG2Track=0;
  47.      medTrack=0;
  48.      SG1Track=0;
  49.      SG2Track=0;
  50.      smallgear1move=0;
  51.      smallgear2move=0;
  52.      largegear1move=1;
  53.      largegear2move=1;
  54.      mediumgearmove=1;
  55.      return;
  56.  
  57. arrived:
  58.      if (getsenderid()==2) {
  59.           LG2track=LG2track+1;
  60.           if (LG2track%10==0) jumptoframe(largegear2, 0, getthingsector(largegear2));
  61.           if (largegear2move==1) rotatepivot(largegear2, 1, 1);
  62.      }
  63.      if (getsenderref()==mediumgear) {
  64.           medtrack=medtrack+1;
  65.           if (medtrack%10==0) jumptoframe(mediumgear, 0, getthingsector(mediumgear));
  66.           if (mediumgearmove==1) rotatepivot(mediumgear, 1, -1);
  67.      }     
  68.      if (getsenderid()==1) {
  69.           LG1track=LG1track+1;
  70.           if (LG1track%10==0) jumptoframe(largegear1, 0, getthingsector(largegear1));
  71.           if (largegear1move==1) rotatepivot(largegear1, 1, 1);
  72.           if (largegear1move==-1) rotatepivot(largegear1, 1, -1);
  73.      }     
  74.      if (getsenderref()==smallgear1) {
  75.           SG1track=SG1track+1;
  76.           if (SG1track%10==0) jumptoframe(smallgear1, 0, getthingsector(smallgear1));
  77.           if (smallgear1move==1) rotatepivot(smallgear1, 1, -1);
  78.      }     
  79.      if (getsenderref()==smallgear2) {
  80.           SG2track=SG2track+1;
  81.           if (SG2track%10==0) jumptoframe(smallgear2, 0, getthingsector(smallgear2));
  82.           if (smallgear2move==1) rotatepivot(smallgear2, 1, 1);
  83.      }  
  84.      return;      
  85.      
  86.  
  87.      
  88. used:     
  89.      if (dwGetActivateBin()==26) {
  90.           if (getinv(player, 26)>0) {
  91.                call CreateMediumGear;
  92.           }               
  93.      }
  94.      else if (dwGetActivateBin()==25) {
  95.           if (getinv(player, 25)>0) {
  96.                call CreateSmallGear;
  97.           }
  98.      }
  99.      return;      
  100.      
  101. createmediumgear:
  102.      print("creating medium gear");
  103.      mediumgear=creatething(medgearT, medGghost);
  104.      capturething(mediumgear);
  105.      mediumgearishere=1;
  106.      changeInv(player, 26, -1);
  107.      if (getinv(player, 26)==0) SetInvAvailable(player, 26, 0);
  108.      call stopgears;
  109.      return;     
  110.  
  111. createSmallGear:
  112.      print("creating small gear");
  113.      if (smallgear1ishere==0) {    // create small gear 1
  114.           smallgear1=creatething(smallgearT, smallGghost1);
  115.           capturething(smallgear1);
  116.           smallgear1ishere=1;
  117.           changeInv(player, 25, -1);
  118.           if (getinv(player, 25)==0) SetInvAvailable(player, 25, 0);
  119.           call stopgears;
  120.      }
  121.      else if ( (smallgear1ishere==1)&&(smallgear2ishere==0) ){
  122.           smallgear2=creatething(smallgearT, smallGghost2);
  123.           capturething(smallgear2);
  124.           smallgear2ishere=1;
  125.           changeInv(player, 25, -1);
  126.           if (getinv(player, 25)==0) SetInvAvailable(player, 25, 0);
  127.           call stopgears;
  128.      }
  129.      return;     
  130.  
  131.     
  132.  
  133. taken:
  134.      print("taken");
  135.      playerX=vectorX(getthingpos(player));
  136.      printflex(playerX);
  137.      printflex(MiddleX);
  138.      if (playerX<MiddleX) {                //Taking the medium gear
  139.           print("trying to take the medium gear");
  140.           if (mediumgearishere==1) {
  141.                print("taking the medium gear");
  142.                mediumgearishere=0;
  143.                destroything(mediumgear);
  144.                dwFlashInventory(); 
  145.                SetInvAvailable(player, 26, 1);
  146.                changeInv(player, 26, 1);
  147.                call stopgears;
  148.           }
  149.      }
  150.      else {
  151.           print("trying to take the small gear");    
  152.           if (smallgear2ishere==1) {
  153.                print("taking smallgear2");
  154.                smallgear2ishere=0;
  155.                destroything(smallgear2);
  156.                dwFlashInventory();
  157.                SetInvAvailable(player, 25, 1);
  158.                changeInv(player, 25, 1);
  159.                call stopgears;
  160.           }
  161.           else if (smallgear1ishere==1) {
  162.                print("taking to smallgear1");
  163.                smallgear1ishere=0; 
  164.                destroything(smallgear1);
  165.                dwFlashInventory();
  166.                SetInvAvailable(player, 25, 1);
  167.                changeInv(player, 25, 1);
  168.                call stopgears;
  169.           }
  170.      }     
  171.      return;     
  172.      
  173. stopgears:
  174.      print("stopping the gears");  
  175.      print("smallgear1ishere equals");
  176.      printint(smallgear1ishere);
  177.      print("smallgear2ishere equals");
  178.      printint(smallgear2ishere);
  179.      print("mediumgearishere equals");
  180.      printint(mediumgearishere);
  181.                                          
  182.      if ( (smallgear1ishere==1)&&(smallgear2ishere==1)&&(mediumgearishere==1) ) {
  183.           stopanim(conv);
  184.           stopanim(conv2);
  185.           largegear2move=0;
  186.           largegear1move=0;
  187.           smallgear1move=0;
  188.           smallgear2move=0;
  189.           mediumgearmove=0;
  190.      }     
  191.      if ( (smallgear1ishere==1)&&(smallgear2ishere==1)&&(mediumgearishere==0) ) {
  192.           stopanim(conv);
  193.           stopanim(conv2);          
  194.           conv=slidewall(conveyor, vector2, convspeed);
  195.           conv2=slidewall(fakeconveyor, vector2, convspeed);
  196.           
  197.           rotatepivot(smallgear1, 1, -1);
  198.           rotatepivot(smallgear2, 1, 1);
  199.           rotatepivot(largegear1, 1, -1);
  200.           rotatepivot(largegear2, 1, 1);  
  201.           largegear2move=1;
  202.           largegear1move=-1;
  203.           smallgear1move=1;
  204.           smallgear2move=1;
  205.           mediumgearmove=0;
  206.      }
  207.      if ( (smallgear1ishere==0)&&(smallgear2ishere==0)&&(mediumgearishere==1) ) {
  208.           stopanim(conv);
  209.           stopanim(conv2);          
  210.           conv=slidewall(conveyor, vector1, convspeed);
  211.           conv2=slidewall(fakeconveyor, vector1, convspeed);
  212.      
  213.           rotatepivot(mediumgear, 1, -1);
  214.           rotatepivot(largegear1, 1, 1);
  215.           rotatepivot(largegear2, 1, 1);
  216.           largegear2move=1;
  217.           largegear1move=1;
  218.           smallgear1move=0;
  219.           smallgear2move=0;
  220.           mediumgearmove=1;
  221.      }     
  222.      if ( (smallgear1ishere==1)&&(smallgear2ishere==0)&&(mediumgearishere==0) ) {
  223.           stopanim(conv);
  224.           stopanim(conv2);
  225.           
  226.           rotatepivot(smallgear1, 1, -1);
  227.           rotatepivot(largegear2, 1, 1);
  228.           largegear2move=1;
  229.           largegear1move=0;
  230.           smallgear1move=1;
  231.           smallgear2move=0;
  232.           mediumgearmove=0;
  233.      }
  234.      if ( (smallgear1ishere==0)&&(smallgear2ishere==0)&&(mediumgearishere==0) ) {
  235.           stopanim(conv);
  236.           stopanim(conv2);
  237.          
  238.           rotatepivot(largegear2, 1, 1);
  239.           largegear2move=1;
  240.           largegear1move=0;
  241.           smallgear1move=0;
  242.           smallgear2move=0;
  243.           mediumgearmove=0;
  244.      }
  245.      if ( (smallgear1ishere==1)&&(smallgear2ishere==0)&&(mediumgearishere==1) ) {
  246.           stopanim(conv);
  247.           stopanim(conv2);          
  248.           conv=slidewall(conveyor, vector1, convspeed);
  249.           conv2=slidewall(fakeconveyor, vector1, convspeed);          
  250.           
  251.           rotatepivot(largegear2, 1, 1);
  252.           rotatepivot(mediumgear, 1, -1);
  253.           rotatepivot(largegear1, 1, 1);
  254.           rotatepivot(smallgear1, 1, -1);
  255.           largegear2move=1;
  256.           largegear1move=1;
  257.           smallgear1move=1;
  258.           smallgear2move=0;
  259.           mediumgearmove=1;
  260.      }
  261.      if ( (smallgear1ishere==0)&&(smallgear2ishere==1)&&(mediumgearishere==1) ) {
  262.           stopanim(conv);
  263.           stopanim(conv2);          
  264.           conv=slidewall(conveyor, vector1, convspeed);
  265.           conv2=slidewall(fakeconveyor, vector1, convspeed);
  266.           
  267.           rotatepivot(largegear2, 1, 1);
  268.           rotatepivot(mediumgear, 1, -1);
  269.           rotatepivot(largegear1, 1, 1);
  270.           largegear2move=1;
  271.           largegear1move=1;
  272.           smallgear1move=0;
  273.           smallgear2move=0;
  274.           mediumgearmove=1;
  275.      }
  276.             
  277.          
  278.      
  279.      return;
  280.  
  281. end
  282.