# HG changeset patch # User unc0rr # Date 1364933797 -14400 # Node ID 338f7c2bac2ce3984f14fa24ea78a242a88031cc # Parent caa57115d7ea57049638f36fd4b63ab4eeed2da3 Fix rendering errors now. diff -r caa57115d7ea -r 338f7c2bac2c hedgewars/uIO.pas --- a/hedgewars/uIO.pas Wed Apr 03 00:03:46 2013 +0400 +++ b/hedgewars/uIO.pas Wed Apr 03 00:16:37 2013 +0400 @@ -222,7 +222,11 @@ function isSyncedCommand(c: char): boolean; begin - isSyncedCommand:= (c in ['+', '#', 'L', 'l', 'R', 'r', 'U', 'u', 'D', 'd', 'Z', 'z', 'A', 'a', 'S', 'j', 'J', ',', 'c', 'N', 'p', 'P', 'w', 't', '1', '2', '3', '4', '5']) or ((c >= #128) and (c <= char(128 + cMaxSlotIndex))) + case c of + '+', '#', 'L', 'l', 'R', 'r', 'U', 'u', 'D', 'd', 'Z', 'z', 'A', 'a', 'S', 'j', 'J', ',', 'c', 'N', 'p', 'P', 'w', 't', '1', '2', '3', '4', '5': isSyncedCommand:= true; + else + isSyncedCommand:= ((c >= #128) and (c <= char(128 + cMaxSlotIndex))) + end end; procedure flushBuffer(); diff -r caa57115d7ea -r 338f7c2bac2c hedgewars/uLandGraphics.pas --- a/hedgewars/uLandGraphics.pas Wed Apr 03 00:03:46 2013 +0400 +++ b/hedgewars/uLandGraphics.pas Wed Apr 03 00:16:37 2013 +0400 @@ -94,14 +94,14 @@ function isLandscapeEdge(weight:Longint):boolean; inline; begin -result := (weight < 8) and (weight >= 2); +isLandscapeEdge := (weight < 8) and (weight >= 2); end; function getPixelWeight(x, y:Longint): Longint; var - i, j:Longint; + i, j, r: Longint; begin -result := 0; +r := 0; for i := x - 1 to x + 1 do for j := y - 1 to y + 1 do begin @@ -109,13 +109,13 @@ (i > LAND_WIDTH - 1) or (j < 0) or (j > LAND_HEIGHT -1) then - begin - result := 9; - exit; - end; + exit(9); + if Land[j, i] and lfLandMask and (not lfIce) = 0 then - result := result + 1; + inc(r) end; + + getPixelWeight:= r end; diff -r caa57115d7ea -r 338f7c2bac2c hedgewars/uUtils.pas --- a/hedgewars/uUtils.pas Wed Apr 03 00:03:46 2013 +0400 +++ b/hedgewars/uUtils.pas Wed Apr 03 00:16:37 2013 +0400 @@ -481,8 +481,12 @@ if (c < #32) or (c > #127) then r:= '#' + inttostr(byte(c)) else - r:= c; - + begin + // some magic for pas2c + r[0]:= #1; + r[1]:= c; + end; + sanitizeCharForLog:= r end;