equal
deleted
inserted
replaced
1 (* |
1 (* |
2 * Hedgewars, a free turn based strategy game |
2 * Hedgewars, a free turn based strategy game |
3 * Copyright (c) 2004-2012 Andrey Korotaev <unC0Rr@gmail.com> |
3 * Copyright (c) 2004-2013 Andrey Korotaev <unC0Rr@gmail.com> |
4 * |
4 * |
5 * This program is free software; you can redistribute it and/or modify |
5 * This program is free software; you can redistribute it and/or modify |
6 * it under the terms of the GNU General Public License as published by |
6 * it under the terms of the GNU General Public License as published by |
7 * the Free Software Foundation; version 2 of the License |
7 * the Free Software Foundation; version 2 of the License |
8 * |
8 * |
766 Ammo^.Health:= 0; |
766 Ammo^.Health:= 0; |
767 while i > 0 do |
767 while i > 0 do |
768 begin |
768 begin |
769 dec(i); |
769 dec(i); |
770 Gear:= t^.ar[i]; |
770 Gear:= t^.ar[i]; |
771 if (Ammo^.Kind = gtFlame) and (Gear^.Kind = gtHedgehog) and (Gear^.Hedgehog^.Effects[heFrozen] > 255) then |
771 if ((Ammo^.Kind = gtFlame) or (Ammo^.Kind = gtBlowTorch)) and |
|
772 (Gear^.Kind = gtHedgehog) and (Gear^.Hedgehog^.Effects[heFrozen] > 255) then |
772 Gear^.Hedgehog^.Effects[heFrozen]:= max(255,Gear^.Hedgehog^.Effects[heFrozen]-10000); |
773 Gear^.Hedgehog^.Effects[heFrozen]:= max(255,Gear^.Hedgehog^.Effects[heFrozen]-10000); |
773 tmpDmg:= ModifyDamage(Damage, Gear); |
774 tmpDmg:= ModifyDamage(Damage, Gear); |
774 if (Gear^.State and gstNoDamage) = 0 then |
775 if (Gear^.State and gstNoDamage) = 0 then |
775 begin |
776 begin |
776 |
777 |