hedgewars/uVariables.pas
changeset 7201 dc17ffdf0702
parent 7197 5a9775b97c7e
child 7411 efc75c2d3be9
--- a/hedgewars/uVariables.pas	Fri Jun 08 19:25:40 2012 +0200
+++ b/hedgewars/uVariables.pas	Mon Jun 25 10:46:48 2012 +0300
@@ -64,6 +64,7 @@
     fastUntilLag    : boolean;
     autoCameraOn    : boolean;
 
+    CampaignVariable: shortstring;
     GameTicks       : LongWord;
     GameState       : TGameState;
     GameType        : TGameType;
@@ -179,6 +180,8 @@
     hiTicks: Word;
 
     LuaGoals        : shortstring;
+    hiddenHedgehogs : array [0..cMaxHHs] of PHedgehog;
+    hiddenHedgehogsNumber : longint;
 
     VoiceList : array[0..7] of TVoice =  (
                     ( snd: sndNone; voicepack: nil),
@@ -209,7 +212,7 @@
         '',                              // ptData
         'Graphics',                      // ptGraphics
         'Themes',                        // ptThemes
-        'Themes/avematan',               // ptCurrTheme
+        'Themes/Bamboo',                 // ptCurrTheme
         'Teams',                         // ptTeams
         'Maps',                          // ptMaps
         '',                              // ptMapCurrent
@@ -2614,6 +2617,7 @@
     GrayScale:= false;
 
     LuaGoals:= '';
+    hiddenHedgehogsNumber:=0;
 end;
 
 procedure freeModule;