uWorld
authorunc0rr
Wed, 17 Nov 2010 22:19:58 +0300
changeset 4369 334fc848e051
parent 4368 b89235e401e5
child 4370 d1d5c1a57a50
uWorld
hedgewars/uConsole.pas
hedgewars/uIO.pas
hedgewars/uVariables.pas
hedgewars/uWorld.pas
--- a/hedgewars/uConsole.pas	Wed Nov 17 22:14:41 2010 +0300
+++ b/hedgewars/uConsole.pas	Wed Nov 17 22:19:58 2010 +0300
@@ -37,7 +37,7 @@
 procedure doPut(putX, putY: LongInt; fromAI: boolean);
 
 implementation
-uses uMisc, uStore, Types, uConsts, uGears, uTeams, uIO, uKeys, uWorld, uMobile,
+uses uMisc, uStore, Types, uConsts, uGears, uTeams, uIO, uKeys, uMobile,
      uRandom, uAmmos, uStats, uChat, SDLh, uSound, uVisualGears, uScript, uTypes,
      uVariables;
 
--- a/hedgewars/uIO.pas	Wed Nov 17 22:14:41 2010 +0300
+++ b/hedgewars/uIO.pas	Wed Nov 17 22:19:58 2010 +0300
@@ -42,7 +42,7 @@
 procedure NetGetNextCmd;
 
 implementation
-uses uConsole, uConsts, uWorld, uMisc, uLand, uChat, uTeams, uTypes, uVariables;
+uses uConsole, uConsts, uMisc, uLand, uChat, uTeams, uTypes, uVariables;
 
 type PCmd = ^TCmd;
      TCmd = packed record
--- a/hedgewars/uVariables.pas	Wed Nov 17 22:14:41 2010 +0300
+++ b/hedgewars/uVariables.pas	Wed Nov 17 22:19:58 2010 +0300
@@ -2013,6 +2013,20 @@
     CurMinAngle, CurMaxAngle: Longword;
     GameOver: boolean;
 
+    FollowGear: PGear;
+    WindBarWidth: LongInt;
+    bShowAmmoMenu: boolean;
+    bSelected: boolean;
+    bShowFinger: boolean;
+    Frames: Longword;
+    WaterColor, DeepWaterColor: TSDL_Color;
+    SkyOffset: LongInt;
+    HorizontOffset: LongInt;
+{$IFDEF COUNTTICKS}
+    cntTicks: LongWord;
+{$ENDIF}
+    cOffsetY: LongInt;
+
 
 procedure initModule;
 procedure freeModule;
--- a/hedgewars/uWorld.pas	Wed Nov 17 22:14:41 2010 +0300
+++ b/hedgewars/uWorld.pas	Wed Nov 17 22:19:58 2010 +0300
@@ -22,21 +22,6 @@
 interface
 uses SDLh, uGears, uConsts, uFloat, uRandom, uTypes;
 
-
-var FollowGear: PGear;
-    WindBarWidth: LongInt;
-    bShowAmmoMenu: boolean;
-    bSelected: boolean;
-    bShowFinger: boolean;
-    Frames: Longword;
-    WaterColor, DeepWaterColor: TSDL_Color;
-    SkyOffset: LongInt;
-    HorizontOffset: LongInt;
-{$IFDEF COUNTTICKS}
-    cntTicks: LongWord;
-{$ENDIF}
-    cOffsetY: LongInt;
-
 procedure initModule;
 procedure freeModule;