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 800)); |
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:= min(32, HH^.Effects[heFrozen] div 8); |
954 r.x := 128; |
954 r.x := 128; |
955 r.y := 128 - iceOffset; |
955 r.y := 96 - iceOffset; |
956 r.w := 64; |
956 r.w := 32; |
957 r.h := iceOffset; |
957 r.h := iceOffset; |
958 //DrawTextureFromRect(sx-32, sy-iceoffset+32, @r, SpritesData[sprFrozenHog].texture); |
958 if sign = -1 then |
959 DrawTextureFromRectDir(sx-16+sign*2, sy+48-iceoffset, r.w, r.h, @r, HHTexture, sign); |
959 DrawTextureFromRectDir(sx + sign*2, sy+16-iceoffset, r.w, r.h, @r, HHTexture, sign) |
|
960 else |
|
961 DrawTextureFromRectDir(sx-16 + sign*2, sy+16-iceoffset, r.w, r.h, @r, HHTexture, sign); |
|
962 |
960 |
963 |
961 if HH^.Effects[heFrozen] < 150000 then |
964 if HH^.Effects[heFrozen] < 150000 then |
962 Tint($FF, $FF, $FF, $FF); |
965 Tint($FF, $FF, $FF, $FF); |
963 end; |
966 end; |
964 |
967 |