Get rid of unused Surface parameter
authorunc0rr
Tue, 27 May 2008 14:32:55 +0000
changeset 956 19003f7fc174
parent 955 474afaab0365
child 957 ba340a727909
Get rid of unused Surface parameter
hedgewars/hwengine.dpr
hedgewars/uGears.pas
hedgewars/uWorld.pas
--- a/hedgewars/hwengine.dpr	Tue May 27 14:30:48 2008 +0000
+++ b/hedgewars/hwengine.dpr	Tue May 27 14:32:55 2008 +0000
@@ -104,18 +104,18 @@
               ProcessKbd;
               DoGameTick(Lag);
               ProcessVisualGears(Lag);
-              DrawWorld(Lag, SDLPrimSurface);
+              DrawWorld(Lag);
               end;
    gsConsole: begin
               DoGameTick(Lag);
               ProcessVisualGears(Lag);
-              DrawWorld(Lag, SDLPrimSurface);
+              DrawWorld(Lag);
               DrawConsole(SDLPrimSurface);
               end;
       gsChat: begin
               DoGameTick(Lag);
               ProcessVisualGears(Lag);
-              DrawWorld(Lag, SDLPrimSurface);
+              DrawWorld(Lag);
               end;
       gsExit: begin
               OnDestroy;
--- a/hedgewars/uGears.pas	Tue May 27 14:30:48 2008 +0000
+++ b/hedgewars/uGears.pas	Tue May 27 14:32:55 2008 +0000
@@ -58,7 +58,7 @@
 procedure ProcessGears;
 procedure SetAllToActive;
 procedure SetAllHHToActive;
-procedure DrawGears(Surface: PSDL_Surface);
+procedure DrawGears;
 procedure FreeGearsList;
 procedure AddMiscGears;
 procedure AssignHHCoords;
@@ -694,7 +694,7 @@
         end;
 end;
 
-procedure DrawGears(Surface: PSDL_Surface);
+procedure DrawGears;
 var Gear, HHGear: PGear;
     i: Longword;
     roplen: LongInt;
--- a/hedgewars/uWorld.pas	Tue May 27 14:30:48 2008 +0000
+++ b/hedgewars/uWorld.pas	Tue May 27 14:32:55 2008 +0000
@@ -24,7 +24,7 @@
       WorldDy: LongInt = -256;
 
 procedure InitWorld;
-procedure DrawWorld(Lag: LongInt; Surface: PSDL_Surface);
+procedure DrawWorld(Lag: LongInt);
 procedure AddCaption(s: string; Color: Longword; Group: TCapGroup);
 
 {$IFDEF COUNTTICKS}
@@ -69,7 +69,7 @@
 AMxCurr:= cScreenWidth
 end;
 
-procedure ShowAmmoMenu(Surface: PSDL_Surface);
+procedure ShowAmmoMenu;
 const MENUSPEED = 15;
 var x, y, i, t: LongInt;
     Slot, Pos: LongInt;
@@ -151,7 +151,7 @@
 
 procedure MoveCamera; forward;
 
-procedure DrawWorld(Lag: LongInt; Surface: PSDL_Surface);
+procedure DrawWorld(Lag: LongInt);
 var i, t: LongInt;
     r: TSDL_Rect;
     tdx, tdy: Double;
@@ -213,7 +213,7 @@
    glEnable(GL_TEXTURE_2D)
    end;
 
-DrawGears(Surface);
+DrawGears;
 
 // Waves
 {$WARNINGS OFF}
@@ -331,7 +331,7 @@
    end;
 
 // AmmoMenu
-if (AMxCurr < cScreenWidth) or bShowAmmoMenu then ShowAmmoMenu(Surface);
+if (AMxCurr < cScreenWidth) or bShowAmmoMenu then ShowAmmoMenu;
 
 DrawChat;