hedgewars: comparison hedgewars/uGears.pas

equal deleted inserted replaced

-:c11abf387a7d
+:d5b30d6373fc
 unit uGears;
 interface
 uses SDLh, uConsts, uFloat, Math;
 type
 PGear = ^TGear;
 TGearStepProcedure = procedure (Gear: PGear);
 TGear = record
 NextGear, PrevGear: PGear;
 TrainingTargetGear: PGear;
 skipFlag: boolean;
 PlacingHogs: boolean; // a convenience flag to indicate placement of hogs is still in progress
 StepSoundTimer: LongInt;
 StepSoundChannel: LongInt;
 procedure initModule;
 procedure freeModule;
 function  AddGear(X, Y: LongInt; Kind: TGearType; State: Longword; dX, dY: hwFloat; Timer: LongWord): PGear;
 procedure ProcessGears;
 procedure EndTurnCleanup;
 dLen: hwFloat;
 b: boolean;
 end;
 rounded: array[0..MAXROPEPOINTS + 2] of TVertex2f;
 end;
 procedure DeleteGear(Gear: PGear); forward;
 procedure doMakeExplosion(X, Y, Radius: LongInt; Mask: LongWord); forward;
 procedure doMakeExplosion(X, Y, Radius: LongInt; Mask, Tint: LongWord); forward;
 procedure AmmoShove(Ammo: PGear; Damage, Power: LongInt); forward;
 //procedure AmmoFlameWork(Ammo: PGear); forward;
 while (tmp <> nil) and (tmp^.Z <= Gear^.Z) do
 begin
 ptmp:= tmp;
 tmp:= tmp^.NextGear
 end;
 if ptmp <> tmp then
 begin
 Gear^.NextGear:= ptmp^.NextGear;
 Gear^.PrevGear:= ptmp;
 if ptmp^.NextGear <> nil then ptmp^.NextGear^.PrevGear:= Gear;
 gear^.Radius:= 8
 end;
 gtJetpack: begin
 gear^.Health:= 2000;
 end;
 gtMolotov: begin
 gear^.Radius:= 6;
 end;
 gtBirdy: begin
 gear^.Radius:= 16; // todo: check
 gear^.Timer:= 0;
 gear^.Health := 2000;
 gear^.FlightTime := 2;
 end;
 gtEgg: begin
 gear^.Radius:= 4;
 gear^.Elasticity:= _0_6;
 gear^.Friction:= _0_96;
 if gear^.Timer = 0 then gear^.Timer:= 3000
 end;
 if PHedgehog(Gear^.Hedgehog)^.King then
 begin
 flag:= false;
 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(tmp, min(5, max(0,Gear^.Health - 1 - Gear^.Damage)))
 end;
 if tmp > 0 then ApplyDamage(Gear, tmp, dsPoison);
 end;
 else begin
 // delayed till after 0.9.12
 // reset to default zoom
 //ZoomValue:= ZoomDefault;
 with CurrentHedgehog^ do
 if (Gear <> nil)
 and ((Gear^.State and gstAttacked) = 0)
 and (MultiShootAttacks > 0) then OnUsedAmmo(CurrentHedgehog^);
 EndTurnCleanup;
 FreeActionsList; // could send -left, -right and similar commands, so should be called before /nextturn
 ParseCommand('/nextturn', true);
 Gear: PGear;
 i, tmpDmg: LongInt;
 begin
 t:= CheckGearsCollision(Ammo);
 // Just to avoid hogs on rope dodging fire.
 if (CurAmmoGear <> nil) and (CurAmmoGear^.Kind = gtRope) and
 (CurrentHedgehog^.Gear <> nil) and (CurrentHedgehog^.Gear^.CollisionIndex = -1) and
 (sqr(hwRound(Ammo^.X) - hwRound(CurrentHedgehog^.Gear^.X)) + sqr(hwRound(Ammo^.Y) - hwRound(CurrentHedgehog^.Gear^.Y)) <= sqr(cHHRadius + Ammo^.Radius)) then
 begin
 t^.ar[t^.Count]:= CurrentHedgehog^.Gear;
 inc(t^.Count)
 end;
 i:= t^.Count;
 Gear:= t^.ar[i];
 tmpDmg:= ModifyDamage(Damage, Gear);
 if (Gear^.State and gstNoDamage) = 0 then
 begin
 if (Gear^.Kind = gtHedgehog) and (Ammo^.State and gsttmpFlag <> 0) and (Ammo^.Kind = gtShover) then Gear^.FlightTime:= 1;
 case Gear^.Kind of
 gtHedgehog,
 gtMine,
 gtTarget,
 gtCase,
 if not (TestCollisionXwithXYShift(Gear, _0, -2, hwSign(Gear^.dX))
 or TestCollisionYwithGear(Gear, -1)) then Gear^.Y:= Gear^.Y - _1;
 if not (TestCollisionXwithXYShift(Gear, _0, -1, hwSign(Gear^.dX))
 or TestCollisionYwithGear(Gear, -1)) then Gear^.Y:= Gear^.Y - _1;
 end;
 if (Ammo^.Kind <> gtFlame) or ((Ammo^.State and gsttmpFlag) = 0) then FollowGear:= Gear
 end;
 end
 end;
 end;
 a:=aTot;
 h:= 1;
 // FIXME - shoppa is TEMPORARY REMOVE WHEN CRATE PROBABILITY ALLOWS DISABLING OF HEALTH CRATES
 // Preserving health crate distribution of 35% until that happens
 if (aTot+uTot) <> 0 then
 if not shoppa and ((GameFlags and gfInvulnerable) = 0) then
 begin
 h:= 3500;
 t:= GetRandom(10000);
 a:= 6500*aTot div (aTot+uTot)
 end
 else
 begin
 t:= GetRandom(aTot+uTot);
 h:= 0
 end;
 if t<h then
 begin
 FollowGear:= AddGear(0, 0, gtCase, 0, _0, _0, 0);
 FollowGear^.Health:= 25;
 FollowGear^.Pos:= posCaseHealth;
 sy:= y;
 repeat
 inc(y);
 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 (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 (CheckGearsNear(x, y - Gear^.Radius, [gtFlame, gtHedgehog, gtMine, gtCase, gtExplosives], 110, 110) = nil))) then
 begin
 KilledHHs:= 0;
 SuddenDeathDmg:= false;
 SpeechType:= 1;
 TrainingTargetGear:= nil;
 skipFlag:= false;
 AllInactive:= false;
 PrvInactive:= false;
 end;
 procedure freeModule;

changeset 3697	d5b30d6373fc
parent 3689	e2be39ee19f0
child 3710	411f5c2b5292