hedgewars/VGSHandlers.inc
changeset 7206 ce46b56ae9f5
parent 6913 73984ea24ff5
child 7375 16ae2e1c9005
equal deleted inserted replaced
7204:522f165cd2e7 7206:ce46b56ae9f5
    88             X:= X + cScreenSpace
    88             X:= X + cScreenSpace
    89         else
    89         else
    90             if round(X) > cRightScreenBorder then
    90             if round(X) > cRightScreenBorder then
    91                 X:= X - cScreenSpace;
    91                 X:= X - cScreenSpace;
    92             // if round(Y) < (LAND_HEIGHT - 1024 - 75) then Y:= Y + 25.0; // For if flag is set for flakes rising upwards?
    92             // if round(Y) < (LAND_HEIGHT - 1024 - 75) then Y:= Y + 25.0; // For if flag is set for flakes rising upwards?
    93             if (Gear^.Layer = 2) and (round(Y) - 225 > LAND_HEIGHT) then
    93         if (Gear^.Layer = 2) and (round(Y) - 225 > LAND_HEIGHT) then
    94                 Y:= Y - (1024 + 300) // TODO - configure in theme (jellies for example could use limited range)
    94             begin
    95             else if (Gear^.Layer <> 2) and (round(Y) + 50 > LAND_HEIGHT) then
    95             X:= cLeftScreenBorder + random(cScreenSpace);
    96                 Y:= Y - (1024 + 25);
    96             Y:= Y - (1024 + 250 + random(50)) // TODO - configure in theme (jellies for example could use limited range)
       
    97             end
       
    98         else if (Gear^.Layer <> 2) and (round(Y) + 50 > LAND_HEIGHT) then
       
    99             begin
       
   100             X:= cLeftScreenBorder + random(cScreenSpace);
       
   101             Y:= Y - (1024 + random(25))
       
   102             end;
    97         Timer:= 0;
   103         Timer:= 0;
    98         tdX:= 0;
   104         tdX:= 0;
    99         tdY:= 0
   105         tdY:= 0
   100         end;
   106         end;
   101     end;
   107     end;