hedgewars/uGearsRender.pas
changeset 10324 5d90d8ca9657
parent 10313 769061317dc5
child 10390 13bfbade06a5
equal deleted inserted replaced
10323:72e6df962cb6 10324:5d90d8ca9657
  1017         iceOffset:= min(32, HH^.Effects[heFrozen] div 8);
  1017         iceOffset:= min(32, HH^.Effects[heFrozen] div 8);
  1018         r.x := 128;
  1018         r.x := 128;
  1019         r.y := 96 - iceOffset;
  1019         r.y := 96 - iceOffset;
  1020         r.w := 32;
  1020         r.w := 32;
  1021         r.h := iceOffset;
  1021         r.h := iceOffset;
  1022         if sign = -1 then
  1022         DrawTextureFromRectDir(sx - 16 + sign*2, sy + 16 - iceoffset, r.w, r.h, @r, HHTexture, sign);
  1023         DrawTextureFromRectDir(sx + sign*2, sy+16-iceoffset, r.w, r.h, @r, HHTexture, sign)
       
  1024         else
       
  1025         DrawTextureFromRectDir(sx-16 + sign*2, sy+16-iceoffset, r.w, r.h, @r, HHTexture, sign);
       
  1026 
  1023 
  1027 
  1024 
  1028         if HH^.Effects[heFrozen] < 150000 then
  1025         if HH^.Effects[heFrozen] < 150000 then
  1029             untint;
  1026             untint;
  1030         end;
  1027         end;