home *** CD-ROM | disk | FTP | other *** search
/ Classic Fond 52 / ClassicFond52.iso / GAMES / DROIDW.RAR / DWCD.GOB / mission_cog_05_catapult.cog < prev    next >
Encoding:
Text File  |  1998-11-04  |  12.5 KB  |  404 lines
  1. # Droids Cog Script
  2. #
  3. # D0_skyway.cog
  4. #
  5. # Skyways cog
  6. #
  7. # 
  8. #                                                      
  9. #
  10. #
  11. # [MT]
  12. #
  13. #
  14. # (C) 1997 LucasLearningLimited. All Rights Reserved
  15.  
  16.  
  17.  
  18. symbols                     
  19. message             startup     
  20. message             activate
  21. message             arrived
  22. message             pulse
  23. message             timer
  24. message             user0                              //Countdown is done
  25. message             user1                              //Create fake crate
  26. message             user4                              //destroy the crate (attached to funky tram)
  27. message             user5                              //okay to call another crate
  28.  
  29. surface             adjustswitch        linkid=2       //rotates the catapult                    
  30. surface             destructionfloor0   mask=0x004
  31. surface             destructionfloor1   mask=0x004
  32. surface             destructionfloor2   mask=0x004
  33. surface             fakelever           linkid=1       //launches the crate 
  34. surface             add_sand            linkid=10
  35. surface             rem_sand            linkid=4
  36. surface             led_ones            nolink
  37. surface             led_tens            nolink
  38. surface             led_hund            nolink
  39. surface             callregcrate        linkid=6
  40.  
  41. sector              destructionsector          
  42. sector              curplayersector
  43. sector              ds2
  44. sector              ds3
  45.  
  46. thing               catapult
  47. thing               minecart            linkid=3
  48. thing               catapult0
  49. thing               catapult1
  50. thing               catapult2
  51. thing               catapult3
  52. thing               catapult4
  53. thing               catapult5
  54. thing               smallcrate          local
  55. thing               player              local 
  56. thing               createcrateghost 
  57.  
  58. template            ADcratetemplate
  59.  
  60. cog                 callcratecog
  61.  
  62. //template              explosion_tpl=+grenade_exp    
  63.  
  64. flex                md_power=10.0       local
  65. flex                c_dest=10.0         local
  66. flex                sand_inc=5.0         local
  67. flex                payloadweight       local
  68. flex                playerweight        local
  69. flex                timecount           local
  70. int                 callcrate=0         local
  71. int                 crateisinworld=0    local
  72. int                 launch=0            local
  73. int                 cratev              local
  74. int                   step=10             local
  75. vector              catvel              local        
  76.  
  77. thing               anglecamera
  78. thing               launchcamera
  79.  
  80. sound               t1catlaunch
  81. sound               t1caton
  82. sound               t1catreset
  83. sound               t1catwarmup
  84. sound               texplo01            
  85. sound               clicksound  
  86.                 
  87. template              explosion_tpl=+grenade_exp 
  88. surface             CRMface             linkid=2
  89. surface             fakeadd_sand1       linkid=10
  90. surface             fakeadd_sand2       linkid=10
  91. surface             fakerem_sand1       linkid=4
  92. surface             fakerem_sand2       linkid=4
  93. sound               switchsound=swt00ltswch1.wav   
  94. sound               dave=mcht1ctrsetstp.wav 
  95. end
  96.  
  97. ## Code Section
  98. code    
  99. startup:
  100.      setwallcel(callregcrate, 0);
  101.      player=getlocalplayerthing();
  102.      attachthingtothing(minecart, catapult);
  103.      callcrate=0;
  104.      crateisinworld=0;
  105.      launch=0;
  106.      donotlaunch=0;
  107.      md_power=10.0; 
  108.      magcrate=0;     
  109.      setwallcel(CRMface, 1);
  110.      sleep(3);
  111.      call displayweight;
  112.      setwallcel(fakelever, 1);
  113. #     call user1;
  114.      return;
  115.      
  116. pulse:
  117.      if ((getthingsector(crate))==destructionsector) {
  118.           print("sorry, no");
  119.           call destroycrate;
  120.      }       
  121.      if ((getthingsector(crate))==ds2) {
  122.           print("closer, but no");
  123.           call destroycrate;
  124.      }          
  125.      if ((getthingsector(crate))==ds3) {
  126.           print("oh drat.  almost there.");
  127.           call destroycrate;
  128.      }               
  129.      return;
  130.      
  131. user4:
  132.      print("it's going well...");
  133.      destroything(crate);
  134.      setpulse(0);
  135.      return;
  136.      
  137. destroycrate:
  138.      print("destroying crate");
  139.      setpulse(0);
  140.      exsector=getthingsector(crate);
  141.      expos=getthingpos(crate);
  142.      createthingatpos(explosion_tpl, exsector, expos, '0,0,0');  
  143.      destroything(crate);
  144.      playsoundpos(tExplo01, expos, 1, -1, 80, 0);     
  145.      callcrate=0;
  146.      crateisinworld=0;
  147.      setwallcel(callregcrate, 0);           
  148.      return;
  149.  
  150. user5:     
  151.      print("special destroying crate");
  152.      callcrate=0;
  153.      crateisinworld=0;
  154.      setwallcel(callregcrate, 0);           
  155.      return;
  156.  
  157. getpayloadweight:
  158.      if (crateisinworld==1) payloadweight=730;
  159.      return;               
  160.  
  161. arrived:
  162. //if the mine cart has arrived at the end of the catapult, launch the crate
  163.      if (getsenderid()==3) {   
  164.           if (donotlaunch==1) {               
  165.                playsoundthing(dave, minecar, 1, -1, -1, 0);
  166.                return;
  167.           }            
  168.           playsoundthing(t1catreset, minecar, 1, 10, 20, 0);
  169.           if ((launch==1)&&(crateisinworld==0)&&(getsectorplayercount(curplayersector)!=1)) {
  170.                call launchnothing;
  171.                return;
  172.           }
  173.           launch=1;
  174.           call getpayloadweight;                         
  175.           if ((getcurframe(catapult))==0) {
  176.                catvel=computecatapultvelocity(payloadweight, catapult0, catapult1, catpower);           
  177.                skiptoframe(minecart, 0, 3);
  178.                if (crateisinworld==1) call launchcrate;          
  179.             }
  180.           else if ((getcurframe(catapult))==1) {
  181.                skiptoframe(minecart, 2, 3);
  182.                catvel=computecatapultvelocity(payloadweight, catapult2, catapult3, catpower);                  
  183.                if (crateisinworld==1) call launchcrate;                
  184.           }
  185.           else if ((getcurframe(catapult))==2) { 
  186.                skiptoframe(minecart, 4, 3);           
  187.                catvel=computecatapultvelocity(payloadweight, catapult4, catapult5, catpower);                  
  188.                if (crateisinworld==1) call launchcrate;           
  189.           }        
  190.      }            
  191.      else if (getsenderref()==catapult) {
  192.           if (getcurframe(catapult)==0) setwallcel(adjustswitch, 0);
  193.           if (getcurframe(catapult)==1) setwallcel(adjustswitch, 1);
  194.           if (getcurframe(catapult)==2) setwallcel(adjustswitch, 2);
  195. //          playsoundthing(t1catadjstop, catapult, 1, -1, -1, 0);
  196. //          stopsound(channel22, 0.5);             
  197.           setwallcel(CRMface, 1);
  198.      }
  199.      return;
  200.      
  201. launchnothing:
  202.           print("launchnothing");
  203.           donotlaunch=1;
  204.           if ((getcurframe(catapult))==0) {         
  205.                skiptoframe(minecart, 0, 3);
  206.           }
  207.           else if ((getcurframe(catapult))==1) {
  208.                skiptoframe(minecart, 2, 3);
  209.           }
  210.           else if ((getcurframe(catapult))==2) { 
  211.                skiptoframe(minecart, 4, 3);           
  212.           }        
  213.           return;
  214.      
  215.  
  216. //launches the minecar   
  217. launchit:
  218.      print("launchitcalled");          
  219.      launchchannel=playsoundthing(t1catlaunch, minecar, 1, 10, 20, 0);
  220.      call cameracheck;
  221.      if ((getcurframe(catapult))==0) skiptoframe(minecart, 1, 29.17);
  222.      else if ((getcurframe(catapult))==1) skiptoframe(minecart, 3, 29.17);
  223.      else if ((getcurframe(catapult))==2) skiptoframe(minecart, 5, 29.17);                 
  224.      stopsound(warmupchannel, 0.5);      
  225.      setthingmass(crate, 730);      
  226.      return;
  227.      
  228. cameracheck:
  229.      dwfreezeplayer();
  230.      if (crateisinworld==1) setcamerafocii(2, crate, launchcamera);
  231.      else if (crateisinworld==0) setcamerafocii(2, minecart, launchcamera);
  232.      setcurrentcamera(2);
  233.      setTimerEX(4, 3, 0, 0);
  234.      return;
  235.      
  236.  
  237. //create the true crate out of thin air     
  238. user1:
  239.      print("creating cType crate");
  240.      crate=creatething(ADcratetemplate, createcrateghost);     
  241.      setwallcel(fakelever, 0);
  242.      settimerEX(2, 5, 0, 0);
  243.      return;     
  244.  
  245. activate:  
  246.      //start the launch sequence to move the minecar.
  247.      if (getsenderid()==1) {
  248.           if (getwallcel(fakelever)==1) return;          
  249.  
  250.           else {
  251.                donotlaunch=0;
  252.                setwallcel(fakelever, 1);
  253. //               sendmessage(countdowncog, user0);
  254. //               settimerEX(6,1,0,0);
  255.                warmupchannel=playsoundthing(t1catwarmup, minecar, 1, 10, 20, 0x1);
  256.                playsoundthing(t1caton, minecar, 1, 10, 20, 0);               
  257.                call launchit; 
  258.           }
  259.       }
  260.      //move (rotate) the catapult
  261.      else if (getsenderid()==2) {
  262.           if ( (isthingmoving(catapult)!=0)||(isthingmoving(minecar)!=0) ) return;
  263.           else {                    
  264.                playsoundpos(switchsound, getsurfacecenter(adjustswitch), 1.0, -1, -1, 0);
  265.                setwallcel(CRMface, 0);
  266.                setwallcel(adjustswitch, 1);               
  267. //               channel22=playsoundthing(t1catadjloop, catapult, 1.0, -1, -1, 0x1);
  268.                if ((getcurframe(catapult))==0) movetoframe(catapult, 1, 0.3);
  269.                else if ((getcurframe(catapult))==1) movetoframe(catapult, 2, 0.3);
  270.                else if ((getcurframe(catapult))==2) movetoframe(catapult, 0, 0.3);
  271.                call rotatecamera;
  272.           }
  273.      }
  274.      else if (GetSenderId() == 10)  call sand_add;     
  275.      else if (GetSenderId() == 4)  {
  276.           call sand_rem;     
  277.      }
  278.      else if ( (getsenderid() ==5)||(getsenderid() ==6) ) {
  279.           if (getwallcel(callregcrate)==1) return;
  280.           playsoundpos(switchsound, getsurfacecenter(callregcrate), 1.0, -1, -1, 0);
  281.           call callcrates;
  282.      }
  283.      return;
  284.      
  285. rotatecamera:
  286.      dwfreezeplayer();
  287.      setcamerafocii(2, catapult, anglecamera);
  288.      setcurrentcamera(2);
  289.      setTimerEX(4, 3, 0, 0);
  290.      return;
  291.        
  292. callcrates:
  293.      //bring in a small crate
  294.      setwallcel(callregcrate, 1);    
  295.      sendmessage(callcratecog, user1);
  296.      truecratetype=0;
  297.      call nocrates;
  298.      return;
  299.  
  300. timer:
  301.      if (getsenderid()==2) {
  302.          md_power = md_power + sand_inc;
  303.          if (md_power < step) {
  304.              SetWallCel(add_sand, 0);
  305.              SetWallCel(rem_sand, 0);
  306.              md_power = step;
  307.              
  308.              }
  309.           else if (md_power>100) {
  310.                SetWallCel(add_sand,0);
  311.                SetWallCel(rem_sand,0);
  312.                md_power=100;
  313.           }
  314.          
  315.          else if (md_power == c_dest)        {
  316.              SetWallCel(add_sand, 0);
  317.              SetWallCel(rem_sand, 0);
  318.              }
  319.      
  320.           else {
  321.                SetTimerEX(0.02,2,0,0);
  322.           }
  323.            call displayweight;
  324.      }
  325. //     else if (getsenderid()==1) {
  326. //          setwallcel(fakelever, 0);
  327. //     }
  328.      else if (getsenderid()==3) {
  329.           setcurrentcamera(7);
  330.           dwunfreezeplayer();
  331.      }
  332.      else if (getsenderid()==5) setthingmass(crate, 730);
  333.      return;
  334.        
  335. nocrates:
  336.      launch=0;
  337.      callcrate=1; 
  338.      crateisinworld=1;
  339.      setwallcel(callsmallcrate,1);
  340.      setwallcel(callbigcrate,1);
  341.      return;
  342.  
  343. launchcrate:
  344.      print("launching crate");
  345.      print("payload weight is");
  346.      printflex(payloadweight);
  347.      print("catvel is");
  348.      printvector(catvel);
  349.      donotlaunch=1;
  350.      callcrate=0;
  351.      detachthing(crate);
  352.      setthingvel(crate, catvel);
  353.      setwallcel(callsmallcrate,0);
  354.      setwallcel(callbigcrate,0);
  355.      call getpulsetime;
  356.      printflex(pulsetime);
  357.      setpulse(pulsetime);
  358.      print("catpower is ");
  359.      printint(catpower);
  360.      return;
  361.      
  362. getpulsetime:
  363.      pulsetime=0.25;
  364.      return; 
  365.   
  366.      
  367. sand_add:
  368.       if (GetWallCel(add_sand) != 1)    //Nothing's already happening
  369.      {
  370.      SetWallCel(add_sand, 1);
  371.      sand_inc = 1;
  372.      c_dest = md_power + step;
  373.      SetTimerEX(0.02,2,0,0);
  374.      }
  375.      return;
  376.      
  377. sand_rem:
  378.      if (GetWallCel(rem_sand) != 1)    //Nothing's already happening
  379.           {
  380.           SetWallCel(rem_sand, 1);
  381.           sand_inc = -1;
  382.           c_dest = md_power - step;
  383.           SetTimerEX(0.02,2,0,0);
  384.           }
  385.      return;
  386.      
  387. displayweight:
  388.      playsoundpos(clicksound, getsurfacecenter(led_tens), 0.3, -1, -1, 0);
  389.      SetWallCel(led_ones, md_power %  10);
  390.      SetWallCel(led_tens, (md_power / 10) % 10);
  391.      SetWallCel(led_hund, (md_power / 100) % 10);
  392.      catpower=(md_power/100)*12500;
  393.      return;
  394.  
  395.  
  396.  
  397.  
  398.                      
  399. end
  400.  
  401.  
  402.  
  403.  
  404.