equal
deleted
inserted
replaced
677 |
677 |
678 TestShotgun:= BadTurn |
678 TestShotgun:= BadTurn |
679 end; |
679 end; |
680 |
680 |
681 function TestDesertEagle(Me: PGear; Targ: TTarget; Level: LongInt; var ap: TAttackParams): LongInt; |
681 function TestDesertEagle(Me: PGear; Targ: TTarget; Level: LongInt; var ap: TAttackParams): LongInt; |
682 var Vx, Vy, x, y, t, dmgMod: real; |
682 var Vx, Vy, x, y, t: real; |
683 d: Longword; |
683 d: Longword; |
684 fallDmg, valueResult: LongInt; |
684 fallDmg, valueResult: LongInt; |
685 begin |
685 begin |
686 if Level > 4 then exit(BadTurn); |
686 if Level > 4 then exit(BadTurn); |
687 dmgMod:= 0.01 * hwFloat2Float(cDamageModifier) * cDamagePercent; |
|
688 Level:= Level; // avoid compiler hint |
687 Level:= Level; // avoid compiler hint |
689 ap.ExplR:= 1; |
688 ap.ExplR:= 1; |
690 ap.Time:= 0; |
689 ap.Time:= 0; |
691 ap.Power:= 1; |
690 ap.Power:= 1; |
692 |
691 |
721 TestDesertEagle:= valueResult |
720 TestDesertEagle:= valueResult |
722 end; |
721 end; |
723 |
722 |
724 |
723 |
725 function TestSniperRifle(Me: PGear; Targ: TTarget; Level: LongInt; var ap: TAttackParams): LongInt; |
724 function TestSniperRifle(Me: PGear; Targ: TTarget; Level: LongInt; var ap: TAttackParams): LongInt; |
726 var Vx, Vy, x, y, t, dmg, dmgMod: real; |
725 var Vx, Vy, x, y, t, dmg: real; |
727 d: Longword; |
726 d: Longword; |
728 fallDmg: LongInt; |
727 fallDmg: LongInt; |
729 begin |
728 begin |
730 if Level > 3 then exit(BadTurn); |
729 if Level > 3 then exit(BadTurn); |
731 dmgMod:= 0.01 * hwFloat2Float(cDamageModifier) * cDamagePercent; |
|
732 Level:= Level; // avoid compiler hint |
730 Level:= Level; // avoid compiler hint |
733 ap.ExplR:= 0; |
731 ap.ExplR:= 0; |
734 ap.Time:= 0; |
732 ap.Time:= 0; |
735 ap.Power:= 1; |
733 ap.Power:= 1; |
736 x:= hwFloat2Float(Me^.X); |
734 x:= hwFloat2Float(Me^.X); |