hedgewars: comparison hedgewars/uGears.pas

equal deleted inserted replaced

-:803b277e4894
+:3f21a9dc93d0
 interface
 uses SDLh, uConsts, uFloat;
 type
-	PGear = ^TGear;
+PGear = ^TGear;
-	TGearStepProcedure = procedure (Gear: PGear);
+TGearStepProcedure = procedure (Gear: PGear);
-	TGear = record
+TGear = record
-			NextGear, PrevGear: PGear;
+NextGear, PrevGear: PGear;
-			Active: Boolean;
+Active: Boolean;
-			Invulnerable: Boolean;
+Invulnerable: Boolean;
-			RenderTimer: Boolean;
+RenderTimer: Boolean;
-			Ammo : PAmmo;
+Ammo : PAmmo;
-			State : Longword;
+State : Longword;
-			X : hwFloat;
+X : hwFloat;
-			Y : hwFloat;
+Y : hwFloat;
-			dX: hwFloat;
+dX: hwFloat;
-			dY: hwFloat;
+dY: hwFloat;
-			Kind: TGearType;
+Kind: TGearType;
-			Pos: Longword;
+Pos: Longword;
-			doStep: TGearStepProcedure;
+doStep: TGearStepProcedure;
-			Radius: LongInt;
+Radius: LongInt;
-			Angle, Power : Longword;
+Angle, Power : Longword;
-			DirAngle: real;
+DirAngle: real;
-			Timer : LongWord;
+Timer : LongWord;
-			Elasticity: hwFloat;
+Elasticity: hwFloat;
-			Friction  : hwFloat;
+Friction  : hwFloat;
-			Message, MsgParam : Longword;
+Message, MsgParam : Longword;
-			Hedgehog: pointer;
+Hedgehog: pointer;
-			Health, Damage, Karma: LongInt;
+Health, Damage, Karma: LongInt;
-			CollisionIndex: LongInt;
+CollisionIndex: LongInt;
-			Tag: LongInt;
+Tag: LongInt;
-			Tex: PTexture;
+Tex: PTexture;
-			Z: Longword;
+Z: Longword;
-			IntersectGear: PGear;
+IntersectGear: PGear;
-			TriggerId: Longword;
+TriggerId: Longword;
-			FlightTime: Longword;
+FlightTime: Longword;
-			uid: Longword;
+uid: Longword;
-			SoundChannel: LongInt
+SoundChannel: LongInt
-		end;
+end;
 var AllInactive: boolean;
 PrvInactive: boolean;
 CurAmmoGear: PGear;
 GearsList: PGear;
 function ModifyDamage(dmg: Longword; Gear: PGear): Longword;
 procedure FindPlace(var Gear: PGear; withFall: boolean; Left, Right: LongInt);
 implementation
 uses uWorld, uMisc, uStore, uConsole, uSound, uTeams, uRandom, uCollisions, uLand, uIO, uLandGraphics,
-	uAIMisc, uLocale, uAI, uAmmos, uTriggers, uStats, uVisualGears, uScript,
+uAIMisc, uLocale, uAI, uAmmos, uTriggers, uStats, uVisualGears, uScript,
 {$IFDEF GLES11}
-	gles11;
+gles11;
 {$ELSE}
-	GL;
+GL;
 {$ENDIF}
 const MAXROPEPOINTS = 384;
 var RopePoints: record
 Count: Longword;
 {$INCLUDE "GSHandlers.inc"}
 {$INCLUDE "HHHandlers.inc"}
 const doStepHandlers: array[TGearType] of TGearStepProcedure = (
-			@doStepBomb,
+@doStepBomb,
-			@doStepHedgehog,
+@doStepHedgehog,
-			@doStepGrenade,
+@doStepGrenade,
-			@doStepHealthTag,
+@doStepHealthTag,
-			@doStepGrave,
+@doStepGrave,
-			@doStepUFO,
+@doStepUFO,
-			@doStepShotgunShot,
+@doStepShotgunShot,
-			@doStepPickHammer,
+@doStepPickHammer,
-			@doStepRope,
+@doStepRope,
-			@doStepSmokeTrace,
+@doStepSmokeTrace,
-			@doStepExplosion,
+@doStepExplosion,
-			@doStepMine,
+@doStepMine,
-			@doStepCase,
+@doStepCase,
-			@doStepDEagleShot,
+@doStepDEagleShot,
-			@doStepDynamite,
+@doStepDynamite,
-			@doStepBomb,
+@doStepBomb,
-			@doStepCluster,
+@doStepCluster,
-			@doStepShover,
+@doStepShover,
-			@doStepFlame,
+@doStepFlame,
-			@doStepFirePunch,
+@doStepFirePunch,
-			@doStepActionTimer,
+@doStepActionTimer,
-			@doStepActionTimer,
+@doStepActionTimer,
-			@doStepActionTimer,
+@doStepActionTimer,
-			@doStepParachute,
+@doStepParachute,
-			@doStepAirAttack,
+@doStepAirAttack,
-			@doStepAirBomb,
+@doStepAirBomb,
-			@doStepBlowTorch,
+@doStepBlowTorch,
-			@doStepGirder,
+@doStepGirder,
-			@doStepTeleport,
+@doStepTeleport,
-			@doStepSwitcher,
+@doStepSwitcher,
-			@doStepTarget,
+@doStepTarget,
-			@doStepMortar,
+@doStepMortar,
-			@doStepWhip,
+@doStepWhip,
-			@doStepKamikaze,
+@doStepKamikaze,
-			@doStepCake,
+@doStepCake,
-			@doStepSeduction,
+@doStepSeduction,
-			@doStepWatermelon,
+@doStepWatermelon,
-			@doStepCluster,
+@doStepCluster,
-			@doStepBomb,
+@doStepBomb,
-			@doStepSmokeTrace,
+@doStepSmokeTrace,
-			@doStepWaterUp,
+@doStepWaterUp,
-			@doStepDrill,
+@doStepDrill,
-			@doStepBallgun,
+@doStepBallgun,
-			@doStepBomb,
+@doStepBomb,
-			@doStepRCPlane,
+@doStepRCPlane,
-			@doStepSniperRifleShot,
+@doStepSniperRifleShot,
-			@doStepJetpack,
+@doStepJetpack,
-			@doStepMolotov,
+@doStepMolotov,
-			@doStepCase
+@doStepCase
-			);
+);
 procedure InsertGearToList(Gear: PGear);
 var tmp, ptmp: PGear;
 begin
 if GearsList = nil then
-	GearsList:= Gear
+GearsList:= Gear
-	else begin
+else begin
-	tmp:= GearsList;
+tmp:= GearsList;
-	ptmp:= GearsList;
+ptmp:= GearsList;
-	while (tmp <> nil) and (tmp^.Z <= Gear^.Z) do
+while (tmp <> nil) and (tmp^.Z <= Gear^.Z) do
-		begin
+begin
-		ptmp:= tmp;
+ptmp:= tmp;
-		tmp:= tmp^.NextGear
+tmp:= tmp^.NextGear
-		end;
+end;
-	if ptmp <> nil then
+if ptmp <> nil then
-		begin
+begin
-		Gear^.NextGear:= ptmp^.NextGear;
+Gear^.NextGear:= ptmp^.NextGear;
-		Gear^.PrevGear:= ptmp;
+Gear^.PrevGear:= ptmp;
-		if ptmp^.NextGear <> nil then ptmp^.NextGear^.PrevGear:= Gear;
+if ptmp^.NextGear <> nil then ptmp^.NextGear^.PrevGear:= Gear;
-		ptmp^.NextGear:= Gear
+ptmp^.NextGear:= Gear
-		end
+end
-	else GearsList:= Gear
+else GearsList:= Gear
-	end
+end
 end;
 procedure RemoveGearFromList(Gear: PGear);
 begin
 if Gear^.NextGear <> nil then Gear^.NextGear^.PrevGear:= Gear^.PrevGear;
 if Gear^.PrevGear <> nil then
-	Gear^.PrevGear^.NextGear:= Gear^.NextGear
+Gear^.PrevGear^.NextGear:= Gear^.NextGear
 else
-	GearsList:= Gear^.NextGear
+GearsList:= Gear^.NextGear
 end;
 function AddGear(X, Y: LongInt; Kind: TGearType; State: Longword; dX, dY: hwFloat; Timer: LongWord): PGear;
 const Counter: Longword = 0;
 var gear: PGear;
 gear^.FlightTime:= 0;
 gear^.uid:= Counter;
 gear^.SoundChannel:= -1;
 if CurrentTeam <> nil then
-	begin
+begin
-	gear^.Hedgehog:= CurrentHedgehog;
+gear^.Hedgehog:= CurrentHedgehog;
-	gear^.IntersectGear:= CurrentHedgehog^.Gear
+gear^.IntersectGear:= CurrentHedgehog^.Gear
-	end;
+end;
 case Kind of
 gtAmmo_Bomb,
 gtClusterBomb: begin
 gear^.Radius:= 4;
 gtFlame: begin
 gear^.Tag:= GetRandom(32);
 gear^.Radius:= 1;
 gear^.Health:= 5;
 if (gear^.dY.QWordValue = 0) and (gear^.dX.QWordValue = 0) then
-	begin
+begin
-	gear^.dY:= (getrandom - _0_8) * _0_03;
+gear^.dY:= (getrandom - _0_8) * _0_03;
-	gear^.dX:= (getrandom - _0_5) * _0_4
+gear^.dX:= (getrandom - _0_5) * _0_4
-	end
+end
 end;
 gtFirePunch: begin
 gear^.Radius:= 15;
 gear^.Tag:= Y
 end;
 gear^.Z:= cCurrHHZ
 end;
 gtTarget: begin
 gear^.Radius:= 10;
 gear^.Elasticity:= _0_3;
-				gear^.Timer:= 0
+gear^.Timer:= 0
 end;
 gtMortar: begin
 gear^.Radius:= 4;
 gear^.Elasticity:= _0_2;
 gear^.Friction:= _0_08
 ScriptCall('onGearAdd', gear^.uid);
 end;
 procedure DeleteGear(Gear: PGear);
 var team: PTeam;
-	t,i: Longword;
+t,i: Longword;
 k: boolean;
 begin
 ScriptCall('onGearDelete', gear^.uid);
 DeleteCI(Gear);
 if Gear^.Tex <> nil then
-	begin
+begin
-	FreeTexture(Gear^.Tex);
+FreeTexture(Gear^.Tex);
-	Gear^.Tex:= nil
+Gear^.Tex:= nil
-	end;
+end;
 if Gear^.Kind = gtHedgehog then
-	if (CurAmmoGear <> nil) and (CurrentHedgehog^.Gear = Gear) then
+if (CurAmmoGear <> nil) and (CurrentHedgehog^.Gear = Gear) then
-		begin
+begin
-		Gear^.Message:= gm_Destroy;
+Gear^.Message:= gm_Destroy;
-		CurAmmoGear^.Message:= gm_Destroy;
+CurAmmoGear^.Message:= gm_Destroy;
-		exit
+exit
-		end
+end
-	else
+else
-		begin
+begin
-		if (hwRound(Gear^.Y) >= cWaterLine) then
+if (hwRound(Gear^.Y) >= cWaterLine) then
-			begin
+begin
-			t:= max(Gear^.Damage, Gear^.Health);
+t:= max(Gear^.Damage, Gear^.Health);
-			Gear^.Damage:= t;
+Gear^.Damage:= t;
 if cWaterOpacity < $FF then
-			    AddGear(hwRound(Gear^.X), min(hwRound(Gear^.Y),cWaterLine+cVisibleWater+32), gtHealthTag, t, _0, _0, 0)^.Hedgehog:= Gear^.Hedgehog;
+AddGear(hwRound(Gear^.X), min(hwRound(Gear^.Y),cWaterLine+cVisibleWater+32), gtHealthTag, t, _0, _0, 0)^.Hedgehog:= Gear^.Hedgehog;
-			uStats.HedgehogDamaged(Gear)
+uStats.HedgehogDamaged(Gear)
-			end;
+end;
-		team:= PHedgehog(Gear^.Hedgehog)^.Team;
+team:= PHedgehog(Gear^.Hedgehog)^.Team;
-		if CurrentHedgehog^.Gear = Gear then
+if CurrentHedgehog^.Gear = Gear then
-			FreeActionsList; // to avoid ThinkThread on drawned gear
+FreeActionsList; // to avoid ThinkThread on drawned gear
-		PHedgehog(Gear^.Hedgehog)^.Gear:= nil;
+PHedgehog(Gear^.Hedgehog)^.Gear:= nil;
 if PHedgehog(Gear^.Hedgehog)^.King then
 begin
 // are there any other kings left? Just doing nil check.  Presumably a mortally wounded king will get reaped soon enough
 k:= false;
 for i:= 0 to Pred(team^.Clan^.TeamsNumber) do
 if (team^.Clan^.Teams[i]^.Hedgehogs[0].Gear <> nil) then k:= true;
 if not k then
 for i:= 0 to Pred(team^.Clan^.TeamsNumber) do
 TeamGoneEffect(team^.Clan^.Teams[i]^)
 end;
-		inc(KilledHHs);
+inc(KilledHHs);
-		RecountTeamHealth(team)
+RecountTeamHealth(team)
-		end;
+end;
 {$IFDEF DEBUGFILE}
 with Gear^ do AddFileLog('Delete: #' + inttostr(uid) + ' (' + inttostr(hwRound(x)) + ',' + inttostr(hwRound(y)) + '), d(' + floattostr(dX) + ',' + floattostr(dY) + ') type = ' + inttostr(ord(Kind)));
 {$ENDIF}
 if Gear^.TriggerId <> 0 then TickTrigger(Gear^.TriggerId);
 dmg: LongInt;
 begin
 CheckNoDamage:= true;
 Gear:= GearsList;
 while Gear <> nil do
-	begin
+begin
-	if Gear^.Kind = gtHedgehog then
+if Gear^.Kind = gtHedgehog then
-		begin
+begin
-		if (not isInMultiShoot) then inc(Gear^.Damage, Gear^.Karma);
+if (not isInMultiShoot) then inc(Gear^.Damage, Gear^.Karma);
-		if (Gear^.Damage <> 0) and
+if (Gear^.Damage <> 0) and
-		(not Gear^.Invulnerable) then
+(not Gear^.Invulnerable) then
-			begin
+begin
-			CheckNoDamage:= false;
+CheckNoDamage:= false;
-			uStats.HedgehogDamaged(Gear);
+uStats.HedgehogDamaged(Gear);
-			dmg:= Gear^.Damage;
+dmg:= Gear^.Damage;
-			if Gear^.Health < dmg then
+if Gear^.Health < dmg then
-				Gear^.Health:= 0
+Gear^.Health:= 0
-			else
+else
-				dec(Gear^.Health, dmg);
+dec(Gear^.Health, dmg);
 if (PHedgehog(Gear^.Hedgehog)^.Team = CurrentTeam) and
 (Gear^.Damage <> Gear^.Karma) and
 not PHedgehog(Gear^.Hedgehog)^.King and
 not SuddenDeathDmg then
 Gear^.State:= Gear^.State or gstLoser;
-			AddGear(hwRound(Gear^.X), hwRound(Gear^.Y) - cHHRadius - 12,
+AddGear(hwRound(Gear^.X), hwRound(Gear^.Y) - cHHRadius - 12,
-					gtHealthTag, dmg, _0, _0, 0)^.Hedgehog:= Gear^.Hedgehog;
+gtHealthTag, dmg, _0, _0, 0)^.Hedgehog:= Gear^.Hedgehog;
-			RenderHealth(PHedgehog(Gear^.Hedgehog)^);
+RenderHealth(PHedgehog(Gear^.Hedgehog)^);
-			RecountTeamHealth(PHedgehog(Gear^.Hedgehog)^.Team);
+RecountTeamHealth(PHedgehog(Gear^.Hedgehog)^.Team);
-			end;
+end;
-		if (not isInMultiShoot) then Gear^.Karma:= 0;
+if (not isInMultiShoot) then Gear^.Karma:= 0;
-		Gear^.Damage:= 0
+Gear^.Damage:= 0
-		end;
+end;
-	Gear:= Gear^.NextGear
+Gear:= Gear^.NextGear
-	end;
+end;
 SuddenDeathDmg:= false;
 end;
 procedure HealthMachine;
 var Gear: PGear;
 flag: Boolean;
 begin
 Gear:= GearsList;
 while Gear <> nil do
-	begin
+begin
-	if Gear^.Kind = gtHedgehog then
+if Gear^.Kind = gtHedgehog then
 begin
-		inc(Gear^.Damage, min(cHealthDecrease, max(0,Gear^.Health - 1 - Gear^.Damage)));
+inc(Gear^.Damage, min(cHealthDecrease, max(0,Gear^.Health - 1 - Gear^.Damage)));
 if PHedgehog(Gear^.Hedgehog)^.King then
 begin
 flag:= false;
-		    team:= PHedgehog(Gear^.Hedgehog)^.Team;
+team:= PHedgehog(Gear^.Hedgehog)^.Team;
 for i:= 0 to Pred(team^.HedgehogsNumber) do
 if (team^.Hedgehogs[i].Gear <> nil) and
 (not team^.Hedgehogs[i].King) and
 (team^.Hedgehogs[i].Gear^.Health > team^.Hedgehogs[i].Gear^.Damage) then flag:= true;
 if not flag then inc(Gear^.Damage, min(5, max(0,Gear^.Health - 1 - Gear^.Damage)))
 end
 end;
-	Gear:= Gear^.NextGear
+Gear:= Gear^.NextGear
-	end;
+end;
 end;
 procedure ProcessGears;
 const delay: LongWord = 0;
-	step: (stDelay, stChDmg, stSweep, stTurnReact,
+step: (stDelay, stChDmg, stSweep, stTurnReact,
-			stAfterDelay, stChWin, stWater, stChWin2, stHealth,
+stAfterDelay, stChWin, stWater, stChWin2, stHealth,
-			stSpawn, stNTurn) = stDelay;
+stSpawn, stNTurn) = stDelay;
 var Gear, t: PGear;
 begin
 PrvInactive:= AllInactive;
 AllInactive:= true;
 if (StepSoundTimer > 0) and (StepSoundChannel < 0) then
-	begin
+begin
-	WriteLnToConsole('playsteps ...');
+WriteLnToConsole('playsteps ...');
-	StepSoundChannel:= LoopSound(sndSteps)
+StepSoundChannel:= LoopSound(sndSteps)
-	end
+end
 else if (StepSoundTimer = 0) and (StepSoundChannel > -1) then
-	begin
+begin
-	WriteLnToConsole('stopsteps ...');
+WriteLnToConsole('stopsteps ...');
-	StopSound(StepSoundChannel);
+StopSound(StepSoundChannel);
-	StepSoundChannel:= -1;
+StepSoundChannel:= -1;
-	end;
+end;
 if StepSoundTimer > 0 then
-	dec(StepSoundTimer, 1);
+dec(StepSoundTimer, 1);
 t:= GearsList;
 while t <> nil do
-	begin
+begin
-	Gear:= t;
+Gear:= t;
-	t:= Gear^.NextGear;
+t:= Gear^.NextGear;
-	if Gear^.Active then
+if Gear^.Active then
 begin
 if Gear^.RenderTimer and (Gear^.Timer > 500) and ((Gear^.Timer mod 1000) = 0) then
 begin
 if Gear^.Tex <> nil then FreeTexture(Gear^.Tex);
 Gear^.Tex:= RenderStringTex(inttostr(Gear^.Timer div 1000), cWhiteColor, fntSmall);
 end;
 Gear^.doStep(Gear);
 end
-	end;
+end;
 if AllInactive then
 case step of
-	stDelay: begin
+stDelay: begin
-		if delay = 0 then
+if delay = 0 then
-			delay:= cInactDelay
+delay:= cInactDelay
-		else
+else
-			dec(delay);
+dec(delay);
-		if delay = 0 then
+if delay = 0 then
-			inc(step)
+inc(step)
-		end;
+end;
-	stChDmg: if CheckNoDamage then inc(step) else step:= stDelay;
+stChDmg: if CheckNoDamage then inc(step) else step:= stDelay;
-	stSweep: if SweepDirty then
+stSweep: if SweepDirty then
-				begin
+begin
-				SetAllToActive;
+SetAllToActive;
-				step:= stChDmg
+step:= stChDmg
-				end else inc(step);
+end else inc(step);
-	stTurnReact: begin
+stTurnReact: begin
-		if (not bBetweenTurns) and (not isInMultiShoot) then
+if (not bBetweenTurns) and (not isInMultiShoot) then
-			begin
+begin
-			uStats.TurnReaction;
+uStats.TurnReaction;
-			inc(step)
+inc(step)
-		end else
+end else
-			inc(step, 2);
+inc(step, 2);
-		end;
+end;
-	stAfterDelay: begin
+stAfterDelay: begin
-		if delay = 0 then
+if delay = 0 then
-			delay:= cInactDelay
+delay:= cInactDelay
-		else
+else
-			dec(delay);
+dec(delay);
-		if delay = 0 then
+if delay = 0 then
-		inc(step)
+inc(step)
-		end;
+end;
-	stChWin: begin
+stChWin: begin
-			CheckForWin;
+CheckForWin;
-			inc(step)
+inc(step)
-			end;
+end;
-	stWater: if (not bBetweenTurns) and (not isInMultiShoot) then
+stWater: if (not bBetweenTurns) and (not isInMultiShoot) then
-				begin
+begin
-				if TotalRounds = cSuddenDTurns + 2 then bWaterRising:= true;
+if TotalRounds = cSuddenDTurns + 2 then bWaterRising:= true;
-				if bWaterRising then
+if bWaterRising then
-				AddGear(0, 0, gtWaterUp, 0, _0, _0, 0);
+AddGear(0, 0, gtWaterUp, 0, _0, _0, 0);
-				inc(step)
+inc(step)
-				end else inc(step);
+end else inc(step);
-	stChWin2: begin
+stChWin2: begin
-			CheckForWin;
+CheckForWin;
-			inc(step)
+inc(step)
-			end;
+end;
-	stHealth: begin
+stHealth: begin
-			if (TotalRounds = cSuddenDTurns) and (cHealthDecrease = 0) then
+if (TotalRounds = cSuddenDTurns) and (cHealthDecrease = 0) then
-				begin
+begin
-				cHealthDecrease:= 5;
+cHealthDecrease:= 5;
-				AddCaption(trmsg[sidSuddenDeath], cWhiteColor, capgrpGameState);
+AddCaption(trmsg[sidSuddenDeath], cWhiteColor, capgrpGameState);
-				playSound(sndSuddenDeath)
+playSound(sndSuddenDeath)
-				end;
+end;
-			if bBetweenTurns
+if bBetweenTurns
-				or isInMultiShoot
+or isInMultiShoot
-				or (TotalRounds = 0) then inc(step)
+or (TotalRounds = 0) then inc(step)
-			else begin
+else begin
-				bBetweenTurns:= true;
+bBetweenTurns:= true;
-				HealthMachine;
+HealthMachine;
 if cHealthDecrease > 0 then SuddenDeathDmg:= true;
-				step:= stChDmg
+step:= stChDmg
-				end
+end
-			end;
+end;
-	stSpawn: begin
+stSpawn: begin
-			if not isInMultiShoot then SpawnBoxOfSmth;
+if not isInMultiShoot then SpawnBoxOfSmth;
-			inc(step)
+inc(step)
-			end;
+end;
-	stNTurn: begin
+stNTurn: begin
-			if isInMultiShoot then
+if isInMultiShoot then
-				isInMultiShoot:= false
+isInMultiShoot:= false
-			else begin
+else begin
-				// delayed till after 0.9.12
+// delayed till after 0.9.12
-				// reset to default zoom
+// reset to default zoom
-				//ZoomValue:= ZoomDefault;
+//ZoomValue:= ZoomDefault;
-				with CurrentHedgehog^ do
+with CurrentHedgehog^ do
-					if (Gear <> nil)
+if (Gear <> nil)
 and ((Gear^.State and gstAttacked) = 0)
-						and (MultiShootAttacks > 0) then OnUsedAmmo(CurrentHedgehog^);
+and (MultiShootAttacks > 0) then OnUsedAmmo(CurrentHedgehog^);
-				ResetUtilities;
+ResetUtilities;
-				FreeActionsList; // could send -left, -right and similar commands, so should be called before /nextturn
+FreeActionsList; // could send -left, -right and similar commands, so should be called before /nextturn
-				ParseCommand('/nextturn', true);
+ParseCommand('/nextturn', true);
-				SwitchHedgehog;
+SwitchHedgehog;
-				AfterSwitchHedgehog;
+AfterSwitchHedgehog;
-				bBetweenTurns:= false
+bBetweenTurns:= false
-				end;
+end;
-			step:= Low(step)
+step:= Low(step)
-			end;
+end;
-	end;
+end;
 if TurnTimeLeft > 0 then
-		if CurrentHedgehog^.Gear <> nil then
+if CurrentHedgehog^.Gear <> nil then
-			if ((CurrentHedgehog^.Gear^.State and gstAttacking) = 0)
+if ((CurrentHedgehog^.Gear^.State and gstAttacking) = 0)
-				and not isInMultiShoot then
+and not isInMultiShoot then
-				begin
+begin
-				if (TurnTimeLeft = 5000)
+if (TurnTimeLeft = 5000)
 and (not PlacingHogs)
-					and (CurrentHedgehog^.Gear <> nil)
+and (CurrentHedgehog^.Gear <> nil)
-					and ((CurrentHedgehog^.Gear^.State and gstAttacked) = 0) then
+and ((CurrentHedgehog^.Gear^.State and gstAttacked) = 0) then
-						PlaySound(sndHurry, CurrentTeam^.voicepack);
+PlaySound(sndHurry, CurrentTeam^.voicepack);
-				dec(TurnTimeLeft)
+dec(TurnTimeLeft)
-				end;
+end;
 if skipFlag then
-	begin
+begin
-	TurnTimeLeft:= 0;
+TurnTimeLeft:= 0;
-	skipFlag:= false
+skipFlag:= false
-	end;
+end;
 if ((GameTicks and $FFFF) = $FFFF) then
-	begin
+begin
-	if (not CurrentTeam^.ExtDriven) then
+if (not CurrentTeam^.ExtDriven) then
-		SendIPCTimeInc;
+SendIPCTimeInc;
-	if (not CurrentTeam^.ExtDriven) or CurrentTeam^.hasGone then
+if (not CurrentTeam^.ExtDriven) or CurrentTeam^.hasGone then
-		inc(hiTicks) // we do not recieve a message for this
+inc(hiTicks) // we do not recieve a message for this
-	end;
+end;
 inc(GameTicks)
 end;
 //Purpose, to reset all transient attributes toggled by a utility.
 end;
 procedure ApplyDamage(Gear: PGear; Damage: Longword);
 var s: shortstring;
 vampDmg, tmpDmg, i: Longword;
-	vg: PVisualGear;
+vg: PVisualGear;
 begin
-	if (Gear^.Kind = gtHedgehog) and (Damage>=1) then
+if (Gear^.Kind = gtHedgehog) and (Damage>=1) then
 begin
-	AddDamageTag(hwRound(Gear^.X), hwRound(Gear^.Y), Damage, PHedgehog(Gear^.Hedgehog)^.Team^.Clan^.Color);
+AddDamageTag(hwRound(Gear^.X), hwRound(Gear^.Y), Damage, PHedgehog(Gear^.Hedgehog)^.Team^.Clan^.Color);
 tmpDmg:= min(Damage, max(0,Gear^.Health-Gear^.Damage));
 if (Gear <> CurrentHedgehog^.Gear) and (CurrentHedgehog^.Gear <> nil) and (tmpDmg >= 1) then
 begin
 if cVampiric then
 begin
 str(vampDmg, s);
 s:= '+' + s;
 AddCaption(s, CurrentHedgehog^.Team^.Clan^.Color, capgrpAmmoinfo);
 RenderHealth(CurrentHedgehog^);
 RecountTeamHealth(CurrentHedgehog^.Team);
-				i:= 0;
+i:= 0;
-				while i < vampDmg do
+while i < vampDmg do
-					begin
+begin
-					vg:= AddVisualGear(hwRound(CurrentHedgehog^.Gear^.X), hwRound(CurrentHedgehog^.Gear^.Y), vgtHealth);
+vg:= AddVisualGear(hwRound(CurrentHedgehog^.Gear^.X), hwRound(CurrentHedgehog^.Gear^.Y), vgtHealth);
-					if vg <> nil then vg^.Frame:= 10;
+if vg <> nil then vg^.Frame:= 10;
-					inc(i, 5);
+inc(i, 5);
-					end;
+end;
 end
 end;
 if ((GameFlags and gfKarma) <> 0) and
 ((GameFlags and gfInvulnerable) = 0) and
 not CurrentHedgehog^.Gear^.Invulnerable then
 hwRound(CurrentHedgehog^.Gear^.Y),
 gtHealthTag, tmpDmg, _0, _0, 0)^.Hedgehog:= CurrentHedgehog;
 end;
 end;
 end;
-	inc(Gear^.Damage, Damage);
+inc(Gear^.Damage, Damage);
 end;
 procedure SetAllToActive;
 var t: PGear;
 begin
 AllInactive:= false;
 t:= GearsList;
 while t <> nil do
-	begin
+begin
-	t^.Active:= true;
+t^.Active:= true;
-	t:= t^.NextGear
+t:= t^.NextGear
-	end
+end
 end;
 procedure SetAllHHToActive;
 var t: PGear;
 begin
 AllInactive:= false;
 t:= GearsList;
 while t <> nil do
-	begin
+begin
-	if t^.Kind = gtHedgehog then t^.Active:= true;
+if t^.Kind = gtHedgehog then t^.Active:= true;
-	t:= t^.NextGear
+t:= t^.NextGear
-	end
+end
 end;
 procedure DrawAltWeapon(Gear: PGear; sx, sy: LongInt);
 begin
 with PHedgehog(Gear^.Hedgehog)^ do
-	begin
+begin
-	if not (((Ammoz[Ammo^[CurSlot, CurAmmo].AmmoType].Ammo.Propz and ammoprop_AltUse) <> 0) and ((Gear^.State and gstAttacked) = 0)) then
+if not (((Ammoz[Ammo^[CurSlot, CurAmmo].AmmoType].Ammo.Propz and ammoprop_AltUse) <> 0) and ((Gear^.State and gstAttacked) = 0)) then
-		exit;
+exit;
-	DrawTexture(round(sx + 16), round(sy + 16), ropeIconTex);
+DrawTexture(round(sx + 16), round(sy + 16), ropeIconTex);
-	DrawTextureF(SpritesData[sprAMAmmos].Texture, 0.75, round(sx + 30), round(sy + 30), ord(Ammo^[CurSlot, CurAmmo].AmmoType) - 1, 1, 32, 32);
+DrawTextureF(SpritesData[sprAMAmmos].Texture, 0.75, round(sx + 30), round(sy + 30), ord(Ammo^[CurSlot, CurAmmo].AmmoType) - 1, 1, 32, 32);
-	end;
+end;
 end;
 procedure DrawHH(Gear: PGear);
 var i, t: LongInt;
-	amt: TAmmoType;
+amt: TAmmoType;
-	hx, hy, cx, cy, tx, ty, sx, sy, m: LongInt;  // hedgehog, crosshair, temp, sprite, direction
+hx, hy, cx, cy, tx, ty, sx, sy, m: LongInt;  // hedgehog, crosshair, temp, sprite, direction
-	lx, ly, dx, dy, ax, ay, aAngle, dAngle, hAngle: real;  // laser, change
+lx, ly, dx, dy, ax, ay, aAngle, dAngle, hAngle: real;  // laser, change
-	defaultPos, HatVisible: boolean;
+defaultPos, HatVisible: boolean;
-	VertexBuffer: array [0..1] of TVertex2f;
+VertexBuffer: array [0..1] of TVertex2f;
 begin
 if PHedgehog(Gear^.Hedgehog)^.Unplaced then exit;
 m:= 1;
 if ((Gear^.State and gstHHHJump) <> 0) and not cArtillery then m:= -1;
 if (Gear^.State and gstHHDeath) <> 0 then
-	begin
+begin
-	DrawSprite(sprHHDeath, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 26 + WorldDy, Gear^.Pos);
+DrawSprite(sprHHDeath, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 26 + WorldDy, Gear^.Pos);
-	exit
+exit
-	end;
+end;
 defaultPos:= true;
 HatVisible:= false;
 sx:= hwRound(Gear^.X) + 1 + WorldDx;
 sy:= hwRound(Gear^.Y) - 3 + WorldDy;
 if ((Gear^.State and gstWinner) <> 0) and
 ((CurAmmoGear = nil) or (CurAmmoGear^.Kind <> gtPickHammer)) then
-	begin
+begin
-	DrawHedgehog(sx, sy,
+DrawHedgehog(sx, sy,
-			hwSign(Gear^.dX),
+hwSign(Gear^.dX),
-			2,
+2,
-			0,
+0,
-			0);
+0);
-	defaultPos:= false
+defaultPos:= false
-	end;
+end;
 if (Gear^.State and gstDrowning) <> 0 then
-	begin
+begin
-	DrawHedgehog(sx, sy,
+DrawHedgehog(sx, sy,
-			hwSign(Gear^.dX),
+hwSign(Gear^.dX),
-			1,
+1,
-			7,
+7,
-			0);
+0);
-	defaultPos:= false
+defaultPos:= false
-	end else
+end else
 if (Gear^.State and gstLoser) <> 0 then // for now using the jackhammer for its kind of bemused "oops" look
-	begin
+begin
-	DrawHedgehog(sx, sy,
+DrawHedgehog(sx, sy,
-			hwSign(Gear^.dX),
+hwSign(Gear^.dX),
-			2,
+2,
-			3,
+3,
-			0);
+0);
-	defaultPos:= false
+defaultPos:= false
-	end else
+end else
 if (Gear^.State and gstHHDriven) <> 0 then
-	begin
+begin
-	if ((Gear^.State and gstHHThinking) = 0) and
+if ((Gear^.State and gstHHThinking) = 0) and
 ShowCrosshair and
 ((Gear^.State and (gstAttacked or gstAnimation)) = 0) then
-		begin
+begin
 (* These calculations are a little complex for a few reasons:
 1: I need to draw the laser from weapon origin to nearest land
 2: I need to start the beam outside the hedgie for attractiveness.
 3: I need to extend the beam beyond land.
 This routine perhaps should be pushed into uStore or somesuch instead of continuuing the increase in size of this function.
 *)
-		dx:= hwSign(Gear^.dX) * m * Sin(Gear^.Angle * pi / cMaxAngle);
+dx:= hwSign(Gear^.dX) * m * Sin(Gear^.Angle * pi / cMaxAngle);
-		dy:= - Cos(Gear^.Angle * pi / cMaxAngle);
+dy:= - Cos(Gear^.Angle * pi / cMaxAngle);
-		if cLaserSighting then
+if cLaserSighting then
-			begin
+begin
-			lx:= hwRound(Gear^.X);
+lx:= hwRound(Gear^.X);
-			ly:= hwRound(Gear^.Y);
+ly:= hwRound(Gear^.Y);
-			lx:= lx + dx * 16;
+lx:= lx + dx * 16;
-			ly:= ly + dy * 16;
+ly:= ly + dy * 16;
-			ax:= dx * 4;
+ax:= dx * 4;
-			ay:= dy * 4;
+ay:= dy * 4;
-			tx:= round(lx);
+tx:= round(lx);
-			ty:= round(ly);
+ty:= round(ly);
-			hx:= tx;
+hx:= tx;
-			hy:= ty;
+hy:= ty;
-			while ((ty and LAND_HEIGHT_MASK) = 0) and
+while ((ty and LAND_HEIGHT_MASK) = 0) and
-				((tx and LAND_WIDTH_MASK) = 0) and
+((tx and LAND_WIDTH_MASK) = 0) and
-				(Land[ty, tx] = 0) do
+(Land[ty, tx] = 0) do
-				begin
+begin
-				lx:= lx + ax;
+lx:= lx + ax;
-				ly:= ly + ay;
+ly:= ly + ay;
-				tx:= round(lx);
+tx:= round(lx);
-				ty:= round(ly)
+ty:= round(ly)
-				end;
+end;
-			// reached edge of land. assume infinite beam. Extend it way out past camera
+// reached edge of land. assume infinite beam. Extend it way out past camera
-			if ((ty and LAND_HEIGHT_MASK) <> 0) or ((tx and LAND_WIDTH_MASK) <> 0) then
+if ((ty and LAND_HEIGHT_MASK) <> 0) or ((tx and LAND_WIDTH_MASK) <> 0) then
-				begin
+begin
-				tx:= round(lx + ax * (LAND_WIDTH div 4));
+tx:= round(lx + ax * (LAND_WIDTH div 4));
-				ty:= round(ly + ay * (LAND_WIDTH div 4));
+ty:= round(ly + ay * (LAND_WIDTH div 4));
-				end;
+end;
-			//if (abs(lx-tx)>8) or (abs(ly-ty)>8) then
+//if (abs(lx-tx)>8) or (abs(ly-ty)>8) then
-				begin
+begin
-				glDisable(GL_TEXTURE_2D);
+glDisable(GL_TEXTURE_2D);
-				glEnable(GL_LINE_SMOOTH);
+glEnable(GL_LINE_SMOOTH);
-				glLineWidth(1.0);
+glLineWidth(1.0);
-				glColor4ub($FF, $00, $00, $C0);
+glColor4ub($FF, $00, $00, $C0);
-				VertexBuffer[0].X:= hx + WorldDx;
+VertexBuffer[0].X:= hx + WorldDx;
-				VertexBuffer[0].Y:= hy + WorldDy;
+VertexBuffer[0].Y:= hy + WorldDy;
-				VertexBuffer[1].X:= tx + WorldDx;
+VertexBuffer[1].X:= tx + WorldDx;
-				VertexBuffer[1].Y:= ty + WorldDy;
+VertexBuffer[1].Y:= ty + WorldDy;
-				glEnableClientState(GL_VERTEX_ARRAY);
+glEnableClientState(GL_VERTEX_ARRAY);
-				glVertexPointer(2, GL_FLOAT, 0, @VertexBuffer[0]);
+glVertexPointer(2, GL_FLOAT, 0, @VertexBuffer[0]);
-				glDrawArrays(GL_LINES, 0, Length(VertexBuffer));
+glDrawArrays(GL_LINES, 0, Length(VertexBuffer));
-				glColor4f(1, 1, 1, 1);
+glColor4f(1, 1, 1, 1);
-				glEnable(GL_TEXTURE_2D);
+glEnable(GL_TEXTURE_2D);
-				glDisable(GL_LINE_SMOOTH);
+glDisable(GL_LINE_SMOOTH);
-				end;
+end;
-			end;
+end;
-		// draw crosshair
+// draw crosshair
-		cx:= Round(hwRound(Gear^.X) + dx * 80);
+cx:= Round(hwRound(Gear^.X) + dx * 80);
-		cy:= Round(hwRound(Gear^.Y) + dy * 80);
+cy:= Round(hwRound(Gear^.Y) + dy * 80);
-		DrawRotatedTex(PHedgehog(Gear^.Hedgehog)^.Team^.CrosshairTex,
+DrawRotatedTex(PHedgehog(Gear^.Hedgehog)^.Team^.CrosshairTex,
-				12, 12, cx + WorldDx, cy + WorldDy, 0,
+12, 12, cx + WorldDx, cy + WorldDy, 0,
-				hwSign(Gear^.dX) * (Gear^.Angle * 180.0) / cMaxAngle);
+hwSign(Gear^.dX) * (Gear^.Angle * 180.0) / cMaxAngle);
-		end;
+end;
-	hx:= hwRound(Gear^.X) + 1 + 8 * hwSign(Gear^.dX) + WorldDx;
+hx:= hwRound(Gear^.X) + 1 + 8 * hwSign(Gear^.dX) + WorldDx;
-	hy:= hwRound(Gear^.Y) - 2 + WorldDy;
+hy:= hwRound(Gear^.Y) - 2 + WorldDy;
-	aangle:= Gear^.Angle * 180 / cMaxAngle - 90;
+aangle:= Gear^.Angle * 180 / cMaxAngle - 90;
-	if CurAmmoGear <> nil then
+if CurAmmoGear <> nil then
-	begin
+begin
-		case CurAmmoGear^.Kind of
+case CurAmmoGear^.Kind of
-			gtShotgunShot: begin
+gtShotgunShot: begin
-					if (CurAmmoGear^.State and gstAnimation <> 0) then
+if (CurAmmoGear^.State and gstAnimation <> 0) then
-						DrawRotated(sprShotgun, hx, hy, hwSign(Gear^.dX), aangle)
+DrawRotated(sprShotgun, hx, hy, hwSign(Gear^.dX), aangle)
-					else
+else
-						DrawRotated(sprHandShotgun, hx, hy, hwSign(Gear^.dX), aangle);
+DrawRotated(sprHandShotgun, hx, hy, hwSign(Gear^.dX), aangle);
-				end;
+end;
-			gtDEagleShot: DrawRotated(sprDEagle, hx, hy, hwSign(Gear^.dX), aangle);
+gtDEagleShot: DrawRotated(sprDEagle, hx, hy, hwSign(Gear^.dX), aangle);
-			gtSniperRifleShot: begin
+gtSniperRifleShot: begin
-					if (CurAmmoGear^.State and gstAnimation <> 0) then
+if (CurAmmoGear^.State and gstAnimation <> 0) then
-			            DrawRotatedF(sprSniperRifle, hx, hy, 1, hwSign(Gear^.dX), aangle)
+DrawRotatedF(sprSniperRifle, hx, hy, 1, hwSign(Gear^.dX), aangle)
-					else
+else
-			            DrawRotatedF(sprSniperRifle, hx, hy, 0, hwSign(Gear^.dX), aangle)
+DrawRotatedF(sprSniperRifle, hx, hy, 0, hwSign(Gear^.dX), aangle)
-				end;
+end;
-			gtBallgun: DrawRotated(sprHandBallgun, hx, hy, hwSign(Gear^.dX), aangle);
+gtBallgun: DrawRotated(sprHandBallgun, hx, hy, hwSign(Gear^.dX), aangle);
-			gtRCPlane: begin
+gtRCPlane: begin
-				DrawRotated(sprHandPlane, hx, hy, hwSign(Gear^.dX), 0);
+DrawRotated(sprHandPlane, hx, hy, hwSign(Gear^.dX), 0);
-				defaultPos:= false
+defaultPos:= false
-				end;
+end;
-			gtRope: begin
+gtRope: begin
-				if Gear^.X < CurAmmoGear^.X then
+if Gear^.X < CurAmmoGear^.X then
-					begin
+begin
-					dAngle:= 0;
+dAngle:= 0;
-					hAngle:= 180;
+hAngle:= 180;
-					i:= 1
+i:= 1
-					end else
+end else
-					begin
+begin
-					dAngle:= 180;
+dAngle:= 180;
-					hAngle:= 0;
+hAngle:= 0;
-					i:= -1
+i:= -1
-					end;
+end;
 sx:= hwRound(Gear^.X) + WorldDx;
 sy:= hwRound(Gear^.Y) + WorldDy;
 if ((Gear^.State and gstWinner) = 0) then
 begin
 DrawHedgehog(sx, sy,
 with PHedgehog(Gear^.Hedgehog)^ do
 if (HatTex <> nil) then
 DrawRotatedTextureF(HatTex, 1.0, -1.0, -6.0, sx, sy, 0, i, 32, 32,
 i*DxDy2Angle(CurAmmoGear^.dY, CurAmmoGear^.dX) + hAngle);
 end;
-				DrawAltWeapon(Gear, sx, sy);
+DrawAltWeapon(Gear, sx, sy);
-				defaultPos:= false
+defaultPos:= false
-				end;
+end;
-			gtBlowTorch: begin
+gtBlowTorch: begin
-				DrawRotated(sprBlowTorch, hx, hy, hwSign(Gear^.dX), aangle);
+DrawRotated(sprBlowTorch, hx, hy, hwSign(Gear^.dX), aangle);
-				DrawHedgehog(sx, sy,
+DrawHedgehog(sx, sy,
-						hwSign(Gear^.dX),
+hwSign(Gear^.dX),
-						3,
+3,
-						PHedgehog(Gear^.Hedgehog)^.visStepPos div 2,
+PHedgehog(Gear^.Hedgehog)^.visStepPos div 2,
-						0);
+0);
 with PHedgehog(Gear^.Hedgehog)^ do
 if (HatTex <> nil) then
 DrawTextureF(HatTex,
 1,
 sx,
 hwRound(Gear^.Y) - 8 + WorldDy,
 0,
 hwSign(Gear^.dX),
 32,
 32);
-				defaultPos:= false
+defaultPos:= false
-				end;
+end;
-			gtShover: DrawRotated(sprHandBaseball, hx, hy, hwSign(Gear^.dX), aangle + 180);
+gtShover: DrawRotated(sprHandBaseball, hx, hy, hwSign(Gear^.dX), aangle + 180);
-			gtFirePunch: begin
+gtFirePunch: begin
-				DrawHedgehog(sx, sy,
+DrawHedgehog(sx, sy,
-						hwSign(Gear^.dX),
+hwSign(Gear^.dX),
-						1,
+1,
-						4,
+4,
-						0);
+0);
-				defaultPos:= false
+defaultPos:= false
-				end;
+end;
-			gtPickHammer: begin
+gtPickHammer: begin
 defaultPos:= false;
 dec(sy,20);
 end;
-			gtTeleport: defaultPos:= false;
+gtTeleport: defaultPos:= false;
-			gtWhip: begin
+gtWhip: begin
-				DrawRotatedF(sprWhip,
+DrawRotatedF(sprWhip,
-						sx,
+sx,
-						sy,
+sy,
-						1,
+1,
-						hwSign(Gear^.dX),
+hwSign(Gear^.dX),
-						0);
+0);
-				defaultPos:= false
+defaultPos:= false
-				end;
+end;
-			gtKamikaze: begin
+gtKamikaze: begin
-				if CurAmmoGear^.Pos = 0 then
+if CurAmmoGear^.Pos = 0 then
-					DrawHedgehog(sx, sy,
+DrawHedgehog(sx, sy,
-							hwSign(Gear^.dX),
+hwSign(Gear^.dX),
-							1,
+1,
-							6,
+6,
-							0)
+0)
-				else
+else
-					DrawRotatedF(sprKamikaze,
+DrawRotatedF(sprKamikaze,
-							hwRound(Gear^.X) + WorldDx,
+hwRound(Gear^.X) + WorldDx,
-							hwRound(Gear^.Y) + WorldDy,
+hwRound(Gear^.Y) + WorldDy,
-							CurAmmoGear^.Pos - 1,
+CurAmmoGear^.Pos - 1,
-							hwSign(Gear^.dX),
+hwSign(Gear^.dX),
-							aangle);
+aangle);
-				defaultPos:= false
+defaultPos:= false
-				end;
+end;
-			gtSeduction: begin
+gtSeduction: begin
-				if CurAmmoGear^.Pos >= 6 then
+if CurAmmoGear^.Pos >= 6 then
-					DrawHedgehog(sx, sy,
+DrawHedgehog(sx, sy,
-							hwSign(Gear^.dX),
+hwSign(Gear^.dX),
-							2,
+2,
-							2,
+2,
-							0)
+0)
-				else
+else
-					begin
+begin
-					DrawRotatedF(sprDress,
+DrawRotatedF(sprDress,
-							hwRound(Gear^.X) + WorldDx,
+hwRound(Gear^.X) + WorldDx,
-							hwRound(Gear^.Y) + WorldDy,
+hwRound(Gear^.Y) + WorldDy,
-							CurAmmoGear^.Pos,
+CurAmmoGear^.Pos,
-							hwSign(Gear^.dX),
+hwSign(Gear^.dX),
-							0);
+0);
-					DrawSprite(sprCensored, hwRound(Gear^.X) - 32 + WorldDx, hwRound(Gear^.Y) - 20 + WorldDy, 0)
+DrawSprite(sprCensored, hwRound(Gear^.X) - 32 + WorldDx, hwRound(Gear^.Y) - 20 + WorldDy, 0)
-					end;
+end;
-				defaultPos:= false
+defaultPos:= false
-				end;
+end;
-		end;
+end;
-		case CurAmmoGear^.Kind of
+case CurAmmoGear^.Kind of
-			gtShotgunShot,
+gtShotgunShot,
-			gtDEagleShot,
+gtDEagleShot,
-			gtSniperRifleShot,
+gtSniperRifleShot,
-			gtShover: begin
+gtShover: begin
-				DrawHedgehog(sx, sy,
+DrawHedgehog(sx, sy,
-						hwSign(Gear^.dX),
+hwSign(Gear^.dX),
-						0,
+0,
-						4,
+4,
-						0);
+0);
-				defaultPos:= false;
+defaultPos:= false;
-				HatVisible:= true
+HatVisible:= true
-			end
+end
-		end
+end
-	end else
+end else
-	if ((Gear^.State and gstHHJumping) <> 0) then
+if ((Gear^.State and gstHHJumping) <> 0) then
-	begin
+begin
 DrawHedgehog(sx, sy,
 hwSign(Gear^.dX)*m,
 1,
 1,
 0);
-	HatVisible:= true;
+HatVisible:= true;
-	defaultPos:= false
+defaultPos:= false
-	end else
+end else
-	if (Gear^.Message and (gm_Left or gm_Right) <> 0) and (not isCursorVisible) then
+if (Gear^.Message and (gm_Left or gm_Right) <> 0) and (not isCursorVisible) then
-		begin
+begin
-		DrawHedgehog(sx, sy,
+DrawHedgehog(sx, sy,
-			hwSign(Gear^.dX),
+hwSign(Gear^.dX),
-			0,
+0,
-			PHedgehog(Gear^.Hedgehog)^.visStepPos div 2,
+PHedgehog(Gear^.Hedgehog)^.visStepPos div 2,
-			0);
+0);
-		defaultPos:= false;
+defaultPos:= false;
-		HatVisible:= true
+HatVisible:= true
-		end
+end
-	else
+else
-	if ((Gear^.State and gstAnimation) <> 0) then
+if ((Gear^.State and gstAnimation) <> 0) then
-		begin
+begin
-		DrawRotatedF(Wavez[TWave(Gear^.Tag)].Sprite,
+DrawRotatedF(Wavez[TWave(Gear^.Tag)].Sprite,
-				sx,
+sx,
-				sy,
+sy,
-				Gear^.Pos,
+Gear^.Pos,
-				hwSign(Gear^.dX),
+hwSign(Gear^.dX),
-				0.0);
+0.0);
-		defaultPos:= false
+defaultPos:= false
-		end
+end
-	else
+else
-	if ((Gear^.State and gstAttacked) = 0) then
+if ((Gear^.State and gstAttacked) = 0) then
-	begin
+begin
-		amt:= CurrentHedgehog^.Ammo^[CurrentHedgehog^.CurSlot, CurrentHedgehog^.CurAmmo].AmmoType;
+amt:= CurrentHedgehog^.Ammo^[CurrentHedgehog^.CurSlot, CurrentHedgehog^.CurAmmo].AmmoType;
-		case amt of
+case amt of
-			amBazooka,
+amBazooka,
-			amMortar: DrawRotated(sprHandBazooka, hx, hy, hwSign(Gear^.dX), aangle);
+amMortar: DrawRotated(sprHandBazooka, hx, hy, hwSign(Gear^.dX), aangle);
-			amMolotov: DrawRotated(sprHandMolotov, hx, hy, hwSign(Gear^.dX), aangle);
+amMolotov: DrawRotated(sprHandMolotov, hx, hy, hwSign(Gear^.dX), aangle);
-			amBallgun: DrawRotated(sprHandBallgun, hx, hy, hwSign(Gear^.dX), aangle);
+amBallgun: DrawRotated(sprHandBallgun, hx, hy, hwSign(Gear^.dX), aangle);
-			amDrill: DrawRotated(sprHandDrill, hx, hy, hwSign(Gear^.dX), aangle);
+amDrill: DrawRotated(sprHandDrill, hx, hy, hwSign(Gear^.dX), aangle);
-			amRope: DrawRotated(sprHandRope, hx, hy, hwSign(Gear^.dX), aangle);
+amRope: DrawRotated(sprHandRope, hx, hy, hwSign(Gear^.dX), aangle);
-			amShotgun: DrawRotated(sprHandShotgun, hx, hy, hwSign(Gear^.dX), aangle);
+amShotgun: DrawRotated(sprHandShotgun, hx, hy, hwSign(Gear^.dX), aangle);
-			amDEagle: DrawRotated(sprHandDEagle, hx, hy, hwSign(Gear^.dX), aangle);
+amDEagle: DrawRotated(sprHandDEagle, hx, hy, hwSign(Gear^.dX), aangle);
-			amSniperRifle: DrawRotatedF(sprSniperRifle, hx, hy, 0, hwSign(Gear^.dX), aangle);
+amSniperRifle: DrawRotatedF(sprSniperRifle, hx, hy, 0, hwSign(Gear^.dX), aangle);
-			amBlowTorch: DrawRotated(sprHandBlowTorch, hx, hy, hwSign(Gear^.dX), aangle);
+amBlowTorch: DrawRotated(sprHandBlowTorch, hx, hy, hwSign(Gear^.dX), aangle);
-			amRCPlane: begin
+amRCPlane: begin
-				DrawRotated(sprHandPlane, hx, hy, hwSign(Gear^.dX), 0);
+DrawRotated(sprHandPlane, hx, hy, hwSign(Gear^.dX), 0);
-				defaultPos:= false
+defaultPos:= false
-				end;
+end;
-			amGirder: begin
+amGirder: begin
 DrawSpriteClipped(sprGirder,
 sx-256,
 sy-256,
 LongInt(topY)+WorldDy,
 LongInt(rightX)+WorldDx,
 cWaterLine+WorldDy,
 LongInt(leftX)+WorldDx);
 end;
-		end;
+end;
-		case amt of
+case amt of
-			amAirAttack,
+amAirAttack,
-			amMineStrike: DrawRotated(sprHandAirAttack, sx, hwRound(Gear^.Y) + WorldDy, hwSign(Gear^.dX), 0);
+amMineStrike: DrawRotated(sprHandAirAttack, sx, hwRound(Gear^.Y) + WorldDy, hwSign(Gear^.dX), 0);
-			amPickHammer: DrawHedgehog(sx, sy,
+amPickHammer: DrawHedgehog(sx, sy,
-						hwSign(Gear^.dX),
+hwSign(Gear^.dX),
-						1,
+1,
-						2,
+2,
-						0);
+0);
-			amTeleport: DrawRotatedF(sprTeleport, sx, sy, 0, hwSign(Gear^.dX), 0);
+amTeleport: DrawRotatedF(sprTeleport, sx, sy, 0, hwSign(Gear^.dX), 0);
-			amKamikaze: DrawHedgehog(sx, sy,
+amKamikaze: DrawHedgehog(sx, sy,
-						hwSign(Gear^.dX),
+hwSign(Gear^.dX),
-						1,
+1,
-						5,
+5,
-						0);
+0);
-			amWhip: DrawRotatedF(sprWhip,
+amWhip: DrawRotatedF(sprWhip,
-						sx,
+sx,
-						sy,
+sy,
-						0,
+0,
-						hwSign(Gear^.dX),
+hwSign(Gear^.dX),
-						0);
+0);
-		else
+else
-			DrawHedgehog(sx, sy,
+DrawHedgehog(sx, sy,
-				hwSign(Gear^.dX),
+hwSign(Gear^.dX),
-				0,
+0,
-				4,
+4,
-				0);
+0);
-			HatVisible:= true;
+HatVisible:= true;
-			with PHedgehog(Gear^.Hedgehog)^ do
+with PHedgehog(Gear^.Hedgehog)^ do
-				if (HatTex <> nil)
+if (HatTex <> nil)
-				and (HatVisibility > 0) then
+and (HatVisibility > 0) then
-					DrawTextureF(HatTex,
+DrawTextureF(HatTex,
-						HatVisibility,
+HatVisibility,
-						sx,
+sx,
-						hwRound(Gear^.Y) - 8 + WorldDy,
+hwRound(Gear^.Y) - 8 + WorldDy,
-						0,
+0,
-						hwSign(Gear^.dX),
+hwSign(Gear^.dX),
-						32,
+32,
-						32);
+32);
-		end;
+end;
-		case amt of
+case amt of
-			amBaseballBat: DrawRotated(sprHandBaseball,
+amBaseballBat: DrawRotated(sprHandBaseball,
-					hwRound(Gear^.X) + 1 - 4 * hwSign(Gear^.dX) + WorldDx,
+hwRound(Gear^.X) + 1 - 4 * hwSign(Gear^.dX) + WorldDx,
-					hwRound(Gear^.Y) + 6 + WorldDy, hwSign(Gear^.dX), aangle);
+hwRound(Gear^.Y) + 6 + WorldDy, hwSign(Gear^.dX), aangle);
-		end;
+end;
-		defaultPos:= false
+defaultPos:= false
-	end;
+end;
 end else // not gstHHDriven
-	begin
+begin
-	if (Gear^.Damage > 0)
+if (Gear^.Damage > 0)
-	and (hwSqr(Gear^.dX) + hwSqr(Gear^.dY) > _0_003) then
+and (hwSqr(Gear^.dX) + hwSqr(Gear^.dY) > _0_003) then
-		begin
+begin
-		DrawHedgehog(sx, sy,
+DrawHedgehog(sx, sy,
-			hwSign(Gear^.dX),
+hwSign(Gear^.dX),
-			2,
+2,
-			1,
+1,
-			Gear^.DirAngle);
+Gear^.DirAngle);
-		defaultPos:= false
+defaultPos:= false
-		end else
+end else
-	if ((Gear^.State and gstHHJumping) <> 0) then
+if ((Gear^.State and gstHHJumping) <> 0) then
-		begin
+begin
-		DrawHedgehog(sx, sy,
+DrawHedgehog(sx, sy,
-			hwSign(Gear^.dX)*m,
+hwSign(Gear^.dX)*m,
-			1,
+1,
-			1,
+1,
-			0);
+0);
-		defaultPos:= false
+defaultPos:= false
-		end;
+end;
-	end;
+end;
 with PHedgehog(Gear^.Hedgehog)^ do
-	begin
+begin
-	if defaultPos then
+if defaultPos then
-		begin
+begin
-		DrawRotatedF(sprHHIdle,
+DrawRotatedF(sprHHIdle,
-			sx,
+sx,
-			sy,
+sy,
-			(RealTicks div 128 + Gear^.Pos) mod 19,
+(RealTicks div 128 + Gear^.Pos) mod 19,
-			hwSign(Gear^.dX),
+hwSign(Gear^.dX),
-			0);
+0);
-		HatVisible:= true;
+HatVisible:= true;
-		end;
+end;
-	if HatVisible then
+if HatVisible then
-		if HatVisibility < 1.0 then
+if HatVisibility < 1.0 then
-			HatVisibility:= HatVisibility + 0.2
+HatVisibility:= HatVisibility + 0.2
-		else
+else
-	else
+else
-		if HatVisibility > 0.0 then
+if HatVisibility > 0.0 then
-			HatVisibility:= HatVisibility - 0.2;
+HatVisibility:= HatVisibility - 0.2;
-	if (HatTex <> nil)
+if (HatTex <> nil)
-	and (HatVisibility > 0) then
+and (HatVisibility > 0) then
-		if DefaultPos then
+if DefaultPos then
-			DrawTextureF(HatTex,
+DrawTextureF(HatTex,
-				HatVisibility,
+HatVisibility,
-				sx,
+sx,
-				hwRound(Gear^.Y) - 8 + WorldDy,
+hwRound(Gear^.Y) - 8 + WorldDy,
-				(RealTicks div 128 + Gear^.Pos) mod 19,
+(RealTicks div 128 + Gear^.Pos) mod 19,
-				hwSign(Gear^.dX),
+hwSign(Gear^.dX),
-				32,
+32,
-				32)
+32)
-		else
+else
-			DrawTextureF(HatTex,
+DrawTextureF(HatTex,
-				HatVisibility,
+HatVisibility,
-				sx,
+sx,
-				hwRound(Gear^.Y) - 8 + WorldDy,
+hwRound(Gear^.Y) - 8 + WorldDy,
-				0,
+0,
-				hwSign(Gear^.dX)*m,
+hwSign(Gear^.dX)*m,
-				32,
+32,
-				32);
+32);
-	end;
+end;
 if (Gear^.State and gstHHDriven) <> 0 then
 begin
 (*    if (CurAmmoGear = nil) then
 begin
 amt:= CurrentHedgehog^.Ammo^[CurrentHedgehog^.CurSlot, CurrentHedgehog^.CurAmmo].AmmoType;
 end; *)
 if CurAmmoGear <> nil then
 begin
 case CurAmmoGear^.Kind of
 gtJetpack: begin
-	                   DrawSprite(sprJetpack, sx-32, sy-32, 0);
+DrawSprite(sprJetpack, sx-32, sy-32, 0);
-	                   if (CurAmmoGear^.MsgParam and gm_Up) <> 0 then DrawSprite(sprJetpack, sx-32, sy-32, 1);
+if (CurAmmoGear^.MsgParam and gm_Up) <> 0 then DrawSprite(sprJetpack, sx-32, sy-32, 1);
-	                   if (CurAmmoGear^.MsgParam and gm_Left) <> 0 then DrawSprite(sprJetpack, sx-32, sy-32, 2);
+if (CurAmmoGear^.MsgParam and gm_Left) <> 0 then DrawSprite(sprJetpack, sx-32, sy-32, 2);
-	                   if (CurAmmoGear^.MsgParam and gm_Right) <> 0 then DrawSprite(sprJetpack, sx-32, sy-32, 3);
+if (CurAmmoGear^.MsgParam and gm_Right) <> 0 then DrawSprite(sprJetpack, sx-32, sy-32, 3);
 if CurAmmoGear^.Tex <> nil then DrawCentered(sx, sy - 40, CurAmmoGear^.Tex);
-					   DrawAltWeapon(Gear, sx, sy)
+DrawAltWeapon(Gear, sx, sy)
 end;
 end;
 end
 end;
 with PHedgehog(Gear^.Hedgehog)^ do
-	begin
+begin
-	if ((Gear^.State and not gstWinner) = 0)
+if ((Gear^.State and not gstWinner) = 0)
-		or (bShowFinger and ((Gear^.State and gstHHDriven) <> 0)) then
+or (bShowFinger and ((Gear^.State and gstHHDriven) <> 0)) then
-		begin
+begin
-		t:= hwRound(Gear^.Y) - cHHRadius - 12 + WorldDy;
+t:= hwRound(Gear^.Y) - cHHRadius - 12 + WorldDy;
-		if (cTagsMask and htTransparent) <> 0 then
+if (cTagsMask and htTransparent) <> 0 then
-			glColor4f(1, 1, 1, 0.5);
+glColor4f(1, 1, 1, 0.5);
-		if ((cTagsMask and htHealth) <> 0) then
+if ((cTagsMask and htHealth) <> 0) then
-			begin
+begin
-			dec(t, HealthTagTex^.h + 2);
+dec(t, HealthTagTex^.h + 2);
-			DrawCentered(hwRound(Gear^.X) + WorldDx, t, HealthTagTex)
+DrawCentered(hwRound(Gear^.X) + WorldDx, t, HealthTagTex)
-			end;
+end;
-		if (cTagsMask and htName) <> 0 then
+if (cTagsMask and htName) <> 0 then
-			begin
+begin
-			dec(t, NameTagTex^.h + 2);
+dec(t, NameTagTex^.h + 2);
-			DrawCentered(hwRound(Gear^.X) + WorldDx, t, NameTagTex)
+DrawCentered(hwRound(Gear^.X) + WorldDx, t, NameTagTex)
-			end;
+end;
-		if (cTagsMask and htTeamName) <> 0 then
+if (cTagsMask and htTeamName) <> 0 then
-			begin
+begin
-			dec(t, Team^.NameTagTex^.h + 2);
+dec(t, Team^.NameTagTex^.h + 2);
-			DrawCentered(hwRound(Gear^.X) + WorldDx, t, Team^.NameTagTex)
+DrawCentered(hwRound(Gear^.X) + WorldDx, t, Team^.NameTagTex)
-			end;
+end;
-		if (cTagsMask and htTransparent) <> 0 then
+if (cTagsMask and htTransparent) <> 0 then
-			glColor4f(1, 1, 1, 1)
+glColor4f(1, 1, 1, 1)
-		end;
+end;
-	if (Gear^.State and gstHHDriven) <> 0 then // Current hedgehog
+if (Gear^.State and gstHHDriven) <> 0 then // Current hedgehog
-		begin
+begin
-		if bShowFinger and ((Gear^.State and gstHHDriven) <> 0) then
+if bShowFinger and ((Gear^.State and gstHHDriven) <> 0) then
-			DrawSprite(sprFinger, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 64 + WorldDy,
+DrawSprite(sprFinger, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 64 + WorldDy,
-						GameTicks div 32 mod 16);
+GameTicks div 32 mod 16);
-		if (Gear^.State and gstDrowning) = 0 then
+if (Gear^.State and gstDrowning) = 0 then
-			if (Gear^.State and gstHHThinking) <> 0 then
+if (Gear^.State and gstHHThinking) <> 0 then
-				DrawSprite(sprQuestion, hwRound(Gear^.X) - 10 + WorldDx, hwRound(Gear^.Y) - cHHRadius - 34 + WorldDy, 0)
+DrawSprite(sprQuestion, hwRound(Gear^.X) - 10 + WorldDx, hwRound(Gear^.Y) - cHHRadius - 34 + WorldDy, 0)
-		end
+end
-	end;
+end;
 if Gear^.Invulnerable then
 begin
 glColor4f(1, 1, 1, 0.25 + abs(1 - ((RealTicks div 2) mod 1500) / 750));
-	DrawSprite(sprInvulnerable, sx - 24, sy - 24, 0);
+DrawSprite(sprInvulnerable, sx - 24, sy - 24, 0);
-	glColor4f(1, 1, 1, 1);
+glColor4f(1, 1, 1, 1);
 end;
 if cVampiric and
 (CurrentHedgehog^.Gear <> nil) and
 (CurrentHedgehog^.Gear = Gear) then
 begin
 glColor4f(1, 1, 1, 0.25 + abs(1 - (RealTicks mod 1500) / 750));
 DrawSprite(sprVampiric, sx - 24, sy - 24, 0);
-	glColor4f(1, 1, 1, 1);
+glColor4f(1, 1, 1, 1);
 end;
 end;
 procedure DrawRopeLinesRQ(Gear: PGear);
 begin
 with RopePoints do
-	begin
+begin
-	rounded[Count].X:= hwRound(Gear^.X);
+rounded[Count].X:= hwRound(Gear^.X);
-	rounded[Count].Y:= hwRound(Gear^.Y);
+rounded[Count].Y:= hwRound(Gear^.Y);
-	rounded[Count + 1].X:= hwRound(PHedgehog(Gear^.Hedgehog)^.Gear^.X);
+rounded[Count + 1].X:= hwRound(PHedgehog(Gear^.Hedgehog)^.Gear^.X);
-	rounded[Count + 1].Y:= hwRound(PHedgehog(Gear^.Hedgehog)^.Gear^.Y);
+rounded[Count + 1].Y:= hwRound(PHedgehog(Gear^.Hedgehog)^.Gear^.Y);
-	end;
+end;
 if (RopePoints.Count > 0) or (Gear^.Elasticity.QWordValue > 0) then
-	begin
+begin
-	glDisable(GL_TEXTURE_2D);
+glDisable(GL_TEXTURE_2D);
-	//glEnable(GL_LINE_SMOOTH);
+//glEnable(GL_LINE_SMOOTH);
-	glPushMatrix;
+glPushMatrix;
-	glTranslatef(WorldDx, WorldDy, 0);
+glTranslatef(WorldDx, WorldDy, 0);
-	glLineWidth(4.0);
+glLineWidth(4.0);
-	glColor4f(0.8, 0.8, 0.8, 1);
+glColor4f(0.8, 0.8, 0.8, 1);
-	glEnableClientState(GL_VERTEX_ARRAY);
+glEnableClientState(GL_VERTEX_ARRAY);
-	glVertexPointer(2, GL_FLOAT, 0, @RopePoints.rounded[0]);
+glVertexPointer(2, GL_FLOAT, 0, @RopePoints.rounded[0]);
-	glDrawArrays(GL_LINE_STRIP, 0, RopePoints.Count + 2);
+glDrawArrays(GL_LINE_STRIP, 0, RopePoints.Count + 2);
-	glColor4f(1, 1, 1, 1);
+glColor4f(1, 1, 1, 1);
-	glPopMatrix;
+glPopMatrix;
-	glEnable(GL_TEXTURE_2D);
+glEnable(GL_TEXTURE_2D);
-	//glDisable(GL_LINE_SMOOTH)
+//glDisable(GL_LINE_SMOOTH)
-	end
+end
 end;
 procedure DrawRope(Gear: PGear);
 var roplen: LongInt;
-	i: Longword;
+i: Longword;
-	procedure DrawRopeLine(X1, Y1, X2, Y2: LongInt);
+procedure DrawRopeLine(X1, Y1, X2, Y2: LongInt);
-	var  eX, eY, dX, dY: LongInt;
+var  eX, eY, dX, dY: LongInt;
-		i, sX, sY, x, y, d: LongInt;
+i, sX, sY, x, y, d: LongInt;
-		b: boolean;
+b: boolean;
-	begin
+begin
-	if (X1 = X2) and (Y1 = Y2) then
+if (X1 = X2) and (Y1 = Y2) then
-	begin
+begin
-	//OutError('WARNING: zero length rope line!', false);
+//OutError('WARNING: zero length rope line!', false);
-	exit
+exit
-	end;
+end;
-	eX:= 0;
+eX:= 0;
-	eY:= 0;
+eY:= 0;
-	dX:= X2 - X1;
+dX:= X2 - X1;
-	dY:= Y2 - Y1;
+dY:= Y2 - Y1;
-	if (dX > 0) then sX:= 1
+if (dX > 0) then sX:= 1
-	else
+else
-	if (dX < 0) then
+if (dX < 0) then
-		begin
+begin
-		sX:= -1;
+sX:= -1;
-		dX:= -dX
+dX:= -dX
-		end else sX:= dX;
+end else sX:= dX;
-	if (dY > 0) then sY:= 1
+if (dY > 0) then sY:= 1
-	else
+else
-	if (dY < 0) then
+if (dY < 0) then
-		begin
+begin
-		sY:= -1;
+sY:= -1;
-		dY:= -dY
+dY:= -dY
-		end else sY:= dY;
+end else sY:= dY;
-		if (dX > dY) then d:= dX
+if (dX > dY) then d:= dX
-					else d:= dY;
+else d:= dY;
-		x:= X1;
+x:= X1;
-		y:= Y1;
+y:= Y1;
-		for i:= 0 to d do
+for i:= 0 to d do
-			begin
+begin
-			inc(eX, dX);
+inc(eX, dX);
-			inc(eY, dY);
+inc(eY, dY);
-			b:= false;
+b:= false;
-			if (eX > d) then
+if (eX > d) then
-				begin
+begin
-				dec(eX, d);
+dec(eX, d);
-				inc(x, sX);
+inc(x, sX);
-				b:= true
+b:= true
-				end;
+end;
-			if (eY > d) then
+if (eY > d) then
-				begin
+begin
-				dec(eY, d);
+dec(eY, d);
-				inc(y, sY);
+inc(y, sY);
-				b:= true
+b:= true
-				end;
+end;
-			if b then
+if b then
-				begin
+begin
-				inc(roplen);
+inc(roplen);
-				if (roplen mod 4) = 0 then DrawSprite(sprRopeNode, x - 2, y - 2, 0)
+if (roplen mod 4) = 0 then DrawSprite(sprRopeNode, x - 2, y - 2, 0)
-				end
+end
-		end
+end
-	end;
+end;
 begin
-	if cReducedQuality then
+if cReducedQuality then
-		DrawRopeLinesRQ(Gear)
+DrawRopeLinesRQ(Gear)
-	else
+else
-		begin
+begin
-		roplen:= 0;
+roplen:= 0;
-		if RopePoints.Count > 0 then
+if RopePoints.Count > 0 then
-			begin
+begin
-			i:= 0;
+i:= 0;
-			while i < Pred(RopePoints.Count) do
+while i < Pred(RopePoints.Count) do
-					begin
+begin
-					DrawRopeLine(hwRound(RopePoints.ar[i].X) + WorldDx, hwRound(RopePoints.ar[i].Y) + WorldDy,
+DrawRopeLine(hwRound(RopePoints.ar[i].X) + WorldDx, hwRound(RopePoints.ar[i].Y) + WorldDy,
-								hwRound(RopePoints.ar[Succ(i)].X) + WorldDx, hwRound(RopePoints.ar[Succ(i)].Y) + WorldDy);
+hwRound(RopePoints.ar[Succ(i)].X) + WorldDx, hwRound(RopePoints.ar[Succ(i)].Y) + WorldDy);
-					inc(i)
+inc(i)
-					end;
+end;
-			DrawRopeLine(hwRound(RopePoints.ar[i].X) + WorldDx, hwRound(RopePoints.ar[i].Y) + WorldDy,
+DrawRopeLine(hwRound(RopePoints.ar[i].X) + WorldDx, hwRound(RopePoints.ar[i].Y) + WorldDy,
-						hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy);
+hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy);
-			DrawRopeLine(hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy,
+DrawRopeLine(hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy,
-						hwRound(PHedgehog(Gear^.Hedgehog)^.Gear^.X) + WorldDx, hwRound(PHedgehog(Gear^.Hedgehog)^.Gear^.Y) + WorldDy);
+hwRound(PHedgehog(Gear^.Hedgehog)^.Gear^.X) + WorldDx, hwRound(PHedgehog(Gear^.Hedgehog)^.Gear^.Y) + WorldDy);
-			end else
+end else
-			if Gear^.Elasticity.QWordValue > 0 then
+if Gear^.Elasticity.QWordValue > 0 then
-			DrawRopeLine(hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy,
+DrawRopeLine(hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy,
-						hwRound(PHedgehog(Gear^.Hedgehog)^.Gear^.X) + WorldDx, hwRound(PHedgehog(Gear^.Hedgehog)^.Gear^.Y) + WorldDy);
+hwRound(PHedgehog(Gear^.Hedgehog)^.Gear^.X) + WorldDx, hwRound(PHedgehog(Gear^.Hedgehog)^.Gear^.Y) + WorldDy);
-		end;
+end;
 if RopePoints.Count > 0 then
-	DrawRotated(sprRopeHook, hwRound(RopePoints.ar[0].X) + WorldDx, hwRound(RopePoints.ar[0].Y) + WorldDy, 1, RopePoints.HookAngle)
+DrawRotated(sprRopeHook, hwRound(RopePoints.ar[0].X) + WorldDx, hwRound(RopePoints.ar[0].Y) + WorldDy, 1, RopePoints.HookAngle)
-	else
+else
-	if Gear^.Elasticity.QWordValue > 0 then
+if Gear^.Elasticity.QWordValue > 0 then
-		DrawRotated(sprRopeHook, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, DxDy2Angle(Gear^.dY, Gear^.dX));
+DrawRotated(sprRopeHook, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, DxDy2Angle(Gear^.dY, Gear^.dX));
 end;
 procedure DrawGears;
 var Gear, HHGear: PGear;
 i: Longword;
 begin
 Gear:= GearsList;
 while Gear<>nil do
-	begin
+begin
-	case Gear^.Kind of
+case Gear^.Kind of
 gtAmmo_Bomb: DrawRotated(sprBomb, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, Gear^.DirAngle);
-	gtMolotov: DrawRotated(sprMolotov, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, Gear^.DirAngle);
+gtMolotov: DrawRotated(sprMolotov, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, Gear^.DirAngle);
 gtRCPlane: begin
 if (Gear^.Tag = -1) then
 DrawRotated(sprPlane, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, -1,  DxDy2Angle(Gear^.dX, Gear^.dY) + 90)
 else
 DrawRotated(sprPlane, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy,0,DxDy2Angle(Gear^.dY, Gear^.dX));
 if ((TrainingFlags and tfRCPlane) <> 0) and (TrainingTargetGear <> nil) and ((Gear^.State and gstDrowning) = 0) then
-					 DrawRotatedf(sprFinger, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, GameTicks div 32 mod 16, 0, DxDy2Angle(Gear^.X - TrainingTargetGear^.X, TrainingTargetGear^.Y - Gear^.Y));
+DrawRotatedf(sprFinger, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, GameTicks div 32 mod 16, 0, DxDy2Angle(Gear^.X - TrainingTargetGear^.X, TrainingTargetGear^.Y - Gear^.Y));
 end;
 gtBall: DrawRotatedf(sprBalls, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Tag,0, DxDy2Angle(Gear^.dY, Gear^.dX));
 gtDrill: DrawRotated(sprDrill, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, DxDy2Angle(Gear^.dY, Gear^.dX));
 gtDynamite: DrawSprite2(sprDynamite, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 25 + WorldDy, Gear^.Tag and 1, Gear^.Tag shr 1);
 gtClusterBomb: DrawRotated(sprClusterBomb, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, Gear^.DirAngle);
 gtCluster: DrawSprite(sprClusterParticle, hwRound(Gear^.X) - 8 + WorldDx, hwRound(Gear^.Y) - 8 + WorldDy, 0);
 gtFlame: DrawTextureF(SpritesData[sprFlame].Texture, 2 / (Gear^.Tag mod 3 + 2), hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, (GameTicks div 128 + LongWord(Gear^.Tag)) mod 8, 1, 16, 16);
 gtParachute: begin
-					DrawSprite(sprParachute, hwRound(Gear^.X) - 24 + WorldDx, hwRound(Gear^.Y) - 48 + WorldDy, 0);
+DrawSprite(sprParachute, hwRound(Gear^.X) - 24 + WorldDx, hwRound(Gear^.Y) - 48 + WorldDy, 0);
-					DrawAltWeapon(Gear, hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy)
+DrawAltWeapon(Gear, hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy)
-					end;
+end;
 gtAirAttack: if Gear^.Tag > 0 then DrawSprite(sprAirplane, hwRound(Gear^.X) - SpritesData[sprAirplane].Width div 2 + WorldDx, hwRound(Gear^.Y) - SpritesData[sprAirplane].Height div 2 + WorldDy, 0)
 else DrawSprite(sprAirplane, hwRound(Gear^.X) - SpritesData[sprAirplane].Width div 2 + WorldDx, hwRound(Gear^.Y) - SpritesData[sprAirplane].Height div 2 + WorldDy, 1);
 gtAirBomb: DrawRotated(sprAirBomb, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, DxDy2Angle(Gear^.dY, Gear^.dX));
 gtTeleport: begin
 HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
 if not PHedgehog(Gear^.Hedgehog)^.Unplaced then DrawRotatedF(sprTeleport, hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy, Gear^.Pos, hwSign(HHGear^.dX), 0);
 DrawRotatedF(sprTeleport, hwRound(HHGear^.X) + 1 + WorldDx, hwRound(HHGear^.Y) - 3 + WorldDy, 11 - Gear^.Pos, hwSign(HHGear^.dX), 0);
 end;
 gtSwitcher: DrawSprite(sprSwitch, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 56 + WorldDy, (GameTicks shr 6) mod 12);
 gtTarget: begin
-					glColor4f(1, 1, 1, Gear^.Timer / 1000);
+glColor4f(1, 1, 1, Gear^.Timer / 1000);
-					DrawSprite(sprTarget, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 16 + WorldDy, 0);
+DrawSprite(sprTarget, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 16 + WorldDy, 0);
-					glColor4f(1, 1, 1, 1);
+glColor4f(1, 1, 1, 1);
-					end;
+end;
 gtMortar: DrawRotated(sprMortar, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, DxDy2Angle(Gear^.dY, Gear^.dX));
 gtCake: if Gear^.Pos = 6 then
 DrawRotatedf(sprCakeWalk, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, (GameTicks div 40) mod 6, hwSign(Gear^.dX), Gear^.DirAngle * hwSign(Gear^.dX) + 90)
 else
 DrawRotatedf(sprCakeDown, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 5 - Gear^.Pos, hwSign(Gear^.dX), 0);
 end;
 procedure FreeGearsList;
 var t, tt: PGear;
 begin
-	tt:= GearsList;
+tt:= GearsList;
-	GearsList:= nil;
+GearsList:= nil;
-	while tt <> nil do
+while tt <> nil do
-	begin
+begin
-		t:= tt;
+t:= tt;
-		tt:= tt^.NextGear;
+tt:= tt^.NextGear;
-		Dispose(t)
+Dispose(t)
-	end;
+end;
 end;
 procedure AddMiscGears;
 var i: LongInt;
-	Gear: PGear;
+Gear: PGear;
 begin
 AddGear(0, 0, gtATStartGame, 0, _0, _0, 2000);
 if (TrainingFlags and tfSpawnTargets) <> 0 then
-	begin
+begin
-	TrainingTargetGear:= AddGear(0, 0, gtTarget, 0, _0, _0, 0);
+TrainingTargetGear:= AddGear(0, 0, gtTarget, 0, _0, _0, 0);
-	FindPlace(TrainingTargetGear, false, 0, LAND_WIDTH);
+FindPlace(TrainingTargetGear, false, 0, LAND_WIDTH);
-	end;
+end;
 if ((GameFlags and gfForts) = 0) then
-	begin
+begin
-	// TODO: exclude each other or allow both, mines and explosives, on same map?
+// TODO: exclude each other or allow both, mines and explosives, on same map?
-	if ((GameFlags and gfMines) <> 0) then
+if ((GameFlags and gfMines) <> 0) then
-		for i:= 0 to Pred(cLandAdditions) do
+for i:= 0 to Pred(cLandAdditions) do
-			begin
+begin
-			Gear:= AddGear(0, 0, gtMine, 0, _0, _0, 0);
+Gear:= AddGear(0, 0, gtMine, 0, _0, _0, 0);
-			Gear^.TriggerId:= i + 1;
+Gear^.TriggerId:= i + 1;
-			FindPlace(Gear, false, 0, LAND_WIDTH);
+FindPlace(Gear, false, 0, LAND_WIDTH);
-			end;
+end;
 //  No game flag for this for now
-//	if ((GameFlags and gfExplosives) <> 0) then
+//  if ((GameFlags and gfExplosives) <> 0) then
-		for i:= 0 to Pred(cExplosives) do
+for i:= 0 to Pred(cExplosives) do
-			begin
+begin
-			Gear:= AddGear(0, 0, gtExplosives, 0, _0, _0, 0);
+Gear:= AddGear(0, 0, gtExplosives, 0, _0, _0, 0);
-			FindPlace(Gear, false, 0, LAND_WIDTH);
+FindPlace(Gear, false, 0, LAND_WIDTH);
-			end;
+end;
-	end;
+end;
 if (GameFlags and gfLowGravity) <> 0 then
 cGravity:= cMaxWindSpeed / 2;
 if (GameFlags and gfVampiric) <> 0 then
 {$IFDEF DEBUGFILE}if Radius > 4 then AddFileLog('Explosion: at (' + inttostr(x) + ',' + inttostr(y) + ')');{$ENDIF}
 if (Radius > 10) then AddGear(X, Y, gtExplosion, 0, _0, _0, 0);
 if (Mask and EXPLAutoSound) <> 0 then PlaySound(sndExplosion);
 if (Mask and EXPLAllDamageInRadius) = 0 then
-	dmgRadius:= Radius shl 1
+dmgRadius:= Radius shl 1
 else
-	dmgRadius:= Radius;
+dmgRadius:= Radius;
 Gear:= GearsList;
 while Gear <> nil do
-	begin
+begin
-	dmg:= dmgRadius  + cHHRadius div 2 - hwRound(Distance(Gear^.X - int2hwFloat(X), Gear^.Y - int2hwFloat(Y)));
+dmg:= dmgRadius  + cHHRadius div 2 - hwRound(Distance(Gear^.X - int2hwFloat(X), Gear^.Y - int2hwFloat(Y)));
-	if (dmg > 1) and
+if (dmg > 1) and
-		((Gear^.State and gstNoDamage) = 0) then
+((Gear^.State and gstNoDamage) = 0) then
-		begin
+begin
-		dmg:= ModifyDamage(min(dmg div 2, Radius), Gear);
+dmg:= ModifyDamage(min(dmg div 2, Radius), Gear);
-		case Gear^.Kind of
+case Gear^.Kind of
-			gtHedgehog,
+gtHedgehog,
-				gtMine,
+gtMine,
-				gtCase,
+gtCase,
-				gtTarget,
+gtTarget,
-				gtFlame,
+gtFlame,
-				gtExplosives: begin
+gtExplosives: begin
-						//{$IFDEF DEBUGFILE}AddFileLog('Damage: ' + inttostr(dmg));{$ENDIF}
+//{$IFDEF DEBUGFILE}AddFileLog('Damage: ' + inttostr(dmg));{$ENDIF}
-						if (Mask and EXPLNoDamage) = 0 then
+if (Mask and EXPLNoDamage) = 0 then
-							begin
+begin
-							if not Gear^.Invulnerable then
+if not Gear^.Invulnerable then
 ApplyDamage(Gear, dmg)
 else
 Gear^.State:= Gear^.State or gstWinner;
-							end;
+end;
-						if ((Mask and EXPLDoNotTouchHH) = 0) or (Gear^.Kind <> gtHedgehog) then
+if ((Mask and EXPLDoNotTouchHH) = 0) or (Gear^.Kind <> gtHedgehog) then
-							begin
+begin
-							DeleteCI(Gear);
+DeleteCI(Gear);
-							Gear^.dX:= Gear^.dX + SignAs(_0_005 * dmg + cHHKick, Gear^.X - int2hwFloat(X));
+Gear^.dX:= Gear^.dX + SignAs(_0_005 * dmg + cHHKick, Gear^.X - int2hwFloat(X));
-							Gear^.dY:= Gear^.dY + SignAs(_0_005 * dmg + cHHKick, Gear^.Y - int2hwFloat(Y));
+Gear^.dY:= Gear^.dY + SignAs(_0_005 * dmg + cHHKick, Gear^.Y - int2hwFloat(Y));
-							Gear^.State:= (Gear^.State or gstMoving) and (not gstLoser);
+Gear^.State:= (Gear^.State or gstMoving) and (not gstLoser);
-							if not Gear^.Invulnerable then
+if not Gear^.Invulnerable then
-								Gear^.State:= (Gear^.State or gstMoving) and (not gstWinner);
+Gear^.State:= (Gear^.State or gstMoving) and (not gstWinner);
-							Gear^.Active:= true;
+Gear^.Active:= true;
-							FollowGear:= Gear
+FollowGear:= Gear
-							end;
+end;
-						end;
+end;
-				gtGrave: begin
+gtGrave: begin
-						Gear^.dY:= - _0_004 * dmg;
+Gear^.dY:= - _0_004 * dmg;
-						Gear^.Active:= true;
+Gear^.Active:= true;
-						end;
+end;
-			end;
+end;
-		end;
+end;
-	Gear:= Gear^.NextGear
+Gear:= Gear^.NextGear
-	end;
+end;
 if (Mask and EXPLDontDraw) = 0 then
-	if (GameFlags and gfSolidLand) = 0 then DrawExplosion(X, Y, Radius);
+if (GameFlags and gfSolidLand) = 0 then DrawExplosion(X, Y, Radius);
 uAIMisc.AwareOfExplosion(0, 0, 0)
 end;
 procedure ShotgunShot(Gear: PGear);
 dmg: LongInt;
 begin
 Gear^.Radius:= cShotgunRadius;
 t:= GearsList;
 while t <> nil do
-	begin
+begin
-	dmg:= ModifyDamage(min(Gear^.Radius + t^.Radius - hwRound(Distance(Gear^.X - t^.X, Gear^.Y - t^.Y)), 25), t);
+dmg:= ModifyDamage(min(Gear^.Radius + t^.Radius - hwRound(Distance(Gear^.X - t^.X, Gear^.Y - t^.Y)), 25), t);
-	if dmg > 0 then
+if dmg > 0 then
-	case t^.Kind of
+case t^.Kind of
-		gtHedgehog,
+gtHedgehog,
-			gtMine,
+gtMine,
-			gtCase,
+gtCase,
-			gtTarget,
+gtTarget,
-			gtExplosives: begin
+gtExplosives: begin
 if (not t^.Invulnerable) then
 ApplyDamage(t, dmg)
 else
 Gear^.State:= Gear^.State or gstWinner;
-					DeleteCI(t);
+DeleteCI(t);
-					t^.dX:= t^.dX + Gear^.dX * dmg * _0_01 + SignAs(cHHKick, Gear^.dX);
+t^.dX:= t^.dX + Gear^.dX * dmg * _0_01 + SignAs(cHHKick, Gear^.dX);
-					t^.dY:= t^.dY + Gear^.dY * dmg * _0_01;
+t^.dY:= t^.dY + Gear^.dY * dmg * _0_01;
-					t^.State:= t^.State or gstMoving;
+t^.State:= t^.State or gstMoving;
-					t^.Active:= true;
+t^.Active:= true;
-					FollowGear:= t
+FollowGear:= t
-					end;
+end;
-			gtGrave: begin
+gtGrave: begin
-					t^.dY:= - _0_1;
+t^.dY:= - _0_1;
-					t^.Active:= true
+t^.Active:= true
-					end;
+end;
-		end;
+end;
-	t:= t^.NextGear
+t:= t^.NextGear
-	end;
+end;
 if (GameFlags and gfSolidLand) = 0 then DrawExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), cShotgunRadius)
 end;
 procedure AmmoShove(Ammo: PGear; Damage, Power: LongInt);
 var t: PGearArray;
 t:= CheckGearsCollision(Ammo);
 i:= t^.Count;
 if (Ammo^.Kind = gtFlame) and (i > 0) then Ammo^.Health:= 0;
 while i > 0 do
-	begin
+begin
-	dec(i);
+dec(i);
-	Gear:= t^.ar[i];
+Gear:= t^.ar[i];
 tmpDmg:= ModifyDamage(Damage, Gear);
-	if (Gear^.State and gstNoDamage) = 0 then
+if (Gear^.State and gstNoDamage) = 0 then
-		begin
+begin
-		if (Gear^.Kind = gtHedgehog) and (Ammo^.State and gsttmpFlag <> 0) and (Ammo^.Kind = gtShover) then Gear^.FlightTime:= 1;
+if (Gear^.Kind = gtHedgehog) and (Ammo^.State and gsttmpFlag <> 0) and (Ammo^.Kind = gtShover) then Gear^.FlightTime:= 1;
-		case Gear^.Kind of
+case Gear^.Kind of
-			gtHedgehog,
+gtHedgehog,
-			gtMine,
+gtMine,
-			gtTarget,
+gtTarget,
-			gtCase,
+gtCase,
-			gtExplosives: begin
+gtExplosives: begin
-					if (Ammo^.Kind = gtDrill) then begin Ammo^.Timer:= 0; exit; end;
+if (Ammo^.Kind = gtDrill) then begin Ammo^.Timer:= 0; exit; end;
 if (not Gear^.Invulnerable) then
 ApplyDamage(Gear, tmpDmg)
 else
 Gear^.State:= Gear^.State or gstWinner;
 if (Gear^.Kind = gtExplosives) and (Ammo^.Kind = gtBlowtorch) then ApplyDamage(Gear, tmpDmg * 100); // crank up damage for explosives + blowtorch
-					DeleteCI(Gear);
+DeleteCI(Gear);
 if (Gear^.Kind = gtHedgehog) and PHedgehog(Gear^.Hedgehog)^.King then
 begin
 Gear^.dX:= Ammo^.dX * Power * _0_005;
 Gear^.dY:= Ammo^.dY * Power * _0_005
 end
 begin
 Gear^.dX:= Ammo^.dX * Power * _0_01;
 Gear^.dY:= Ammo^.dY * Power * _0_01
 end;
-					Gear^.Active:= true;
+Gear^.Active:= true;
-					Gear^.State:= Gear^.State or gstMoving;
+Gear^.State:= Gear^.State or gstMoving;
-					if TestCollisionXwithGear(Gear, hwSign(Gear^.dX)) then
+if TestCollisionXwithGear(Gear, hwSign(Gear^.dX)) then
-						begin
+begin
-						if not (TestCollisionXwithXYShift(Gear, _0, -3, hwSign(Gear^.dX))
+if not (TestCollisionXwithXYShift(Gear, _0, -3, hwSign(Gear^.dX))
-							or TestCollisionYwithGear(Gear, -1)) then Gear^.Y:= Gear^.Y - _1;
+or TestCollisionYwithGear(Gear, -1)) then Gear^.Y:= Gear^.Y - _1;
-						if not (TestCollisionXwithXYShift(Gear, _0, -2, hwSign(Gear^.dX))
+if not (TestCollisionXwithXYShift(Gear, _0, -2, hwSign(Gear^.dX))
-							or TestCollisionYwithGear(Gear, -1)) then Gear^.Y:= Gear^.Y - _1;
+or TestCollisionYwithGear(Gear, -1)) then Gear^.Y:= Gear^.Y - _1;
-						if not (TestCollisionXwithXYShift(Gear, _0, -1, hwSign(Gear^.dX))
+if not (TestCollisionXwithXYShift(Gear, _0, -1, hwSign(Gear^.dX))
-							or TestCollisionYwithGear(Gear, -1)) then Gear^.Y:= Gear^.Y - _1;
+or TestCollisionYwithGear(Gear, -1)) then Gear^.Y:= Gear^.Y - _1;
-						end;
+end;
 if (Ammo^.Kind <> gtFlame) or ((Ammo^.State and gsttmpFlag) = 0) then FollowGear:= Gear
-					end;
+end;
-		end
+end
-		end;
+end;
-	end;
+end;
 if i <> 0 then SetAllToActive
 end;
 procedure AssignHHCoords;
 var i, t, p, j: LongInt;
-	ar: array[0..Pred(cMaxHHs)] of PHedgehog;
+ar: array[0..Pred(cMaxHHs)] of PHedgehog;
-	Count: Longword;
+Count: Longword;
 begin
 if (GameFlags and gfPlaceHog) <> 0 then PlacingHogs:= true;
 if (GameFlags and (gfForts or gfDivideTeams)) <> 0 then
-	begin
+begin
-	t:= 0;
+t:= 0;
-	TryDo(ClansCount = 2, 'More or less than 2 clans on map in divided teams mode!', true);
+TryDo(ClansCount = 2, 'More or less than 2 clans on map in divided teams mode!', true);
-	for p:= 0 to 1 do
+for p:= 0 to 1 do
-		begin
+begin
-		with ClansArray[p]^ do
+with ClansArray[p]^ do
-			for j:= 0 to Pred(TeamsNumber) do
+for j:= 0 to Pred(TeamsNumber) do
-				with Teams[j]^ do
+with Teams[j]^ do
-					for i:= 0 to cMaxHHIndex do
+for i:= 0 to cMaxHHIndex do
-						with Hedgehogs[i] do
+with Hedgehogs[i] do
-							if (Gear <> nil) and (Gear^.X.QWordValue = 0) then
+if (Gear <> nil) and (Gear^.X.QWordValue = 0) then
-								begin
+begin
 if PlacingHogs then Unplaced:= true
 else FindPlace(Gear, false, t, t + LAND_WIDTH div 2);// could make Gear == nil;
-								if Gear <> nil then
+if Gear <> nil then
-									begin
+begin
-									Gear^.Pos:= GetRandom(49);
+Gear^.Pos:= GetRandom(49);
-									Gear^.dX.isNegative:= p = 1;
+Gear^.dX.isNegative:= p = 1;
-									end
+end
-								end;
+end;
-		t:= LAND_WIDTH div 2
+t:= LAND_WIDTH div 2
-		end
+end
-	end else // mix hedgehogs
+end else // mix hedgehogs
-	begin
+begin
-	Count:= 0;
+Count:= 0;
-	for p:= 0 to Pred(TeamsCount) do
+for p:= 0 to Pred(TeamsCount) do
-		with TeamsArray[p]^ do
+with TeamsArray[p]^ do
-		begin
+begin
-		for i:= 0 to cMaxHHIndex do
+for i:= 0 to cMaxHHIndex do
-			with Hedgehogs[i] do
+with Hedgehogs[i] do
-				if (Gear <> nil) and (Gear^.X.QWordValue = 0) then
+if (Gear <> nil) and (Gear^.X.QWordValue = 0) then
-					begin
+begin
-					ar[Count]:= @Hedgehogs[i];
+ar[Count]:= @Hedgehogs[i];
-					inc(Count)
+inc(Count)
-					end;
+end;
-		end;
+end;
 // unC0Rr, while it is true user can watch value on map screen, IMO this (and check above) should be enforced in UI
 // - is there a good place to put values for the different widgets to check?  Right now they are kind of disconnected.
 //it would be nice if divide teams, forts mode and hh per map could all be checked by the team widget, or maybe disable start button
-	TryDo(Count <= MaxHedgehogs, 'Too many hedgehogs for this map! (max # is ' + inttostr(MaxHedgehogs) + ')', true);
+TryDo(Count <= MaxHedgehogs, 'Too many hedgehogs for this map! (max # is ' + inttostr(MaxHedgehogs) + ')', true);
-	while (Count > 0) do
+while (Count > 0) do
-		begin
+begin
-		i:= GetRandom(Count);
+i:= GetRandom(Count);
 if PlacingHogs then ar[i]^.Unplaced:= true
 else FindPlace(ar[i]^.Gear, false, 0, LAND_WIDTH);
-		if ar[i]^.Gear <> nil then
+if ar[i]^.Gear <> nil then
-			begin
+begin
-			ar[i]^.Gear^.dX.isNegative:= hwRound(ar[i]^.Gear^.X) > LAND_WIDTH div 2;
+ar[i]^.Gear^.dX.isNegative:= hwRound(ar[i]^.Gear^.X) > LAND_WIDTH div 2;
-			ar[i]^.Gear^.Pos:= GetRandom(19)
+ar[i]^.Gear^.Pos:= GetRandom(19)
-			end;
+end;
-		ar[i]:= ar[Count - 1];
+ar[i]:= ar[Count - 1];
-		dec(Count)
+dec(Count)
-		end
+end
-	end
+end
 end;
 function CheckGearNear(Gear: PGear; Kind: TGearType; rX, rY: LongInt): PGear;
 var t: PGear;
 begin
 t:= GearsList;
 rX:= sqr(rX);
 rY:= sqr(rY);
 while t <> nil do
-	begin
+begin
-	if (t <> Gear) and (t^.Kind = Kind) then
+if (t <> Gear) and (t^.Kind = Kind) then
-		if not((hwSqr(Gear^.X - t^.X) / rX + hwSqr(Gear^.Y - t^.Y) / rY) > _1) then
+if not((hwSqr(Gear^.X - t^.X) / rX + hwSqr(Gear^.Y - t^.Y) / rY) > _1) then
-		exit(t);
+exit(t);
-	t:= t^.NextGear
+t:= t^.NextGear
-	end;
+end;
 CheckGearNear:= nil
 end;
 {procedure AmmoFlameWork(Ammo: PGear);
 var t: PGear;
 begin
 t:= GearsList;
 while t <> nil do
-	begin
+begin
-	if (t^.Kind = gtHedgehog) and (t^.Y < Ammo^.Y) then
+if (t^.Kind = gtHedgehog) and (t^.Y < Ammo^.Y) then
-		if not (hwSqr(Ammo^.X - t^.X) + hwSqr(Ammo^.Y - t^.Y - int2hwFloat(cHHRadius)) * 2 > _2) then
+if not (hwSqr(Ammo^.X - t^.X) + hwSqr(Ammo^.Y - t^.Y - int2hwFloat(cHHRadius)) * 2 > _2) then
-			begin
+begin
 ApplyDamage(t, 5);
-			t^.dX:= t^.dX + (t^.X - Ammo^.X) * _0_02;
+t^.dX:= t^.dX + (t^.X - Ammo^.X) * _0_02;
-			t^.dY:= - _0_25;
+t^.dY:= - _0_25;
-			t^.Active:= true;
+t^.Active:= true;
-			DeleteCI(t);
+DeleteCI(t);
-			FollowGear:= t
+FollowGear:= t
-			end;
+end;
-	t:= t^.NextGear
+t:= t^.NextGear
-	end;
+end;
 end;}
 function CheckGearsNear(mX, mY: LongInt; Kind: TGearsType; rX, rY: LongInt): PGear;
 var t: PGear;
 begin
 t:= GearsList;
 rX:= sqr(rX);
 rY:= sqr(rY);
 while t <> nil do
-	begin
+begin
-	if t^.Kind in Kind then
+if t^.Kind in Kind then
-		if not (hwSqr(int2hwFloat(mX) - t^.X) / rX + hwSqr(int2hwFloat(mY) - t^.Y) / rY > _1) then
+if not (hwSqr(int2hwFloat(mX) - t^.X) / rX + hwSqr(int2hwFloat(mY) - t^.Y) / rY > _1) then
-			exit(t);
+exit(t);
-	t:= t^.NextGear
+t:= t^.NextGear
-	end;
+end;
 CheckGearsNear:= nil
 end;
 function CountGears(Kind: TGearType): Longword;
 var t: PGear;
 count: Longword = 0;
 begin
 t:= GearsList;
 while t <> nil do
-	begin
+begin
-	if t^.Kind = Kind then inc(count);
+if t^.Kind = Kind then inc(count);
-	t:= t^.NextGear
+t:= t^.NextGear
-	end;
+end;
 CountGears:= count;
 end;
 procedure SpawnBoxOfSmth;
 var t: LongInt;
 else
 t:= getrandom(20);
 // avoid health crates if all hogs are invulnerable
 if (t < 13) and ((GameFlags and gfInvulnerable) <> 0) then t:= t * 13 div 20 + 7;
 //case getrandom(20) of
 case t of
 0..6: begin
 FollowGear:= AddGear(0, 0, gtCase, 0, _0, _0, 0);
 FollowGear^.Health:= 25;
 FollowGear^.Pos:= posCaseHealth;
-		AddCaption(GetEventString(eidNewHealthPack), cWhiteColor, capgrpGameState);
+AddCaption(GetEventString(eidNewHealthPack), cWhiteColor, capgrpGameState);
 end;
 7..13: begin
 t:= 0;
 for i:= Low(TAmmoType) to High(TAmmoType) do
 if (Ammoz[i].Ammo.Propz and ammoprop_Utility) = 0 then
 if (Ammoz[i].Ammo.Propz and ammoprop_Utility) = 0 then
 dec(t, Ammoz[i].Probability)
 end;
 FollowGear^.Pos:= posCaseAmmo;
 FollowGear^.State:= Longword(i);
-			AddCaption(GetEventString(eidNewAmmoPack), cWhiteColor, capgrpGameState);
+AddCaption(GetEventString(eidNewAmmoPack), cWhiteColor, capgrpGameState);
 end
 end;
 14..19: begin
 t:= 0;
 for i:= Low(TAmmoType) to High(TAmmoType) do
 if (Ammoz[i].Ammo.Propz and ammoprop_Utility) <> 0 then
 dec(t, Ammoz[i].Probability)
 end;
 FollowGear^.Pos:= posCaseUtility;
 FollowGear^.State:= Longword(i);
-			AddCaption(GetEventString(eidNewUtilityPack), cWhiteColor, capgrpGameState);
+AddCaption(GetEventString(eidNewUtilityPack), cWhiteColor, capgrpGameState);
 end
 end;
 end;
 // handles case of no ammo or utility crates - considered also placing booleans in uAmmos and altering probabilities
 if (FollowGear <> nil) then
-	begin
+begin
-	FindPlace(FollowGear, true, 0, LAND_WIDTH);
+FindPlace(FollowGear, true, 0, LAND_WIDTH);
-	if (FollowGear <> nil) then
+if (FollowGear <> nil) then
-		PlaySound(sndReinforce, CurrentTeam^.voicepack)
+PlaySound(sndReinforce, CurrentTeam^.voicepack)
-	end
+end
 end;
 procedure FindPlace(var Gear: PGear; withFall: boolean; Left, Right: LongInt);
-	function CountNonZeroz(x, y, r, c: LongInt): LongInt;
+function CountNonZeroz(x, y, r, c: LongInt): LongInt;
-	var i: LongInt;
+var i: LongInt;
-		count: LongInt = 0;
+count: LongInt = 0;
-	begin
+begin
-	if (y and LAND_HEIGHT_MASK) = 0 then
+if (y and LAND_HEIGHT_MASK) = 0 then
-		for i:= max(x - r, 0) to min(x + r, LAND_WIDTH - 4) do
+for i:= max(x - r, 0) to min(x + r, LAND_WIDTH - 4) do
-			if Land[y, i] <> 0 then
+if Land[y, i] <> 0 then
 begin
 inc(count);
 if count = c then exit(count)
 end;
-	CountNonZeroz:= count;
+CountNonZeroz:= count;
-	end;
+end;
 var x: LongInt;
-	y, sy: LongInt;
+y, sy: LongInt;
-	ar: array[0..511] of TPoint;
+ar: array[0..511] of TPoint;
-	ar2: array[0..1023] of TPoint;
+ar2: array[0..1023] of TPoint;
-	cnt, cnt2: Longword;
+cnt, cnt2: Longword;
-	delta: LongInt;
+delta: LongInt;
 begin
 delta:= 250;
 cnt2:= 0;
 repeat
-	x:= Left + LongInt(GetRandom(Delta));
+x:= Left + LongInt(GetRandom(Delta));
-	repeat
+repeat
-		inc(x, Delta);
+inc(x, Delta);
-		cnt:= 0;
+cnt:= 0;
 if topY > 1024 then
-		    y:= 1024-Gear^.Radius * 2
+y:= 1024-Gear^.Radius * 2
 else
-		    y:= topY-Gear^.Radius * 2;
+y:= topY-Gear^.Radius * 2;
-		while y < LAND_HEIGHT do
+while y < LAND_HEIGHT do
-			begin
+begin
-			repeat
+repeat
-				inc(y, 2);
+inc(y, 2);
-			until (y >= LAND_HEIGHT) or (CountNonZeroz(x, y, Gear^.Radius - 1, 1) = 0);
+until (y >= LAND_HEIGHT) or (CountNonZeroz(x, y, Gear^.Radius - 1, 1) = 0);
-			sy:= y;
+sy:= y;
-			repeat
+repeat
-				inc(y);
+inc(y);
-			until (y >= LAND_HEIGHT) or (CountNonZeroz(x, y, Gear^.Radius - 1, 1) <> 0);
+until (y >= LAND_HEIGHT) or (CountNonZeroz(x, y, Gear^.Radius - 1, 1) <> 0);
 if (y - sy > Gear^.Radius * 2) and
 (((Gear^.Kind = gtExplosives)
-			       and (y < LAND_HEIGHT-1)
+and (y < LAND_HEIGHT-1)
-			       and (CheckGearsNear(x, y - Gear^.Radius, [gtFlame, gtHedgehog, gtMine, gtCase, gtExplosives], 60, 60) = nil)
+and (CheckGearsNear(x, y - Gear^.Radius, [gtFlame, gtHedgehog, gtMine, gtCase, gtExplosives], 60, 60) = nil)
 and (CountNonZeroz(x, y+1, Gear^.Radius - 1, Gear^.Radius+1) > Gear^.Radius))
 or
 ((Gear^.Kind <> gtExplosives)
-			       and (y < LAND_HEIGHT)
+and (y < LAND_HEIGHT)
-				   and (CheckGearsNear(x, y - Gear^.Radius, [gtFlame, gtHedgehog, gtMine, gtCase, gtExplosives], 110, 110) = nil))) then
+and (CheckGearsNear(x, y - Gear^.Radius, [gtFlame, gtHedgehog, gtMine, gtCase, gtExplosives], 110, 110) = nil))) then
-				begin
+begin
-				ar[cnt].X:= x;
+ar[cnt].X:= x;
-				if withFall then ar[cnt].Y:= sy + Gear^.Radius
+if withFall then ar[cnt].Y:= sy + Gear^.Radius
-							else ar[cnt].Y:= y - Gear^.Radius;
+else ar[cnt].Y:= y - Gear^.Radius;
-				inc(cnt)
+inc(cnt)
-				end;
+end;
-			inc(y, 45)
+inc(y, 45)
-			end;
+end;
-		if cnt > 0 then
+if cnt > 0 then
-			with ar[GetRandom(cnt)] do
+with ar[GetRandom(cnt)] do
-				begin
+begin
-				ar2[cnt2].x:= x;
+ar2[cnt2].x:= x;
-				ar2[cnt2].y:= y;
+ar2[cnt2].y:= y;
-				inc(cnt2)
+inc(cnt2)
-				end
+end
-	until (x + Delta > Right);
+until (x + Delta > Right);
-	dec(Delta, 60)
+dec(Delta, 60)
 until (cnt2 > 0) or (Delta < 70);
 if cnt2 > 0 then
-	with ar2[GetRandom(cnt2)] do
+with ar2[GetRandom(cnt2)] do
-		begin
+begin
-		Gear^.X:= int2hwFloat(x);
+Gear^.X:= int2hwFloat(x);
-		Gear^.Y:= int2hwFloat(y);
+Gear^.Y:= int2hwFloat(y);
-		{$IFDEF DEBUGFILE}
+{$IFDEF DEBUGFILE}
-		AddFileLog('Assigned Gear coordinates (' + inttostr(x) + ',' + inttostr(y) + ')');
+AddFileLog('Assigned Gear coordinates (' + inttostr(x) + ',' + inttostr(y) + ')');
-		{$ENDIF}
+{$ENDIF}
-		end
+end
-	else
+else
-	begin
+begin
-	OutError('Can''t find place for Gear', false);
+OutError('Can''t find place for Gear', false);
-	DeleteGear(Gear);
+DeleteGear(Gear);
-	Gear:= nil
+Gear:= nil
-	end
+end
 end;
 function ModifyDamage(dmg: Longword; Gear: PGear): Longword;
 var i: hwFloat;
 begin
 var gear: PGear;
 begin
 GearByUID:= nil;
 gear:= GearsList;
 while gear <> nil do
-	begin
+begin
-	if gear^.uid = uid then
+if gear^.uid = uid then
-		begin
+begin
-			GearByUID:= gear;
+GearByUID:= gear;
-			exit
+exit
-		end;
+end;
-	gear:= gear^.NextGear
+gear:= gear^.NextGear
-	end
+end
 end;
 procedure init_uGears;
 begin
-	CurAmmoGear:= nil;
+CurAmmoGear:= nil;
-	GearsList:= nil;
+GearsList:= nil;
-	KilledHHs:= 0;
+KilledHHs:= 0;
-	SuddenDeathDmg:= false;
+SuddenDeathDmg:= false;
-	SpeechType:= 1;
+SpeechType:= 1;
-	TrainingTargetGear:= nil;
+TrainingTargetGear:= nil;
-	skipFlag:= false;
+skipFlag:= false;
-	AllInactive:= false;
+AllInactive:= false;
-	PrvInactive:= false;
+PrvInactive:= false;
 end;
 procedure free_uGears;
 begin
-	FreeGearsList();
+FreeGearsList();
 end;
 end.

changeset 2948	3f21a9dc93d0
parent 2947	803b277e4894
child 2955	fb361d137524