Racer challenge map #10
authorunc0rr
Thu, 10 Jul 2014 13:40:49 +0400
changeset 10365 d5786d4230fd
parent 10364 9f7be3da1245
child 10366 b451b8f69f44
Racer challenge map #10
misc/OfficialChallenges/racer_#10.hwmap
share/hedgewars/Data/Scripts/OfficialChallenges.lua
tools/hwmap.hs
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/misc/OfficialChallenges/racer_#10.hwmap	Thu Jul 10 13:40:49 2014 +0400
@@ -0,0 +1,1 @@
+AAABSnicJc7ZDoQwDEPRQJcwC/DDU6kf3oix45cDUuWr+LBhPnzY8TOCP48npoeFGdnA3AKfXexhRZSwKmpYEy2si04QeDCbxq1xtonCVFKZShpTSWcqwSEuEPDF0xaiFznBPBcevgLlj0D5LVB+CZQP0QkCN2bz4vbi7BSFqaQylTSmks5UwqsEAn+uK4bq
\ No newline at end of file
--- a/share/hedgewars/Data/Scripts/OfficialChallenges.lua	Mon Jul 07 16:07:49 2014 +0200
+++ b/share/hedgewars/Data/Scripts/OfficialChallenges.lua	Thu Jul 10 13:40:49 2014 +0400
@@ -14,6 +14,8 @@
                 return("Racer Challenge #8")
             elseif LandDigest == "M185940363Scripts/Multiplayer/Racer.lua" then
                 return("Racer Challenge #9")
+            elseif LandDigest == "M751885839Scripts/Multiplayer/Racer.lua" then
+                return("Racer Challenge #10")
             end
 -- challenges without border
         elseif LandDigest == "M-134869715Scripts/Multiplayer/Racer.lua" then
--- a/tools/hwmap.hs	Mon Jul 07 16:07:49 2014 +0200
+++ b/tools/hwmap.hs	Thu Jul 10 13:40:49 2014 +0400
@@ -51,7 +51,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 $ drawnMap01
+mapString = B.pack . Base64.encode . BW.unpack . BL.toStrict . compressWithLength . BL.drop 8 . encode $ drawnMap02
 
 main = B.writeFile "out.hwmap" mapString
 
@@ -81,4 +81,16 @@
         , l [(0, 8), (8, 8)]
         ]
     l = Line Solid 0
-    
\ No newline at end of file
+
+drawnMap02 = translate (-3) (-3) $ sp ++ mirror sp ++ base ++ mirror base
+    where
+    sp = translate 128 128 . scale 256 $ [SpecialPoints [
+        (7, 0)
+        , (7, 7)
+        ]]
+    base = scale 256 $ [
+        l [(8, 0), (8, 1), (1, 1)]
+        , l [(2, 1), (2, 2), (3, 2), (3, 3), (4, 3), (4, 4), (5, 4), (5, 5), (6, 5), (6, 6), (7, 6), (7, 7), (7, 1)]
+        , l [(0, 2), (1, 2), (1, 3), (2, 3), (2, 4), (3, 4), (3, 5), (4, 5), (4, 6), (5, 6), (5, 7), (6, 7), (6, 8), (8, 8), (8, 2)]
+        ]
+    l = Line Solid 0