equal
deleted
inserted
replaced
757 defaultPos:= false |
757 defaultPos:= false |
758 end; |
758 end; |
759 |
759 |
760 end else // not gstHHDriven |
760 end else // not gstHHDriven |
761 begin |
761 begin |
762 if (Gear^.Damage > 0) |
762 if (Gear^.Damage > 0) and (HH^.Effects[heFrozen] = 0) |
763 and (hwSqr(Gear^.dX) + hwSqr(Gear^.dY) > _0_003) then |
763 and (hwSqr(Gear^.dX) + hwSqr(Gear^.dY) > _0_003) then |
764 begin |
764 begin |
765 DrawHedgehog(sx, sy, |
765 DrawHedgehog(sx, sy, |
766 sign, |
766 sign, |
767 2, |
767 2, |
946 end; |
946 end; |
947 |
947 |
948 if HH^.Effects[heFrozen] < 150000 then |
948 if HH^.Effects[heFrozen] < 150000 then |
949 begin |
949 begin |
950 if HH^.Effects[heFrozen] < 150000 then |
950 if HH^.Effects[heFrozen] < 150000 then |
951 Tint($FF, $FF, $FF, min(255,127+HH^.Effects[heFrozen] div 1200)); |
951 Tint($FF, $FF, $FF, min(255,127+HH^.Effects[heFrozen] div 800)); |
952 |
952 |
953 iceOffset:= trunc(min(256,HH^.Effects[heFrozen]) / 256 * 64); |
953 iceOffset:= trunc(min(256,HH^.Effects[heFrozen]) / 256 * 64); |
954 r.x := 128; |
954 r.x := 128; |
955 r.y := 128 - iceOffset; |
955 r.y := 128 - iceOffset; |
956 r.w := 64; |
956 r.w := 64; |