hedgewars/uLandPainted.pas
changeset 7583 8a9edc7cf98f
parent 7287 c0825f15272e
child 9080 9b42757d7e71
equal deleted inserted replaced
7581:ea509b70e03d 7583:8a9edc7cf98f
    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 < -318 then rec.X:= -318;
    60         if rec.X < -318 then rec.X:= -318;
    61         if rec.X > LAND_WIDTH+318 then rec.X:= LAND_WIDTH+318;
    61         if rec.X > 4096+318 then rec.X:= 4096+318;
    62         if rec.Y < -318 then rec.Y:= -318;
    62         if rec.Y < -318 then rec.Y:= -318;
    63         if rec.Y > LAND_HEIGHT+318 then rec.Y:= LAND_HEIGHT+318;
    63         if rec.Y > 2048+318 then rec.Y:= 2048+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