racer challenge map #16
authorunc0rr
Wed, 01 Apr 2015 22:46:52 +0300
changeset 10885 3ea36d8d4636
parent 10884 7b76811fb689
child 10886 99273b7afbff
child 10887 efc14052360a
racer challenge map #16
misc/OfficialChallenges/racer_#16.hwmap
share/hedgewars/Data/Scripts/OfficialChallenges.lua
tools/hwmap.hs
--- /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
--- 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
--- 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)]]