changeset 3897 | 27e115fa1143 |
parent 3895 | e7c202c08ac1 |
child 3906 | c5da430cb3fd |
--- a/hedgewars/uStore.pas Wed Sep 22 23:46:38 2010 +0200 +++ b/hedgewars/uStore.pas Thu Sep 23 00:09:16 2010 +0200 @@ -738,7 +738,7 @@ scale:= cScreenWidth / (Source^.w + 20) else scale:= 1.0; - DrawTexture(X - round((Source^.w * scale) div 2, Top, Source, scale) + DrawTexture(X - round(Source^.w * scale) div 2, Top, Source, scale) end; procedure DrawHedgehog(X, Y: LongInt; Dir: LongInt; Pos, Step: LongWord; Angle: real);