597 function TestDesertEagle(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;

   597 function TestDesertEagle(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;

   598 var Vx, Vy, x, y, t, dmgMod: real;

   598 var Vx, Vy, x, y, t, dmgMod: real;

   599     d: Longword;

   599     d: Longword;

   600     fallDmg, valueResult: LongInt;

   600     fallDmg, valueResult: LongInt;

   601 begin

   601 begin

   602 dmgMod:= 0.01 * hwFloat2Float(cDamageModifier) * cDamagePercent;

   603 dmgMod:= 0.01 * hwFloat2Float(cDamageModifier) * cDamagePercent;

   603 Level:= Level; // avoid compiler hint

   604 Level:= Level; // avoid compiler hint

   604 ap.ExplR:= 0;

   605 ap.ExplR:= 0;

   605 ap.Time:= 0;

   606 ap.Time:= 0;

   606 ap.Power:= 1;

   607 ap.Power:= 1;

   646 function TestSniperRifle(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;

   647 function TestSniperRifle(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;

   647 var Vx, Vy, x, y, t, dmg, dmgMod: real;

   648 var Vx, Vy, x, y, t, dmg, dmgMod: real;

   648     d: Longword;

   649     d: Longword;

   649     fallDmg, valueResult: LongInt;

   650     fallDmg, valueResult: LongInt;

   650 begin

   651 begin

   651 dmgMod:= 0.01 * hwFloat2Float(cDamageModifier) * cDamagePercent;

   653 dmgMod:= 0.01 * hwFloat2Float(cDamageModifier) * cDamagePercent;

   652 Level:= Level; // avoid compiler hint

   654 Level:= Level; // avoid compiler hint

   653 ap.ExplR:= 0;

   655 ap.ExplR:= 0;

   654 ap.Time:= 0;

   656 ap.Time:= 0;

   655 ap.Power:= 1;

   657 ap.Power:= 1;