hedgewars/uLand.pas
changeset 360 ab6a94334d6d
parent 359 59fbfc65fbda
child 364 52cb4d6f84b7
--- a/hedgewars/uLand.pas	Tue Jan 23 18:54:09 2007 +0000
+++ b/hedgewars/uLand.pas	Tue Jan 23 21:24:18 2007 +0000
@@ -320,19 +320,19 @@
          end;
          
      if canMirror then
-        if getrandom(16) < 8 then
+        if getrandom(2) = 0 then
            begin
            for i:= 0 to pred(BasePointsCount) do
-               BasePoints^[i].x:= 2047 - BasePoints^[i].x;
+               pa.ar[i].x:= 2047 - pa.ar[i].x;
            for i:= 0 to pred(FillPointsCount) do
                FillPoints^[i].x:= 2047 - FillPoints^[i].x;
            end;
 
      if canFlip then
-        if getrandom(16) < 8 then
+        if getrandom(2) = 0 then
            begin
            for i:= 0 to pred(BasePointsCount) do
-               BasePoints^[i].y:= 1023 - BasePoints^[i].y;
+               pa.ar[i].y:= 1023 - pa.ar[i].y;
            for i:= 0 to pred(FillPointsCount) do
                FillPoints^[i].y:= 1023 - FillPoints^[i].y;
            end;