diff -r 474afaab0365 -r 19003f7fc174 hedgewars/uGears.pas --- 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;