# HG changeset patch # User unc0rr # Date 1427917612 -10800 # Node ID 3ea36d8d46366e257406dbc2b0647d13f9b388e5 # Parent 7b76811fb689d7ef654c688416a2693b92fb5062 racer challenge map #16 diff -r 7b76811fb689 -r 3ea36d8d4636 misc/OfficialChallenges/racer_#16.hwmap --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/misc/OfficialChallenges/racer_#16.hwmap Wed Apr 01 22:46:52 2015 +0300 @@ -0,0 +1,1 @@ +AAAAaXicY3RgdGBgWcB2gIGDAcjiTgCy+A6AxVhlgFwgwcHA9ISBgYGRYb8AkLAXYGBmsGeAEKwgLphgB3GBBCPQvD8g82pA5tWAzKsBmVcDAB2iEO4= \ No newline at end of file diff -r 7b76811fb689 -r 3ea36d8d4636 share/hedgewars/Data/Scripts/OfficialChallenges.lua --- a/share/hedgewars/Data/Scripts/OfficialChallenges.lua Wed Apr 01 10:17:01 2015 +0300 +++ b/share/hedgewars/Data/Scripts/OfficialChallenges.lua Wed Apr 01 22:46:52 2015 +0300 @@ -24,6 +24,8 @@ return("Racer Challenge #13") elseif LandDigest == "M-1585582638Scripts/Multiplayer/Racer.lua" then return("Racer Challenge #14") + elseif LandDigest == "M-528106034Scripts/Multiplayer/Racer.lua" then + return("Racer Challenge #16") end -- challenges without border elseif LandDigest == "M-134869715Scripts/Multiplayer/Racer.lua" then diff -r 7b76811fb689 -r 3ea36d8d4636 tools/hwmap.hs --- a/tools/hwmap.hs Wed Apr 01 10:17:01 2015 +0300 +++ b/tools/hwmap.hs Wed Apr 01 22:46:52 2015 +0300 @@ -52,7 +52,7 @@ mapM_ putWord8 $ BW.unpack $ BL.toStrict $ Z.compress b mapString :: B.ByteString -mapString = B.pack . Base64.encode . BW.unpack . BL.toStrict . compressWithLength . BL.drop 8 . encode $ drawnMap04 +mapString = B.pack . Base64.encode . BW.unpack . BL.toStrict . compressWithLength . BL.drop 8 . encode $ drawnMap05 main = B.writeFile "out.hwmap" mapString @@ -152,3 +152,13 @@ ] l = Line Solid 0 fm = flip' . mirror + +drawnMap05 = sp ++ fullFill ++ lW + where + w = 320 + sh = 420 + basePoints = [(w, w), (1024 + w `div` 2, 2048 - w), (2048, w), (3072 - w `div` 2, 2048 - w), (4096 - w, w)] + lW = [Line Erasing 60 basePoints] + sp = [SpecialPoints $ basePoints ++ [(1024 + w `div` 2, 2048 - w - sh), (3072 - w `div` 2, 2048 - w - sh), (2048, w + sh)]] + +fullFill = scale 256 $ [Line Solid 63 [(0, 1), (16, 1), (16, 3), (0, 3), (0, 5), (16, 5), (16, 7), (0, 7)]]