gearhead (1.100-2) longint_movement

Index: gearhead-1.100/movement.pp
===================================================================
--- gearhead-1.100.orig/movement.pp	2010-02-10 20:58:59.000000000 +0200
+++ gearhead-1.100/movement.pp	2010-02-10 21:00:25.000000000 +0200
@@ -315,10 +315,10 @@
 	CalcRoll := spd;
 end;
 
-function CalcSkim( Mek: GearPtr ): Integer;
+function CalcSkim( Mek: GearPtr ): LongInt;
 	{ Calculate the base hovering speed for this mecha. }
 var
-	mass,thrust,spd: Integer;
+	mass,thrust,spd: LongInt;
 begin
 	if Mek^.G = GG_Mecha then begin
 		{ Calculate the mass... }
@@ -354,13 +354,13 @@
 	CalcSkim := spd;
 end;
 
-function CalcFly( Mek: GearPtr; TrueSpeed: Boolean ): Integer;
+function CalcFly( Mek: GearPtr; TrueSpeed: Boolean ): LongInt;
 	{ Calculate the base flight speed for this mecha. }
 	{ Set TRUESPEED to TRUE if you want the actual speed of the }
 	{ mecha, or to FALSE if you want its projected speed (needed }
 	{ to calculate jumpjet time- see below. }
 var
-	mass,thrust,spd,WingPoints: Integer;
+	mass,thrust,spd,WingPoints: LongInt;
 begin
 	if Mek^.G = GG_Mecha then begin
 		{ Calculate the mass... }
@@ -425,10 +425,10 @@
 	CalcFly := spd;
 end;
 
-Function OverchargeBonus( Master: GearPtr ): Integer;
+Function OverchargeBonus( Master: GearPtr ): LongInt;
 	{ Overchargers add a bonus to a mek's FULLSPEED action. }
 var
-	mass,thrust,it,T,SF: Integer;
+	mass,thrust,it,T,SF: LongInt;
 begin
 	mass := GearMass( Master );
 	thrust := CountActivePoints( Master , GG_MoveSys , GS_Overchargers );