hedgewars/uGearsRender.pas
changeset 8684 fd1f2bf5ffad
parent 8681 d0fc1dca739c
child 8689 720bdd41154e
equal deleted inserted replaced
8683:45a976bf9ca4 8684:fd1f2bf5ffad
   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