hedgewars/uVariables.pas
branchhedgeroid
changeset 5655 44c2d19f79e2
parent 5644 4ad07103cfae
parent 5638 e35ba2a400d8
child 5725 e27100a0e2d0
--- a/hedgewars/uVariables.pas	Mon Aug 22 03:57:11 2011 +0200
+++ b/hedgewars/uVariables.pas	Wed Aug 24 12:34:37 2011 +0200
@@ -213,6 +213,17 @@
     cTagsMasks : array[0..15] of byte = (7, 0, 0, 0, 15, 6, 4, 5, 0, 0, 0, 0, 0, 14, 12, 13);
     cTagsMasksNoHealth: array[0..15] of byte = (3, 2, 11, 1, 0, 0, 0, 0, 0, 10, 0, 9, 0, 0, 0, 0);
 
+    VoiceList : array[0..7] of TVoice =  (
+                    ( snd: sndNone; voicepack: nil),
+                    ( snd: sndNone; voicepack: nil),
+                    ( snd: sndNone; voicepack: nil),
+                    ( snd: sndNone; voicepack: nil),
+                    ( snd: sndNone; voicepack: nil),
+                    ( snd: sndNone; voicepack: nil),
+                    ( snd: sndNone; voicepack: nil),
+                    ( snd: sndNone; voicepack: nil));
+    LastVoice : TVoice = ( snd: sndNone; voicepack: nil );
+
     Fontz: array[THWFont] of THHFont = (
             (Handle: nil;
             Height: 12;