home *** CD-ROM | disk | FTP | other *** search
/ Classic Fond 52 / ClassicFond52.iso / GAMES / DROIDW.RAR / DWCD.GOB / mission_cog_sy_magtramb.cog < prev    next >
Encoding:
Text File  |  1998-11-04  |  15.7 KB  |  541 lines
  1. # DrowWorks Cog Script
  2. #    
  3. # SY_MagTram B
  4. #
  5. # First attempt at MagTram cog
  6. #
  7. # Desc:
  8. #    
  9. #
  10. #
  11. # [01/18/97] DGS Created From Matt's TreadRX script.
  12. # [03/03/98] DGS Modified to work with sector thrusts. It got totally re-written. (Del-Fi Lost Treasures)
  13. symbols
  14. ## ====================== Messages
  15. message        startup
  16. message        activated
  17. message     arrived
  18. message     entered
  19. message     exited 
  20. message        touched
  21. message        timer
  22. message        pulse
  23.  
  24. ## ====================== Things
  25. thing        tram   
  26. thing        door1_o        
  27. thing        door2_o        
  28. thing        door3_o    
  29. thing        door4_o
  30. thing        door5_o    
  31. thing        door6_o    
  32. thing        door7_o    
  33. thing        door8_o    
  34. ## ---------------------- Door sectors
  35. int            door1_s            local
  36. int            door2_s            local
  37. int            door3_s            local
  38. int            door4_s            local
  39. int            door5_s            local
  40. int            door6_s            local                    
  41. int            door7_s            local
  42. int            door8_s            local
  43.  
  44. ##    ===================== Vectors
  45. vector        up_v
  46.  
  47. ## ====================== Sectors
  48. sector      pickup1_s         linkid=21
  49. sector      pickup2_s        linkid=22
  50. int            tram_sect_i        local    
  51.  
  52. ## ====================== Assassin Droid Templates/Ghosts
  53. template    killer_t        
  54. thing        ghost1_g
  55. thing        ghost2_g
  56. int            killer_i=0        local
  57. int            killer_loc=0    local
  58. ## ====================== Misc. Stuff
  59. surface        tramswitch        
  60. flex        t_speed=25.0    local
  61. flex        t_max=25.0        local
  62. flex        t_cargo=15.0    local
  63. flex        door_speed=12.0    local
  64. int            cargo1_i=0        local
  65. int            cargo2_i=0        local 
  66. int            cargot_i=0        local
  67. int            pickups_i=0        local
  68. int            moveframe=0        local
  69. int            in_tram=0        local
  70. int            waitfor=0        local
  71. int            playerdrop=0    local
  72. int            killer_pickup=0    local
  73. end
  74.  
  75. # ========================================================================================
  76.  
  77. code
  78.  
  79. startup:
  80.     setwallcel(tramswitch, 1);
  81.     killer_loc = pickup1_s;
  82.     player = getlocalplayerthing();
  83.     movetoframe(tram,1,t_speed);
  84.     
  85.     door1_s = GetThingSector(door1_o);
  86.     SetSectorAdjoins(door1_s, 0);
  87.     door2_s = GetThingSector(door2_o);
  88.     SetSectorAdjoins(door2_s, 0);
  89.     door3_s = GetThingSector(door3_o);
  90.     SetSectorAdjoins(door3_s, 0);
  91.     door4_s = GetThingSector(door4_o);
  92.     SetSectorAdjoins(door4_s, 0);
  93.     door5_s = GetThingSector(door5_o);
  94.     SetSectorAdjoins(door5_s, 0);
  95.     door6_s = GetThingSector(door6_o);
  96.     SetSectorAdjoins(door6_s, 0);
  97.     door7_s = GetThingSector(door7_o);
  98.     SetSectorAdjoins(door7_s, 0);
  99.     door8_s = GetThingSector(door8_o);
  100.     SetSectorAdjoins(door8_s, 0);
  101.  
  102.     //printint(global1);
  103.     return;
  104.  
  105. tramstop:
  106.     //print("tramstop");
  107.     //This routine is in charge of checking a tram stop and dropping something off it it needs
  108.     // to, or picking someone up if it needs to.
  109.     if (cargot_i == 0)        //if the tram is empty
  110.         {
  111.         tram_pickup = 1;    // This variable tell's the touched message that it's okay to pick stuff up.
  112.         if ((getthingsector(tram) == pickup1_s) && (cargo1_i !=0 ))    //if the sector the tram is in is pickup 1 and there's cargo to pick up
  113.             {
  114.             achthing = cargo1_i; // Let the achthing (the thing it picks up) = whatever the cargo is.
  115.             cargo1_i = 0;         // Empty the cargostop  variable 
  116.             pickups_i = pickup1_s;    // tell the touched message what sectorthrust to stop.
  117.             SectorThrust(pickup1_s, up_v, 5);
  118.                timermode = 1;
  119.             settimer(3);
  120.             }
  121.         if ((getthingsector(tram) == pickup2_s) && (cargo2_i !=0 ))    //if the sector the tram is in is pickup 1 and there's cargo to pick up
  122.             {
  123.             achthing = cargo2_i; // Let the achthing (the thing it picks up) = whatever the cargo is.
  124.             cargo2_i = 0;         // Empty the cargostop  variable 
  125.             pickups_i = pickup2_s;    // tell the touched message what sectorthrust to stop.
  126.             SectorThrust(pickup2_s, up_v, 5);
  127.                timermode = 1;
  128.             settimer(3);
  129.             }
  130.         }
  131.     else // Else the cargo is holding something and it's way out wackity wacked
  132.         {
  133.         call dropoff1;
  134.         }
  135.     // The lines below control the killer droid 
  136.     if    ((playerdrop == pickup2_s) && (getthingsector(tram) == pickup1_s)) //if you're inside jawa area and the tram's not
  137.         {
  138.         print("assassin Droid comming your way into the JAWA area");        
  139.         call pickup_killer;
  140.         playerdrop = 0;
  141.         }
  142.     if    ((playerdrop == pickup1_s) && (getthingsector(tram) == pickup2_s)) //
  143.         {
  144.         print("assassin Droid comming your way back to Refurb area");        
  145.         call pickup_killer;
  146.         playerdrop = 0;
  147.         }
  148.     
  149.     return;
  150. touched:
  151.     if (getsenderref() == tram)
  152.         {
  153.         if (tram_pickup == 1)
  154.             {
  155.             tram_pickup = 0;
  156.             print("touched");
  157.             SectorThrust(pickups_i, up_v, 0);
  158.             //call pickup1;
  159.             sleep(0.01);
  160.             call pickup1;
  161.                timermode = 1;
  162.             settimer(0.01);
  163.             }
  164.         }
  165.     return;
  166.  
  167. entered:
  168.     print("entered");
  169.     // This routine handles setting up variables for when  the player (or potentially something else)
  170.     // enters a pickup zone. 
  171.     If (getsenderref()== pickup1_s) //if something entered pickup 1
  172.         {
  173.         //print("Sector 1:");
  174.         //printint(getsourceref());
  175.         cargo1_i = getsourceref();
  176.         }
  177.     If (getsenderref()== pickup2_s) //if something entered pickup 2
  178.         {
  179.         //print("Sector 2:");
  180.         //printint(getsourceref());
  181.         cargo2_i = getsourceref();
  182.         }
  183.     if (tram_pickup == 1)
  184.         {
  185.         print("JAMZ");
  186.         timermode = 1;
  187.         settimer(3);
  188.         call tramstop;
  189.         }
  190.     return;
  191.  
  192. exited:
  193.        //This routine handles clearing varibles that keep track of what's potential cargo. 
  194.     If (getsenderref()== pickup1_s)//if something exited pickup 1
  195.         {
  196.         if (cargo1_i == getsourceref()) 
  197.             {
  198.             cargo1_i = 0; //if it was potential cargo, then remove it
  199.             SectorThrust(pickup1_s, up_v, 0);
  200.             }
  201.         }
  202.        If (getsenderref()== pickup2_s)//if something exited pickup 2
  203.         {
  204.         if (cargo2_i == getsourceref()) 
  205.             {
  206.             cargo2_i = 0; //if it was potential cargo, then remove it
  207.             SectorThrust(pickup2_s, up_v, 0);
  208.             }
  209.         }
  210.         return;               
  211.  
  212. pickup1:
  213.     // This routine picks up the player (well, in therory anything)
  214.     // It was taken from Matt the Tat's tram cog. I modified it a little. -Doug
  215.     t_speed = t_cargo;
  216.     in_tram = 1;
  217.     hangoffset=('0,0,0');
  218.     cargot_i = achthing;
  219.     //    setsectorthrust(thrustsector, thrustvector, 0);
  220.     totalradius = GetThingRadius(achthing) + GetThingRadius(tram);
  221.     VectorSet(hangoffset, 0, 0, -totalradius);
  222.     //    hangoffset = VectorAdd(hangoffset, GetThingInsertOffset(magnettram));
  223.     hangoffset = VectorSub(hangoffset, GetThingInsertOffset(achthing));
  224.     SetThingPos(achthing, VectorAdd(GetThingPos(tram), hangoffset));
  225.     AttachThingToThingEx(achthing, tram, 8);
  226.     if (achthing == player) dwdisablejump(); // if it's the player we're picking up, freeze his controls.
  227.     return;
  228.  
  229. dropoff1:
  230.     //print("dropOFF:");
  231.     if (achthing != 0)
  232.         {
  233.         printint(cargot_i);
  234.         cargot_i = 0;        //empty out the cargo variable 
  235.         t_speed = t_max;
  236.         Sleep(2);   
  237.         in_tram = 0;
  238.         detachthing(achthing);
  239.         setthingvel(achthing, '0,0,0.5');
  240.         if (achthing == player) dwenablejump(); // if it's the player we're dropping, let him move.
  241.         if (achthing == player) //This stuff is for making the assassin droid follow you in/out. 
  242.             {
  243.             if (getthingsector(tram) == pickup1_s) playerdrop = pickup1_s; 
  244.             if (getthingsector(tram) == pickup2_s) playerdrop = pickup2_s;
  245.             print("playerdrop:");
  246.             printint(playerdrop);
  247.             }
  248.         acthing = 0;
  249.         if (achthing == killer_i) //This stuff is for making the assassin droid follow you in/out. 
  250.             {
  251.             if (getthingsector(tram) == pickup1_s) killer_loc = pickup1_s; 
  252.             if (getthingsector(tram) == pickup2_s) killer_loc = pickup2_s;
  253.             print("killer_loc:");
  254.             printint(killer_loc);
  255.             
  256.             }
  257.         }
  258.     return;
  259.  
  260. pickup_killer:
  261.     // This routine    creates an assassin droid and attaches him into the tram for dropoff later on.
  262.     t_speed = t_cargo;
  263.     in_tram = 1;
  264.     killer_pickup = killer_pickup +1;
  265.     if (killer_pickup == 1)    dwPlayCammySpeech(12140, "M1ca042.wav", 10, 0);        
  266.     else dwPlayCammySpeech(12141, "M1ca043.wav", 10, 0);
  267.     timermode = 2;
  268.     settimerex(10,2,0,0);
  269.     hangoffset=('0,0,0');
  270.     if (killer_i != 0) destroything(killer_i); 
  271.     if (getthingsector(tram) == pickup1_s) 
  272.         {
  273.         killer_i = creatething(killer_t,ghost1_g);
  274.         }
  275.     if (getthingsector(tram) == pickup2_s) 
  276.         {
  277.         killer_i = creatething(killer_t,ghost2_g);
  278.         }
  279.     achthing = killer_i;
  280.     cargot_i = achthing;
  281.     //    setsectorthrust(thrustsector, thrustvector, 0);
  282.     totalradius = GetThingRadius(achthing) + GetThingRadius(tram);
  283.     VectorSet(hangoffset, 0, 0, -totalradius);
  284.     //    hangoffset = VectorAdd(hangoffset, GetThingInsertOffset(magnettram));
  285.     hangoffset = VectorSub(hangoffset, GetThingInsertOffset(achthing));
  286.     SetThingPos(achthing, VectorAdd(GetThingPos(tram), hangoffset));
  287.     AttachThingToThingEx(achthing, tram, 8);
  288.     return;
  289.  
  290.  
  291.  
  292. arrived:
  293.    // This routine differs from the other tram scripts becuase it has controls for stopping and starting the tram at any time.
  294.    // because of this, the variable Moveframe is set to the frame it's headed towards every time, so that if the tram is stopped 
  295.    // and restarted we know what frame to send it to. Pretty sneaky, eh? 
  296.    if (getsenderref() == tram)
  297.         {
  298.         if ((getcurframe(tram))==0)
  299.             {
  300.             call tramstop;
  301.             moveframe = 1;
  302.                timermode = 1;
  303.             settimer(3);
  304.             } 
  305.         else if ((getcurframe(tram))==1)
  306.             {
  307.             SetSectorAdjoins(door1_s, 1);  //Turn on door adjoins
  308.             movetoframe(door1_o,1,door_speed);
  309.             movetoframe(tram,2,t_speed);
  310.             moveframe = 2;
  311.             
  312.             } 
  313.          else if ((getcurframe(tram))==2)
  314.             {
  315.             movetoframe(door1_o,0,door_speed);
  316.             movetoframe(tram,3,t_speed);
  317.             moveframe = 3;
  318.             
  319.             }                        
  320.          else if ((getcurframe(tram))==3)
  321.             {
  322.             SetSectorAdjoins(door2_s, 1);  //Turn on door adjoins
  323.             movetoframe(door2_o,1,door_speed);
  324.             movetoframe(tram,4,t_speed);
  325.             moveframe = 4;
  326.             
  327.             }
  328.          else if ((getcurframe(tram))==4)        
  329.             {
  330.             movetoframe(door2_o,0,door_speed);  // Close door
  331.             if ((global1 < 22) || (global1 > 25)) // If another tram's not passing in front of it
  332.                 { 
  333.                 movetoframe(door2_o,0,door_speed);  // Close door
  334.                 movetoframe(tram,7,t_speed);
  335.                 moveframe = 7;
  336.                 }
  337.             else  //Else a tram is passing!
  338.                 {
  339.                 moveframe = 7; 
  340.                 waitfor = 1;
  341.                 setpulse(1); 
  342.                 }
  343.             }   
  344.          else if ((getcurframe(tram))==7)
  345.             {
  346.             SetSectorAdjoins(door3_s, 1);  //Turn on door adjoins
  347.             movetoframe(door3_o,1,door_speed);
  348.             movetoframe(tram,8,t_speed);
  349.             moveframe = 8;
  350.             } 
  351.          else if ((getcurframe(tram))==8)
  352.             {
  353.             movetoframe(door3_o,0,door_speed);  // Close door
  354.             movetoframe(tram,9,t_speed);
  355.             moveframe = 9;
  356.             }
  357.          else if ((getcurframe(tram))==9)
  358.             {
  359.             SetSectorAdjoins(door4_s, 1);  //Turn on door adjoins
  360.             movetoframe(door4_o,1,door_speed);
  361.             movetoframe(tram,10,t_speed);
  362.             moveframe = 10;
  363.             } 
  364.          else if ((getcurframe(tram))==10)
  365.             {
  366.             movetoframe(door4_o,0,door_speed);  // Close door
  367.             movetoframe(tram,12,t_speed);
  368.             moveframe = 12;
  369.             }
  370.          else if ((getcurframe(tram))==12)
  371.             {
  372.             SetSectorAdjoins(door5_s, 1);  //Turn on door adjoins
  373.             movetoframe(door5_o,1,door_speed);
  374.             movetoframe(tram,13,t_speed);
  375.             moveframe = 13;
  376.             } 
  377.          else if ((getcurframe(tram))==13)
  378.             {
  379.             movetoframe(door5_o,0,door_speed);  // Close door
  380.             movetoframe(tram,14,t_speed);
  381.             moveframe = 14;
  382.             }
  383.          else if ((getcurframe(tram))==14)
  384.             {
  385.             SetSectorAdjoins(door6_s, 1);  //Turn on door adjoins
  386.             movetoframe(door6_o,1,door_speed);
  387.             movetoframe(tram,15,t_speed);
  388.             moveframe = 15;
  389.             } 
  390.          
  391.          else if ((getcurframe(tram))==15)
  392.             {
  393.             movetoframe(door6_o,0,door_speed);  // Close door
  394.             movetoframe(tram,18,t_speed);
  395.             moveframe = 18;
  396.             }
  397.          else if ((getcurframe(tram))==18)
  398.             {
  399.             call tramstop;
  400.             moveframe = 20;
  401.                timermode = 1;
  402.             settimer(3);
  403.             }
  404.          else if ((getcurframe(tram))==20)
  405.             {
  406.             SetSectorAdjoins(door7_s, 1);  //Turn on door adjoins
  407.             movetoframe(door7_o,1,door_speed);
  408.             movetoframe(tram,21,t_speed);
  409.             moveframe = 21;
  410.             } 
  411.          
  412.          else if ((getcurframe(tram))==21)
  413.             {
  414.             movetoframe(door7_o,0,door_speed);  // Close door
  415.             movetoframe(tram,23,t_speed);
  416.             moveframe = 23;
  417.             }
  418.          else if ((getcurframe(tram))==23)
  419.             {
  420.             SetSectorAdjoins(door8_s, 1);  //Turn on door adjoins
  421.             movetoframe(door8_o,1,door_speed);
  422.             movetoframe(tram,24,t_speed);
  423.             moveframe = 24;
  424.             } 
  425.          
  426.          else if ((getcurframe(tram))==24)
  427.             {
  428.             movetoframe(door8_o,0,door_speed);  // Close door
  429.             movetoframe(tram,26,t_speed);
  430.             moveframe = 26;
  431.             }
  432.          
  433.          else if ((getcurframe(tram))==26)
  434.             {
  435.             skiptoframe(tram,0,t_speed);
  436.             moveframe = 0;
  437.             }
  438.         
  439.                  
  440.  
  441.         }
  442.     else if (getsenderref() == door1_o) //if it's door 1 
  443.         {
  444.         if (getcurframe(door1_o) == 0) SetSectorAdjoins(door1_s, 0);  //Turn off door adjoins
  445.         }
  446.     else if (getsenderref() == door2_o) 
  447.         {                                            
  448.         if (getcurframe(door2_o) == 0) SetSectorAdjoins(door2_s, 0);  //Turn off door adjoins
  449.         }
  450.     else if (getsenderref() == door3_o)                            
  451.         {                                            
  452.         if (getcurframe(door3_o) == 0) SetSectorAdjoins(door3_s, 0);  //Turn off door adjoins
  453.         }
  454.     else if (getsenderref() == door4_o)                            
  455.         {                                            
  456.         if (getcurframe(door4_o) == 0) SetSectorAdjoins(door4_s, 0);  //Turn off door adjoins
  457.         }
  458.     else if (getsenderref() == door5_o)                            
  459.         {                                            
  460.         if (getcurframe(door5_o) == 0) SetSectorAdjoins(door5_s, 0);  //Turn off door adjoins
  461.         }
  462.     else if (getsenderref() == door6_o)                            
  463.         {                                            
  464.         if (getcurframe(door6_o) == 0) SetSectorAdjoins(door6_s, 0);  //Turn off door adjoins
  465.         }
  466.     else if (getsenderref() == door7_o)                            
  467.         {                                            
  468.         if (getcurframe(door7_o) == 0) SetSectorAdjoins(door7_s, 0);  //Turn off door adjoins
  469.         }
  470.     else if (getsenderref() == door8_o)                            
  471.         {                                            
  472.         if (getcurframe(door8_o) == 0) SetSectorAdjoins(door8_s, 0);  //Turn off door adjoins
  473.         }
  474.     return;
  475.  
  476. activated:
  477.     // Used to turn the tram on and off. I hope this works. 
  478.     print("Activated:");
  479.     if (getsenderref() == tramswitch)
  480.         {
  481.         setwallcel(tramswitch, 1 - getwallcel(tramswitch) );
  482.         if (getwallcel(tramswitch) == 0)        // If the player turned the tram off
  483.             {
  484.             dwPlayCammySpeech(12120, "M1ca040.wav", 10, 3);
  485.             
  486.             settimerex(10,2,0,0);
  487.                timermode = 2;
  488.             print("stopping!");
  489.             //stopthing(tram);        
  490.             movetoframe(tram,moveframe,0.0000001);
  491.             if (killer_loc == pickup1_s) 
  492.                 {
  493.                 global8 = 1;
  494.                 } 
  495.             }
  496.         else     //else the player turned it back on
  497.             {
  498.             dwPlayCammySpeech(12130, "M1ca041.wav", 10, 0);
  499.             
  500.             settimerex(10,2,0,0);
  501.                timermode = 2;
  502.             print("starting!");
  503.             if (moveframe != 0) movetoframe(tram,moveframe,t_speed);
  504.             else skiptoframe(tram,0,t_speed);
  505.             global8 = 0;
  506.             }
  507.         }
  508.         //print("global8:");
  509.         //printint(global8);
  510.     return;
  511.     
  512.  
  513. timer:
  514.     // this routine is used to control the movement of the tram after it's waited at 
  515.     // the stop for a settimer() amount of ti
  516.     
  517.     if ( getsenderid() == 2)
  518.         {
  519.         // nothing anymore 
  520.         }
  521.     else    
  522.         {
  523.         tram_pickup = 0;
  524.         SectorThrust(pickups_i, up_v, 0);
  525.         movetoframe(tram,moveframe,t_speed);
  526.         }
  527.     return;
  528.  
  529. pulse:
  530.     // This is used to check to see when a tram has passed in front of another
  531.     if (waitfor == 1)
  532.         { 
  533.         if ((global1 < 22) || (global1 > 25)) // If another tram's not passing in front of it
  534.             {
  535.             setpulse(0);
  536.             movetoframe(tram,moveframe,t_speed);
  537.             }
  538.         }
  539.  
  540. end
  541.