hedgewars/VGSHandlers.inc
changeset 6302 db8bdbb34e03
parent 6291 cfd2483b8c97
child 6553 91365db8b82c
equal deleted inserted replaced
6301:1259736c0134 6302:db8bdbb34e03
    77     else
    77     else
    78         begin
    78         begin
    79         if round(X) < cLeftScreenBorder then X:= X + cScreenSpace else
    79         if round(X) < cLeftScreenBorder then X:= X + cScreenSpace else
    80         if round(X) > cRightScreenBorder then X:= X - cScreenSpace;
    80         if round(X) > cRightScreenBorder then X:= X - cScreenSpace;
    81         // if round(Y) < (LAND_HEIGHT - 1024 - 75) then Y:= Y + 25.0; // For if flag is set for flakes rising upwards?
    81         // if round(Y) < (LAND_HEIGHT - 1024 - 75) then Y:= Y + 25.0; // For if flag is set for flakes rising upwards?
    82         if (Gear^.Layer > 1) and (round(Y) - 225 > LAND_HEIGHT) then Y:= Y - (1024 + 300) // TODO - configure in theme (jellies for example could use limited range)
    82         if (Gear^.Layer = 2) and (round(Y) - 225 > LAND_HEIGHT) then Y:= Y - (1024 + 300) // TODO - configure in theme (jellies for example could use limited range)
    83         else if (Gear^.Layer < 2) and (round(Y) + 50 > LAND_HEIGHT) then Y:= Y - (1024 + 25);
    83         else if (Gear^.Layer <> 2) and (round(Y) + 50 > LAND_HEIGHT) then Y:= Y - (1024 + 25);
    84         Timer:= 0;
    84         Timer:= 0;
    85         tdX:= 0;
    85         tdX:= 0;
    86         tdY:= 0
    86         tdY:= 0
    87         end;
    87         end;
    88     end;
    88     end;