home *** CD-ROM | disk | FTP | other *** search
/ Classic Fond 52 / ClassicFond52.iso / GAMES / DROIDW.RAR / DWCD.GOB / mission_cog_b0_gear.cog < prev    next >
Text File  |  1998-11-04  |  19KB  |  558 lines
  1. # Droids Cog Script
  2. #
  3. # b0_Gear.cog
  4. #
  5. # Gear Cog controlling movement of the bridge and gears assmebly. 
  6. #
  7. # Desc:
  8. #     bin 25    Small Gears
  9. #     bin 26    Medium Gear
  10. #     bin 27     Large Gear
  11. # 
  12. #    This cog is responsible for keeping track of what gears are in the Gear assembly 
  13. #    and where. It's also in charge of mocing the bridge either up or down depending on 
  14. #    how the gears are in place. There are seperate cogs for the gear pieces themselves
  15. #    when found on the ground. After they've been placed in the gear assembly, they're 
  16. #    part of this script.
  17. #           
  18. #
  19. # 10/23/97 [DGS]    Created 
  20. # 01/19/97 [DGS]    Updated for new controls.    
  21. # 01/21/97 [DGS]    Rewrote majority of it; added new Used and Taken sections       
  22. # ========================================================================================
  23.  
  24. symbols
  25. message        used
  26. message        startup        
  27. message        arrived
  28. message        user0
  29. message        taken
  30. message        timer        
  31.  
  32. ## ================Parts    
  33. thing        screw0        linkid=11 
  34. thing        screw1         linkid=11
  35. thing        screw2        linkid=11
  36. thing        screw3        linkid=11
  37. thing        gear_top    linkid=11
  38. thing        gear_bot    linkid=11
  39. thing        platform    linkid=3 
  40. thing        spind        linkid=11
  41. surface        Button0        linkid=2
  42.  
  43. ## ==================Ghost objects
  44. thing        l_spindle_g        linkid=30  
  45. thing        r_spindle1_g    linkid=31  
  46. thing        r_spindle2_g    linkid=32  
  47.  
  48. ## ===================Ghost creation integers
  49. int        l_spindle_i=0      linkid=11        local
  50. int        r_spindle1_i=0                    local
  51. int        r_spindle2_i=0                    local
  52.  
  53. ## ====================Spin Directon integers
  54. flex        l_spindle_d=0.0        local
  55. flex        r_spindle1_d=0.0    local
  56. flex        r_spindle2_d=0.0    local
  57. flex        t_gear_d=0.0        local
  58.  
  59. ## =====================templates
  60. template    gear_large_t    
  61. template    gear_small_t
  62. template    gear_med_t
  63.  
  64. ## ======================Sectors
  65. sector        L_Sector    
  66. sector         R_sector
  67.  
  68. ## ======================Sounds
  69. sound        gearon_snd
  70. sound        gearongfsdfsf_snd
  71. sound        gearoff_snd
  72. sound        mstart_snd
  73. sound        mstop_snd
  74. sound        mfree_snd
  75. sound        mstress_snd
  76. sound        gearbog_snd
  77.  
  78. ## ======================Cogs
  79. cog        button_cog
  80.  
  81. thing    ghost_cam
  82. int        l_spindle_m=0        local
  83. int        r_spindle1_m=0        local
  84. int        r_spindle1_m=0        local
  85.  
  86.  
  87.  
  88. ## ======================Internal variables 
  89. float    speed=2.0            local
  90. int        on_button=0            local
  91. int        rotate                local
  92. int        l_spindle=0            local
  93. int        r_spindle1=0        local
  94. int        r_spindle2=0        local
  95. int        timermode=0            local
  96. int        part_id=0            local
  97. int        g_sound=0            local
  98. end
  99. # ========================================================================================
  100.  
  101. code
  102.                
  103. startup:
  104.     // 
  105.     //print("rotate it");
  106.     //rotate = 1;
  107.     //l_spindle_d     =     1;
  108.     //r_spindle1_d    =     -0.5;
  109.     //r_spindle2_d    =      0.5;
  110.         //call rotate_gears;
  111.     
  112.     
  113.     AttachThingToThing(screw0, gear_top);
  114.     AttachThingToThing(screw1, gear_top);
  115.     AttachThingToThing(screw2, gear_top);
  116.     AttachThingToThing(ghost_cam, platform);
  117.     //AttachThingToThing(screw3, screw0);
  118.     
  119.     MoveToFrame(platform, 1, 50);
  120.     //RotatePivot(screw0, 1, 1);
  121.  
  122.     sleep(5);
  123.     print("Gear mode:");
  124.     printint(screw0);
  125.     printint(screw1);
  126.     printint(screw2);
  127.  
  128.     return;
  129.  
  130. # ........................................................................................
  131. user0:
  132.         // User0 gets called when the player hits the motor switch. See gear_activate.cog 
  133.         print("user0");
  134.         if (rotate == 0) call start_motor;
  135.     return;
  136. used:
  137.     //    Section is executed when the user uses an inventory object. Cool. 
  138.     print("USED:");
  139.     printint(dwGetActivateBin());
  140.     printint(getsenderid());
  141.     if (rotate == 0)
  142.         {
  143.         if ( getinv(getlocalplayerthing(),dwGetActivateBin()) > 0) //if the bin has more than 0 in it; 
  144.             {
  145.             if ((GetSenderId() == 11) || (getsenderref() == r_spindle1_i) || (getsenderref() == r_spindle2_i)) // It's used on the gear_bot    
  146.                 {
  147.                 //    The Gear Assembly was activated
  148.                 if (getthingsector(getlocalplayerthing()) == l_sector) 
  149.                     {
  150.                     //=================== Player is on the Large gear side of the gear assembly
  151.                     print("Activated L sector");
  152.                     call handle_l;
  153.                     }
  154.                     
  155.                 if (getthingsector(getlocalplayerthing()) == r_sector) 
  156.                     {
  157.                     //=================== Player is on the Small gear side of the gear assembly
  158.                     print("Activated R sector");
  159.                     call handle_r;
  160.                     }
  161.                 }
  162.             }
  163.         }
  164.     return;
  165.  
  166.  
  167. taken:
  168.     print("taken");
  169.     printint(r_spindle1_i);
  170.         printint(r_spindle2_i);
  171.     printint(getsenderref());
  172.     printint ((GetSenderId() == 11) || (getsenderref() == r_spindle1_i) || (getsenderref() == r_spindle1_i));
  173.  
  174.     // Taken gets called when the user attempts to take a gear from left or right of the gear assembly.    
  175.         if (rotate == 0)
  176.         {
  177.         if ((GetSenderId() == 11)) // if it's the gear_bot that got activated    
  178.             {
  179.             print("Inside");
  180.             //    The Gear Assembly was activated
  181.             if (getthingsector(getlocalplayerthing()) == l_sector) 
  182.                 {
  183.                 //=================== Player is taking stuff from the left side of the gear assembly
  184.                 if (l_spindle != 0)
  185.                     {
  186.                     // inc the bin to add it back to the inv, destroy the environment one ans set l_spindle to 0.
  187.                     ChangeInv(getlocalplayerthing(), l_spindle, 1);
  188.                     destroything(l_spindle_i);
  189.                     l_spindle = 0;        
  190.                     //dwSetPlayerMass(dwGetPlayerMass() + l_spindle_m);
  191.                     l_spindle_m = 0;
  192.                     
  193.                     call update_bins;
  194.                     PlaySoundThing(gearoff_snd, l_spindle_g, 1, -1, -1, 0);  
  195.                     }
  196.                 else
  197.                     {
  198.                     // TELL THE PLAYER THERE'S NOTHING TO TAKE
  199.                     dwPlayCammySpeech(17305, "t9ca006.wav", 10, 0);
  200.                     timermode = 2;
  201.                     settimer(10);
  202.                     }
  203.                 }
  204.                 
  205.             if (getthingsector(getlocalplayerthing()) == r_sector) 
  206.                 {
  207.                 //=================== Player is on the Small gear side of the gear assembly
  208.                 if (r_spindle1 != 0)    //if the top spindle (1) has something on it.
  209.                     {
  210.                     // inc the bin to add it back to the inv, destroy the environment one ans set r_spindle1 to 0.
  211.                     ChangeInv(getlocalplayerthing(), r_spindle1, 1);
  212.                     //releasething(r_spindle1_i);
  213.                     destroything(r_spindle1_i);
  214.                     r_spindle1 = 0;        
  215.                     //dwSetPlayerMass(dwGetPlayerMass() + r_spindle1_m);
  216.                     r_spindle1_m - 0;
  217.                     
  218.                     call update_bins;
  219.                     PlaySoundThing(gearoff_snd, r_spindle1_g, 1, -1, -1, 0);  
  220.                     }
  221.                 else if (r_spindle2 != 0)    //if the bottom spindle (2) has something on it
  222.                     {
  223.                     // inc the bin to add it back to the inv, destroy the environment one ans set r_spindle2 to 0.
  224.                     ChangeInv(getlocalplayerthing(), r_spindle2, 1);
  225.                     //releasething(r_spindle2_i);
  226.                     destroything(r_spindle2_i);
  227.                     r_spindle2 = 0;        
  228.                     //dwSetPlayerMass(dwGetPlayerMass() + r_spindle2_m);
  229.                     r_spindle2_m - 0;
  230.                     PlaySoundThing(gearoff_snd, r_spindle1_g, 1, -1, -1, 0);  
  231.                     call update_bins;
  232.                     }
  233.                 else     //else there's nothing on this side. Both spindles are empty.
  234.                     {
  235.                     dwPlayCammySpeech(17305, "t9ca006.wav", 10, 0);  //There's nothing to take
  236.                     timermode = 2;
  237.                     settimer(10);
  238.                     }
  239.                 }
  240.             }
  241.         }
  242.     return;
  243. grind_gears:
  244.         // Controls causing the grind sound .
  245.         garbage = PlaySoundThing(gearbog_snd, gear_bot, 1, -1, -1, 0);
  246.         dwPlayCammySpeech(17313, "t9ca014.wav", 10, 0);
  247.         timermode = 3;
  248.         settimer(1);
  249.     return;
  250.  
  251. start_motor:
  252.     if ( (l_spindle == 27) && (r_spindle1 == 25) && (r_spindle2 == 25) )        // if all the grears are in place
  253.         {
  254.         r_spindle2_d    = 0;
  255.         r_spindle1_d     = 0;
  256.         l_spindle_d     = 0;
  257.         // 
  258.         call grind_gears;
  259.         }
  260.     else    // Else set up the way it's all gonna spin
  261.         { // +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Set motion/direction
  262.         t_gear_d = 0; //Assume that if the top gear is going to move, the below lines will set it that way.
  263.         // These if/else statements set up the speeds and directions for the gears on the 3 spindles. 
  264.         if (l_spindle == 27)//if it's the large gear in the left spindle  
  265.             {
  266.             l_spindle_d = -1; //set the direction to -0.5
  267.             t_gear_d = -0.5; //set the top gears direction. 
  268.             }
  269.         else l_spindle_d = 0;// else set the gears speed to 0, since md. and sm. gears don't touch the upper and lower gears when th