hedgewars/uSound.pas
changeset 8370 0c79946e96f8
parent 8231 a41d84553ae8
child 8444 75db7bb8dce8
child 8471 7681d14b9f01
equal deleted inserted replaced
8369:31033e521653 8370:0c79946e96f8
   104 // Returns a pointer to the voicepack with the given name.
   104 // Returns a pointer to the voicepack with the given name.
   105 function  AskForVoicepack(name: shortstring): Pointer;
   105 function  AskForVoicepack(name: shortstring): Pointer;
   106 
   106 
   107 
   107 
   108 implementation
   108 implementation
   109 uses uVariables, uConsole, uUtils, uCommands, uDebug, uPhysFSLayer;
   109 uses uVariables, uConsole, uCommands, uDebug, uPhysFSLayer;
   110 
   110 
   111 const chanTPU = 32;
   111 const chanTPU = 32;
   112 var Volume: LongInt;
   112 var Volume: LongInt;
   113     cInitVolume: LongInt;
   113     cInitVolume: LongInt;
   114     previousVolume: LongInt; // cached volume value
   114     previousVolume: LongInt; // cached volume value