hedgewars/uGearsRender.pas
changeset 10080 ac51bcb534ef
parent 10040 4ac87acbaed9
child 10082 2f7b7992258f
equal deleted inserted replaced
10079:c88e38a0f478 10080:ac51bcb534ef
   963                 if (cTagsMask and htHealth) <> 0 then
   963                 if (cTagsMask and htHealth) <> 0 then
   964                     ty := ty - HealthTagTex^.h - 2;
   964                     ty := ty - HealthTagTex^.h - 2;
   965                 tx := ox;
   965                 tx := ox;
   966                 tx := round(max(((-cScreenWidth + 16) / zoom) + SpritesData[sprFinger].Width div 2, min(((cScreenWidth - 16) / zoom) - SpritesData[sprFinger].Width div 2, tx)));
   966                 tx := round(max(((-cScreenWidth + 16) / zoom) + SpritesData[sprFinger].Width div 2, min(((cScreenWidth - 16) / zoom) - SpritesData[sprFinger].Width div 2, tx)));
   967                 ty := round(max(cScreenHeight div 2 - ((cScreenHeight - 16) / (zoom)) + SpritesData[sprFinger].Height div 2, min(cScreenHeight div 2 - ((-cScreenHeight + SpritesData[sprFinger].Height) / (zoom)) - SpritesData[sprFinger].Width div 2 - 96, ty)));
   967                 ty := round(max(cScreenHeight div 2 - ((cScreenHeight - 16) / (zoom)) + SpritesData[sprFinger].Height div 2, min(cScreenHeight div 2 - ((-cScreenHeight + SpritesData[sprFinger].Height) / (zoom)) - SpritesData[sprFinger].Width div 2 - 96, ty)));
   968                 t := tx-ox;
   968 
   969                 if t <> 0 then
   969                 dAngle := DxDy2Angle(ty - oy, tx - ox) + 90;
   970                     dAngle := radtodeg(-arctan2(-(ty-oy),t)) + 90
   970 
   971                 else if ty > oy then
       
   972                     dAngle := 180
       
   973                 else
       
   974                     dAngle := 0;
       
   975                 DrawSpriteRotatedF(sprFinger, tx, ty, GameTicks div 32 mod 16, 1, dAngle);
   971                 DrawSpriteRotatedF(sprFinger, tx, ty, GameTicks div 32 mod 16, 1, dAngle);
   976                 end;
   972                 end;
   977 
   973 
   978 
   974 
   979             if (Gear^.State and gstDrowning) = 0 then
   975             if (Gear^.State and gstDrowning) = 0 then