home *** CD-ROM | disk | FTP | other *** search
/ Classic Fond 52 / ClassicFond52.iso / GAMES / DROIDW.RAR / DWCD.GOB / mission_cog_02_catapult.cog < prev    next >
Encoding:
Text File  |  1998-11-04  |  16.9 KB  |  529 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             entered
  24. message             timer
  25. message             user0                              //Countdown is done
  26. message             user1                              //Create fake crate
  27. message             user3                              //time to create a fake AD
  28. message             user4
  29. message             user5                              //Supervisor sez: bring in a crate!
  30. message             touched
  31.  
  32. surface             adjustswitch        linkid=2       //rotates the catapult                    
  33. surface             destructionfloor0   mask=0x004
  34. surface             destructionfloor1   mask=0x004
  35. surface             destructionfloor2   mask=0x004
  36. surface             fakelever           linkid=1       //launches the crate 
  37. surface             add_sand            linkid=10
  38. surface             rem_sand            linkid=4
  39. surface             led_ones            nolink
  40. surface             led_tens            nolink
  41. surface             led_hund            nolink
  42.  
  43. sector              destructionsector               
  44. sector              curplayersector
  45. sector              ds2
  46.  
  47. thing               catapult
  48. thing               minecart            linkid=3
  49. thing               catapult0
  50. thing               catapult1
  51. thing               catapult2
  52. thing               catapult3
  53. thing               catapult4
  54. thing               catapult5
  55. thing               smallcrate          local
  56. thing               player              local 
  57. thing               createcrateghost 
  58. thing               breakdoor
  59. thing               AD                
  60. thing               ghostcamera
  61.  
  62. template            ADcratetemplate
  63.  
  64. cog                 countdowncog
  65. cog                 callcratecog
  66. cog                 ADAIcog
  67. cog                 finalcog
  68.  
  69. //template              explosion_tpl=+grenade_exp    
  70.  
  71. flex                md_power=10.0       local
  72. flex                c_dest=10.0         local
  73. flex                sand_inc=5.0         local
  74. flex                payloadweight       local
  75. flex                playerweight        local
  76. flex                timecount           local
  77. int                 callcrate=0         local
  78. int                 crateisinworld=0    local
  79. int                 movedyet=0          local
  80. int                 launch=0            local
  81. int                 cratev              local
  82. int                   step=10             local
  83. vector              catvel              local  
  84.  
  85. //sound               t1catadjloop
  86. //sound               t1catadjstop
  87. sound               t1catlaunch
  88. sound               t1caton
  89. sound               t1catreset
  90. sound               t1catwarmup
  91. sound               texplo01          
  92.  
  93. sound               clicksound                  
  94. template              explosion_tpl=+grenade_exp         local   
  95. thing               launchcamera
  96.  
  97. surface             badsurface1         mask=0xffff         linkid=28
  98. surface             badsurface2         mask=0xffff         linkid=28
  99. surface             CRMface             linkid=2
  100. surface             fakeadd_sand1       linkid=10
  101. surface             fakeadd_sand2       linkid=10
  102. surface             fakerem_sand1       linkid=4
  103. surface             fakerem_sand2       linkid=4
  104.  
  105. cog                 sneakycog
  106.  
  107. sound          switchsound=swt00ltswch1.wav   
  108.  
  109. sound               dave=mcht1ctrsetstp.wav 
  110. template            ADtemplate
  111. thing               telehide
  112. thing               trinityTeleport
  113. cog                 downtothewellcog
  114. int                 ADactive=0          local
  115. int                 ADdead=0            local
  116. end
  117.  
  118. ## Code Section
  119. code    
  120. startup:
  121.      player=getlocalplayerthing();
  122.      attachthingtothing(minecart, catapult);
  123.      callcrate=0;
  124.      crateisinworld=0;
  125.      movedyet=0;
  126.      launch=0;
  127.      donotlaunch=0;
  128.      md_power=10.0; 
  129.      canFTOtalk=0;
  130.      sleep(3);
  131.      call displayweight;     
  132.      setwallcel(CRMface, 1);
  133.      setwallcel(fakelever, 1);
  134. #     AD=creatething(ADtemplate, ADhide);
  135.      setactorflags(AD, 8);
  136.      ADactive=0;
  137.      ADdead=0;
  138.      return;
  139.      
  140. pulse:
  141.      if (ADactive==0) {
  142.           if ((getthingsector(crate))==destructionsector) {
  143.                call destroycrate;
  144.           }
  145.           if (getthingsector(crate)==ds2) {
  146.                print("you did it!");
  147.                call specialdestroycrate;
  148.      //          call destroycrate;
  149.           }     
  150.      }
  151.      else if (ADactive==1) {
  152.           if ( (getthingsector(AD)==ds2)&&(ADdead==0) ) {
  153.                print("true destruction of AD");
  154.                ADdead=1;
  155.                sendmessage(finalcog, user0);   
  156.                sendmessage(downtothewellcog, user0);          
  157.                destroything(AD);
  158.                print("YOU DID IT!!!");
  159.                setpulse(0);
  160.           }
  161.      }
  162.      
  163.      return;
  164.      
  165. touched:
  166.      if (getsourceref()==crate) print("crate touched something");
  167.      if ((getsenderid()==28)&&(getsourceref()==crate)) call destroycrate;     
  168.      return;
  169.      
  170. destroycrate:
  171.      print("boom!!!");
  172.      settimerEX(2, 4, 0, 0);
  173.      setpulse(0);
  174.      exsector=getthingsector(crate);
  175.      expos=getthingpos(crate);
  176.      createthingatpos(explosion_tpl, exsector, expos, '0,0,0');  
  177.      destroything(crate);
  178.      playsoundpos(tExplo01, expos, 1, -1, 80, 0);     
  179.      callcrate=0;
  180.      crateisinworld=0;
  181.      movedyet=0;
  182. //     sleep(2);
  183.      if (canFTOtalk==1) {
  184.           print("I think you missed");
  185.           dwplaycharacterspeech("SFC400", "m2bd045.wav"); #that crate nearly made it...
  186.           dwcleardialog();
  187.           canFTOtalk=0;
  188.      }          
  189.      dwunfreezeplayer();
  190.      setcurrentcamera(7);
  191.      call callcrates;
  192.      return;
  193.      
  194. specialdestroycrate:
  195.      dwdisableescape();
  196.      settimerEX(2, 4, 0, 0);
  197.      setpulse(0);
  198. //     destroything(crate);
  199.      callcrate=0;
  200.      crateisinworld=0;
  201.      movedyet=0;
  202.  //    setwallcel(adjustswitch, 1);
  203.      teleportthing(AD, trinityteleport); 
  204.      setwallcel(fakelever, 1);
  205.      setwallcel(add_sand, 1);
  206.      setwallcel(rem_sand, 1);     
  207.      setwallcel(CRMface, 0);
  208.      if (canFTOtalk==1) {
  209.           print("You did it.");
  210.           dwplaycharacterspeech("SFC410", "m2bd046.wav");
  211.           dwcleardialog();
  212.           canFTOtalk=0;
  213.      }     
  214.      setcamerafocii(2, breakdoor, ghostcamera);
  215.      setcurrentcamera(2);
  216.      settimerEX(3, 5, 0, 0);     
  217.      movetoframe(breakdoor, 1, 1);
  218.      sendmessage(sneakycog, user2);
  219.      dwplaycharacterspeech("ADX700", "M2ad007.wav");
  220.      dwcleardialog();
  221.      dwenableescape();
  222.      print("time to wake up");
  223.      sendmessage(callcratecog, user6);
  224. //     AIclearmode(AD, 0x2000);
  225. //     AIsetmode(AD, 563);
  226.      return;
  227.  
  228. getpayloadweight:
  229.      if (crateisinworld==1) payloadweight=730;
  230.      else if (getthingsector(AD)==curplayersector) payloadweight=330;
  231.      else payloadweight=getthingmass(player)/2.2;
  232. //     else payloadweight=1000;   //playerweight
  233.      print("payloadweight is ");
  234.      printflex(payloadweight);
  235.      return;               
  236.  
  237. arrived:
  238. //if the mine cart has arrived at the end of the catapult, launch the crate
  239.      if (getsenderid()==3) {   
  240.           if (donotlaunch==1) {               
  241.                playsoundthing(dave, minecar, 1, -1, -1, 0);
  242.                return;
  243.           }                
  244.           playsoundthing(t1catreset, minecar, 1, 7, 14, 0);          
  245.           if ((launch==1)&&(crateisinworld==0)&&(getsectorplayercount(curplayersector)!=1)&&(getthingsector(AD)!=curplayersector) ) {
  246.                call launchnothing;
  247.                return;
  248.           }
  249.           launch=1;
  250.           call getpayloadweight;                         
  251.           if ((getcurframe(catapult))==0) {
  252.                catvel=computecatapultvelocity(payloadweight, catapult0, catapult1, catpower);           
  253.                skiptoframe(minecart, 0, 3);
  254.                if (crateisinworld==1) call launchcrate;
  255.                else if ((crateisinworld==0)&&((getsectorplayercount(curplayersector))==1)) call launchplayer;
  256.                else if ( (crateisinworld==0)&&(getthingsector(AD)==curplayersector) ) call launchAD;            
  257.             }
  258.           else if ((getcurframe(catapult))==1) {
  259.                skiptoframe(minecart, 2, 3);
  260.                catvel=computecatapultvelocity(payloadweight, catapult2, catapult3, catpower);                  
  261.                if (crateisinworld==1) call launchcrate;
  262.                else if ((crateisinworld==0)&&((getsectorplayercount(curplayersector))==1)) call launchplayer;
  263.                else if ( (crateisinworld==0)&&(getthingsector(AD)==curplayersector) ) call launchAD;                  
  264.           }
  265.           else if ((getcurframe(catapult))==2) { 
  266.                skiptoframe(minecart, 4, 3);           
  267.                catvel=computecatapultvelocity(payloadweight, catapult4, catapult5, catpower);                  
  268.                if (crateisinworld==1) call launchcrate;
  269.                else if ((crateisinworld==0)&&((getsectorplayercount(curplayersector))==1)) call launchplayer;
  270.                else if ( (crateisinworld==0)&&(getthingsector(AD)==curplayersector) ) call launchAD;                 
  271. //               playsoundthing(t1catadjstop, catapult, 1, -1, -1, 0);
  272. //               stopsound(channel22, 0.5);                       
  273.           }        
  274.      }            
  275.      else if (getsenderref()==catapult) {     
  276.           setwallcel(CRMface, 1);
  277.           if (getcurframe(catapult)==0) setwallcel(adjustswitch, 0);
  278.           else if (getcurframe(catapult)==1) setwallcel(adjustswitch, 1);
  279.           else if (getcurframe(catapult)==2) setwallcel(adjustswitch, 2);
  280.       
  281. //          playsoundthing(t1catadjstop, catapult, 1, -1, -1, 0);
  282. //          stopsound(channel22, 0.5);         
  283.      }              
  284.      return;
  285.      
  286. launchnothing:
  287.           print("launchnothing");
  288.           donotlaunch=1;
  289.           if ((getcurframe(catapult))==0) {         
  290.                skiptoframe(minecart, 0, 3);
  291.           }
  292.           else if ((getcurframe(catapult))==1) {
  293.                skiptoframe(minecart, 2, 3);
  294.           }
  295.           else if ((getcurframe(catapult))==2) { 
  296.                skiptoframe(minecart, 4, 3);           
  297.           }        
  298.           return;
  299.      
  300.  
  301. //launches the minecar   
  302. user0:
  303.      launchchannel=playsoundthing(t1catlaunch, minecar, 1, 7, 14, 0);
  304.      if ((getcurframe(catapult))==0) skiptoframe(minecart, 1, 29.17);
  305.      else if ((getcurframe(catapult))==1) skiptoframe(minecart, 3, 29.17);
  306.      else if ((getcurframe(catapult))==2) skiptoframe(minecart, 5, 29.17);            
  307.      stopsound(warmupchannel, 0.5);       
  308.      return;
  309.  
  310. //create the true crate out of thin air     
  311. user1:     
  312.      crateisinworld=1;
  313.      settimerEX(2,1,0,0);
  314.      crate=creatething(ADcratetemplate, createcrateghost);
  315.      return;    
  316.      
  317. #user3:
  318. #     print("creating SABOTAGE AD");
  319. #     AD=creatething(ADtemplate, telehide);
  320. #     setactorflags(AD, 8);
  321. #     return;
  322.      
  323. user4:
  324.      print("coming back into your life");
  325.      settimerEX(1, 1, 0, 0);     
  326. #     teleportthing(AD, createcrateghost);
  327. #     destroything(AD);
  328.      AD=creatething(ADtemplate, createcrateghost);
  329.      Aiclearmode(AD, 0xffff);
  330.      Aisetmode(AD, 0x3000);
  331.      stopthing(AD);
  332.      AIsetmovespeed(AD, 0.0);
  333.      print("FITTOOOO!!!!");
  334.      return; 
  335.      
  336. activate:  
  337.      //start the launch sequence to move the minecar.
  338.      print("activate");
  339.      printint(getsenderid());
  340.      if (getsenderid()==1) {
  341.           if (getwallcel(fakelever)==1) return;
  342.           else {               
  343.                dwfreezeplayer();
  344.                donotlaunch=0;
  345.                setwallcel(fakelever, 1);
  346.                print("Starting launch sequence.");
  347.                warmupchannel=playsoundthing(t1catwarmup, minecar, 1, 7, 14, 0x1);
  348.                playsoundthing(t1caton, minecar, 1, 7, 14, 0);
  349.                call user0;
  350. //               settimerEX(12,1,0,0);
  351.           }
  352.       }
  353.      //move (rotate) the catapult
  354.      else if (getsenderid()==2) {
  355.           if ( (isthingmoving(catapult)!=0)||(getwallcel(CRMface)==0)||(getwallcel(fakelever)==1) ) return;
  356.           else {               
  357.                playsoundpos(switchsound, getsurfacecenter(adjustswitch), 1.0, -1, -1, 0);
  358.                setwallcel(CRMface, 0);
  359.                setwallcel(adjustswitch, 4);               
  360.                if ((getcurframe(catapult))==0) movetoframe(catapult, 1, 0.3);
  361.                else if ((getcurframe(catapult))==1) movetoframe(catapult, 2, 0.3);
  362.                else if ((getcurframe(catapult))==2) movetoframe(catapult, 0, 0.3);
  363.           }
  364.      }
  365.      else if (GetSenderId() == 10)  call sand_add;     
  366.      else if (GetSenderId() == 4)  {
  367.           print("removing sand");
  368.           call sand_rem;     
  369.      }
  370.      return;
  371.      
  372. user5:    
  373. callcrates:
  374.      //bring in a small crate
  375.      sendmessage(callcratecog, user1);
  376.      truecratetype=0;
  377.      call nocrates;
  378.      return;
  379.  
  380. timer:
  381.      if (getsenderid()==2) {
  382.          md_power = md_power + sand_inc;
  383.          if (md_power < step) {
  384.              SetWallCel(add_sand, 0);
  385.              SetWallCel(rem_sand, 0);
  386.              md_power = step;
  387.              
  388.              }
  389.           else if (md_power>100) {
  390.                SetWallCel(add_sand,0);
  391.                SetWallCel(rem_sand,0);
  392.                md_power=100;
  393.           }
  394.          
  395.          else if (md_power == c_dest)        {
  396.              SetWallCel(add_sand, 0);
  397.              SetWallCel(rem_sand, 0);
  398.              }
  399.      
  400.           else {
  401.                SetTimerEX(0.02,2,0,0);
  402.           }
  403.            call displayweight;
  404.      }
  405.      else if (getsenderid()==4) {
  406.           dwenddialog();
  407.           dwclearresponses();
  408.      }
  409.      else if (getsenderid()==1) {
  410.           setthingmass(crate, 0);
  411.           setwallcel(fakelever, 0);
  412.           setthingmass(AD, 0);
  413.      }        
  414.      else if (getsenderid()==5) {
  415.           dwunfreezeplayer();
  416.           setcurrentcamera(7);
  417.      }
  418.      else if (getsenderid()==6) {
  419.           if (ADdead==0) {
  420.                print("timing out the AD");
  421.                ADdead=1;
  422.                sendmessage(finalcog, user0);   
  423.                sendmessage(downtothewellcog, user0);          
  424.                destroything(AD);
  425.                print("YOU DID IT!!!");
  426.                setpulse(0);
  427.           }
  428.      }
  429.      return;
  430.        
  431. nocrates:
  432.      launch=0;
  433.      callcrate=1; 
  434.      crateisinworld=1;
  435.      return;
  436.  
  437. launchcrate:
  438.      setthingmass(crate, 100);
  439.      canFTOtalk=1;    
  440.      setcamerafocii(2, crate, launchcamera);
  441.      setcurrentcamera(2);
  442.      setTimerEX(4, 3, 0, 0);
  443.      donotlaunch=1;
  444.      callcrate=0;
  445.      detachthing(crate);
  446.      setthingvel(crate, catvel);
  447.      call getpulsetime;
  448.      print("pulsetime equals");
  449.      printflex(pulsetime);
  450.      setpulse(pulsetime);
  451.      return;
  452.      
  453. getpulsetime:
  454.      if (getcurframe(catapult)==1) {
  455.           print("curframe1");
  456.           if (md_power>60) pulsetime=2.0;
  457.           else pulsetime=0.025;
  458.      }
  459.      else if (getcurframe(catapult)==2) {
  460.           print("curframe2");
  461.           if ((md_power>30)&&(md_power<80)) pulsetime=2.0;
  462.           else pulsetime=0.025;
  463.      }
  464.      else pulsetime=0.025;
  465.      return;
  466.  
  467.  
  468.      
  469. launchplayer:
  470.      setcamerafocii(2, player, launchcamera);
  471.      setcurrentcamera(2);
  472.      setTimerEX(4, 3, 0, 0);
  473.      donotlaunch=1;
  474.      detachthing(player);
  475.      setthingvel(player, catvel);
  476.      return;  
  477.      
  478. launchAD:
  479.      print("launching AD");     
  480.      ADactive=1;
  481.      setthingmass(AD, 100);
  482.      setcamerafocii(2, AD, launchcamera);
  483.      setcurrentcamera(2);
  484.      setTimerEX(4, 3, 0, 0);     
  485.      print("catvel is");
  486.  //    dwplaycharacterspeech("ADX900", "M2ad009.wav");
  487.      printvector(catvel);
  488.      donotlaunch=1;
  489.      detatchthing(AD);
  490.      setthingvel(AD, catvel);
  491.      ADactive=1;
  492.      setpulse(.5);
  493.      settimerEX(1.9, 6, -1, -1);
  494.      return;  
  495.      
  496. sand_add:
  497.       if (GetWallCel(add_sand) != 1)    //Nothing's already happening
  498.      {
  499.      SetWallCel(add_sand, 1);
  500.      sand_inc = 1;
  501.      c_dest = md_power + step;
  502.      SetTimerEX(0.02,2,0,0);
  503.      }
  504.      return;
  505.      
  506. sand_rem:
  507.      if (GetWallCel(rem_sand) != 1)    //Nothing's already happening
  508.           {
  509.           SetWallCel(rem_sand, 1);
  510.           sand_inc = -1;
  511.           c_dest = md_power - step;
  512.           SetTimerEX(0.02,2,0,0);
  513.           }
  514.      return;
  515.      
  516. displayweight:
  517.      playsoundpos(clicksound, getsurfacecenter(led_tens), 0.3, -1, -1, 0);
  518.      SetWallCel(led_ones, md_power %  10);
  519.      SetWallCel(led_tens, (md_power / 10) % 10);
  520.      SetWallCel(led_hund, (md_power / 100) % 10);
  521.      catpower=(md_power/100)*20000;
  522.      return;
  523.                      
  524. end
  525.  
  526.  
  527.  
  528.  
  529.