hedgewars/uLandPainted.pas
changeset 7287 c0825f15272e
parent 7277 b817a478dcfb
child 7583 8a9edc7cf98f
equal deleted inserted replaced
7285:a9016b157535 7287:c0825f15272e
    55         begin
    55         begin
    56         prec:= @s[i];
    56         prec:= @s[i];
    57         rec:= prec^;
    57         rec:= prec^;
    58         rec.X:= SDLNet_Read16(@rec.X);
    58         rec.X:= SDLNet_Read16(@rec.X);
    59         rec.Y:= SDLNet_Read16(@rec.Y);
    59         rec.Y:= SDLNet_Read16(@rec.Y);
    60         if rec.X < -323 then rec.X:= -323;
    60         if rec.X < -318 then rec.X:= -318;
    61         if rec.X > LAND_WIDTH+323 then rec.X:= LAND_WIDTH+323;
    61         if rec.X > LAND_WIDTH+318 then rec.X:= LAND_WIDTH+318;
    62         if rec.Y < -323 then rec.Y:= -323;
    62         if rec.Y < -318 then rec.Y:= -318;
    63         if rec.Y > LAND_HEIGHT+323 then rec.Y:= LAND_HEIGHT+323;
    63         if rec.Y > LAND_HEIGHT+318 then rec.Y:= LAND_HEIGHT+318;
    64 
    64 
    65         new(pe);
    65         new(pe);
    66         if pointsListLast = nil then
    66         if pointsListLast = nil then
    67             pointsListHead:= pe
    67             pointsListHead:= pe
    68         else
    68         else