home *** CD-ROM | disk | FTP | other *** search
/ Classic Fond 52 / ClassicFond52.iso / GAMES / DROIDW.RAR / DWCD.GOB / mission_cog_00_t_inventory2.cog < prev    next >
Encoding:
Text File  |  1998-11-04  |  11.5 KB  |  380 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 27     Large Gear
  10. # 
  11. #    This cog is responsible for keeping track of what gears are in the Gear assembly 
  12. #    and where. It's also in charge of mocing the bridge either up or down depending on 
  13. #    how the gears are in place. There are seperate cogs for the gear pieces themselves
  14. #    when found on the ground. After they've been placed in the gear assembly, they're 
  15. #    part of this script.
  16. #           
  17. #
  18. # 10/23/97 [DGS]    Created 
  19. # 01/19/97 [DGS]    Updated for new controls.    
  20. # 01/21/97 [DGS]    Rewrote majority of it; added new Used and Taken sections
  21. # 03/12/98 [JP]     Modified to fit the training ground       
  22. # ========================================================================================
  23.  
  24. symbols
  25. message        used
  26. message        startup        
  27. message        arrived
  28. message        user0
  29. message        taken
  30. message        timer        
  31.  
  32.  
  33. thing        gear_bot            
  34. surface        Button0        linkid=2
  35. surface        gearlarge      linkid=3
  36. surface        gearsmall      linkid=4
  37.  
  38. ## Ghost objects
  39. thing        l_spindle_g    linkid=30  
  40. thing        r_spindle1_g    linkid=31  
  41.  
  42. ## Ghost creation integers
  43. int        l_spindle_i=0    linkid=30 local
  44. int        r_spindle1_i=0    local
  45.  
  46. ## Spin Directon integers
  47. flex        l_spindle_d=0.0    local
  48. flex        r_spindle1_d=0.0    local
  49.  
  50. ## templates
  51. template    gear_large_t    
  52. template    gear_small_t
  53.  
  54. ## Sectors
  55. sector        L_Sector    
  56. sector         R_sector
  57.  
  58. ## Cogs
  59. cog        button_cog
  60.  
  61. ## Interal variables 
  62.  
  63. float        speed=2.0    local
  64. int        on_button=0    local
  65. int        rotate        local
  66. int        l_spindle=0    local
  67. int        r_spindle1=0    local
  68. int        timermode=0    local
  69. int        part_id=0    local
  70.  
  71. sound     gearon=swtt9gearon.wav local
  72. sound     gearoff=swtt9gearoff.wav local
  73. sound     turnfree=mcht9motfree.wav local
  74. sound     turngears=mcht9motstrss.wav local
  75.  
  76. int       show_once=1 local
  77.  
  78. sound     gearstart=MCHt9MotStrt.wav local
  79. sound     gearstop=MCHt9MotStp.wav local
  80.  
  81. end
  82.  
  83. # ========================================================================================
  84.  
  85. code
  86.                
  87. startup:
  88.     
  89.     return;
  90.  
  91. # ........................................................................................
  92. user0:
  93.         // User0 gets called when the player hits the motor switch. See gear_activate.cog 
  94.         print("user0");
  95.         //if (rotate == 0) 
  96.         call start_motor;
  97.     return;
  98. used:
  99.     //    Section is executed when the user uses an inventory object. Cool. 
  100.     print("USED:");
  101.     printint(dwGetActivateBin());
  102.     printint(getsenderid());
  103.     if (rotate == 0)
  104.         {
  105.         if ( getinv(getlocalplayerthing(),dwGetActivateBin()) > 0) //if the bin has more than 0 in it; 
  106.             {
  107.             if (GetSenderId() == 3) // It's used on the gearlarge surface    
  108.                 {
  109.                 call handle_l;
  110.                     }
  111.                     //printint(getthingsector(getlocalplayerthing()));
  112.                 //printint(L_sector);
  113.                 //    The Gear Assembly was activated
  114.                 //if (getthingsector(getlocalplayerthing()) == L_sector) 
  115.                 //    {
  116.                 //=================== Player is on the Large gear side of the gear assembly
  117.                 //    print("Activated L sector");
  118.                 //    call handle_l;
  119.                 //    }
  120.                     
  121.                 //if (getthingsector(getlocalplayerthing()) == r_sector) 
  122.                 //    {
  123.                 //    //=================== Player is on the Small gear side of the gear assembly
  124.                 //    print("Activated R sector");
  125.                 //     call handle_r;
  126.                 //    }
  127.                 //}
  128.             if (GetSenderId() == 4) // It's used on the gearsmall surface
  129.                     {
  130.                     call handle_r;
  131.                     }
  132.                     //printint(getthingsector(getlocalplayerthing()));
  133.                     //printint(R_sector);
  134.                     //if (getthingsector(getlocalplayerthing()) == R_sector)
  135.                     //     {
  136.                     //     print("Activated R sector");
  137.                     //     call handle_r;
  138.                     //     }    
  139.                }
  140.           }
  141.      
  142.     return;
  143.  
  144.  
  145. taken:
  146.     print("taken");
  147.     printint(r_spindle1);
  148.     printint(getsenderid());
  149.  
  150.     // Taken gets called when the user attempts to take a gear from left or right of the gear assembly.    
  151.         if (rotate == 0)
  152.         {
  153.         if (GetSenderId() == 3)
  154.             {
  155.             //    The Gear Assembly was activated
  156.                 if (l_spindle != 0)
  157.                     {
  158.                     // inc the bin to add it back to the inv, destroy the environment one ans set l_spindle to 0.
  159.                     ChangeInv(getlocalplayerthing(), l_spindle, 1);
  160.                     destroything(l_spindle_i);
  161.                     l_spindle = 0;        
  162.                     call update_bins;
  163.                     }
  164.                 else
  165.                     {
  166.                     // TELL THE PLAYER THERE'S NOTHING TO TAKE
  167.                                        //  //There's nothing to take
  168.                     timermode = 2;
  169.                     settimer(10);
  170.                     }
  171.             }
  172.           if (GetSenderId() == 4) 
  173.                 {
  174.                 //=================== Player is on the Small gear side of the gear assembly
  175.                 if (r_spindle1 != 0)    //if the top spindle (1) has something on it.
  176.                     {
  177.                     ChangeInv(getlocalplayerthing(), r_spindle1, 1);
  178.                     destroything(r_spindle1_i);
  179.                     r_spindle1 = 0;        
  180.                     call update_bins;
  181.                     }
  182.  
  183.                 
  184.                 else     //else there's nothing on this side. Both spindles are empty.
  185.                     {
  186.                                        //  //There's nothing to take
  187.                     timermode = 2;
  188.                     settimer(10);
  189.                     }
  190.                 }
  191.         }
  192.     return;
  193. start_motor:
  194.      if ((l_spindle != 27) && (r_spindle != 25))
  195.           {   //nothing's on
  196.           l_spindle_d = 0;
  197.           r_spindle1_d = 0;
  198.           call rotate_gears;
  199.           timermode =1;
  200.           settimer(7);
  201.           }     
  202.  
  203.     else if ((l_spindle == 27) && (r_spindle1 == 25))
  204.           {    // large in left, small in right
  205.           l_spindle_d = -7; 
  206.           r_spindle1_d = 7;
  207.           call rotate_gears;
  208.           timermode =1;
  209.           settimer(7);
  210.           }
  211.           
  212.      else if ((l_spindle == 25) && (r_spindle1 != 25))
  213.           {    // only small in left
  214.           l_spindle_d = 0;
  215.           r_spindle1_d = 0;
  216.           call rotate_gears;
  217.           timermode =1;
  218.           settimer(7);
  219.           }
  220.           
  221.      else if ((l_spindle == 27) && (r_spindle1 != 25))
  222.           {    // only large in left
  223.           l_spindle_d = -7;
  224.           r_spindle1_d = 0;
  225.           call rotate_gears;
  226.           timermode =1;
  227.           settimer(7);
  228.           }          
  229.  
  230.      else if ((l_spindle !=27) && (r_spindle1 == 25))
  231.           {    // only small in right
  232.           l_spindle_d = 0;
  233.           r_spindle1_d = 0;
  234.           call rotate_gears;
  235.           timermode =1;
  236.           settimer(7);
  237.           }
  238.           
  239.      return;
  240. rotate_gears:
  241.     //This routine starts the gears a spinnin'. After they're goin', continue_gears is used to keep the thing spinning.
  242.     rotate = 1;
  243.     //RotatePivot(screw0, 1, 1);
  244.     RotatePivot(gear_bot, 1, 7);
  245.     print("Rotates!");
  246.     printint(l_spindle_d);
  247.     if (!(l_spindle_d == 0.0))     RotatePivot(l_spindle_i,     1,     l_spindle_d);
  248.     if (!(r_spindle1_d == 0.0))    RotatePivot(r_spindle1_i,     1,     r_spindle1_d);
  249.      playsoundlocal(gearstart, 1, 0, 0);
  250.      turngearsi=playsoundthing(turngears, gear_bot, 1, -1, -1, 0x1);
  251.     return;
  252.     
  253. //continue_gears:
  254. //    printint(getsenderid());
  255. //     if (!(l_spindle_d == 0.0))     RotatePivot(l_spindle_i,     1,     l_spindle_d);
  256. //    if (!(r_spindle1_d == 0.0))    RotatePivot(r_spindle1_i,     1,     r_spindle1_d);
  257. //    if (getsenderid() == 11)         RotatePivot(gear_bot,         1,     3);
  258. //    return;
  259.  
  260. stop_gears:
  261.     //this routine stops all motion of the gears when it's called.       Hopefully. Otherwise, well. Otherwise.     
  262.     stopsound(turngearsi, 0.2);
  263.      playsoundlocal(gearstop, 1, 0, 0);
  264.      stopthing(r_spindle1_i);
  265.      stopthing(l_spindle_i);  
  266.     stopthing(gear_bot);
  267.     rotate = 0;
  268.      return;
  269.  
  270. handle_l:
  271.         // handle_l is used to put gears on the left side of the assembly. handle_r is for the right. Taken handles removing gears.
  272.     //playsoundlocal(gearon, 1, 0, 0);
  273.      print("handle_l:");
  274.     if (l_spindle == 0)        //if the spindle is empty
  275.         {
  276.         //============ Add whatever you gots to the spindle
  277.         if ((dwGetActivateBin() > 24) && (dwGetActivateBin() < 28))    // if it's one of the gears that's being used
  278.             {
  279.             l_spindle = dwGetActivateBin();
  280.             
  281.             // Next l_spindle is queried to figure out what gear is going to be created. Then it's created    
  282.             if (l_spindle == 25)
  283.                 {
  284.                 print("gear small");
  285.                 l_spindle_i = creatething(gear_small_t, l_spindle_g);
  286.                     //if (show_once < 2)
  287.                     //     {
  288.                     //     dwplaycammyspeech(16153, "TGCA033.wav", 5, 2);  //nicely done!                  
  289.                     //          if (show_once == 1) show_once = 2;
  290.                     //     }
  291.                 }
  292.             
  293.                else if (l_spindle == 27)
  294.                 {
  295.                 l_spindle_i = creatething(gear_large_t, l_spindle_g);
  296.                 print("gear large");
  297.                     if (show_once < 2)
  298.                          {
  299.                          dwplaycammyspeech(16153, "TGCA033.wav", 5, 2);  //nicely done!
  300.                               if (show_once == 1) show_once = 2;
  301.                          }
  302.                 }
  303.                         // finally we decrement the bin that was activated. 
  304.             ChangeInv(getlocalplayerthing(), l_spindle, -1);
  305.                playsoundlocal(gearon, 1, 0, 0);
  306.             call update_bins;
  307.                         }
  308.                 }
  309.     else
  310.         {
  311.                 // TELL THE PLAYER THERE'S SOMETHING ON THE SPINDLE ALREADY
  312.                 //dwsetmissiontext(17304); //There's something on the spindle already!
  313.         timermode = 2;
  314.         settimer(10); 
  315.         }
  316.         
  317.     return;
  318.  
  319. handle_r:
  320.     // handle_r controls putting gears on the right side of the assemebly. handle_l is the left side. Taken controls removing gears for both l and r. 
  321.     //playsoundlocal(gearon, 1, 0, 0);
  322.      print("handle_r:");
  323.         // check the top spindle 
  324.         if (r_spindle1 == 0)        //if the top spindle has something on it
  325.             {
  326.             //============ This section controls the upper spindle only (r_spindle1). 
  327.             if (dwGetActivateBin() == 25)    // if it's the small gear
  328.                 {
  329.                 // check the comments from handle_l for info on the creation process of a gear. Then check with Doug
  330.                 r_spindle1 = dwGetActivateBin();
  331.                 r_spindle1_i = creatething(gear_small_t, r_spindle1_g);
  332.                     playsoundlocal(gearon, 1, 0, 0);
  333.                 ChangeInv(getlocalplayerthing(), r_spindle1, -1);
  334.                 call update_bins;
  335.                     }
  336.             } 
  337.     return;
  338. # ............................................... .........................................
  339.  
  340. timer:
  341.         if (timermode == 1) //Will turn off the gears.
  342.         {
  343.           call stop_gears;
  344.         rotate = 0;
  345.         }
  346.     else if (timermode == 2) //will clear Cammy's text
  347.         {
  348.           //dwsetmissiontext(00000); //clear Cammy's text
  349.         }    
  350.     return;
  351.     
  352. update_bins:
  353.     // this is a utility routine used to turn on and off availability of items. Just until Jon adds it into DW for reals.
  354.       //playsoundlocal(gearoff, 1, 0, 0);  
  355.      if ( getinv(getlocalplayerthing(),25) > 0) 
  356.           {
  357.           SetInvAvailable(getlocalplayerthing(), 25, 1); //if the sm. bin has more than 0 turn on the inv icon; 
  358.           playsoundlocal(gearoff, 1, 0, 0);
  359.           }
  360.           
  361.     else 
  362.           {
  363.           SetInvAvailable(getlocalplayerthing(), 25, 0);    // else turn it off;
  364.           }          
  365.        
  366.      if ( getinv(getlocalplayerthing(),27) > 0) 
  367.           {
  368.           SetInvAvailable(getlocalplayerthing(), 27, 1); //if the lg. bin has more than 0 turn on the inv icon; 
  369.           playsoundlocal(gearoff, 1, 0, 0);
  370.           }     
  371.      
  372.     else 
  373.           {
  374.           SetInvAvailable(getlocalplayerthing(), 27, 0);    // else turn it off;
  375.           }
  376.           
  377.     return;
  378. end
  379.  
  380.