hedgewars/uVisualGearsHandlers.pas
changeset 11873 60c8bb8bc1d7
parent 11827 4600dcb9db4f
child 12317 83131d0e747b
equal deleted inserted replaced
11872:f6d33710baff 11873:60c8bb8bc1d7
   160         else if round(X) > cRightScreenBorder then
   160         else if round(X) > cRightScreenBorder then
   161             begin
   161             begin
   162             X:= X - cScreenSpace;
   162             X:= X - cScreenSpace;
   163             moved:= true
   163             moved:= true
   164             end;
   164             end;
   165             // if round(Y) < (LAND_HEIGHT - 1024 - 75) then Y:= Y + 25.0; // For if flag is set for flakes rising upwards?
   165 
   166         if (Gear^.Layer = 2) and (round(Y) - 400 > LAND_HEIGHT) and (cGravityf >= 0) then
   166         if round(Y) < (LAND_HEIGHT - 1024 - 75) then
       
   167             begin
       
   168             X:= cLeftScreenBorder + random(cScreenSpace);
       
   169             Y:= Y+(1024 + 200 + random(50));
       
   170             moved:= true
       
   171             end
       
   172         else if (Gear^.Layer = 2) and (round(Y) - 400 > LAND_HEIGHT) and (cGravityf >= 0) then
   167             begin
   173             begin
   168             X:= cLeftScreenBorder + random(cScreenSpace);
   174             X:= cLeftScreenBorder + random(cScreenSpace);
   169             Y:= Y-(1024 + 400 + random(50)); // TODO - configure in theme (jellies for example could use limited range)
   175             Y:= Y-(1024 + 400 + random(50)); // TODO - configure in theme (jellies for example could use limited range)
   170             moved:= true
   176             moved:= true
   171             end
   177             end