hedgewars/uWorld.pas
changeset 14935 9ab78e08a34c
parent 14830 c2793ff4e887
child 14985 bcecb3349948
--- a/hedgewars/uWorld.pas	Sat May 11 20:31:51 2019 +0200
+++ b/hedgewars/uWorld.pas	Sat May 11 20:43:12 2019 +0200
@@ -1841,7 +1841,8 @@
         end;
     DrawTexture( -(cScreenWidth shr 1) + 50, 20, recTexture);
 
-    a:= Byte(min(255, abs(-255 + ((RealTicks div 2) and 511))));
+    t:= -255 + ((RealTicks div 2) and 511);
+    a:= Byte(min(255, abs(t)));
 
     // draw red circle
     DrawCircleFilled(-(cScreenWidth shr 1) + 30, 35, 10, $FF, $00, $00, a);