# HG changeset patch
# User Medo <smaxein@googlemail.com>
# Date 1343293856 -7200
# Node ID 0a494f951dcfe10c4855aec652b410f591e041b4
# Parent  57a50888405278ab301975ac40feb15ad95441af# Parent  a46ce1812419c724b6b9fd049ca727443cbfb36e
Merge

diff -r 57a508884052 -r 0a494f951dcf CMakeLists.txt
--- a/CMakeLists.txt	Thu Jul 26 11:01:32 2012 +0200
+++ b/CMakeLists.txt	Thu Jul 26 11:10:56 2012 +0200
@@ -159,10 +159,19 @@
 set(CMAKE_CXX_FLAGS_RELEASE ${CMAKE_C_FLAGS_RELEASE})
 set(CMAKE_CXX_FLAGS_DEBUG ${CMAKE_C_FLAGS_DEBUG})
 
-separate_arguments(fpflags_full UNIX_COMMAND ${FPFLAGS})
+#parse additional parameters
+if(FPFLAGS OR GHFLAGS)
+    math(EXPR cmake_version "${CMAKE_MAJOR_VERSION}*10000 + ${CMAKE_MINOR_VERSION}*100 + ${CMAKE_PATCH_VERSION}")
+    if(cmake_version LESS "020800")
+        message(STATUS "FPFLAGS and GHFLAGS are available only from Cmake 2.8, ignoring...")
+    else()
+        separate_arguments(fpflags_full UNIX_COMMAND ${FPFLAGS})
+        separate_arguments(ghflags_full UNIX_COMMAND ${GHFLAGS})
+    endif()
+endif()
+
 set(pascal_flags ${fpflags_full} "-B" "-FE../bin" "-Cs2000000" "-vewn" "-dDEBUGFILE" ${pascal_flags})
-separate_arguments(ghflags_full UNIX_COMMAND ${GHFLAGS})
-set(haskell_flags "-O2" ${haskell_flags} ${ghflags_full})
+set(haskell_flags "-O2" ${ghflags_full} ${haskell_flags})
 
 if(Optz)
 #    set(pascal_flags "-O3" "-OpPENTIUM4" "-CfSSE3" "-Xs" "-Si" ${pascal_flags})
diff -r 57a508884052 -r 0a494f951dcf QTfrontend/binds.cpp
--- a/QTfrontend/binds.cpp	Thu Jul 26 11:01:32 2012 +0200
+++ b/QTfrontend/binds.cpp	Thu Jul 26 11:10:56 2012 +0200
@@ -62,6 +62,7 @@
     {"confirm", "y",    QT_TRANSLATE_NOOP("binds", "confirmation"), NULL, NULL},
     {"+voldown",    "9",    QT_TRANSLATE_NOOP("binds", "volume down"),  NULL, QT_TRANSLATE_NOOP("binds (descriptions)", "Modify the game's volume while playing:")},
     {"+volup",  "0",    QT_TRANSLATE_NOOP("binds", "volume up"),    NULL, NULL},
+    {"mute",  "8",    QT_TRANSLATE_NOOP("binds", "mute audio"),    NULL, NULL},
     {"fullscr", "f12",  QT_TRANSLATE_NOOP("binds", "change mode"),  NULL, QT_TRANSLATE_NOOP("binds (descriptions)", "Toggle fullscreen mode:")},
     {"capture", "c",    QT_TRANSLATE_NOOP("binds", "capture"),  NULL, QT_TRANSLATE_NOOP("binds (descriptions)", "Take a screenshot:")},
     {"rotmask", "delete",   QT_TRANSLATE_NOOP("binds", "hedgehogs\ninfo"),  NULL, QT_TRANSLATE_NOOP("binds (descriptions)", "Toggle labels above hedgehogs:")}
diff -r 57a508884052 -r 0a494f951dcf QTfrontend/binds.h
--- a/QTfrontend/binds.h	Thu Jul 26 11:01:32 2012 +0200
+++ b/QTfrontend/binds.h	Thu Jul 26 11:10:56 2012 +0200
@@ -21,7 +21,7 @@
 
 #include <QString>
 
-#define BINDS_NUMBER 44
+#define BINDS_NUMBER 45
 
 struct BindAction
 {
diff -r 57a508884052 -r 0a494f951dcf QTfrontend/drawmapscene.cpp
--- a/QTfrontend/drawmapscene.cpp	Thu Jul 26 11:01:32 2012 +0200
+++ b/QTfrontend/drawmapscene.cpp	Thu Jul 26 11:10:56 2012 +0200
@@ -136,7 +136,6 @@
 
 void DrawMapScene::showCursor()
 {
-    qDebug() << "show cursor";
     if(!m_isCursorShown)
         addItem(m_cursor);
 
@@ -145,7 +144,6 @@
 
 void DrawMapScene::hideCursor()
 {
-    qDebug() << "hide cursor";
     if(m_isCursorShown)
         removeItem(m_cursor);
 
diff -r 57a508884052 -r 0a494f951dcf QTfrontend/gameuiconfig.cpp
--- a/QTfrontend/gameuiconfig.cpp	Thu Jul 26 11:01:32 2012 +0200
+++ b/QTfrontend/gameuiconfig.cpp	Thu Jul 26 11:10:56 2012 +0200
@@ -333,7 +333,7 @@
 
 QByteArray GameUIConfig::netPasswordHash()
 {
-    return QCryptographicHash::hash(Form->ui.pageOptions->editNetPassword->text().toLatin1(), QCryptographicHash::Md5).toHex();
+    return QCryptographicHash::hash(Form->ui.pageOptions->editNetPassword->text().toUtf8(), QCryptographicHash::Md5).toHex();
 }
 
 int GameUIConfig::netPasswordLength()
diff -r 57a508884052 -r 0a494f951dcf QTfrontend/hwform.cpp
--- a/QTfrontend/hwform.cpp	Thu Jul 26 11:01:32 2012 +0200
+++ b/QTfrontend/hwform.cpp	Thu Jul 26 11:10:56 2012 +0200
@@ -128,7 +128,7 @@
 #endif
     gameSettings = new QSettings(cfgdir->absolutePath() + "/hedgewars.ini", QSettings::IniFormat);
     frontendEffects = gameSettings->value("frontend/effects", true).toBool();
-    playerHash = QString(QCryptographicHash::hash(gameSettings->value("net/nick","").toString().toLatin1(), QCryptographicHash::Md5).toHex());
+    playerHash = QString(QCryptographicHash::hash(gameSettings->value("net/nick","").toString().toUtf8(), QCryptographicHash::Md5).toHex());
 
     this->setStyleSheet(styleSheet);
     ui.setupUi(this);
@@ -968,7 +968,7 @@
         }
 
         QString password = hpd->lePassword->text();
-        hash = QCryptographicHash::hash(password.toLatin1(), QCryptographicHash::Md5).toHex();
+        hash = QCryptographicHash::hash(password.toUtf8(), QCryptographicHash::Md5).toHex();
 
         bool save = hpd->cbSave->isChecked();
         config->setValue("net/savepassword", save);
diff -r 57a508884052 -r 0a494f951dcf QTfrontend/model/ammoSchemeModel.h
--- a/QTfrontend/model/ammoSchemeModel.h	Thu Jul 26 11:01:32 2012 +0200
+++ b/QTfrontend/model/ammoSchemeModel.h	Thu Jul 26 11:10:56 2012 +0200
@@ -47,8 +47,8 @@
     public slots:
         void Save();
 
-    signals:
-        void dataChanged(const QModelIndex & topLeft, const QModelIndex & bottomRight);
+//    signals:
+//        void dataChanged(const QModelIndex & topLeft, const QModelIndex & bottomRight);
 
     protected:
         QList< QList<QVariant> > schemes;
diff -r 57a508884052 -r 0a494f951dcf QTfrontend/team.cpp
--- a/QTfrontend/team.cpp	Thu Jul 26 11:01:32 2012 +0200
+++ b/QTfrontend/team.cpp	Thu Jul 26 11:10:56 2012 +0200
@@ -259,7 +259,7 @@
     QStringList sl;
     if (m_isNetTeam)
     {
-        sl.push_back(QString("eaddteam %3 %1 %2").arg(qcolor().rgb() & 0xffffff).arg(m_name).arg(QString(QCryptographicHash::hash(m_owner.toLatin1(), QCryptographicHash::Md5).toHex())));
+        sl.push_back(QString("eaddteam %3 %1 %2").arg(qcolor().rgb() & 0xffffff).arg(m_name).arg(QString(QCryptographicHash::hash(m_owner.toUtf8(), QCryptographicHash::Md5).toHex())));
         sl.push_back("erdriven");
     }
     else sl.push_back(QString("eaddteam %3 %1 %2").arg(qcolor().rgb() & 0xffffff).arg(m_name).arg(playerHash));
diff -r 57a508884052 -r 0a494f951dcf QTfrontend/ui/page/pageplayrecord.cpp
--- a/QTfrontend/ui/page/pageplayrecord.cpp	Thu Jul 26 11:01:32 2012 +0200
+++ b/QTfrontend/ui/page/pageplayrecord.cpp	Thu Jul 26 11:10:56 2012 +0200
@@ -169,7 +169,11 @@
     if(!ok)
         QMessageBox::critical(this, tr("Error"), tr("Cannot delete file"));
     else
-        FillFromDir(recType);
+    {
+        int i = DemosList->row(curritem);
+        delete curritem;
+        DemosList->setCurrentRow(i < DemosList->count() ? i : DemosList->count() - 1);
+    }
 }
 
 bool PagePlayDemo::isSave()
diff -r 57a508884052 -r 0a494f951dcf gameServer/Actions.hs
--- a/gameServer/Actions.hs	Thu Jul 26 11:01:32 2012 +0200
+++ b/gameServer/Actions.hs	Thu Jul 26 11:10:56 2012 +0200
@@ -160,7 +160,7 @@
 
     s <- get
     put $! s{removedClients = ci `Set.delete` removedClients s}
-    
+
     sp <- gets (shutdownPending . serverInfo)
     cls <- allClientsS
     io $ when (sp && null cls) $ throwIO ShutdownException
@@ -210,7 +210,6 @@
     ri <- clientRoomA
     rnc <- gets roomsClients
     (gameProgress, playersNum) <- io $ room'sM rnc ((isJust . gameInfo) &&& playersIn) ri
-    ready <- client's isReady
     master <- client's isMaster
 --    client <- client's id
     clNick <- client's nick
@@ -218,13 +217,14 @@
 
     if master then
         if gameProgress && playersNum > 1 then
-            mapM_ processAction [ChangeMaster, AnswerClients chans ["LEFT", clNick, msg], NoticeMessage AdminLeft, RemoveClientTeams ci]
+            mapM_ processAction [ChangeMaster, NoticeMessage AdminLeft, RemoveClientTeams ci, AnswerClients chans ["LEFT", clNick, msg]]
             else
             processAction RemoveRoom
         else
-        mapM_ processAction [AnswerClients chans ["LEFT", clNick, msg], RemoveClientTeams ci]
+        mapM_ processAction [RemoveClientTeams ci, AnswerClients chans ["LEFT", clNick, msg]]
 
     -- when not removing room
+    ready <- client's isReady
     when (not master || (gameProgress && playersNum > 1)) . io $ do
         modifyRoom rnc (\r -> r{
                 playersIn = playersIn r - 1,
@@ -251,7 +251,7 @@
     chans <- liftM (map sendChan) $! sameProtoClientsS proto
     processAction $ AnswerClients chans ("ROOM" : "UPD" : oldRoomName : roomInfo (nick newMaster) newRoom)
 
-    
+
 processAction (AddRoom roomName roomPassword) = do
     Just clId <- gets clientIndex
     rnc <- gets roomsClients
@@ -306,16 +306,16 @@
     where
         notReadyMessage p nicks = if p < 38 then "NOT_READY" : nicks else "CLIENT_FLAGS" : "-r" : nicks
 
-        
+
 processAction FinishGame = do
     rnc <- gets roomsClients
     ri <- clientRoomA
     thisRoomChans <- liftM (map sendChan) $ roomClientsS ri
     clNick <- client's nick
-    answerRemovedTeams <- io $ 
+    answerRemovedTeams <- io $
          room'sM rnc (map (\t -> AnswerClients thisRoomChans ["REMOVE_TEAM", t]) . leftTeams . fromJust . gameInfo) ri
-         
-    mapM_ processAction $ 
+
+    mapM_ processAction $
         SaveReplay
         : ModifyRoom
             (\r -> r{
@@ -326,7 +326,7 @@
         : UnreadyRoomClients
         : answerRemovedTeams
 
-        
+
 processAction (SendTeamRemovalMessage teamName) = do
     chans <- othersChans
     mapM_ processAction [
@@ -338,22 +338,22 @@
                 }) $ gameInfo r
             })
         ]
-        
+
     rnc <- gets roomsClients
     ri <- clientRoomA
     gi <- io $ room'sM rnc gameInfo ri
     when (isJust gi && 0 == teamsInGameNumber (fromJust gi)) $
-        processAction FinishGame        
+        processAction FinishGame
     where
         rmTeamMsg = toEngineMsg $ 'F' `B.cons` teamName
-    
-    
+
+
 processAction (RemoveTeam teamName) = do
     rnc <- gets roomsClients
     ri <- clientRoomA
     inGame <- io $ room'sM rnc (isJust . gameInfo) ri
     chans <- othersChans
-    mapM_ processAction $ 
+    mapM_ processAction $
         ModifyRoom (\r -> r{
             teams = Prelude.filter (\t -> teamName /= teamname t) $ teams r
             , gameInfo = liftM (\g -> g{leftTeams = teamName : leftTeams g}) $ gameInfo r
@@ -456,7 +456,7 @@
     bans <- gets (bans . serverInfo)
     processAction $
         AnswerClients [ch] ["BANLIST", B.pack $ show bans]
-    
+
 
 
 processAction (KickRoomClient kickId) = do
@@ -536,7 +536,7 @@
     where
           st irnc = (length $ allRooms irnc, length $ allClients irnc)
 
-processAction RestartServer = do 
+processAction RestartServer = do
     sp <- gets (shutdownPending . serverInfo)
     when (not sp) $ do
         sock <- gets (fromJust . serverSocket . serverInfo)
diff -r 57a508884052 -r 0a494f951dcf gameServer/ClientIO.hs
--- a/gameServer/ClientIO.hs	Thu Jul 26 11:01:32 2012 +0200
+++ b/gameServer/ClientIO.hs	Thu Jul 26 11:10:56 2012 +0200
@@ -43,16 +43,18 @@
 
 clientRecvLoop :: Socket -> Chan CoreMessage -> Chan [B.ByteString] -> ClientIndex -> (forall a. IO a -> IO a) -> IO ()
 clientRecvLoop s chan clChan ci restore =
-    myThreadId >>=
+    (myThreadId >>=
     \t -> (restore $ forkIO (clientSendLoop s t clChan ci) >>
         listenLoop s chan ci >> return "Connection closed")
+        `Exception.catch` (\(e :: ShutdownThreadException) -> return . B.pack . show $ e)
         `Exception.catch` (\(e :: Exception.IOException) -> return . B.pack . show $ e)
-        `Exception.catch` (\(e :: ShutdownThreadException) -> return . B.pack . show $ e)
         `Exception.catch` (\(e :: Exception.SomeException) -> return . B.pack . show $ e)
-        >>= clientOff >> remove
+        >>= clientOff) `Exception.finally` remove
     where
         clientOff msg = writeChan chan $ ClientMessage (ci, ["QUIT", msg])
-        remove = writeChan chan $ Remove ci
+        remove = do
+            clientOff "Client is in some weird state"
+            writeChan chan $ Remove ci
 
 
 
@@ -64,12 +66,11 @@
         killReciever . B.unpack $ quitMessage answer
 
     Exception.handle
-        (\(e :: Exception.IOException) -> unless (isQuit answer) . killReciever $ show e) $
+        (\(e :: Exception.SomeException) -> unless (isQuit answer) . killReciever $ show e) $
             sendAll s $ B.unlines answer `B.snoc` '\n'
 
     if isQuit answer then
-        do
-        Exception.handle (\(_ :: Exception.IOException) -> putStrLn "error on sClose") $ sClose s
+        sClose s
         else
         clientSendLoop s tId chan ci
 
diff -r 57a508884052 -r 0a494f951dcf gameServer/CoreTypes.hs
--- a/gameServer/CoreTypes.hs	Thu Jul 26 11:01:32 2012 +0200
+++ b/gameServer/CoreTypes.hs	Thu Jul 26 11:10:56 2012 +0200
@@ -62,7 +62,7 @@
         hedgehogs :: [HedgehogInfo]
     }
     deriving (Show, Read)
-    
+
 data GameInfo =
     GameInfo
     {
@@ -74,9 +74,9 @@
         giMapParams :: Map.Map B.ByteString B.ByteString,
         giParams :: Map.Map B.ByteString [B.ByteString]
     } deriving (Show, Read)
-    
---newGameInfo ::  -> GameInfo 
-newGameInfo = 
+
+--newGameInfo ::  -> GameInfo
+newGameInfo =
     GameInfo
         Data.Sequence.empty
         []
diff -r 57a508884052 -r 0a494f951dcf gameServer/HWProtoInRoomState.hs
--- a/gameServer/HWProtoInRoomState.hs	Thu Jul 26 11:01:32 2012 +0200
+++ b/gameServer/HWProtoInRoomState.hs	Thu Jul 26 11:10:56 2012 +0200
@@ -79,10 +79,10 @@
         hhsList [_] = error "Hedgehogs list with odd elements number"
         hhsList (n:h:hhs) = HedgehogInfo n h : hhsList hhs
         newTeamHHNum r = min 4 (canAddNumber r)
-        maxTeams r 
+        maxTeams r
             | roomProto r < 38 = 6
             | otherwise = 8
-                
+
 
 handleCmd_inRoom ["REMOVE_TEAM", tName] = do
         (ci, _) <- ask
@@ -171,7 +171,7 @@
     cl <- thisClient
     rm <- thisRoom
     chans <- roomClientsChans
-    
+
     let allPlayersRegistered = all ((<) 0 . B.length . webPassword . client rnc . teamownerId) $ teams rm
 
     if isMaster cl && playersIn rm == readyPlayers rm && not (isJust $ gameInfo rm) then
@@ -247,7 +247,7 @@
     rs <- allRoomInfos
     rm <- thisRoom
     chans <- sameProtoChans
-    
+
     return $
         if not $ isMaster cl then
             [ProtocolError "Not room master"]
diff -r 57a508884052 -r 0a494f951dcf gameServer/HWProtoLobbyState.hs
--- a/gameServer/HWProtoLobbyState.hs	Thu Jul 26 11:01:32 2012 +0200
+++ b/gameServer/HWProtoLobbyState.hs	Thu Jul 26 11:10:56 2012 +0200
@@ -71,7 +71,7 @@
     let nicks = map nick jRoomClients
     let chans = map sendChan (cl : jRoomClients)
     return $
-        if isNothing maybeRI || not sameProto then 
+        if isNothing maybeRI || not sameProto then
             [Warning "No such room"]
             else if isRestrictedJoins jRoom then
             [Warning "Joining restricted"]
@@ -147,12 +147,12 @@
     cl <- thisClient
     banId <- clientByNick banNick
     return [BanClient 60 reason (fromJust banId) | isAdministrator cl && isJust banId && fromJust banId /= ci]
-    
+
 handleCmd_lobby ["BANIP", ip, reason, duration] = do
     (ci, _) <- ask
     cl <- thisClient
     return [BanIP ip (readInt_ duration) reason | isAdministrator cl]
-    
+
 handleCmd_lobby ["BANLIST"] = do
     (ci, _) <- ask
     cl <- thisClient
@@ -172,7 +172,7 @@
     return [ModifyServerInfo (\si -> si{latestReleaseVersion = readNum}) | isAdministrator cl && readNum > 0]
     where
         readNum = readInt_ protoNum
- 
+
 handleCmd_lobby ["GET_SERVER_VAR"] = do
     cl <- thisClient
     return [SendServerVars | isAdministrator cl]
diff -r 57a508884052 -r 0a494f951dcf gameServer/OfficialServer/DBInteraction.hs
--- a/gameServer/OfficialServer/DBInteraction.hs	Thu Jul 26 11:01:32 2012 +0200
+++ b/gameServer/OfficialServer/DBInteraction.hs	Thu Jul 26 11:10:56 2012 +0200
@@ -60,7 +60,7 @@
         CheckAccount clId clUid clNick _ -> do
             let cacheEntry = clNick `Map.lookup` accountsCache
             currentTime <- getCurrentTime
-            if (isNothing cacheEntry) || (currentTime `diffUTCTime` (fst . fromJust) cacheEntry > 2 * 24 * 60 * 60) then
+            if (isNothing cacheEntry) || (currentTime `diffUTCTime` (fst . fromJust) cacheEntry > 10 * 60) then
                 do
                     SIO.hPutStrLn hIn $ show q
                     hFlush hIn
diff -r 57a508884052 -r 0a494f951dcf hedgewars/CMakeLists.txt
--- a/hedgewars/CMakeLists.txt	Thu Jul 26 11:01:32 2012 +0200
+++ b/hedgewars/CMakeLists.txt	Thu Jul 26 11:10:56 2012 +0200
@@ -32,6 +32,7 @@
     uFloat.pas
     uGame.pas
     uGears.pas
+    uGearsHandlers.pas
     uGearsRender.pas
     uIO.pas
     uInputHandler.pas
diff -r 57a508884052 -r 0a494f951dcf hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Thu Jul 26 11:01:32 2012 +0200
+++ b/hedgewars/GSHandlers.inc	Thu Jul 26 11:10:56 2012 +0200
@@ -116,12 +116,12 @@
         
     if lastGearByUID = HH^.Gear then
         lastGearByUID := nil;
-        
-    RemoveGearFromList(HH^.Gear);
+    
+    HH^.Gear^.Message:= HH^.Gear^.Message or gmRemoveFromList;
     with HH^.Gear^ do
         begin
         Z := cHHZ;
-        Active := false;
+        HH^.Gear^.Active:= false;
         State:= State and (not (gstHHDriven or gstAttacking or gstAttacked));
         Message := Message and (not gmAttack);
     end;
@@ -733,7 +733,14 @@
 ////////////////////////////////////////////////////////////////////////////////
 procedure doStepGrave(Gear: PGear);
 begin
+    if (Gear^.Message and gmDestroy) <> 0 then
+        begin
+        DeleteGear(Gear);
+        exit
+        end;
+
     AllInactive := false;
+
     if Gear^.dY.isNegative then
         if TestCollisionY(Gear, -1) then
             Gear^.dY := _0;
@@ -2080,6 +2087,7 @@
     dX, dY: HWFloat;
     hog: PHedgehog;
     sparkles: PVisualGear;
+    gi: PGear;
 begin
     k := Gear^.Kind;
     exBoom := false;
@@ -2114,21 +2122,37 @@
         end
     else
         begin 
+        if (Gear^.Pos <> posCaseHealth) and (GameTicks and $3FF = 0) then // stir it up every second or so
+            begin
+            gi := GearsList;
+            while gi <> nil do
+                begin
+                if gi^.Kind = gtGenericFaller then
+                    begin
+                    gi^.Active:= true;
+                    gi^.X:=  int2hwFloat(GetRandom(rightX-leftX)+leftX);
+                    gi^.Y:=  int2hwFloat(GetRandom(LAND_HEIGHT-topY)+topY);
+                    gi^.dX:= _90-(GetRandomf*_360);
+                    gi^.dY:= _90-(GetRandomf*_360)
+                    end;
+                gi := gi^.NextGear
+                end
+            end;
+
         if Gear^.Timer = 500 then
             begin
 (* Can't make sparkles team coloured without working out what the next team is going to be. This should be solved, really, since it also screws up
    voices. Reinforcements voices is heard for active team, not team-to-be.  Either that or change crate spawn from end of turn to start, although that
    has its own complexities. *)
             // Abuse a couple of gear values to track origin
-            Gear^.Angle:= hwRound(Gear^.X);
-            Gear^.Power:= hwRound(Gear^.Y);
+            Gear^.Angle:= hwRound(Gear^.Y);
             Gear^.Tag:= random(2);
             inc(Gear^.Timer)
             end;
         if Gear^.Timer < 1833 then inc(Gear^.Timer);
         if Gear^.Timer = 1000 then
             begin
-            sparkles:= AddVisualGear(Gear^.Angle, Gear^.Power, vgtDust, 1);
+            sparkles:= AddVisualGear(hwRound(Gear^.X), Gear^.Angle, vgtDust, 1);
             if sparkles <> nil then
                 begin
                 sparkles^.dX:= 0;
@@ -2382,7 +2406,7 @@
                 //DrawExplosion(gX, gY, 4);
                 
                 if ((GameTicks and $7) = 0) and (Random(2) = 0) then
-                    for i:= 1 to Random(2)+1 do
+                    for i:= Random(2) downto 0 do
                         AddVisualGear(gX - 3 + Random(6), gY - 2, vgtSmoke);
                         
                 if Gear^.Health > 0 then
@@ -2396,7 +2420,7 @@
                     begin
                     DrawExplosion(gX, gY, 4);
 
-                    for i:= 0 to Random(3) do
+                    for i:= Random(3) downto 0 do
                         AddVisualGear(gX - 3 + Random(6), gY - 2, vgtSmoke);
                     end;
 
@@ -2414,20 +2438,12 @@
         if not sticky then
             begin
             if ((GameTicks and $3) = 0) and (Random(1) = 0) then
-                begin
-                for i:= 1 to Random(2)+1 do
-                    begin
+                for i:= Random(2) downto 0 do
                     AddVisualGear(gX - 3 + Random(6), gY - 2, vgtSmoke);
-                    end;
-                end;
             end
         else
-            begin
-            for i:= 0 to Random(3) do
-                begin
+            for i:= Random(3) downto 0 do
                 AddVisualGear(gX - 3 + Random(6), gY - 2, vgtSmoke);
-                end;
-            end;
 
         DeleteGear(Gear)
         end;
@@ -2751,16 +2767,17 @@
 procedure doStepSwitcherWork(Gear: PGear);
 var 
     HHGear: PGear;
+    hedgehog: PHedgehog;
     State: Longword;
 begin
     AllInactive := false;
 
     if ((Gear^.Message and (not gmSwitch)) <> 0) or (TurnTimeLeft = 0) then
         begin
-        HHGear := Gear^.Hedgehog^.Gear;
+        hedgehog := Gear^.Hedgehog;
         //Msg := Gear^.Message and (not gmSwitch);
         DeleteGear(Gear);
-        ApplyAmmoChanges(HHGear^.Hedgehog^);
+        ApplyAmmoChanges(hedgehog^);
 
         HHGear := CurrentHedgehog^.Gear;
         ApplyAmmoChanges(HHGear^.Hedgehog^);
@@ -2775,10 +2792,9 @@
         Gear^.Message := Gear^.Message and (not gmSwitch);
         State := HHGear^.State;
         HHGear^.State := 0;
+        HHGear^.Z := cHHZ;
         HHGear^.Active := false;
-        HHGear^.Z := cHHZ;
-        RemoveGearFromList(HHGear);
-        InsertGearToList(HHGear);
+        HHGear^.Message:= HHGear^.Message or gmRemoveFromList or gmAddToList;
 
         PlaySound(sndSwitchHog);
 
@@ -2794,8 +2810,7 @@
         HHGear^.Active := true;
         FollowGear := HHGear;
         HHGear^.Z := cCurrHHZ;
-        RemoveGearFromList(HHGear);
-        InsertGearToList(HHGear);
+        HHGear^.Message:= HHGear^.Message or gmRemoveFromList or gmAddToList;
         Gear^.X := HHGear^.X;
         Gear^.Y := HHGear^.Y
         end;
@@ -2940,7 +2955,7 @@
                         end
                 end;
         AfterAttack;
-        DeleteGear(HHGear);
+        HHGear^.Message:= HHGear^.Message or gmDestroy;
         DeleteGear(Gear);
     end
     else
@@ -2984,7 +2999,6 @@
 ////////////////////////////////////////////////////////////////////////////////
 
 const cakeh =   27;
-    cakeDmg =   75;
 var 
     CakePoints: array[0..Pred(cakeh)] of record
         x, y: hwFloat;
@@ -3054,20 +3068,10 @@
 end;
 
 
-procedure PrevAngle(Gear: PGear; dA: LongInt);
-begin
-    Gear^.Angle := (LongInt(Gear^.Angle) + 4 - dA) mod 4
-end;
-
-procedure NextAngle(Gear: PGear; dA: LongInt);
-begin
-    Gear^.Angle := (LongInt(Gear^.Angle) + 4 + dA) mod 4
-end;
-
 procedure doStepCakeWork(Gear: PGear);
 
 const dirs: array[0..3] of TPoint =   ((X: 0; Y: -1), (X: 1; Y: 0),(X: 0; Y: 1),(X: -1; Y: 0));
-var 
+var
     xx, yy, xxn, yyn: LongInt;
     dA: LongInt;
     tdx, tdy: hwFloat;
@@ -3078,39 +3082,20 @@
     if Gear^.Tag < 7 then
         exit;
 
-    dA := hwSign(Gear^.dX);
-    xx := dirs[Gear^.Angle].x;
-    yy := dirs[Gear^.Angle].y;
-    xxn := dirs[(LongInt(Gear^.Angle) + 4 + dA) mod 4].x;
-    yyn := dirs[(LongInt(Gear^.Angle) + 4 + dA) mod 4].y;
-
-    if (xx = 0) then
-        if TestCollisionYwithGear(Gear, yy) <> 0 then
-            PrevAngle(Gear, dA)
-    else
-        begin
-        Gear^.Tag := 0;
-        Gear^.Y := Gear^.Y + int2hwFloat(yy);
-        if not TestCollisionXwithGear(Gear, xxn) then
-            begin
-            Gear^.X := Gear^.X + int2hwFloat(xxn);
-            NextAngle(Gear, dA)
-            end;
+    dec(Gear^.Health);
+    Gear^.Timer := Gear^.Health*10;
+    if Gear^.Health mod 100 = 0 then
+        Gear^.PortalCounter:= 0;
+    // This is not seconds, but at least it is *some* feedback
+    if (Gear^.Health = 0) or ((Gear^.Message and gmAttack) <> 0) then
+        begin
+        FollowGear := Gear;
+        Gear^.RenderTimer := false;
+        Gear^.doStep := @doStepCakeDown;
+        exit
         end;
 
-    if (yy = 0) then
-        if TestCollisionXwithGear(Gear, xx) then
-            PrevAngle(Gear, dA)
-    else
-        begin
-        Gear^.Tag := 0;
-        Gear^.X := Gear^.X + int2hwFloat(xx);
-        if TestCollisionYwithGear(Gear, yyn) = 0 then
-            begin
-            Gear^.Y := Gear^.Y + int2hwFloat(yyn);
-            NextAngle(Gear, dA)
-            end;
-        end;
+    cakeStep(Gear);
 
     if Gear^.Tag = 0 then
         begin
@@ -3121,18 +3106,6 @@
         CakePoints[CakeI].y := Gear^.Y;
         Gear^.DirAngle := DxDy2Angle(tdx, tdy);
         end;
-
-    dec(Gear^.Health);
-    Gear^.Timer := Gear^.Health*10;
-    if Gear^.Health mod 100 = 0 then
-        Gear^.PortalCounter:= 0;
-    // This is not seconds, but at least it is *some* feedback
-    if (Gear^.Health = 0) or ((Gear^.Message and gmAttack) <> 0) then
-        begin
-        FollowGear := Gear;
-        Gear^.RenderTimer := false;
-        Gear^.doStep := @doStepCakeDown
-        end
 end;
 
 procedure doStepCakeUp(Gear: PGear);
@@ -3193,23 +3166,22 @@
 ////////////////////////////////////////////////////////////////////////////////
 procedure doStepSeductionWork(Gear: PGear);
 var i: LongInt;
-    hogs: TPGearArray;
+    hogs: PGearArrayS;
 begin
     AllInactive := false;
     hogs := GearsNear(Gear^.X, Gear^.Y, gtHedgehog, Gear^.Radius);
-    if Length(hogs) > 0 then
-        begin
-        for i:= 0 to Length(hogs) - 1 do
-            begin
-            if hogs[i] <> CurrentHedgehog^.Gear then
+    if hogs.size > 0 then
+        begin
+        for i:= 0 to hogs.size - 1 do
+            with hogs.ar^[i]^ do
                 begin
-                //d:= Distance(Gear^.X - hogs[i]^.X, Gear^.Y - hogs[i]^.Y);
-                hogs[i]^.dX:= _50 * cGravity * (Gear^.X - hogs[i]^.X) / _25;
-                //if Gear^.X < hogs[i]^.X then hogs[i]^.dX.isNegative:= true;
-                hogs[i]^.dY:= -_450 * cGravity;
-                hogs[i]^.Active:= true;
-                end
-            end;
+                if hogs.ar^[i] <> CurrentHedgehog^.Gear then
+                    begin
+                    dX:= _50 * cGravity * (Gear^.X - X) / _25;
+                    dY:= -_450 * cGravity;
+                    Active:= true;
+                    end
+                end;
         end ;
         AfterAttack;
         DeleteGear(Gear);
@@ -3331,10 +3303,10 @@
         if (Gear^.Timer mod 30) = 0 then
             AddVisualGear(hwRound(Gear^.X + _20 * Gear^.dX), hwRound(Gear^.Y + _20 * Gear^.dY), vgtDust);
         if (CheckGearDrowning(Gear)) then
-           begin
+            begin
             StopSoundChan(Gear^.SoundChannel);
             exit
-    end
+        end
     end;
 
     if GameTicks > Gear^.FlightTime then
@@ -3425,8 +3397,9 @@
         end
     else if ((Gear^.State and gsttmpFlag) <> 0) and (Gear^.Tag <> 0) then
         begin
-        if Gear^.Timer > 0 then dec(Gear^.Timer);
-        if Gear^.Timer = 0 then
+        if Gear^.Timer > 0 then 
+            dec(Gear^.Timer)
+        else
             begin
             doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, Gear^.Hedgehog, EXPLAutoSound);
             DeleteGear(Gear);
@@ -4338,7 +4311,7 @@
         and (CurAmmoGear^.Kind =gtRope) then
                CurAmmoGear^.PortalCounter:= 1;
 
-        if not isbullet
+        if not isbullet and (iterator^.State and gstInvisible = 0) 
         and (iterator^.Kind <> gtFlake) then
             FollowGear := iterator;
 
@@ -4417,7 +4390,7 @@
         Gear^.State := Gear^.State and (not gstMoving);
         
         if (Land[y, x] and lfBouncy <> 0)
-        or not CalcSlopeTangent(Gear, x, y, tx, ty, 255)
+        or (not CalcSlopeTangent(Gear, x, y, tx, ty, 255))
         or (DistanceI(tx,ty) < _12) then // reject shots at too irregular terrain
             begin
             loadNewPortalBall(Gear, true);
@@ -4697,11 +4670,13 @@
 
                     // add some fire to the tunnel
                     if getRandom(6) = 0 then
-                        AddGear(x - Gear^.Radius + LongInt(getRandom(2 * Gear^.Radius)), y -
-                        getRandom(Gear^.Radius + 1), gtFlame, gsttmpFlag, _0, _0, 0);
+                        begin
+                        tmp:= GetRandom(2 * Gear^.Radius);
+                        AddGear(x - Gear^.Radius + tmp, y - GetRandom(Gear^.Radius + 1), gtFlame, gsttmpFlag, _0, _0, 0)
+                        end
                     end;
 
-                if getRandom(100) = 0 then
+                if random(100) = 0 then
                     AddVisualGear(x, y, vgtSmokeTrace); 
                 end
                 else dec(Gear^.Health, 5); // if underwater get additional damage
@@ -5061,7 +5036,7 @@
 ////////////////////////////////////////////////////////////////////////////////
 procedure doStepResurrectorWork(Gear: PGear);
 var
-    graves: TPGearArray;
+    graves: PGearArrayS;
     resgear: PGear;
     hh: PHedgehog;
     i: LongInt;
@@ -5096,7 +5071,7 @@
 
     graves := GearsNear(Gear^.X, Gear^.Y, gtGrave, Gear^.Radius);
 
-    if Length(graves) = 0 then
+    if graves.size = 0 then
         begin
         StopSoundChan(Gear^.SoundChannel);
         Gear^.Timer := 250;
@@ -5106,12 +5081,13 @@
 
     if ((Gear^.Message and gmAttack) <> 0) and (hh^.Gear^.Health > 0) and (TurnTimeLeft > 0) then
         begin
-        if Length(graves) <= Gear^.Tag then Gear^.Tag:= 0;
+        if graves.size <= Gear^.Tag then Gear^.Tag:= 0;
         dec(hh^.Gear^.Health);
         if (hh^.Gear^.Health = 0) and (hh^.Gear^.Damage = 0) then
             hh^.Gear^.Damage:= 1;
         RenderHealth(hh^);
-        inc(graves[Gear^.Tag]^.Health);
+        RecountTeamHealth(hh^.Team);
+        inc(graves.ar^[Gear^.Tag]^.Health);
         inc(Gear^.Tag)
 {-for i:= 0 to High(graves) do begin
             if hh^.Gear^.Health > 0 then begin
@@ -5123,19 +5099,20 @@
     else 
         begin
         // now really resurrect the hogs with the hp saved in the graves
-        for i:= 0 to Length(graves) - 1 do
-            if graves[i]^.Health > 0 then
+        for i:= 0 to graves.size - 1 do
+            if graves.ar^[i]^.Health > 0 then
                 begin
-                resgear := AddGear(hwRound(graves[i]^.X), hwRound(graves[i]^.Y), gtHedgehog, gstWait, _0, _0, 0);
-                resgear^.Hedgehog := graves[i]^.Hedgehog;
-                resgear^.Health := graves[i]^.Health;
-                PHedgehog(graves[i]^.Hedgehog)^.Gear := resgear;
-                DeleteGear(graves[i]);
+                resgear := AddGear(hwRound(graves.ar^[i]^.X), hwRound(graves.ar^[i]^.Y), gtHedgehog, gstWait, _0, _0, 0);
+                resgear^.Hedgehog := graves.ar^[i]^.Hedgehog;
+                resgear^.Health := graves.ar^[i]^.Health;
+                PHedgehog(graves.ar^[i]^.Hedgehog)^.Gear := resgear;
+                graves.ar^[i]^.Message:= graves.ar^[i]^.Message or gmDestroy;
+                graves.ar^[i]^.Active:= true;
                 RenderHealth(resgear^.Hedgehog^);
                 RecountTeamHealth(resgear^.Hedgehog^.Team);
                 resgear^.Hedgehog^.Effects[heResurrected]:= 1;
                 // only make hat-less hedgehogs look like zombies, preserve existing hats
-                
+
                 if resgear^.Hedgehog^.Hat = 'NoHat' then
                     LoadHedgehogHat(resgear, 'Reserved/Zombie');
                 end;
@@ -5152,18 +5129,18 @@
 
 procedure doStepResurrector(Gear: PGear);
 var
-    graves: TPGearArray;
+    graves: PGearArrayS;
     i: LongInt;
 begin
     AllInactive := false;
     graves := GearsNear(Gear^.X, Gear^.Y, gtGrave, Gear^.Radius);
 
-    if Length(graves) > 0 then
-        begin
-        for i:= 0 to Length(graves) - 1 do
+    if graves.size > 0 then
+        begin
+        for i:= 0 to graves.size - 1 do
             begin
-            PHedgehog(graves[i]^.Hedgehog)^.Gear := nil;
-            graves[i]^.Health := 0;
+            PHedgehog(graves.ar^[i]^.Hedgehog)^.Gear := nil;
+            graves.ar^[i]^.Health := 0;
             end;
         Gear^.doStep := @doStepResurrectorWork;
         end 
@@ -5482,7 +5459,7 @@
     HHGear, iter: PGear;
     ndX, ndY: hwFloat;
     i, t, gX, gY: LongInt;
-    hogs: TPGearArray;
+    hogs: PGearArrayS;
 begin
     HHGear := Gear^.Hedgehog^.Gear;
     if (Gear^.Health = 0) or (HHGear = nil) or (HHGear^.Damage <> 0) then
@@ -5546,9 +5523,9 @@
 // freeze nearby hogs
                 if GameTicks mod 10 = 0 then dec(Gear^.Health);
                 hogs := GearsNear(Gear^.X, Gear^.Y, gtHedgehog, Gear^.Radius);
-                if Length(hogs) > 0 then
-                    for i:= 0 to Length(hogs) - 1 do
-                        if hogs[i] <> HHGear then
+                if hogs.size > 0 then
+                    for i:= 0 to hogs.size - 1 do
+                        if hogs.ar^[i] <> HHGear then
                             begin
                             //if Gear^.Hedgehog^.Effects[heFrozen]:= 0;
                             end;
@@ -5574,3 +5551,41 @@
         end
     end;
 end;
+
+procedure doStepAddAmmo(Gear: PGear);
+var a: TAmmoType;
+    gi: PGear;
+begin
+if Gear^.Timer > 0 then dec(Gear^.Timer)
+else
+    begin
+    if Gear^.Pos = posCaseUtility then
+        a:= GetUtility(Gear^.Hedgehog)
+    else
+        a:= GetAmmo(Gear^.Hedgehog);
+    CheckSum:= CheckSum xor GameTicks;
+    gi := GearsList;
+    while gi <> nil do
+        begin
+        with gi^ do CheckSum:= CheckSum xor X.round xor X.frac xor dX.round xor dX.frac xor Y.round xor Y.frac xor dY.round xor dY.frac;
+        AddRandomness(CheckSum);
+        gi := gi^.NextGear
+        end;
+    AddPickup(Gear^.Hedgehog^, a, Gear^.Power, hwRound(Gear^.X), hwRound(Gear^.Y));
+    DeleteGear(Gear)
+    end;
+end;
+
+procedure doStepGenericFaller(Gear: PGear);
+begin
+if Gear^.Timer < $FFFFFFFF then
+    if Gear^.Timer > 0 then
+        dec(Gear^.Timer)
+    else
+        begin
+        DeleteGear(Gear);
+        exit
+        end;
+    
+doStepFallingGear(Gear);
+end;
diff -r 57a508884052 -r 0a494f951dcf hedgewars/VGSHandlers.inc
--- a/hedgewars/VGSHandlers.inc	Thu Jul 26 11:01:32 2012 +0200
+++ b/hedgewars/VGSHandlers.inc	Thu Jul 26 11:10:56 2012 +0200
@@ -27,6 +27,7 @@
 
 procedure doStepFlake(Gear: PVisualGear; Steps: Longword);
 var sign: real;
+    moved: boolean;
 begin
 if vobCount = 0 then exit;
 
@@ -84,21 +85,37 @@
         end
     else
         begin
+        moved:= false;
         if round(X) < cLeftScreenBorder then
-            X:= X + cScreenSpace
+            begin
+            X:= X + cScreenSpace;
+            moved:= true
+            end
         else
             if round(X) > cRightScreenBorder then
+                begin
                 X:= X - cScreenSpace;
+                moved:= true
+                end;
             // if round(Y) < (LAND_HEIGHT - 1024 - 75) then Y:= Y + 25.0; // For if flag is set for flakes rising upwards?
         if (Gear^.Layer = 2) and (round(Y) - 225 > LAND_HEIGHT) then
             begin
             X:= cLeftScreenBorder + random(cScreenSpace);
-            Y:= Y - (1024 + 250 + random(50)) // TODO - configure in theme (jellies for example could use limited range)
+            Y:= Y - (1024 + 250 + random(50)); // TODO - configure in theme (jellies for example could use limited range)
+            moved:= true
             end
         else if (Gear^.Layer <> 2) and (round(Y) + 50 > LAND_HEIGHT) then
             begin
             X:= cLeftScreenBorder + random(cScreenSpace);
-            Y:= Y - (1024 + random(25))
+            Y:= Y - (1024 + random(25));
+            moved:= true
+            end;
+        if moved then
+            begin
+            Angle:= random(360);
+            dx:= 0.0000038654705 * random(10000);
+            dy:= 0.000003506096 * random(7000);
+            if random(2) = 0 then dx := -dx
             end;
         Timer:= 0;
         tdX:= 0;
diff -r 57a508884052 -r 0a494f951dcf hedgewars/hwengine.pas
--- a/hedgewars/hwengine.pas	Thu Jul 26 11:01:32 2012 +0200
+++ b/hedgewars/hwengine.pas	Thu Jul 26 11:10:56 2012 +0200
@@ -32,7 +32,7 @@
 uses SDLh, uMisc, uConsole, uGame, uConsts, uLand, uAmmos, uVisualGears, uGears, uStore, uWorld, uInputHandler, uSound,
      uScript, uTeams, uStats, uIO, uLocale, uChat, uAI, uAIMisc, uRandom, uLandTexture, uCollisions,
      SysUtils, uTypes, uVariables, uCommands, uUtils, uCaptions, uDebug, uCommandHandlers, uLandPainted
-     {$IFDEF SDL13}, uTouch{$ENDIF}{$IFDEF ANDROID}, GLUnit{$ENDIF};
+     {$IFDEF SDL13}, uTouch{$ENDIF}{$IFDEF ANDROID}, GLUnit{$ENDIF}, uAILandMarks;
 
 {$IFDEF HWLIBRARY}
 procedure initEverything(complete:boolean);
@@ -401,6 +401,7 @@
         uAI.initModule;
         //uAIActions does not need initialization
         //uAIAmmoTests does not need initialization
+        uAILandMarks.initModule;
         uAIMisc.initModule;
         uAmmos.initModule;
         uChat.initModule;
@@ -432,6 +433,7 @@
     begin
         WriteLnToConsole('Freeing resources...');
         uAI.freeModule;
+        uAILandMarks.freeModule;
         uAIMisc.freeModule;         //stub
         uCaptions.freeModule;
         uWorld.freeModule;
diff -r 57a508884052 -r 0a494f951dcf hedgewars/uAI.pas
--- a/hedgewars/uAI.pas	Thu Jul 26 11:01:32 2012 +0200
+++ b/hedgewars/uAI.pas	Thu Jul 26 11:10:56 2012 +0200
@@ -31,7 +31,7 @@
 implementation
 uses uConsts, SDLh, uAIMisc, uAIAmmoTests, uAIActions,
     uAmmos, SysUtils{$IFNDEF USE_SDLTHREADS} {$IFDEF UNIX}, cthreads{$ENDIF} {$ENDIF}, uTypes,
-    uVariables, uCommands, uUtils, uDebug;
+    uVariables, uCommands, uUtils, uDebug, uAILandMarks;
 
 var BestActions: TActions;
     CanUseAmmo: array [TAmmoType] of boolean;
@@ -191,7 +191,14 @@
                             AddAction(BestActions, aia_attack, aim_push, 650 + random(300), 0, 0);
                             AddAction(BestActions, aia_attack, aim_release, ap.Power, 0, 0);
                             end;
-                            
+
+                    if (Ammoz[a].Ammo.Propz and ammoprop_Track) <> 0 then
+                        begin
+                        AddAction(BestActions, aia_waitAmmoXY, 0, 12, ap.ExplX, ap.ExplY);
+                        AddAction(BestActions, aia_attack, aim_push, 1, 0, 0);
+                        AddAction(BestActions, aia_attack, aim_release, 7, 0, 0);
+                        end;
+
                     if ap.ExplR > 0 then
                         AddAction(BestActions, aia_AwareExpl, ap.ExplR, 10, ap.ExplX, ap.ExplY);
                     end
@@ -205,7 +212,7 @@
 end;
 
 procedure Walk(Me: PGear; var Actions: TActions);
-const FallPixForBranching = cHHRadius * 2 + 8;
+const FallPixForBranching = cHHRadius;
 var
     ticks, maxticks, steps, tmp: Longword;
     BaseRate, BestRate, Rate: integer;
@@ -268,6 +275,7 @@
 
             if (BotLevel < 5) and (GoInfo.JumpType = jmpHJump) then // hjump support
                 if Push(ticks, Actions, AltMe, Me^.Message) then
+                    begin
                     with Stack.States[Pred(Stack.Count)] do
                         begin
                         if Me^.dX.isNegative then
@@ -283,11 +291,21 @@
                         else
                             AddAction(MadeActions, aia_LookRight, 0, 200, 0, 0);
                         end;
+                    
+                    // check if we could go backwards and maybe ljump over a gap after this hjump
+                    Push(ticks, Stack.States[Pred(Stack.Count)].MadeActions, AltMe, Me^.Message xor 3)
+                    end;
             if (BotLevel < 3) and (GoInfo.JumpType = jmpLJump) then // ljump support
                 begin
-                // push current position so we proceed from it after checking jump opportunities
+                // at final check where we go after jump walking backward
+                if Push(ticks, Actions, AltMe, Me^.Message xor 3) then
+                    with Stack.States[Pred(Stack.Count)] do
+                        AddAction(MadeActions, aia_LJump, 0, 305 + random(50), 0, 0);
+
+                // push current position so we proceed from it after checking jump+forward walk opportunities
                 if CanGo then Push(ticks, Actions, Me^, Me^.Message);
-                // first check where we go after jump
+                
+                // first check where we go after jump walking forward
                 if Push(ticks, Actions, AltMe, Me^.Message) then
                     with Stack.States[Pred(Stack.Count)] do
                         AddAction(MadeActions, aia_LJump, 0, 305 + random(50), 0, 0);
@@ -310,8 +328,16 @@
                 end
             else if Rate < BestRate then
                 break;
+                
             if ((Me^.State and gstAttacked) = 0) and ((steps mod 4) = 0) then
+                begin
+                if (steps > 4) and checkMark(hwRound(Me^.X), hwRound(Me^.Y), markWasHere) then
+                    break;                    
+                addMark(hwRound(Me^.X), hwRound(Me^.Y), markWasHere);
+                
                 TestAmmos(Actions, Me, true);
+                end;
+                
             if GoInfo.FallPix >= FallPixForBranching then
                 Push(ticks, Actions, Me^, Me^.Message xor 3); // aia_Left xor 3 = aia_Right
             end {while};
@@ -336,7 +362,9 @@
 switchesNum:= 0;
 
 switchImmediatelyAvailable:= (CurAmmoGear <> nil) and (CurAmmoGear^.Kind = gtSwitcher);
-switchCount:= HHHasAmmo(PGear(Me)^.Hedgehog^, amSwitch);
+if PGear(Me)^.Hedgehog^.BotLevel <> 5 then
+    switchCount:= HHHasAmmo(PGear(Me)^.Hedgehog^, amSwitch)
+else switchCount:= 0;
 
 if (PGear(Me)^.State and gstAttacked) = 0 then
     if Targets.Count > 0 then
@@ -390,6 +418,11 @@
     BackMe:= PGear(Me)^;
     while (not StopThinking) and (BestActions.Count = 0) do
         begin
+(*
+        // Maybe this would get a bit of movement out of them? Hopefully not *toward* water. Need to check how often he'd choose that strategy
+        if SuddenDeathDmg and ((hwRound(BackMe.Y)+cWaterRise*2) > cWaterLine) then
+            AddBonus(hwRound(BackMe.X), hwRound(BackMe.Y), 250, -40);
+*)
         FillBonuses(true);
         WalkMe:= BackMe;
         Actions.Count:= 0;
@@ -401,7 +434,7 @@
         end
     end;
 
-PGear(Me)^.State:= PGear(Me)^.State and not gstHHThinking;
+PGear(Me)^.State:= PGear(Me)^.State and (not gstHHThinking);
 Think:= 0;
 InterlockedDecrement(hasThread)
 end;
@@ -412,7 +445,9 @@
 or isInMultiShoot then
     exit;
 
-//DeleteCI(Me); // this might break demo
+//DeleteCI(Me); // this will break demo/netplay
+clearAllMarks;
+
 Me^.State:= Me^.State or gstHHThinking;
 Me^.Message:= 0;
 
@@ -469,12 +504,11 @@
                 
             end else
                 begin
-                (*
-                if not scoreShown then
+                {if not scoreShown then
                     begin
                     if BestActions.Score > 0 then ParseCommand('/say Expected score = ' + inttostr(BestActions.Score div 1024), true);
                     scoreShown:= true
-                    end;*)
+                    end;}
                 ProcessAction(BestActions, Gear)
                 end
         else if ((GameTicks - StartTicks) > cMaxAIThinkTime)
diff -r 57a508884052 -r 0a494f951dcf hedgewars/uAIActions.pas
--- a/hedgewars/uAIActions.pas	Thu Jul 26 11:01:32 2012 +0200
+++ b/hedgewars/uAIActions.pas	Thu Jul 26 11:10:56 2012 +0200
@@ -44,6 +44,7 @@
     aia_Wait       = $8009;
     aia_Put        = $800A;
     aia_waitAngle  = $800B;
+    aia_waitAmmoXY = $800C;
     
     aim_push       = $8000;
     aim_release    = $8001;
@@ -115,19 +116,19 @@
 
 procedure AddAction(var Actions: TActions; Action: Longword; Param: LongInt; TimeDelta: Longword; X, Y: LongInt);
 begin
-with Actions do
-    begin
-    actions[Count].Action:= Action;
-    actions[Count].Param:= Param;
-    actions[Count].X:= X;
-    actions[Count].Y:= Y;
-    if Count > 0 then
-        actions[Count].Time:= TimeDelta
-    else
-        actions[Count].Time:= GameTicks + TimeDelta;
-    inc(Count);
-    TryDo(Count < MAXACTIONS, 'AI: actions overflow', true);
-    end
+if Actions.Count < MAXACTIONS then
+    with Actions do
+        begin
+        actions[Count].Action:= Action;
+        actions[Count].Param:= Param;
+        actions[Count].X:= X;
+        actions[Count].Y:= Y;
+        if Count > 0 then
+            actions[Count].Time:= TimeDelta
+        else
+            actions[Count].Time:= GameTicks + TimeDelta;
+        inc(Count);
+        end
 end;
 
 procedure CheckHang(Me: PGear);
@@ -234,6 +235,10 @@
                 
             aia_waitAngle:
                 if Me^.Angle <> Abs(Param) then exit;
+
+            aia_waitAmmoXY:
+                if (CurAmmoGear <> nil) and ((hwRound(CurAmmoGear^.X) <> X) or (hwRound(CurAmmoGear^.Y) <> Y)) then exit;
+
             end
         else
             begin
diff -r 57a508884052 -r 0a494f951dcf hedgewars/uAIAmmoTests.pas
--- a/hedgewars/uAIAmmoTests.pas	Thu Jul 26 11:01:32 2012 +0200
+++ b/hedgewars/uAIAmmoTests.pas	Thu Jul 26 11:10:56 2012 +0200
@@ -50,6 +50,7 @@
 function TestAirAttack(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;
 function TestTeleport(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;
 function TestHammer(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;
+function TestCake(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;
 
 type TAmmoTestProc = function (Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;
     TAmmoTest = record
@@ -84,7 +85,7 @@
             (proc: nil;              flags: 0), // amSwitch
             (proc: @TestMortar;      flags: 0), // amMortar
             (proc: nil;              flags: 0), // amKamikaze
-            (proc: nil;              flags: 0), // amCake
+            (proc: @TestCake;        flags: amtest_OnTurn or amtest_NoTarget), // amCake
             (proc: nil;              flags: 0), // amSeduction
             (proc: @TestWatermelon;  flags: 0), // amWatermelon
             (proc: nil;              flags: 0), // amHellishBomb
@@ -121,7 +122,7 @@
 const BadTurn = Low(LongInt) div 4;
 
 implementation
-uses uAIMisc, uVariables, uUtils;
+uses uAIMisc, uVariables, uUtils, uGearsHandlers, uCollisions;
 
 function Metric(x1, y1, x2, y2: LongInt): LongInt; inline;
 begin
@@ -599,6 +600,7 @@
     d: Longword;
     fallDmg, valueResult: LongInt;
 begin
+if Me^.Hedgehog^.BotLevel > 3 then exit(BadTurn);
 dmgMod:= 0.01 * hwFloat2Float(cDamageModifier) * cDamagePercent;
 Level:= Level; // avoid compiler hint
 ap.ExplR:= 0;
@@ -648,6 +650,7 @@
     d: Longword;
     fallDmg, valueResult: LongInt;
 begin
+if Me^.Hedgehog^.BotLevel > 3 then exit(BadTurn);
 dmgMod:= 0.01 * hwFloat2Float(cDamageModifier) * cDamagePercent;
 Level:= Level; // avoid compiler hint
 ap.ExplR:= 0;
@@ -694,9 +697,11 @@
 
 function TestBaseballBat(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;
 var valueResult, a, v1, v2: LongInt;
-    x, y: LongInt;
+    x, y, trackFall: LongInt;
     dx, dy: real;
 begin
+    if Me^.Hedgehog^.BotLevel < 3 then trackFall:= afTrackFall
+    else trackFall:= 0;
     Level:= Level; // avoid compiler hint
     ap.ExplR:= 0;
     ap.Time:= 0;
@@ -704,20 +709,20 @@
     x:= hwRound(Me^.X);
     y:= hwRound(Me^.Y);
 
-    a:= 0;
+    a:= cMaxAngle div 2;
     valueResult:= 0;
 
-    while a <= cMaxAngle div 2 do
+    while a >= 0 do
         begin
         dx:= sin(a / cMaxAngle * pi) * 0.5;
         dy:= cos(a / cMaxAngle * pi) * 0.5;
 
-        v1:= RateShove(Me, x - 10, y
-                , 33, 30, 115
-                , -dx, -dy, afTrackFall);
-        v2:= RateShove(Me, x + 10, y
-                , 33, 30, 115
-                , dx, -dy, afTrackFall);
+        v1:= RateShove(Me, x - 10, y + 2
+                , 32, 30, 115
+                , -dx, -dy, trackFall);
+        v2:= RateShove(Me, x + 10, y + 2
+                , 32, 30, 115
+                , dx, -dy, trackFall);
         if (v1 > valueResult) or (v2 > valueResult) then
             if (v2 > v1) 
                 or {don't encourage turning for no gain}((v2 = v1) and (not Me^.dX.isNegative)) then
@@ -731,7 +736,7 @@
                 valueResult:= v1
                 end;
 
-        a:= a + 15 + random(cMaxAngle div 16)
+        a:= a - 15 - random(cMaxAngle div 16)
         end;
    
     if valueResult <= 0 then
@@ -742,38 +747,40 @@
 
 function TestFirePunch(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;
 var valueResult, v1, v2, i: LongInt;
-    x, y: LongInt;
+    x, y, trackFall: LongInt;
 begin
+    if Me^.Hedgehog^.BotLevel = 1 then trackFall:= afTrackFall
+    else trackFall:= 0;
     Level:= Level; // avoid compiler hint
     ap.ExplR:= 0;
     ap.Time:= 0;
     ap.Power:= 1;
     x:= hwRound(Me^.X);
-    y:= hwRound(Me^.Y);
+    y:= hwRound(Me^.Y) + 4;
 
     v1:= 0;
     for i:= 0 to 8 do
         begin
-        v1:= v1 + RateShove(Me, x - 10, y - 10 * i
-                , 18, 30, 40
-                , -0.45, -0.9, afTrackFall or afSetSkip);
+        v1:= v1 + RateShove(Me, x - 5, y - 10 * i
+                , 19, 30, 40
+                , -0.45, -0.9, trackFall or afSetSkip);
         end;
-    v1:= v1 + RateShove(Me, x - 10, y - 90
-            , 18, 30, 40
-            , -0.45, -0.9, afTrackFall);
+    v1:= v1 + RateShove(Me, x - 5, y - 90
+            , 19, 30, 40
+            , -0.45, -0.9, trackFall);
 
 
     // now try opposite direction
     v2:= 0;
     for i:= 0 to 8 do
         begin
-        v2:= v2 + RateShove(Me, x + 10, y - 10 * i
-                , 18, 30, 40
-                , 0.45, -0.9, afTrackFall or afSetSkip);
+        v2:= v2 + RateShove(Me, x + 5, y - 10 * i
+                , 19, 30, 40
+                , 0.45, -0.9, trackFall or afSetSkip);
         end;
-    v2:= v2 + RateShove(Me, x + 10, y - 90
-            , 18, 30, 40
-            , 0.45, -0.9, afTrackFall);
+    v2:= v2 + RateShove(Me, x + 5, y - 90
+            , 19, 30, 40
+            , 0.45, -0.9, trackFall);
 
     if (v2 > v1) 
         or {don't encourage turning for no gain}((v2 = v1) and (not Me^.dX.isNegative)) then
@@ -796,8 +803,10 @@
 
 function TestWhip(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;
 var valueResult, v1, v2: LongInt;
-    x, y: LongInt;
+    x, y, trackFall: LongInt;
 begin
+    if Me^.Hedgehog^.BotLevel = 1 then trackFall:= afTrackFall
+    else trackFall:= 0;
     Level:= Level; // avoid compiler hint
     ap.ExplR:= 0;
     ap.Time:= 0;
@@ -809,21 +818,21 @@
     {first RateShove checks farthermost of two whip's AmmoShove attacks 
     to encourage distant attacks (damaged hog is excluded from view of second 
     RateShove call)}
-    v1:= RateShove(Me, x - 15, y
+    v1:= RateShove(Me, x - 13, y
             , 30, 30, 25
-            , -1, -0.8, afTrackFall or afSetSkip);
+            , -1, -0.8, trackFall or afSetSkip);
     v1:= v1 +
         RateShove(Me, x, y
             , 30, 30, 25
-            , -1, -0.8, afTrackFall);
+            , -1, -0.8, trackFall);
     // now try opposite direction
-    v2:= RateShove(Me, x + 15, y
+    v2:= RateShove(Me, x + 13, y
             , 30, 30, 25
-            , 1, -0.8, afTrackFall or afSetSkip);
+            , 1, -0.8, trackFall or afSetSkip);
     v2:= v2 +
         RateShove(Me, x, y
             , 30, 30, 25
-            , 1, -0.8, afTrackFall);
+            , 1, -0.8, trackFall);
 
     if (v2 > v1) 
         or {don't encourage turning for no gain}((v2 = v1) and (not Me^.dX.isNegative)) then
@@ -973,4 +982,74 @@
         end;
 end;
 
+
+procedure checkCakeWalk(Me, Gear: PGear; var ap: TAttackParams);
+var i: Longword;
+    v: LongInt;
+begin
+while (not TestColl(hwRound(Gear^.X), hwRound(Gear^.Y), 6)) and (Gear^.Y.Round < LAND_HEIGHT) do
+    Gear^.Y:= Gear^.Y + _1;
+
+for i:= 0 to 2040 do
+    begin
+    cakeStep(Gear);
+    v:= RateExplosion(Me, hwRound(Gear^.X), hwRound(Gear^.Y), cakeDmg * 2, afTrackFall);
+    if v > ap.Power then 
+        begin
+        ap.ExplX:= hwRound(Gear^.X);
+        ap.ExplY:= hwRound(Gear^.Y);
+        ap.Power:= v
+        end
+    end;
+end;
+
+function TestCake(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;
+var valueResult, v1, v2: LongInt;
+    x, y, trackFall: LongInt;
+    cake: TGear;
+begin
+    Level:= Level; // avoid compiler hint
+    ap.ExplR:= 0;
+    ap.Time:= 0;
+    ap.Power:= BadTurn; // use it as max score value in checkCakeWalk
+
+    FillChar(cake, sizeof(cake), 0);
+    cake.Radius:= 7;
+    cake.CollisionMask:= $FF7F;
+
+    // check left direction
+    cake.Angle:= 3;
+    cake.dX.isNegative:= true;
+    cake.X:= Me^.X - _3;
+    cake.Y:= Me^.Y;
+    checkCakeWalk(Me, @cake, ap);
+    v1:= ap.Power;
+
+    // now try opposite direction
+    cake.Angle:= 1;
+    cake.dX.isNegative:= false;
+    cake.X:= Me^.X + _3;
+    cake.Y:= Me^.Y;
+    checkCakeWalk(Me, @cake, ap);
+    v2:= ap.Power;
+
+    ap.Power:= 1;
+
+    if (v2 > v1) then
+        begin
+        ap.Angle:= 1;
+        valueResult:= v2
+        end
+    else
+        begin
+        ap.Angle:= -1;
+        valueResult:= v1
+        end;
+
+    if valueResult <= 0 then
+        valueResult:= BadTurn;
+
+    TestCake:= valueResult;
+end;
+
 end.
diff -r 57a508884052 -r 0a494f951dcf hedgewars/uAILandMarks.pas
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/hedgewars/uAILandMarks.pas	Thu Jul 26 11:10:56 2012 +0200
@@ -0,0 +1,71 @@
+unit uAILandMarks;
+
+interface
+const markWasHere = $01;
+
+procedure addMark(X, Y: LongInt; mark: byte);
+function  checkMark(X, Y: LongInt; mark: byte) : boolean;
+procedure clearAllMarks;
+procedure clearMarks(mark: byte);
+
+procedure initModule;
+procedure freeModule;
+
+implementation
+uses uVariables;
+
+const gr = 2;
+
+var marks: array of array of byte;
+    WIDTH, HEIGHT: Longword;
+
+procedure addMark(X, Y: LongInt; mark: byte);
+begin
+    if((X and LAND_WIDTH_MASK) = 0) and ((Y and LAND_HEIGHT_MASK) = 0) then
+        begin
+        X:= X shr gr;
+        Y:= Y shr gr;
+        marks[Y, X]:= marks[Y, X] or mark
+        end
+end;
+
+function  checkMark(X, Y: LongInt; mark: byte) : boolean;
+begin
+    checkMark:= ((X and LAND_WIDTH_MASK) = 0) 
+        and ((Y and LAND_HEIGHT_MASK) = 0) 
+        and ((marks[Y shr gr, X shr gr] and mark) <> 0)
+end;
+
+procedure clearAllMarks;
+var 
+    Y, X: Longword;
+begin
+    for Y:= 0 to Pred(HEIGHT) do
+        for X:= 0 to Pred(WIDTH) do
+            marks[Y, X]:= 0
+end;
+
+procedure clearMarks(mark: byte);
+var 
+    Y, X: Longword;
+begin
+    for Y:= 0 to Pred(HEIGHT) do
+        for X:= 0 to Pred(WIDTH) do
+            marks[Y, X]:= marks[Y, X] and (not mark)
+end;
+
+
+procedure initModule;
+begin
+    WIDTH:= LAND_WIDTH shr gr;
+    HEIGHT:= LAND_HEIGHT shr gr;
+    
+    SetLength(marks, HEIGHT, WIDTH);
+end;
+
+procedure freeModule;
+begin
+    SetLength(marks, 0, 0);
+end;
+
+end.
diff -r 57a508884052 -r 0a494f951dcf hedgewars/uAIMisc.pas
--- a/hedgewars/uAIMisc.pas	Thu Jul 26 11:01:32 2012 +0200
+++ b/hedgewars/uAIMisc.pas	Thu Jul 26 11:10:56 2012 +0200
@@ -54,6 +54,7 @@
 procedure freeModule;
 
 procedure FillTargets;
+procedure AddBonus(x, y: LongInt; r: Longword; s: LongInt); inline;
 procedure FillBonuses(isAfterAttack: boolean);
 procedure AwareOfExplosion(x, y, r: LongInt); inline;
 
@@ -80,6 +81,11 @@
         ar: array[0..Pred(MAXBONUS)] of TBonus;
         end;
 
+    walkbonuses: record
+        Count: Longword;
+        ar: array[0..Pred(MAXBONUS div 8)] of TBonus;  // don't use too many
+        end;
+
 implementation
 uses uCollisions, uVariables, uUtils, uDebug, uLandTexture;
 
@@ -140,9 +146,22 @@
     end;
 end;
 
+procedure AddWalkBonus(x, y: LongInt; r: Longword; s: LongInt); inline;
+begin
+if(walkbonuses.Count < MAXBONUS div 8) then
+    begin
+    walkbonuses.ar[walkbonuses.Count].x:= x;
+    walkbonuses.ar[walkbonuses.Count].y:= y;
+    walkbonuses.ar[walkbonuses.Count].Radius:= r;
+    walkbonuses.ar[walkbonuses.Count].Score:= s;
+    inc(walkbonuses.Count);
+    end;
+end;
+
 procedure FillBonuses(isAfterAttack: boolean);
 var Gear: PGear;
     MyClan: PClan;
+    i: Longint;
 begin
 bonuses.Count:= 0;
 MyClan:= ThinkingHH^.Hedgehog^.Team^.Clan;
@@ -151,7 +170,7 @@
     begin
         case Gear^.Kind of
             gtCase:
-            AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 33, 25);
+                AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y) + 3, 37, 25);
             gtFlame:
                 if (Gear^.State and gsttmpFlag) <> 0 then
                     AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 20, -50);
@@ -178,7 +197,9 @@
                 if Gear^.Damage >= Gear^.Health then
                     AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 60, -25)
                 else
-                    if isAfterAttack and (ThinkingHH^.Hedgehog <> Gear^.Hedgehog) then
+                    if isAfterAttack
+                      and (ThinkingHH^.Hedgehog <> Gear^.Hedgehog)
+                      and ((hwAbs(Gear^.dX) + hwAbs(Gear^.dY)) < _0_1) then
                         if (ClansCount > 2) or (MyClan = Gear^.Hedgehog^.Team^.Clan) then
                             AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 150, -3) // hedgehog-friend
                         else
@@ -190,6 +211,13 @@
 if isAfterAttack and (KnownExplosion.Radius > 0) then
     with KnownExplosion do
         AddBonus(X, Y, Radius + 10, -Radius);
+if isAfterAttack then
+    begin
+    for i:= 0 to Pred(walkbonuses.Count) do
+        with walkbonuses.ar[i] do
+            AddBonus(X, Y, Radius, Score);
+    walkbonuses.Count:= 0
+    end;
 end;
 
 procedure AwareOfExplosion(x, y, r: LongInt); inline;
@@ -343,13 +371,13 @@
         x:= x + dX;
         y:= y + dY;
         dY:= dY + cGravityf;
-(*
-        if ((trunc(y) and LAND_HEIGHT_MASK) = 0) and ((trunc(x) and LAND_WIDTH_MASK) = 0) then 
+
+{        if ((trunc(y) and LAND_HEIGHT_MASK) = 0) and ((trunc(x) and LAND_WIDTH_MASK) = 0) then 
             begin
             LandPixels[trunc(y), trunc(x)]:= v;
             UpdateLandTexture(trunc(X), 1, trunc(Y), 1, true);
-            end;
-*)
+            end;}
+
 
         // consider adding dX/dY calc here for fall damage
         if TestCollExcludingObjects(trunc(x), trunc(y), cHHRadius) then
@@ -404,25 +432,28 @@
                 begin
                 dX:= 0.005 * dmg + 0.01;
                 dY:= dX;
-                fallDmg:= trunc(TraceFall(x, y, Point.x, Point.y, dX, dY, erasure) * dmgMod);
+                if (x and LAND_WIDTH_MASK = 0) and ((y+cHHRadius+2) and LAND_HEIGHT_MASK = 0) and 
+                   (Land[y+cHHRadius+2, x] and lfIndestructible <> 0) then
+                     fallDmg:= trunc(TraceFall(x, y, Point.x, Point.y, dX, dY, 0) * dmgMod)
+                else fallDmg:= trunc(TraceFall(x, y, Point.x, Point.y, dX, dY, erasure) * dmgMod)
                 end;
             if fallDmg < 0 then // drowning. score healthier hogs higher, since their death is more likely to benefit the AI
                 if Score > 0 then
-                    inc(rate, KillScore + Score div 10)   // Add a bit of a bonus for bigger hog drownings
+                    inc(rate, (KillScore + Score div 10) * 1024)   // Add a bit of a bonus for bigger hog drownings
                 else
-                    dec(rate, KillScore * friendlyfactor div 100 - Score div 10) // and more of a punishment for drowning bigger friendly hogs
+                    dec(rate, (KillScore * friendlyfactor div 100 - Score div 10) * 1024) // and more of a punishment for drowning bigger friendly hogs
             else if (dmg+fallDmg) >= abs(Score) then
                 if Score > 0 then
-                    inc(rate, KillScore)
+                    inc(rate, KillScore * 1024 + (dmg + fallDmg)) // tiny bonus for dealing more damage than needed to kill
                 else
-                    dec(rate, KillScore * friendlyfactor div 100)
+                    dec(rate, KillScore * friendlyfactor div 100 * 1024)
             else
                 if Score > 0 then
-                    inc(rate, dmg+fallDmg)
-                else dec(rate, (dmg+fallDmg) * friendlyfactor div 100)
+                    inc(rate, (dmg + fallDmg) * 1024)
+                else dec(rate, (dmg + fallDmg) * friendlyfactor div 100 * 1024)
             end;
         end;
-RateExplosion:= rate * 1024;
+RateExplosion:= rate;
 end;
 
 function RateShove(Me: PGear; x, y, r, power, kick: LongInt; gdX, gdY: real; Flags: LongWord): LongInt;
@@ -503,7 +534,10 @@
             dY:= gdY * dmg;
             if dX < 0 then dX:= dX - 0.01
             else dX:= dX + 0.01;
-            fallDmg:= trunc(TraceFall(x, y, Point.x, Point.y, dX, dY, erasure) * dmgMod);
+            if (x and LAND_WIDTH_MASK = 0) and ((y+cHHRadius+2) and LAND_HEIGHT_MASK = 0) and 
+               (Land[y+cHHRadius+2, x] and lfIndestructible <> 0) then
+                 fallDmg:= trunc(TraceFall(x, y, Point.x, Point.y, dX, dY, 0) * dmgMod)
+            else fallDmg:= trunc(TraceFall(x, y, Point.x, Point.y, dX, dY, erasure) * dmgMod);
             if fallDmg < 0 then // drowning. score healthier hogs higher, since their death is more likely to benefit the AI
                 if Score > 0 then
                     inc(rate, KillScore + Score div 10)   // Add a bit of a bonus for bigger hog drownings
@@ -590,6 +624,12 @@
 end;
 
 repeat
+        {if ((hwRound(Gear^.Y) and LAND_HEIGHT_MASK) = 0) and ((hwRound(Gear^.X) and LAND_WIDTH_MASK) = 0) then 
+            begin
+            LandPixels[hwRound(Gear^.Y), hwRound(Gear^.X)]:= Gear^.Hedgehog^.Team^.Clan^.Color;
+            UpdateLandTexture(hwRound(Gear^.X), 1, hwRound(Gear^.Y), 1, true);
+            end;}
+            
     if not (hwRound(Gear^.Y) + cHHRadius < cWaterLine) then
         exit(false);
     if (Gear^.State and gstMoving) <> 0 then
@@ -611,7 +651,7 @@
         Gear^.Y:= Gear^.Y + Gear^.dY;
         if (not Gear^.dY.isNegative) and (TestCollisionYwithGear(Gear, 1) <> 0) then
             begin
-            Gear^.State:= Gear^.State and not (gstMoving or gstHHJumping);
+            Gear^.State:= Gear^.State and (not (gstMoving or gstHHJumping));
             Gear^.dY:= _0;
             case JumpType of
                 jmpHJump:
@@ -636,20 +676,31 @@
 end;
 
 function HHGo(Gear, AltGear: PGear; var GoInfo: TGoInfo): boolean;
-var pX, pY: LongInt;
+var pX, pY, tY: LongInt;
 begin
 HHGo:= false;
+Gear^.CollisionMask:= $FF7F;
 AltGear^:= Gear^;
 
 GoInfo.Ticks:= 0;
 GoInfo.FallPix:= 0;
 GoInfo.JumpType:= jmpNone;
+tY:= hwRound(Gear^.Y);
+repeat
+        {if ((hwRound(Gear^.Y) and LAND_HEIGHT_MASK) = 0) and ((hwRound(Gear^.X) and LAND_WIDTH_MASK) = 0) then 
+            begin
+            LandPixels[hwRound(Gear^.Y), hwRound(Gear^.X)]:= random($FFFFFFFF);//Gear^.Hedgehog^.Team^.Clan^.Color;
+            UpdateLandTexture(hwRound(Gear^.X), 1, hwRound(Gear^.Y), 1, true);
+            end;}
 
-repeat
     pX:= hwRound(Gear^.X);
     pY:= hwRound(Gear^.Y);
     if pY + cHHRadius >= cWaterLine then
-        exit(false);
+        begin
+        if AltGear^.Hedgehog^.BotLevel < 4 then
+            AddWalkBonus(pX, tY, 250, -40);
+        exit(false)
+        end;
         
     // hog is falling    
     if (Gear^.State and gstMoving) <> 0 then
@@ -658,9 +709,11 @@
         Gear^.dY:= Gear^.dY + cGravity;
         if Gear^.dY > _0_4 then
             begin
-            Goinfo.FallPix:= 0;
+            GoInfo.FallPix:= 0;
             // try ljump instead of fall with damage
             HHJump(AltGear, jmpLJump, GoInfo); 
+            if AltGear^.Hedgehog^.BotLevel < 4 then
+                AddWalkBonus(pX, tY, 175, -20);
             exit(false)
             end;
         Gear^.Y:= Gear^.Y + Gear^.dY;
@@ -669,7 +722,7 @@
         if TestCollisionYwithGear(Gear, 1) <> 0 then
             begin
             inc(GoInfo.Ticks, 410);
-            Gear^.State:= Gear^.State and not (gstMoving or gstHHJumping);
+            Gear^.State:= Gear^.State and (not (gstMoving or gstHHJumping));
             Gear^.dY:= _0;
             // try ljump instead of fall
             HHJump(AltGear, jmpLJump, GoInfo);
diff -r 57a508884052 -r 0a494f951dcf hedgewars/uAmmos.pas
--- a/hedgewars/uAmmos.pas	Thu Jul 26 11:01:32 2012 +0200
+++ b/hedgewars/uAmmos.pas	Thu Jul 26 11:10:56 2012 +0200
@@ -32,6 +32,7 @@
 procedure SetAmmoReinforcement(var s: shortstring);
 procedure AssignStores;
 procedure AddAmmo(var Hedgehog: THedgehog; ammo: TAmmoType);
+procedure AddAmmo(var Hedgehog: THedgehog; ammo: TAmmoType; amt: LongWord);
 procedure SetAmmo(var Hedgehog: THedgehog; ammo: TAmmoType; cnt: LongWord);
 function  HHHasAmmo(var Hedgehog: THedgehog; Ammo: TAmmoType): LongWord;
 procedure PackAmmo(Ammo: PHHAmmo; Slot: LongInt);
@@ -188,7 +189,7 @@
         end
 end;
 
-procedure AddAmmo(var Hedgehog: THedgehog; ammo: TAmmoType);
+procedure AddAmmo(var Hedgehog: THedgehog; ammo: TAmmoType; amt: LongWord);
 var cnt: LongWord;
     a: PAmmo;
 begin
@@ -199,11 +200,16 @@
     cnt:= 0;
 if (cnt <> AMMO_INFINITE) then
     begin
-    inc(cnt, Ammoz[ammo].NumberInCase);
+    inc(cnt, amt);
     SetAmmo(Hedgehog, ammo, cnt)
     end
 end;
 
+procedure AddAmmo(var Hedgehog: THedgehog; ammo: TAmmoType);
+begin
+    AddAmmo(Hedgehog, ammo, Ammoz[ammo].NumberInCase);
+end;
+
 procedure SetAmmo(var Hedgehog: THedgehog; ammo: TAmmoType; cnt: LongWord);
 var ammos: TAmmoCounts;
     slot, ami: LongInt;
@@ -297,22 +303,23 @@
 
 procedure ApplyAngleBounds(var Hedgehog: THedgehog; AmmoType: TAmmoType);
 begin
-with Hedgehog do
-    begin
-    CurMinAngle:= Ammoz[AmmoType].minAngle;
-    if Ammoz[AmmoType].maxAngle <> 0 then
-        CurMaxAngle:= Ammoz[AmmoType].maxAngle
-    else
-        CurMaxAngle:= cMaxAngle;
+if Hedgehog.Gear <> nil then
+    with Hedgehog do
+        begin
+        CurMinAngle:= Ammoz[AmmoType].minAngle;
+        if Ammoz[AmmoType].maxAngle <> 0 then
+            CurMaxAngle:= Ammoz[AmmoType].maxAngle
+        else
+            CurMaxAngle:= cMaxAngle;
 
-    with Hedgehog.Gear^ do
-        begin
-        if Angle < CurMinAngle then
-            Angle:= CurMinAngle;
-        if Angle > CurMaxAngle then
-            Angle:= CurMaxAngle;
+        with Hedgehog.Gear^ do
+            begin
+            if Angle < CurMinAngle then
+                Angle:= CurMinAngle;
+            if Angle > CurMaxAngle then
+                Angle:= CurMaxAngle;
+            end
         end
-    end
 end;
 
 procedure SwitchToFirstLegalAmmo(var Hedgehog: THedgehog);
@@ -367,19 +374,19 @@
     with CurWeapon^ do
         begin
         s:= trammo[Ammoz[AmmoType].NameId];
-        if (Count <> AMMO_INFINITE) and not (Hedgehog.Team^.ExtDriven or (Hedgehog.BotLevel > 0)) then
+        if (Count <> AMMO_INFINITE) and (not (Hedgehog.Team^.ExtDriven or (Hedgehog.BotLevel > 0))) then
             s:= s + ' (' + IntToStr(Count) + ')';
         if (Propz and ammoprop_Timerable) <> 0 then
             s:= s + ', ' + IntToStr(Timer div 1000) + ' ' + trammo[sidSeconds];
         AddCaption(s, Team^.Clan^.Color, capgrpAmmoinfo);
         if (Propz and ammoprop_NeedTarget) <> 0 then
             begin
-            Gear^.State:= Gear^.State or      gstHHChooseTarget;
+            if Gear <> nil then Gear^.State:= Gear^.State or      gstHHChooseTarget;
             isCursorVisible:= true
             end
         else
             begin
-            Gear^.State:= Gear^.State and not gstHHChooseTarget;
+            if Gear <> nil then Gear^.State:= Gear^.State and (not gstHHChooseTarget);
             isCursorVisible:= false
             end;
         end
diff -r 57a508884052 -r 0a494f951dcf hedgewars/uCommandHandlers.pas
--- a/hedgewars/uCommandHandlers.pas	Thu Jul 26 11:01:32 2012 +0200
+++ b/hedgewars/uCommandHandlers.pas	Thu Jul 26 11:10:56 2012 +0200
@@ -412,18 +412,19 @@
 end;
 
 procedure chNextTurn(var s: shortstring);
-var checksum: Longword;
+var i: Longword;
     gi: PGear;
 begin
     s:= s; // avoid compiler hint
 
     TryDo(AllInactive, '/nextturn called when not all gears are inactive', true);
 
-    checksum:= GameTicks;
+    CheckSum:= CheckSum xor GameTicks;
     gi := GearsList;
     while gi <> nil do
         begin
-        with gi^ do checksum:= checksum xor X.round xor X.frac xor dX.round xor dX.frac xor Y.round xor Y.frac xor dY.round xor dY.frac;
+        with gi^ do CheckSum:= CheckSum xor X.round xor X.frac xor dX.round xor dX.frac xor Y.round xor Y.frac xor dY.round xor dY.frac;
+        AddRandomness(CheckSum);
         gi := gi^.NextGear
         end;
 
@@ -431,11 +432,11 @@
         begin
         s[0]:= #5;
         s[1]:= 'N';
-        SDLNet_Write32(checksum, @s[2]);
+        SDLNet_Write32(CheckSum, @s[2]);
         SendIPC(s)
         end
     else
-        TryDo(checksum = lastTurnChecksum, 'Desync detected', true);
+        TryDo(CheckSum = lastTurnChecksum, 'Desync detected', true);
     AddFileLog('Next turn: time '+inttostr(GameTicks));
 end;
 
@@ -652,6 +653,7 @@
 procedure chSpeedup_p(var s: shortstring);
 begin
 s:= s; // avoid compiler hint
+SpeedStart:= RealTicks;
 isSpeed:= true
 end;
 
@@ -764,7 +766,7 @@
 procedure chGameFlags(var s: shortstring);
 begin
 GameFlags:= StrToInt(s);
-if GameFlags and gfSharedAmmo <> 0 then GameFlags:= GameFlags and not gfPerHogAmmo
+if GameFlags and gfSharedAmmo <> 0 then GameFlags:= GameFlags and (not gfPerHogAmmo)
 end;
 
 procedure chHedgehogTurnTime(var s: shortstring);
@@ -785,21 +787,21 @@
 procedure initModule;
 begin
 //////// Begin top sorted by freq analysis not including chatmsg
-    RegisterVariable('+right'  , @chRight_p      , false);
-    RegisterVariable('-right'  , @chRight_m      , false);
-    RegisterVariable('+up'     , @chUp_p         , false);
-    RegisterVariable('-up'     , @chUp_m         , false);
-    RegisterVariable('+left'   , @chLeft_p       , false);
-    RegisterVariable('-left'   , @chLeft_m       , false);
+    RegisterVariable('+right'  , @chRight_p      , false, true);
+    RegisterVariable('-right'  , @chRight_m      , false, true);
+    RegisterVariable('+up'     , @chUp_p         , false, true);
+    RegisterVariable('-up'     , @chUp_m         , false, true);
+    RegisterVariable('+left'   , @chLeft_p       , false, true);
+    RegisterVariable('-left'   , @chLeft_m       , false, true);
     RegisterVariable('+attack' , @chAttack_p     , false);
-    RegisterVariable('+down'   , @chDown_p       , false);
-    RegisterVariable('-down'   , @chDown_m       , false);
-    RegisterVariable('hjump'   , @chHJump        , false);
-    RegisterVariable('ljump'   , @chLJump        , false);
+    RegisterVariable('+down'   , @chDown_p       , false, true);
+    RegisterVariable('-down'   , @chDown_m       , false, true);
+    RegisterVariable('hjump'   , @chHJump        , false, true);
+    RegisterVariable('ljump'   , @chLJump        , false, true);
     RegisterVariable('nextturn', @chNextTurn     , false);
     RegisterVariable('-attack' , @chAttack_m     , false);
     RegisterVariable('slot'    , @chSlot         , false);
-    RegisterVariable('setweap' , @chSetWeapon    , false);
+    RegisterVariable('setweap' , @chSetWeapon    , false, true);
 //////// End top by freq analysis
     RegisterVariable('gencmd'  , @chGenCmd       , false);
     RegisterVariable('flag'    , @chFlag         , false);
@@ -845,10 +847,10 @@
     RegisterVariable('zoomout' , @chZoomOut      , true );
     RegisterVariable('zoomreset',@chZoomReset    , true );
     RegisterVariable('ammomenu', @chAmmoMenu     , true);
-    RegisterVariable('+precise', @chPrecise_p    , false);
-    RegisterVariable('-precise', @chPrecise_m    , false);
+    RegisterVariable('+precise', @chPrecise_p    , false, true);
+    RegisterVariable('-precise', @chPrecise_m    , false, true);
     RegisterVariable('switch'  , @chSwitch       , false);
-    RegisterVariable('timer'   , @chTimer        , false);
+    RegisterVariable('timer'   , @chTimer        , false, true);
     RegisterVariable('taunt'   , @chTaunt        , false);
     RegisterVariable('put'     , @chPut          , false);
     RegisterVariable('+volup'  , @chVol_p        , true );
diff -r 57a508884052 -r 0a494f951dcf hedgewars/uCommands.pas
--- a/hedgewars/uCommands.pas	Thu Jul 26 11:01:32 2012 +0200
+++ b/hedgewars/uCommands.pas	Thu Jul 26 11:10:56 2012 +0200
@@ -27,26 +27,31 @@
 
 procedure initModule;
 procedure freeModule;
+procedure RegisterVariable(Name: shortstring; p: TCommandHandler; Trusted: boolean; Rand: boolean);
 procedure RegisterVariable(Name: shortstring; p: TCommandHandler; Trusted: boolean);
 procedure ParseCommand(CmdStr: shortstring; TrustedSource: boolean);
 procedure ParseTeamCommand(s: shortstring);
 procedure StopMessages(Message: Longword);
 
 implementation
-uses uConsts, uVariables, uConsole, uUtils, uDebug;
+uses uConsts, uVariables, uConsole, uUtils, uDebug, SDLh;
 
 type  PVariable = ^TVariable;
     TVariable = record
         Next: PVariable;
         Name: string[15];
         Handler: TCommandHandler;
-        Trusted: boolean;
+        Trusted, Rand: boolean;
         end;
 
 var
     Variables: PVariable;
 
 procedure RegisterVariable(Name: shortstring; p: TCommandHandler; Trusted: boolean);
+begin
+RegisterVariable(Name, p, Trusted, false);
+end;
+procedure RegisterVariable(Name: shortstring; p: TCommandHandler; Trusted: boolean; Rand: boolean);
 var
     value: PVariable;
 begin
@@ -56,6 +61,7 @@
 value^.Name:= Name;
 value^.Handler:= p;
 value^.Trusted:= Trusted;
+value^.Rand:= Rand;
 
 if Variables = nil then
     Variables:= value
@@ -81,13 +87,18 @@
 s:= '';
 SplitBySpace(CmdStr, s);
 AddFileLog('[Cmd] ' + CmdStr + ' (' + inttostr(length(s)) + ')');
+
 t:= Variables;
 while t <> nil do
     begin
     if t^.Name = CmdStr then
         begin
         if TrustedSource or t^.Trusted then
+            begin
+            if t^.Rand and (not CheckNoTeamOrHH) then 
+                CheckSum:= CheckSum xor LongWord(SDLNet_Read32(@CmdStr)) xor LongWord(s[0]) xor GameTicks;
             t^.Handler(s);
+            end;
         exit
         end
     else
diff -r 57a508884052 -r 0a494f951dcf hedgewars/uConsts.pas
--- a/hedgewars/uConsts.pas	Thu Jul 26 11:01:32 2012 +0200
+++ b/hedgewars/uConsts.pas	Thu Jul 26 11:10:56 2012 +0200
@@ -146,6 +146,7 @@
     cBarrelHealth = 60;
     cShotgunRadius = 22;
     cBlowTorchC    = 6;
+    cakeDmg =   75;
 
     cKeyMaxIndex = 1023;
     cKbdMaxIndex = 65536;//need more room for the modifier keys
@@ -227,20 +228,23 @@
     gstHHGone         = $00100000;
     gstInvisible      = $00200000;
 
-    gmLeft   = $00000001;
-    gmRight  = $00000002;
-    gmUp     = $00000004;
-    gmDown   = $00000008;
-    gmSwitch = $00000010;
-    gmAttack = $00000020;
-    gmLJump  = $00000040;
-    gmHJump  = $00000080;
-    gmDestroy= $00000100;
-    gmSlot   = $00000200; // with param
-    gmWeapon = $00000400; // with param
-    gmTimer  = $00000800; // with param
-    gmAnimate= $00001000; // with param
-    gmPrecise= $00002000;
+    gmLeft           = $00000001;
+    gmRight          = $00000002;
+    gmUp             = $00000004;
+    gmDown           = $00000008;
+    gmSwitch         = $00000010;
+    gmAttack         = $00000020;
+    gmLJump          = $00000040;
+    gmHJump          = $00000080;
+    gmDestroy        = $00000100;
+    gmSlot           = $00000200; // with param
+    gmWeapon         = $00000400; // with param
+    gmTimer          = $00000800; // with param
+    gmAnimate        = $00001000; // with param
+    gmPrecise        = $00002000;
+
+    gmRemoveFromList = $00004000;
+    gmAddToList      = $00008000;
     gmAllStoppable = gmLeft or gmRight or gmUp or gmDown or gmAttack or gmPrecise;
 
     cMaxSlotIndex       = 9;
@@ -263,6 +267,7 @@
     ammoprop_NeedUpDown   = $00008000;//Used by TouchInterface to show or hide up/down widgets 
     ammoprop_OscAim       = $00010000;
     ammoprop_NoMoveAfter  = $00020000;
+    ammoprop_Track        = $00040000;
     ammoprop_NoRoundEnd   = $10000000;
 
     AMMO_INFINITE = 100;
diff -r 57a508884052 -r 0a494f951dcf hedgewars/uGame.pas
--- a/hedgewars/uGame.pas	Thu Jul 26 11:01:32 2012 +0200
+++ b/hedgewars/uGame.pas	Thu Jul 26 11:10:56 2012 +0200
@@ -46,7 +46,14 @@
 
 if (GameType = gmtDemo) then 
     if isSpeed then
-        Lag:= Lag * 10
+        begin
+            i:= RealTicks-SpeedStart;
+            if i < 2000 then Lag:= Lag*5
+            else if i < 4000 then Lag:= Lag*10
+            else if i < 6000 then Lag:= Lag*20
+            else if i < 8000 then Lag:= Lag*40
+            else Lag:= Lag*80;
+        end
     else
         if cOnlyStats then
             Lag:= High(LongInt);
diff -r 57a508884052 -r 0a494f951dcf hedgewars/uGears.pas
--- a/hedgewars/uGears.pas	Thu Jul 26 11:01:32 2012 +0200
+++ b/hedgewars/uGears.pas	Thu Jul 26 11:10:56 2012 +0200
@@ -37,7 +37,7 @@
 
 procedure initModule;
 procedure freeModule;
-function  SpawnCustomCrateAt(x, y: LongInt; crate: TCrateType; content: Longword ): PGear;
+function  SpawnCustomCrateAt(x, y: LongInt; crate: TCrateType; content, cnt: Longword): PGear;
 function  SpawnFakeCrateAt(x, y: LongInt; crate: TCrateType; explode: boolean; poison: boolean ): PGear;
 function  GetAmmo(Hedgehog: PHedgehog): TAmmoType;
 function  GetUtility(Hedgehog: PHedgehog): TAmmoType;
@@ -59,13 +59,13 @@
 uses uStore, uSound, uTeams, uRandom, uCollisions, uIO, uLandGraphics,
     uLocale, uAI, uAmmos, uStats, uVisualGears, uScript, GLunit, uMobile, uVariables,
     uCommands, uUtils, uTextures, uRenderUtils, uGearsRender, uCaptions, uDebug, uLandTexture,
-    uGearsHedgehog, uGearsUtils, uGearsList;
+    uGearsHedgehog, uGearsUtils, uGearsList, uGearsHandlers;
 
 var skipFlag: boolean;
 
 procedure AmmoShove(Ammo: PGear; Damage, Power: LongInt); forward;
 //procedure AmmoFlameWork(Ammo: PGear); forward;
-function  GearsNear(X, Y: hwFloat; Kind: TGearType; r: LongInt): TPGearArray; forward;
+function  GearsNear(X, Y: hwFloat; Kind: TGearType; r: LongInt): PGearArrayS; forward;
 procedure SpawnBoxOfSmth; forward;
 procedure ShotgunShot(Gear: PGear); forward;
 procedure doStepCase(Gear: PGear); forward;
@@ -182,7 +182,7 @@
 end;
 
 procedure ProcessGears;
-var Gear, t: PGear;
+var t: PGear;
     i, AliveCount: LongInt;
     s: shortstring;
 begin
@@ -203,21 +203,29 @@
 t:= GearsList;
 while t <> nil do
     begin
-    Gear:= t;
-    t:= Gear^.NextGear;
+    curHandledGear:= t;
+    t:= curHandledGear^.NextGear;
 
-    if Gear^.Active then
+    if curHandledGear^.Message and gmRemoveFromList <> 0 then 
         begin
-        if Gear^.RenderTimer and (Gear^.Timer > 500) and ((Gear^.Timer mod 1000) = 0) then
+        RemoveGearFromList(curHandledGear);
+        // since I can't think of any good reason this would ever be separate from a remove from list, going to keep it inside this block
+        if curHandledGear^.Message and gmAddToList <> 0 then InsertGearToList(curHandledGear);
+        curHandledGear^.Message:= curHandledGear^.Message and (not (gmRemoveFromList or gmAddToList))
+        end;
+    if curHandledGear^.Active then
+        begin
+        if curHandledGear^.RenderTimer and (curHandledGear^.Timer > 500) and ((curHandledGear^.Timer mod 1000) = 0) then
             begin
-            FreeTexture(Gear^.Tex);
-            Gear^.Tex:= RenderStringTex(inttostr(Gear^.Timer div 1000), cWhiteColor, fntSmall);
+            FreeTexture(curHandledGear^.Tex);
+            curHandledGear^.Tex:= RenderStringTex(inttostr(curHandledGear^.Timer div 1000), cWhiteColor, fntSmall);
             end;
-        Gear^.doStep(Gear);
+        curHandledGear^.doStep(curHandledGear);
         // might be useful later
         //ScriptCall('onGearStep', Gear^.uid);
         end
     end;
+curHandledGear:= nil;
 
 if AllInactive then
 case step of
@@ -453,7 +461,7 @@
     if (not CurrentTeam^.ExtDriven) or CurrentTeam^.hasGone then
         inc(hiTicks) // we do not recieve a message for this
     end;
-
+AddRandomness(CheckSum);
 ScriptCall('onGameTick');
 if GameTicks mod 20 = 0 then ScriptCall('onGameTick20');
 inc(GameTicks)
@@ -580,7 +588,8 @@
 end;
 
 procedure AddMiscGears;
-var i: Longword;
+var i,rx, ry: Longword;
+    rdx, rdy: hwFloat;
     Gear: PGear;
 begin
 AddGear(0, 0, gtATStartGame, 0, _0, _0, 2000);
@@ -625,6 +634,13 @@
 
 if (GameFlags and gfArtillery) <> 0 then
     cArtillery:= true;
+for i:= GetRandom(10)+30 downto 0 do
+    begin                                                                                                                                       rx:= GetRandom(rightX-leftX)+leftX;
+    ry:= GetRandom(LAND_HEIGHT-topY)+topY;
+    rdx:= _90-(GetRandomf*_360);
+    rdy:= _90-(GetRandomf*_360);
+    AddGear(rx, ry, gtGenericFaller, gstInvisible, rdx, rdy, $FFFFFFFF);
+    end;
 
 if not hasBorder and ((Theme = 'Snow') or (Theme = 'Christmas')) then
     for i:= 0 to Pred(vobCount*2) do
@@ -871,25 +887,30 @@
     end
 end;
 
-function GearsNear(X, Y: hwFloat; Kind: TGearType; r: LongInt): TPGearArray;
+var GearsNearArray : TPGearArray;
+function GearsNear(X, Y: hwFloat; Kind: TGearType; r: LongInt): PGearArrayS;
 var
     t: PGear;
-    l: Longword;
+    s: Longword;
 begin
     r:= r*r;
-    GearsNear := nil;
+    s:= 0;
+    SetLength(GearsNearArray, s);
     t := GearsList;
     while t <> nil do 
         begin
         if (t^.Kind = Kind) 
             and ((X - t^.X)*(X - t^.X) + (Y - t^.Y)*(Y-t^.Y) < int2hwFloat(r)) then
             begin
-            l:= Length(GearsNear);
-            SetLength(GearsNear, l + 1);
-            GearsNear[l] := t;
+            inc(s);
+            SetLength(GearsNearArray, s);
+            GearsNearArray[s - 1] := t;
             end;
         t := t^.NextGear;
     end;
+
+    GearsNear.size:= s;
+    GearsNear.ar:= @GearsNearArray
 end;
 
 {procedure AmmoFlameWork(Ammo: PGear);
@@ -928,7 +949,7 @@
 CountGears:= count;
 end;
 
-function SpawnCustomCrateAt(x, y: LongInt; crate: TCrateType; content: Longword): PGear;
+function SpawnCustomCrateAt(x, y: LongInt; crate: TCrateType; content, cnt: Longword): PGear;
 begin
     FollowGear := AddGear(x, y, gtCase, 0, _0, _0, 0);
     cCaseFactor := 0;
@@ -936,6 +957,8 @@
     if (crate <> HealthCrate) and (content > ord(High(TAmmoType))) then
         content := ord(High(TAmmoType));
 
+    FollowGear^.Power:= cnt;
+
     case crate of
         HealthCrate:
             begin
@@ -1306,7 +1329,9 @@
             @doStepStructure,
             @doStepLandGun,
             @doStepTardis,
-            @doStepIceGun);
+            @doStepIceGun,
+            @doStepAddAmmo,
+            @doStepGenericFaller);
 begin
     doStepHandlers:= handlers;
 
@@ -1315,6 +1340,8 @@
 
     CurAmmoGear:= nil;
     GearsList:= nil;
+    curHandledGear:= nil;
+
     KilledHHs:= 0;
     SuddenDeath:= false;
     SuddenDeathDmg:= false;
diff -r 57a508884052 -r 0a494f951dcf hedgewars/uGearsHandlers.pas
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/hedgewars/uGearsHandlers.pas	Thu Jul 26 11:10:56 2012 +0200
@@ -0,0 +1,87 @@
+(*
+ * Hedgewars, a free turn based strategy game
+ * Copyright (c) 2004-2012 Andrey Korotaev <unC0Rr@gmail.com>
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; version 2 of the License
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
+ *)
+
+{$INCLUDE "options.inc"}
+
+unit uGearsHandlers;
+interface
+
+uses uTypes;
+
+procedure cakeStep(Gear: PGear);
+
+implementation
+
+uses SDLh, uFloat, uCollisions;
+
+
+
+const dirs: array[0..3] of TPoint =   ((X: 0; Y: -1), (X: 1; Y: 0),(X: 0; Y: 1),(X: -1; Y: 0));
+
+procedure PrevAngle(Gear: PGear; dA: LongInt); inline;
+begin
+    Gear^.Angle := (Gear^.Angle - dA) and 3
+end;
+
+procedure NextAngle(Gear: PGear; dA: LongInt); inline;
+begin
+    Gear^.Angle := (Gear^.Angle + dA) and 3
+end;
+
+procedure cakeStep(Gear: PGear);
+var
+    xx, yy, xxn, yyn: LongInt;
+    dA: LongInt;
+    tdx, tdy: hwFloat;
+begin
+    dA := hwSign(Gear^.dX);
+    xx := dirs[Gear^.Angle].x;
+    yy := dirs[Gear^.Angle].y;
+    xxn := dirs[(Gear^.Angle + dA) and 3].x;
+    yyn := dirs[(Gear^.Angle + dA) and 3].y;
+
+    if (xx = 0) then
+        if TestCollisionYwithGear(Gear, yy) <> 0 then
+            PrevAngle(Gear, dA)
+    else
+        begin
+        Gear^.Tag := 0;
+        Gear^.Y := Gear^.Y + int2hwFloat(yy);
+        if not TestCollisionXwithGear(Gear, xxn) then
+            begin
+            Gear^.X := Gear^.X + int2hwFloat(xxn);
+            NextAngle(Gear, dA)
+            end;
+        end;
+
+    if (yy = 0) then
+        if TestCollisionXwithGear(Gear, xx) then
+            PrevAngle(Gear, dA)
+    else
+        begin
+        Gear^.Tag := 0;
+        Gear^.X := Gear^.X + int2hwFloat(xx);
+        if TestCollisionYwithGear(Gear, yyn) = 0 then
+            begin
+            Gear^.Y := Gear^.Y + int2hwFloat(yyn);
+            NextAngle(Gear, dA)
+            end;
+        end;
+end;
+
+end.
diff -r 57a508884052 -r 0a494f951dcf hedgewars/uGearsHedgehog.pas
--- a/hedgewars/uGearsHedgehog.pas	Thu Jul 26 11:01:32 2012 +0200
+++ b/hedgewars/uGearsHedgehog.pas	Thu Jul 26 11:10:56 2012 +0200
@@ -28,6 +28,7 @@
 procedure doStepHedgehogMoving(Gear: PGear); 
 procedure HedgehogChAngle(HHGear: PGear); 
 procedure PickUp(HH, Gear: PGear);
+procedure AddPickup(HH: THedgehog; ammo: TAmmoType; cnt, X, Y: LongWord);
 
 implementation
 uses uConsts, uVariables, uFloat, uAmmos, uSound, uCaptions, 
@@ -355,7 +356,6 @@
                                  newGear:= AddGear(hwRound(lx), hwRound(ly), gtResurrector, 0, _0, _0, 0);
                                  newGear^.SoundChannel := LoopSound(sndResurrector);
                                  end;
-                                 //amMelonStrike: AddGear(CurWeapon^.Pos, 0, gtAirAttack, 4, _0, _0, 0);
                     amStructure: newGear:= AddGear(hwRound(lx) + hwSign(dX) * 7, hwRound(ly), gtStructure, gstWait, SignAs(_0_02, dX), _0, 3000);
                        amTardis: newGear:= AddGear(hwRound(X), hwRound(Y), gtTardis, 0, _0, _0, 5000);
                        amIceGun: newGear:= AddGear(hwRound(X), hwRound(Y), gtIceGun, 0, _0, _0, 0);
@@ -566,15 +566,41 @@
     end
 end;
 
+procedure AddPickup(HH: THedgehog; ammo: TAmmoType; cnt, X, Y: LongWord);
+var s: shortstring;
+    vga: PVisualGear;
+begin
+    PlaySound(sndShotgunReload);
+    if cnt <> 0 then AddAmmo(HH, ammo, cnt)
+    else AddAmmo(HH, ammo);
+
+    if (not (HH.Team^.ExtDriven 
+    or (HH.BotLevel > 0)))
+    or (HH.Team^.Clan^.ClanIndex = LocalClan)
+    or (GameType = gmtDemo)  then
+        begin
+        if cnt <> 0 then
+            s:= trammo[Ammoz[ammo].NameId] + ' (+' + IntToStr(cnt) + ')'
+        else
+            s:= trammo[Ammoz[ammo].NameId] + ' (+' + IntToStr(Ammoz[ammo].NumberInCase) + ')';
+        AddCaption(s, HH.Team^.Clan^.Color, capgrpAmmoinfo);
+
+        // show ammo icon
+        vga:= AddVisualGear(X, Y, vgtAmmo);
+        if vga <> nil then
+            vga^.Frame:= Longword(ammo);
+        end;
+end;
+
 ////////////////////////////////////////////////////////////////////////////////
 procedure PickUp(HH, Gear: PGear);
 var s: shortstring;
     a: TAmmoType;
     i: LongInt;
     vga: PVisualGear;
+    ag, gi: PGear;
 begin
 Gear^.Message:= gmDestroy;
-PlaySound(sndShotgunReload);
 if (Gear^.Pos and posCaseExplode) <> 0 then
     if (Gear^.Pos and posCasePoison) <> 0 then
         doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 25, HH^.Hedgehog, EXPLAutoSound + EXPLPoisoned)
@@ -586,35 +612,35 @@
 case Gear^.Pos of
        posCaseUtility,
        posCaseAmmo: begin
-                    if Gear^.AmmoType <> amNothing then a:= Gear^.AmmoType 
+                    if Gear^.AmmoType <> amNothing then 
+                        begin
+                        AddPickup(HH^.Hedgehog^, Gear^.AmmoType, Gear^.Power, hwRound(Gear^.X), hwRound(Gear^.Y));
+                        end
                     else
                         begin
-                        for i:= 0 to GameTicks and $7F do
-                            GetRandom(2); // Burn some random numbers
-                        if Gear^.Pos = posCaseUtility then
-                            a:= GetUtility(HH^.Hedgehog)
-                        else
-                            a:= GetAmmo(HH^.Hedgehog)
+// Add spawning here...
+                        AddRandomness(GameTicks);
+                        
+                        gi := GearsList;
+                        while gi <> nil do
+                            begin
+                            if gi^.Kind = gtGenericFaller then
+                                begin
+                                gi^.Active:= true;
+                                gi^.X:= int2hwFloat(GetRandom(rightX-leftX)+leftX);
+                                gi^.Y:= int2hwFloat(GetRandom(LAND_HEIGHT-topY)+topY);
+                                gi^.dX:= _90-(GetRandomf*_360);
+                                gi^.dY:= _90-(GetRandomf*_360)
+                                end;
+                            gi := gi^.NextGear
+                            end;
+                        ag:= AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtAddAmmo, gstInvisible, _0, _0, GetRandom(200)+100);
+                        ag^.Pos:= Gear^.Pos;
+                        ag^.Power:= Gear^.Power
                         end;
-                    AddAmmo(HH^.Hedgehog^, a);
-// Possibly needs to check shared clan ammo game flag once added.
-// On the other hand, no obvious reason that clan members shouldn't know what ammo another clan member picked up
-                    if (not (HH^.Hedgehog^.Team^.ExtDriven 
-                    or (HH^.Hedgehog^.BotLevel > 0)))
-                    or (HH^.Hedgehog^.Team^.Clan^.ClanIndex = LocalClan)
-                    or (GameType = gmtDemo)  then
-                        begin
-                        s:= trammo[Ammoz[a].NameId] + ' (+' + IntToStr(Ammoz[a].NumberInCase) + ')';
-                        AddCaption(s, HH^.Hedgehog^.Team^.Clan^.Color, capgrpAmmoinfo);
-
-                        // show ammo icon
-                        vga:= AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtAmmo);
-                        if vga <> nil then
-                            vga^.Frame:= Longword(a);
-                        end;
-
                     end;
      posCaseHealth: begin
+                    PlaySound(sndShotgunReload);
                     inc(HH^.Health, Gear^.Health);
                     HH^.Hedgehog^.Effects[hePoisoned] := 0;
                     str(Gear^.Health, s);
@@ -827,7 +853,7 @@
     Gear^.State:= Gear^.State and (not gstMoving);
     exit
     end;
-isFalling:= (Gear^.dY.isNegative) or not TestCollisionYKick(Gear, 1);
+isFalling:= (Gear^.dY.isNegative) or (not TestCollisionYKick(Gear, 1));
 if isFalling then
     begin
     if (Gear^.dY.isNegative) and TestCollisionYKick(Gear, -1) then
@@ -953,11 +979,11 @@
             SetLittle(Gear^.dX);
 
 if (not isFalling)
-and (hwAbs(Gear^.dX) + hwAbs(Gear^.dY) < _0_03) then
+  and (hwAbs(Gear^.dX) + hwAbs(Gear^.dY) < _0_03) then
     begin
     Gear^.State:= Gear^.State and (not gstWinner);
     Gear^.State:= Gear^.State and (not gstMoving);
-    while TestCollisionYWithGear(Gear,1) = 0 do
+    while (TestCollisionYWithGear(Gear,1) = 0) and (not CheckGearDrowning(Gear)) do
         Gear^.Y:= Gear^.Y+_1;
     SetLittle(Gear^.dX);
     Gear^.dY:= _0
@@ -1221,6 +1247,7 @@
     land: Word; *)
 var slope: hwFloat; 
 begin
+CheckSum:= CheckSum xor Gear^.Hedgehog^.BotLevel;
 if (Gear^.Message and gmDestroy) <> 0 then
     begin
     DeleteGear(Gear);
diff -r 57a508884052 -r 0a494f951dcf hedgewars/uGearsList.pas
--- a/hedgewars/uGearsList.pas	Thu Jul 26 11:01:32 2012 +0200
+++ b/hedgewars/uGearsList.pas	Thu Jul 26 11:10:56 2012 +0200
@@ -27,11 +27,13 @@
 procedure InsertGearToList(Gear: PGear);
 procedure RemoveGearFromList(Gear: PGear);
 
+var curHandledGear: PGear;
+
 implementation
 
 uses uRandom, uUtils, uConsts, uVariables, uAmmos, uTeams, uStats,
     uTextures, uScript, uRenderUtils, uAI, uCollisions,
-    uGearsRender, uGearsUtils;
+    uGearsRender, uGearsUtils, uDebug;
 
 var GCounter: LongWord = 0; // this does not get re-initialized, but should be harmless
 
@@ -40,7 +42,7 @@
 begin
     tmp:= GearsList;
     ptmp:= GearsList;
-    while (tmp <> nil) and (tmp^.Z <= Gear^.Z) do
+    while (tmp <> nil) and (tmp^.Z < Gear^.Z) do
         begin
         ptmp:= tmp;
         tmp:= tmp^.NextGear
@@ -63,8 +65,11 @@
         end;
 end;
 
+
 procedure RemoveGearFromList(Gear: PGear);
 begin
+TryDo((curHandledGear = nil) or (Gear = curHandledGear), 'You''re doing it wrong', true);
+
 if Gear^.NextGear <> nil then
     Gear^.NextGear^.PrevGear:= Gear^.PrevGear;
 if Gear^.PrevGear <> nil then
@@ -72,7 +77,8 @@
 else
     GearsList:= Gear^.NextGear
 end;
-    
+
+
 function AddGear(X, Y: LongInt; Kind: TGearType; State: Longword; dX, dY: hwFloat; Timer: LongWord): PGear;
 var gear: PGear;
 begin
@@ -92,11 +98,9 @@
 gear^.doStep:= doStepHandlers[Kind];
 gear^.CollisionIndex:= -1;
 gear^.Timer:= Timer;
-gear^.FlightTime:= 0;
 gear^.uid:= GCounter;
 gear^.SoundChannel:= -1;
 gear^.ImpactSound:= sndNone;
-gear^.nImpactSounds:= 0;
 gear^.Density:= _1;
 // Define ammo association, if any.
 gear^.AmmoType:= GearKindAmmoTypeMap[Kind];
@@ -104,7 +108,7 @@
 
 if CurrentHedgehog <> nil then gear^.Hedgehog:= CurrentHedgehog;
 
-if Ammoz[Gear^.AmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0 then
+if (Ammoz[Gear^.AmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0) then
     gear^.Z:= cHHZ+1
 else gear^.Z:= cUsualZ;
 
@@ -294,6 +298,7 @@
                 gear^.Radius:= 15;
                 gear^.Tag:= Y
                 end;
+   gtAirAttack: gear^.Z:= cHHZ+2;
      gtAirBomb: begin
                 gear^.Radius:= 5;
                 gear^.Density:= _2;
@@ -458,6 +463,13 @@
                 gear^.Pos:= 1;
                 end;
       gtIceGun: gear^.Health:= 1000;
+gtGenericFaller:begin
+                gear^.AdvBounce:= 1;
+                gear^.Radius:= 1;
+                gear^.Elasticity:= _0_9;
+                gear^.Friction:= _0_995;
+                gear^.Density:= _1;
+                end;
     end;
 
 InsertGearToList(gear);
@@ -555,8 +567,10 @@
                 end
         end;
 with Gear^ do
+    begin
     AddFileLog('Delete: #' + inttostr(uid) + ' (' + inttostr(hwRound(x)) + ',' + inttostr(hwRound(y)) + '), d(' + floattostr(dX) + ',' + floattostr(dY) + ') type = ' + EnumToStr(Kind));
-
+    AddRandomness(X.round xor X.frac xor dX.round xor dX.frac xor Y.round xor Y.frac xor dY.round xor dY.frac)
+    end;
 if CurAmmoGear = Gear then
     CurAmmoGear:= nil;
 if FollowGear = Gear then
diff -r 57a508884052 -r 0a494f951dcf hedgewars/uGearsRender.pas
--- a/hedgewars/uGearsRender.pas	Thu Jul 26 11:01:32 2012 +0200
+++ b/hedgewars/uGearsRender.pas	Thu Jul 26 11:10:56 2012 +0200
@@ -21,7 +21,7 @@
 unit uGearsRender;
 
 interface
-uses uTypes, uConsts, GLunit, uFloat, SDLh;
+uses uTypes, uConsts, GLunit, uFloat, SDLh, uRandom;
 
 procedure RenderGear(Gear: PGear; x, y: LongInt);
 
@@ -1015,10 +1015,10 @@
                             DrawSprite(sprUtility, x - 24, y - 24, i);
                             end;
                         end;
-                    if Gear^.Timer <= 1833 then
+                    if Gear^.Timer < 1833 then
                         begin
                         DrawTextureRotatedF(SpritesData[sprPortal].texture, min(abs(1.25 - (Gear^.Timer mod 1333) / 400), 1.25), 0, 0,
-                                            Gear^.Angle+WorldDx, Gear^.Power+WorldDy-16, 4+Gear^.Tag, 1, 32, 32, 270);
+                                            x, Gear^.Angle+WorldDy-16, 4+Gear^.Tag, 1, 32, 32, 270);
                         end
                     end;
       gtExplosives: begin
@@ -1213,9 +1213,8 @@
                                 else DrawLine(hwRound(HHGear^.X), hwRound(HHGear^.Y), hwRound(Gear^.X), hwRound(Gear^.Y), 4.0, i, i, $FF, $40);
                                 end
                           end
-                      end
-
-
+                      end;
+            gtGenericFaller: DrawCircle(x, y, 3, 3, $FF, $00, $00, $FF);  // debug
          end;
       if Gear^.RenderTimer and (Gear^.Tex <> nil) then
           DrawTextureCentered(x + 8, y + 8, Gear^.Tex);
diff -r 57a508884052 -r 0a494f951dcf hedgewars/uGearsUtils.pas
--- a/hedgewars/uGearsUtils.pas	Thu Jul 26 11:01:32 2012 +0200
+++ b/hedgewars/uGearsUtils.pas	Thu Jul 26 11:10:56 2012 +0200
@@ -343,6 +343,18 @@
     Y:= hwRound(Gear^.Y);
     if cWaterLine < Y + Gear^.Radius then
         begin
+        if Gear^.State and gstInvisible <> 0 then
+            begin
+            if Gear^.Kind = gtGenericFaller then
+                begin
+                Gear^.X:= int2hwFloat(GetRandom(rightX-leftX)+leftX);
+                Gear^.Y:= int2hwFloat(GetRandom(LAND_HEIGHT-topY)+topY);
+                Gear^.dX:= _90-(GetRandomf*_360);
+                Gear^.dY:= _90-(GetRandomf*_360)
+                end
+            else DeleteGear(Gear);
+            exit
+            end;
         isSubmersible:= (Gear = CurrentHedgehog^.Gear) and (CurAmmoGear <> nil) and (CurAmmoGear^.AmmoType = amJetpack);
         skipSpeed := _0_25;
         skipAngle := _1_9;
@@ -403,34 +415,40 @@
             begin
             splash:= AddVisualGear(X, cWaterLine, vgtSplash);
             if splash <> nil then 
+                with splash^ do
                 begin
-                splash^.Scale:= hwFloat2Float(Gear^.Density / _3 * Gear^.dY);
-                if splash^.Scale > 1 then splash^.Scale:= power(splash^.Scale,0.3333)
-                else splash^.Scale:= splash^.Scale + ((1-splash^.Scale) / 2);
+                Scale:= hwFloat2Float(Gear^.Density / _3 * Gear^.dY);
+                if Scale > 1 then Scale:= power(Scale,0.3333)
+                else Scale:= Scale + ((1-Scale) / 2);
+                if Scale > 1 then Timer:= round(min(Scale*0.0005/cGravityf,4))
+                else Timer:= 1;
+                // Low Gravity
+                FrameTicks:= FrameTicks*Timer;
                 end;
 
             maxDrops := (hwRound(Gear^.Density) * 3) div 2 + round(vdX * hwRound(Gear^.Density) * 6) + round(vdY * hwRound(Gear^.Density) * 6);
             for i:= max(maxDrops div 3, min(32, Random(maxDrops))) downto 0 do
                 begin
-                particle := AddVisualGear(X - 3 + Random(6), cWaterLine, vgtDroplet);
+                particle := AddVisualGear(X - 3 + Random(7), cWaterLine, vgtDroplet);
                 if particle <> nil then
-                    begin
-                    particle^.dX := particle^.dX - vdX / 10;
-                    particle^.dY := particle^.dY - vdY / 5;
-                    if splash <> nil then
+                    with particle^ do
                         begin
-                        if splash^.Scale > 1 then 
+                        dX := dX - vdX / 10;
+                        dY := dY - vdY / 5;
+                        if splash <> nil then
                             begin
-                            particle^.dX:= particle^.dX * power(splash^.Scale,0.3333); // tone down the droplet height further
-                            particle^.dY:= particle^.dY * power(splash^.Scale, 0.3333)
-                            end
-                        else 
-                            begin
-                            particle^.dX:= particle^.dX * splash^.Scale;
-                            particle^.dY:= particle^.dY * splash^.Scale
+                            if splash^.Scale > 1 then 
+                                begin
+                                dX:= dX * power(splash^.Scale,0.3333); // tone down the droplet height further
+                                dY:= dY * power(splash^.Scale, 0.3333)
+                                end
+                            else 
+                                begin
+                                dX:= dX * splash^.Scale;
+                                dY:= dY * splash^.Scale
+                                end
                             end
                         end
-                    end
                 end
             end;
         if isSubmersible and (CurAmmoGear^.Pos = 0) then
@@ -446,6 +464,10 @@
     sparkles: PVisualGear;
     gX, gY: LongInt;
 begin
+    if (Gear^.LastDamage <> nil) then
+        uStats.HedgehogDamaged(Gear, Gear^.LastDamage, 0, true)
+    else
+        uStats.HedgehogDamaged(Gear, CurrentHedgehog, 0, true);
     AttackBar:= 0;
     gear^.dX := _0;
     gear^.dY := _0;
diff -r 57a508884052 -r 0a494f951dcf hedgewars/uIO.pas
--- a/hedgewars/uIO.pas	Thu Jul 26 11:01:32 2012 +0200
+++ b/hedgewars/uIO.pas	Thu Jul 26 11:10:56 2012 +0200
@@ -402,7 +402,7 @@
             TargetPoint.Y:= putY
             end;
         AddFileLog('put: ' + inttostr(TargetPoint.X) + ', ' + inttostr(TargetPoint.Y));
-        State:= State and not gstHHChooseTarget;
+        State:= State and (not gstHHChooseTarget);
         if (Ammoz[CurAmmoType].Ammo.Propz and ammoprop_AttackingPut) <> 0 then
             Message:= Message or (gmAttack and InputMask);
         end
diff -r 57a508884052 -r 0a494f951dcf hedgewars/uInputHandler.pas
--- a/hedgewars/uInputHandler.pas	Thu Jul 26 11:01:32 2012 +0200
+++ b/hedgewars/uInputHandler.pas	Thu Jul 26 11:10:56 2012 +0200
@@ -25,8 +25,9 @@
 procedure initModule;
 procedure freeModule;
 
-function  KeyNameToCode(name: shortstring; Modifier: shortstring = ''): LongInt;
-procedure MaskModifier(var code: LongInt; modifier: LongWord);
+function  KeyNameToCode(name: shortstring): LongInt; inline;
+function  KeyNameToCode(name: shortstring; Modifier: shortstring): LongInt;
+//procedure MaskModifier(var code: LongInt; modifier: LongWord);
 procedure MaskModifier(Modifier: shortstring; var code: LongInt);
 procedure ProcessMouse(event: TSDL_MouseButtonEvent; ButtonDown: boolean);
 procedure ProcessKey(event: TSDL_KeyboardEvent); inline;
@@ -60,6 +61,11 @@
     KeyNames: array [0..cKeyMaxIndex] of string[15];
     CurrentBinds: TBinds;
 
+function  KeyNameToCode(name: shortstring): LongInt; inline;
+begin
+    KeyNameToCode:= KeyNameToCode(name, '');
+end;
+
 function KeyNameToCode(name: shortstring; Modifier: shortstring): LongInt;
 var code: LongInt;
 begin
@@ -70,7 +76,7 @@
     MaskModifier(Modifier, code);
     KeyNameToCode:= code;
 end;
-
+(*
 procedure MaskModifier(var code: LongInt; Modifier: LongWord);
 begin
     if(Modifier and KMOD_LSHIFT) <> 0 then code:= code or LSHIFT; 
@@ -80,7 +86,7 @@
     if(Modifier and KMOD_LCTRL) <> 0 then code:= code or LCTRL; 
     if(Modifier and KMOD_RCTRL) <> 0 then code:= code or LCTRL; 
 end;
-
+*)
 procedure MaskModifier(Modifier: shortstring; var code: LongInt);
 var mod_ : shortstring;
     ModifierCount, i: LongInt;
@@ -133,7 +139,7 @@
 
 if CurrentBinds[code][0] <> #0 then
     begin
-    if (code > 3) and KeyDown and not ((CurrentBinds[code] = 'put') or (CurrentBinds[code] = 'ammomenu') or (CurrentBinds[code] = '+cur_u') or (CurrentBinds[code] = '+cur_d') or (CurrentBinds[code] = '+cur_l') or (CurrentBinds[code] = '+cur_r')) then hideAmmoMenu:= true;
+    if (code > 3) and KeyDown and (not ((CurrentBinds[code] = 'put')) or (CurrentBinds[code] = 'ammomenu') or (CurrentBinds[code] = '+cur_u') or (CurrentBinds[code] = '+cur_d') or (CurrentBinds[code] = '+cur_l') or (CurrentBinds[code] = '+cur_r')) then hideAmmoMenu:= true;
 
     if KeyDown then
         begin
@@ -248,6 +254,7 @@
 
 DefaultBinds[KeyNameToCode(_S'0')]:= '+volup';
 DefaultBinds[KeyNameToCode(_S'9')]:= '+voldown';
+DefaultBinds[KeyNameToCode(_S'8')]:= 'mute';
 DefaultBinds[KeyNameToCode(_S'c')]:= 'capture';
 DefaultBinds[KeyNameToCode(_S'h')]:= 'findhh';
 DefaultBinds[KeyNameToCode(_S'p')]:= 'pause';
diff -r 57a508884052 -r 0a494f951dcf hedgewars/uRandom.pas
--- a/hedgewars/uRandom.pas	Thu Jul 26 11:01:32 2012 +0200
+++ b/hedgewars/uRandom.pas	Thu Jul 26 11:10:56 2012 +0200
@@ -35,15 +35,23 @@
 
 procedure SetRandomSeed(Seed: shortstring); // Sets the seed that should be used for generating pseudo-random values.
 function  GetRandomf: hwFloat; overload; // Returns a pseudo-random hwFloat.
-function  GetRandom(m: LongWord): LongWord; overload; // Returns a positive pseudo-random integer smaller than m.
+function  GetRandom(m: LongWord): LongWord; overload; inline; // Returns a positive pseudo-random integer smaller than m.
+procedure AddRandomness(r: LongWord); inline;
 function  rndSign(num: hwFloat): hwFloat; // Returns num with a random chance of having a inverted sign.
 
+
 implementation
 
 var cirbuf: array[0..63] of Longword;
     n: byte;
 
-function GetNext: Longword;
+procedure AddRandomness(r: LongWord); inline;
+begin
+n:= (n + 1) and $3F;
+cirbuf[n]:= cirbuf[n] xor r
+end;
+
+function GetNext: Longword; inline;
 begin
 n:= (n + 1) and $3F;
 cirbuf[n]:=
@@ -79,7 +87,7 @@
 GetRandomf.QWordValue:= GetNext
 end;
 
-function GetRandom(m: LongWord): LongWord;
+function GetRandom(m: LongWord): LongWord; inline;
 begin
 GetNext;
 GetRandom:= GetNext mod m
diff -r 57a508884052 -r 0a494f951dcf hedgewars/uScript.pas
--- a/hedgewars/uScript.pas	Thu Jul 26 11:01:32 2012 +0200
+++ b/hedgewars/uScript.pas	Thu Jul 26 11:10:56 2012 +0200
@@ -322,7 +322,7 @@
             health:= lua_tointeger(L, 3)
         else
             health:= cHealthCaseAmount;
-        gear := SpawnCustomCrateAt(lua_tointeger(L, 1), lua_tointeger(L, 2), HealthCrate, health);
+        gear := SpawnCustomCrateAt(lua_tointeger(L, 1), lua_tointeger(L, 2), HealthCrate, health, 0);
         if gear <> nil then
             lua_pushinteger(L, gear^.uid)
         else
@@ -334,14 +334,16 @@
 function lc_spawnammocrate(L: PLua_State): LongInt; Cdecl;
 var gear: PGear;
 begin
-    if lua_gettop(L) <> 3 then
+    if (lua_gettop(L) <> 3) and (lua_gettop(L) <> 4) then
         begin
         LuaError('Lua: Wrong number of parameters passed to SpawnAmmoCrate!');
         lua_pushnil(L);
         end
     else
         begin
-        gear := SpawnCustomCrateAt(lua_tointeger(L, 1), lua_tointeger(L, 2), AmmoCrate, lua_tointeger(L, 3));
+        if (lua_gettop(L) = 3) then 
+             gear := SpawnCustomCrateAt(lua_tointeger(L, 1), lua_tointeger(L, 2), AmmoCrate, lua_tointeger(L, 3), 0)
+        else gear := SpawnCustomCrateAt(lua_tointeger(L, 1), lua_tointeger(L, 2), AmmoCrate, lua_tointeger(L, 3), lua_tointeger(L, 4));
         if gear <> nil then
             lua_pushinteger(L, gear^.uid)
         else
@@ -353,15 +355,16 @@
 function lc_spawnutilitycrate(L: PLua_State): LongInt; Cdecl;
 var gear: PGear;
 begin
-    if lua_gettop(L) <> 3 then
+    if (lua_gettop(L) <> 3) and (lua_gettop(L) <> 4) then
         begin
         LuaError('Lua: Wrong number of parameters passed to SpawnUtilityCrate!');
         lua_pushnil(L);
         end
     else
-        begin  
-        gear := SpawnCustomCrateAt(lua_tointeger(L, 1), lua_tointeger(L, 2),
-        UtilityCrate, lua_tointeger(L, 3));
+        begin
+        if (lua_gettop(L) = 3) then
+             gear := SpawnCustomCrateAt(lua_tointeger(L, 1), lua_tointeger(L, 2), UtilityCrate, lua_tointeger(L, 3), 0)
+        else gear := SpawnCustomCrateAt(lua_tointeger(L, 1), lua_tointeger(L, 2), UtilityCrate, lua_tointeger(L, 3), lua_tointeger(L, 4));
         if gear <> nil then
             lua_pushinteger(L, gear^.uid)
         else
@@ -978,10 +981,9 @@
             begin
             prevgear := CurrentHedgehog^.Gear;
             prevgear^.Active := false;
-            prevgear^.State:= prevgear^.State and not gstHHDriven;
+            prevgear^.State:= prevgear^.State and (not gstHHDriven);
             prevgear^.Z := cHHZ;
-            RemoveGearFromList(prevgear);
-            InsertGearToList(prevgear);
+            prevgear^.Message:= prevgear^.Message or gmRemoveFromList or gmAddToList;
             
             SwitchCurrentHedgehog(gear^.Hedgehog);
             CurrentTeam:= CurrentHedgehog^.Team;
@@ -989,8 +991,7 @@
             gear^.State:= gear^.State or gstHHDriven;
             gear^.Active := true;
             gear^.Z := cCurrHHZ;
-            RemoveGearFromList(gear);
-            InsertGearToList(gear);
+            gear^.Message:= gear^.Message or gmRemoveFromList or gmAddToList;
             end
         end;
     lc_switchhog:= 0
diff -r 57a508884052 -r 0a494f951dcf hedgewars/uSound.pas
--- a/hedgewars/uSound.pas	Thu Jul 26 11:01:32 2012 +0200
+++ b/hedgewars/uSound.pas	Thu Jul 26 11:10:56 2012 +0200
@@ -47,7 +47,7 @@
 
 // Obvious music commands for music track
 procedure SetMusic(enabled: boolean);           // Enable/disable music.
-procedure SetMusicName(musicname: shortstring);     // Enable/disable music and set name of musicfile to play.
+procedure SetMusicName(musicname: shortstring); // Enable/disable music and set name of the file to play.
 procedure PlayMusic;                            // Play music from the start.
 procedure PauseMusic;                           // Pause music.
 procedure ResumeMusic;                          // Resume music from pause point.
@@ -82,6 +82,16 @@
 procedure PlayNextVoice;
 
 
+// GLOBAL FUNCTIONS
+
+// Drastically lower the volume when we lose focus (and restore the previous value).
+procedure DampenAudio;
+procedure UndampenAudio;
+
+// Mute/Unmute audio
+procedure MuteAudio;
+
+
 // MISC
 
 // Set the initial volume
@@ -93,25 +103,22 @@
 // Returns a pointer to the voicepack with the given name.
 function  AskForVoicepack(name: shortstring): Pointer;
 
-// Drastically lower the volume when we lose focus (and restore the previous value).
-procedure DampenAudio;
-procedure UndampenAudio;
 
 implementation
 uses uVariables, uConsole, uUtils, uCommands, uDebug;
 
 const chanTPU = 32;
 var Volume: LongInt;
+    cInitVolume: LongInt;
+    previousVolume: LongInt; // cached volume value
     lastChan: array [TSound] of LongInt;
     voicepacks: array[0..cMaxTeams] of TVoicepack;
     defVoicepack: PVoicepack;
-    Mus: PMixMusic = nil;
+    Mus: PMixMusic = nil; // music pointer
     MusicFN: shortstring; // music file name
-    previousVolume: LongInt; // cached volume value
     isMusicEnabled: boolean;
     isSoundEnabled: boolean;
     isSEBackup: boolean;
-    cInitVolume: LongInt;
 
 
 function  AskForVoicepack(name: shortstring): Pointer;
@@ -180,7 +187,7 @@
     WriteLnToConsole(msgOK);
 
     Mix_AllocateChannels(Succ(chanTPU));
-    ChangeVolume(cInitVolume);
+    ChangeVolume(cInitVolume);	
 end;
 
 procedure ResetSound;
@@ -446,7 +453,7 @@
 function ChangeVolume(voldelta: LongInt): LongInt;
 begin
     ChangeVolume:= 0;
-    if not isSoundEnabled then
+    if (not isSoundEnabled) or (voldelta = 0) then
         exit;
 
     inc(Volume, voldelta);
@@ -458,20 +465,52 @@
     Volume:= Mix_Volume(-1, -1);
     if isMusicEnabled then
         Mix_VolumeMusic(Volume * 4 div 8);
-    ChangeVolume:= Volume * 100 div MIX_MAX_VOLUME
+    ChangeVolume:= Volume * 100 div MIX_MAX_VOLUME;
+
+    if (isMusicEnabled) then
+        if (Volume = 0) then
+            PauseMusic
+            else
+            ResumeMusic;
+
+    isAudioMuted:= (Volume = 0);
 end;
 
 procedure DampenAudio;
 begin
+    if (isAudioMuted) then
+        exit;
     previousVolume:= Volume;
     ChangeVolume(-Volume * 7 div 9);
 end;
 
 procedure UndampenAudio;
 begin
+     if (isAudioMuted) then
+        exit;
     ChangeVolume(previousVolume - Volume);
 end;
 
+procedure MuteAudio;
+begin
+    if (not isSoundEnabled) then
+    exit;
+
+    if (isAudioMuted) then
+    begin
+        ResumeMusic;
+        ChangeVolume(previousVolume);
+    end
+    else
+    begin
+        PauseMusic;
+        previousVolume:= Volume;
+        ChangeVolume(-Volume);
+    end;
+
+    // isAudioMuted is updated in ChangeVolume
+end;
+
 procedure SetMusic(enabled: boolean);
 begin
     isMusicEnabled:= enabled;
@@ -534,17 +573,22 @@
     CurrentTeam^.voicepack:= AskForVoicepack(s)
 end;
 
+procedure chMute(var s: shortstring);
+begin
+    s:= s; // avoid compiler hint
+    MuteAudio;
+end;
+
 procedure initModule;
 var t: LongInt;
     i: TSound;
 begin
     RegisterVariable('voicepack', @chVoicepack, false);
+    RegisterVariable('mute'     , @chMute     , true );
 
     MusicFN:='';
-    isMusicEnabled:= true;
-    isSoundEnabled:= true;
+    isAudioMuted:= false;
     isSEBackup:= isSoundEnabled;
-    cInitVolume:= 100;
     Volume:= 0;
     defVoicepack:= AskForVoicepack('Default');
 
@@ -568,6 +612,11 @@
 begin
     if isSoundEnabled then
         ReleaseSound(true);
+    // koda still needs to fix this properly.  when he rearranged things, he made these variables get
+    // reset after argparsers picks them up
+    isMusicEnabled:= true;
+    isSoundEnabled:= true;
+    cInitVolume:= 100;
 end;
 
 end.
diff -r 57a508884052 -r 0a494f951dcf hedgewars/uTeams.pas
--- a/hedgewars/uTeams.pas	Thu Jul 26 11:01:32 2012 +0200
+++ b/hedgewars/uTeams.pas	Thu Jul 26 11:10:56 2012 +0200
@@ -473,7 +473,7 @@
                 begin
                 Gear^.Invulnerable:= false;
                 Gear^.Damage:= Gear^.Health;
-                Gear^.State:= (Gear^.State or gstHHGone) and not gstHHDriven
+                Gear^.State:= (Gear^.State or gstHHGone) and (not gstHHDriven)
                 end
             end
 end;
diff -r 57a508884052 -r 0a494f951dcf hedgewars/uTypes.pas
--- a/hedgewars/uTypes.pas	Thu Jul 26 11:01:32 2012 +0200
+++ b/hedgewars/uTypes.pas	Thu Jul 26 11:10:56 2012 +0200
@@ -102,7 +102,7 @@
             gtSniperRifleShot, gtJetpack, gtMolotov, gtBirdy, // 44
             gtEgg, gtPortal, gtPiano, gtGasBomb, gtSineGunShot, gtFlamethrower, // 50
             gtSMine, gtPoisonCloud, gtHammer, gtHammerHit, gtResurrector, // 55
-            gtNapalmBomb, gtSnowball, gtFlake, gtStructure, gtLandGun, gtTardis, gtIceGun); // 62
+            gtNapalmBomb, gtSnowball, gtFlake, gtStructure, gtLandGun, gtTardis, gtIceGun, gtAddAmmo, gtGenericFaller); // 62
 
     // Gears that are _only_ of visual nature (e.g. background stuff, visual effects, speechbubbles, etc.)
     TVisualGearType = (vgtFlake, vgtCloud, vgtExplPart, vgtExplPart2, vgtFire,
@@ -260,6 +260,10 @@
             LastDamage: PHedgehog;
             end;
     TPGearArray = array of PGear;
+    PGearArrayS = record
+        size: LongWord;
+        ar: ^TPGearArray;
+        end;
 
     PVisualGear = ^TVisualGear;
     TVGearStepProcedure = procedure (Gear: PVisualGear; Steps: Longword);
@@ -336,6 +340,8 @@
             HatTex: PTexture;
             Ammo: PHHAmmo;
             CurAmmoType: TAmmoType;
+            PickUpType: LongWord;
+            PickUpDelay: LongInt;
             AmmoStore: Longword;
             Team: PTeam;
             MultiShootAttacks: Longword;
@@ -400,24 +406,27 @@
             sidHellishBomb, sidDrill, sidBallgun, sidNapalm, sidRCPlane,
             sidLowGravity, sidExtraDamage, sidInvulnerable, sidExtraTime,
             sidLaserSight, sidVampiric, sidSniperRifle, sidJetpack,
-            sidMolotov, sidBirdy, sidPortalGun, sidPiano, sidGasBomb, sidSineGun, sidFlamethrower,
-            sidSMine, sidHammer, sidResurrector, sidDrillStrike, sidSnowball, sidNothing, sidTardis, 
-	    sidStructure, sidLandGun, sidIceGun);
+            sidMolotov, sidBirdy, sidPortalGun, sidPiano, sidGasBomb,
+            sidSineGun, sidFlamethrower,sidSMine, sidHammer, sidResurrector,
+            sidDrillStrike, sidSnowball, sidNothing, sidTardis,
+            sidStructure, sidLandGun, sidIceGun);
 
     TMsgStrId = (sidStartFight, sidDraw, sidWinner, sidVolume, sidPaused,
             sidConfirm, sidSuddenDeath, sidRemaining, sidFuel, sidSync,
             sidNoEndTurn, sidNotYetAvailable, sidRoundSD, sidRoundsSD, sidReady, 
-            sidBounce1, sidBounce2, sidBounce3, sidBounce4, sidBounce5, sidBounce);
+            sidBounce1, sidBounce2, sidBounce3, sidBounce4, sidBounce5, sidBounce,
+            sidMute);
 
     // Events that are important for the course of the game or at least interesting for other reasons
     TEventId = (eidDied, eidDrowned, eidRoundStart, eidRoundWin, eidRoundDraw,
-            eidNewHealthPack, eidNewAmmoPack, eidNewUtilityPack, eidTurnSkipped, eidHurtSelf,
-            eidHomerun, eidGone);
+            eidNewHealthPack, eidNewAmmoPack, eidNewUtilityPack, eidTurnSkipped,
+            eidHurtSelf, eidHomerun, eidGone);
 
     TGoalStrId = (gidCaption, gidSubCaption, gidForts, gidLowGravity, gidInvulnerable,
             gidVampiric, gidKarma, gidKing, gidPlaceHog, gidArtillery,
-            gidSolidLand, gidSharedAmmo, gidMineTimer, gidNoMineTimer, gidRandomMineTimer,
-            gidDamageModifier, gidResetHealth, gidAISurvival, gidInfAttack, gidResetWeps, gidPerHogAmmo, gidTagTeam);
+            gidSolidLand, gidSharedAmmo, gidMineTimer, gidNoMineTimer, 
+            gidRandomMineTimer, gidDamageModifier, gidResetHealth, gidAISurvival, 
+            gidInfAttack, gidResetWeps, gidPerHogAmmo, gidTagTeam);
 
     TLandArray = packed array of array of LongWord;
     TCollisionArray = packed array of array of Word;
diff -r 57a508884052 -r 0a494f951dcf hedgewars/uVariables.pas
--- a/hedgewars/uVariables.pas	Thu Jul 26 11:01:32 2012 +0200
+++ b/hedgewars/uVariables.pas	Thu Jul 26 11:10:56 2012 +0200
@@ -60,10 +60,12 @@
     isPaused        : boolean;
     isInMultiShoot  : boolean;
     isSpeed         : boolean;
+    SpeedStart      : LongWord;
 
     fastUntilLag    : boolean;
     autoCameraOn    : boolean;
 
+    CheckSum        : LongWord;
     GameTicks       : LongWord;
     GameState       : TGameState;
     GameType        : TGameType;
@@ -98,6 +100,7 @@
 
     cWaterLine       : Word;
     cGearScrEdgesDist: LongInt;
+	isAudioMuted     : boolean;
 
     // originally typed consts
     ExplosionBorderColor: LongWord;
@@ -1443,7 +1446,8 @@
             NumberInCase: 1;
             Ammo: (Propz: ammoprop_ForwMsgs or 
                           ammoprop_NoCrosshair or 
-                          ammoprop_DontHold;
+                          ammoprop_DontHold or
+                          ammoprop_Track;
                 Count: 1;
                 NumPerTurn: 0;
                 Timer: 0;
@@ -2368,6 +2372,8 @@
 (*        gtLandGun *) , amLandGun
 (*         gtTardis *) , amTardis
 (*         gtIceGun *) , amIceGun
+(*        gtAddAmmo *) , amNothing
+(*  gtGenericFaller *) , amNothing
     );
 
 var
@@ -2530,6 +2536,7 @@
     CursorMovementX     := 0;
     CursorMovementY     := 0;
     GameTicks           := 0;
+    CheckSum            := 0;
     cWaterLine          := LAND_HEIGHT;
     cGearScrEdgesDist   := 240;
 
@@ -2578,6 +2585,7 @@
     isPaused        := false;
     isInMultiShoot  := false;
     isSpeed         := false;
+    SpeedStart      := 0;
     fastUntilLag    := false;
     autoCameraOn    := true;
     cScriptName     := '';
@@ -2611,7 +2619,6 @@
     ExplosionBorderColor:= $FF808080;
     WaterOpacity:= $80;
     SDWaterOpacity:= $80;
-    GrayScale:= false;
 
     LuaGoals:= '';
 end;
@@ -2638,6 +2645,7 @@
     cScriptName     := '';
     cReadyDelay     := 5000;
     cStereoMode     := smNone;
+    GrayScale       := false;
 end;
 
 end.
diff -r 57a508884052 -r 0a494f951dcf hedgewars/uVisualGears.pas
--- a/hedgewars/uVisualGears.pas	Thu Jul 26 11:01:32 2012 +0200
+++ b/hedgewars/uVisualGears.pas	Thu Jul 26 11:10:56 2012 +0200
@@ -295,13 +295,13 @@
                 dy:= 0;
                 FrameTicks:= 740;
                 Frame:= 19;
+                Scale:= 0.75;
+                Timer:= 1;
                 end;
     vgtDroplet:
                 begin
-                dx:= 0.001 * (random(75) + 15);
-                dy:= -0.001 * (random(80) + 120);
-                if random(2) = 0 then
-                    dx := -dx;
+                dx:= 0.001 * (random(180) - 90);
+                dy:= -0.001 * (random(160) + 40);
                 FrameTicks:= 250 + random(1751);
                 Frame:= random(3)
                 end;
@@ -651,10 +651,10 @@
                                DrawTextureF(SpritesData[sprFlame].Texture, Gear^.FrameTicks / 900, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, (RealTicks shr 7 + Gear^.Frame) mod 8, 1, 16, 16);
                   vgtSplash: if SuddenDeathDmg then
                                  //DrawSprite(sprSDSplash, round(Gear^.X) + WorldDx - 40, round(Gear^.Y) + WorldDy - 58, 19 - (Gear^.FrameTicks div 37))
-                                 DrawTextureF(SpritesData[sprSDSplash].Texture, Gear^.scale, round(Gear^.X + WorldDx), round(Gear^.Y + WorldDy - ((SpritesData[sprSDSplash].Height+8)*Gear^.Scale)/2), 19 - (Gear^.FrameTicks div 37), 1, SpritesData[sprSDSplash].Width, SpritesData[sprSDSplash].Height)
+                                 DrawTextureF(SpritesData[sprSDSplash].Texture, Gear^.scale, round(Gear^.X + WorldDx), round(Gear^.Y + WorldDy - ((SpritesData[sprSDSplash].Height+8)*Gear^.Scale)/2), 19 - (Gear^.FrameTicks div Gear^.Timer div 37), 1, SpritesData[sprSDSplash].Width, SpritesData[sprSDSplash].Height)
                              else
                                  //DrawSprite(sprSplash, round(Gear^.X) + WorldDx - 40, round(Gear^.Y) + WorldDy - 58, 19 - (Gear^.FrameTicks div 37));
-                                 DrawTextureF(SpritesData[sprSplash].Texture, Gear^.scale, round(Gear^.X + WorldDx), round(Gear^.Y + WorldDy - ((SpritesData[sprSplash].Height+8)*Gear^.Scale)/2), 19 - (Gear^.FrameTicks div 37), 1, SpritesData[sprSplash].Width, SpritesData[sprSplash].Height);
+                                 DrawTextureF(SpritesData[sprSplash].Texture, Gear^.scale, round(Gear^.X + WorldDx), round(Gear^.Y + WorldDy - ((SpritesData[sprSplash].Height+8)*Gear^.Scale)/2), 19 - (Gear^.FrameTicks div Gear^.Timer div 37), 1, SpritesData[sprSplash].Width, SpritesData[sprSplash].Height);
                   vgtDroplet: if SuddenDeathDmg then
                                   DrawSprite(sprSDDroplet, round(Gear^.X) + WorldDx - 8, round(Gear^.Y) + WorldDy - 8, Gear^.Frame)
                               else
diff -r 57a508884052 -r 0a494f951dcf hedgewars/uWorld.pas
--- a/hedgewars/uWorld.pas	Thu Jul 26 11:01:32 2012 +0200
+++ b/hedgewars/uWorld.pas	Thu Jul 26 11:10:56 2012 +0200
@@ -1329,7 +1329,7 @@
         r.w:= 3;
         DrawTextureFromRect(TeamHealthBarWidth + 16, cScreenHeight + DrawHealthY + smallScreenOffset, @r, HealthTex);
 
-        if not highlight and not hasGone and (TeamHealth > 1) then
+        if not highlight and (not hasGone) and (TeamHealth > 1) then
             for i:= 0 to cMaxHHIndex do
                 if Hedgehogs[i].Gear <> nil then
                     begin
@@ -1365,6 +1365,19 @@
             r.w:= TeamHealthBarWidth + 1;
             r.h:= HealthTex^.h - 4;
             DrawTextureFromRect(16, cScreenHeight + DrawHealthY + smallScreenOffset + 2, @r, HealthTex);
+            if not hasGone and (TeamHealth > 1) then
+                begin
+                Tint(Clan^.Color shl 8 or $FF);
+                for i:= 0 to cMaxHHIndex do
+                    if Hedgehogs[i].Gear <> nil then
+                        begin
+                        inc(h,Hedgehogs[i].Gear^.Health);
+                        if h < TeamHealth then DrawTexture(15 + h*TeamHealthBarWidth div TeamHealth, cScreenHeight + DrawHealthY + smallScreenOffset + 1, SpritesData[sprSlider].Texture);
+                        end;
+                if TeamsCount * 20 > Longword(cScreenHeight) div 5 then
+                    Tint($FF,$FF,$FF,$80)
+                else Tint($FF, $FF, $FF, $FF);
+                end;
             end;
         end;
 if smallScreenOffset <> 0 then
@@ -1513,14 +1526,16 @@
 end;
 
 if SoundTimerTicks >= 50 then
-   begin
-   SoundTimerTicks:= 0;
-   if cVolumeDelta <> 0 then
-      begin
-      str(ChangeVolume(cVolumeDelta), s);
-      AddCaption(Format(trmsg[sidVolume], s), cWhiteColor, capgrpVolume)
-      end
-   end;
+begin
+    SoundTimerTicks:= 0;
+    if cVolumeDelta <> 0 then
+    begin
+        str(ChangeVolume(cVolumeDelta), s);
+        AddCaption(Format(trmsg[sidVolume], s), cWhiteColor, capgrpVolume);
+    end;
+    if isAudioMuted then
+        AddCaption(trmsg[sidMute], cWhiteColor, capgrpVolume)
+end;
 
 if GameState = gsConfirm then
     DrawTextureCentered(0, (cScreenHeight shr 1), ConfirmTexture);
@@ -1589,9 +1604,10 @@
 isFirstFrame:= false
 end;
 
+var PrevSentPointTime: LongWord = 0;
+
 procedure MoveCamera;
 var EdgesDist, wdy, shs,z: LongInt;
-    PrevSentPointTime: LongWord = 0;
 begin
 {$IFNDEF MOBILE}
 if (not (CurrentTeam^.ExtDriven and isCursorVisible and (not bShowAmmoMenu))) and cHasFocus and (GameState <> gsConfirm) then
@@ -1601,7 +1617,7 @@
 if not PlacingHogs and (FollowGear <> nil) and (not isCursorVisible) and (not bShowAmmoMenu) and (not fastUntilLag) then
     if (not autoCameraOn) then
         FollowGear:= nil
-    else        
+    else
     if ((abs(CursorPoint.X - prevPoint.X) + abs(CursorPoint.Y - prevpoint.Y)) > 4) then
         begin
         FollowGear:= nil;
@@ -1814,6 +1830,7 @@
     Frames:= 0;
     WorldDx:= -512;
     WorldDy:= -256;
+    PrevSentPointTime:= 0;
 
     FPS:= 0;
     CountTicks:= 0;
diff -r 57a508884052 -r 0a494f951dcf share/hedgewars/Data/Graphics/hedgewars.svg
--- a/share/hedgewars/Data/Graphics/hedgewars.svg	Thu Jul 26 11:01:32 2012 +0200
+++ b/share/hedgewars/Data/Graphics/hedgewars.svg	Thu Jul 26 11:10:56 2012 +0200
@@ -15,10 +15,29 @@
    id="svg3761"
    version="1.1"
    inkscape:version="0.48.3.1 r9886"
-   sodipodi:docname="hedgewars2.svg">
+   sodipodi:docname="hedgewars.svg">
   <defs
      id="defs3763">
     <linearGradient
+       id="linearGradient3830">
+      <stop
+         style="stop-color:#fde003;stop-opacity:1;"
+         offset="0"
+         id="stop3832" />
+      <stop
+         id="stop3834"
+         offset="0.65004325"
+         style="stop-color:#fde003;stop-opacity:0.82456142;" />
+      <stop
+         style="stop-color:#fde003;stop-opacity:0;"
+         offset="0.81587774"
+         id="stop3836" />
+      <stop
+         style="stop-color:#fde003;stop-opacity:0;"
+         offset="1"
+         id="stop3838" />
+    </linearGradient>
+    <linearGradient
        id="linearGradient4510">
       <stop
          id="stop4512"
@@ -119,6 +138,28 @@
        fx="301.59787"
        fy="1603.1143"
        r="965.37823" />
+    <radialGradient
+       inkscape:collect="always"
+       xlink:href="#linearGradient4510"
+       id="radialGradient3041"
+       gradientUnits="userSpaceOnUse"
+       gradientTransform="matrix(1.3744339,0.00122796,-2.847412e-4,0.31870592,-2055.4585,448.30107)"
+       cx="301.59787"
+       cy="1603.1143"
+       fx="301.59787"
+       fy="1603.1143"
+       r="965.37823" />
+    <radialGradient
+       inkscape:collect="always"
+       xlink:href="#linearGradient3830"
+       id="radialGradient3824"
+       cx="396.08008"
+       cy="1707.7947"
+       fx="396.08008"
+       fy="1707.7947"
+       r="970.50092"
+       gradientTransform="matrix(1.5350005,-0.00416341,0.001041,0.38380416,-213.68086,198.07079)"
+       gradientUnits="userSpaceOnUse" />
   </defs>
   <sodipodi:namedview
      id="base"
@@ -127,9 +168,9 @@
      borderopacity="1.0"
      inkscape:pageopacity="0.0"
      inkscape:pageshadow="2"
-     inkscape:zoom="0.49497475"
-     inkscape:cx="1125.4439"
-     inkscape:cy="76.835567"
+     inkscape:zoom="1.4"
+     inkscape:cx="584.24342"
+     inkscape:cy="246.47842"
      inkscape:document-units="px"
      inkscape:current-layer="layer1"
      showgrid="false"
@@ -137,11 +178,18 @@
      fit-margin-left="0"
      fit-margin-right="0"
      fit-margin-bottom="0"
-     inkscape:window-width="1552"
-     inkscape:window-height="807"
-     inkscape:window-x="106"
-     inkscape:window-y="295"
-     inkscape:window-maximized="0" />
+     inkscape:window-width="1896"
+     inkscape:window-height="1026"
+     inkscape:window-x="24"
+     inkscape:window-y="0"
+     inkscape:window-maximized="1"
+     showguides="true"
+     inkscape:guide-bbox="true">
+    <sodipodi:guide
+       orientation="1,0"
+       position="1000.051,282.84271"
+       id="guide3828" />
+  </sodipodi:namedview>
   <metadata
      id="metadata3766">
     <rdf:RDF>
@@ -150,7 +198,7 @@
         <dc:format>image/svg+xml</dc:format>
         <dc:type
            rdf:resource="http://purl.org/dc/dcmitype/StillImage" />
-        <dc:title></dc:title>
+        <dc:title />
       </cc:Work>
     </rdf:RDF>
   </metadata>
@@ -159,37 +207,33 @@
      inkscape:groupmode="layer"
      id="layer1"
      transform="translate(603.97091,-479.69834)">
-    <g
-       id="g4520">
-      <g
-         transform="translate(-327.0562,-8.8980914)"
-         id="g3849">
-        <path
-           inkscape:connector-curvature="0"
-           id="path3855"
-           d="M -198.94914,861.06865 C -215.61462,858.30272 -230.19802,849.54919 -244.72246,833.59369 -259.76244,817.07186 -259.19913,818.25184 -262.35866,796.6505 -263.88311,786.22797 -265.56497,774.77545 -266.09612,771.20045 -267.6653,760.63876 -272.96574,713.06555 -274.61948,694.70045 -284.78008,581.86497 -261.06371,524.57602 -206.30755,529.68708 -192.64703,530.96218 -179.46039,537.84301 -168.09228,549.62793 -164.10128,553.76526 -163.31159,553.8906 -158.07319,551.21817 -154.5346,549.41292 -154.08582,548.72082 -153.04789,543.46817 -147.20027,513.87519 -142.56291,507.98315 -115.03845,495.1749 -98.01377,487.25262 -88.55718,486.74374 -60.92913,492.26319 -18.00674,500.83808 10.92765,535.36025 70.18709,648.70045 85.49245,677.97362 97.01681,702.25802 98.00794,707.32513 98.53243,710.00656 99.41155,714.48478 99.96155,717.27674 105.8433,747.13423 94.5483,778.4558 68.50957,804.49453 47.03417,825.96994 -4.14227,782.78019 -49.66092,704.76593 -53.99356,697.34024 -58.04488,691.06086 -58.66386,690.81175 -59.85795,690.3312 -87.98492,698.89284 -89.33034,700.1464 -89.76588,700.55221 -87.86808,707.49735 -85.11301,715.58006 -65.1473,774.15457 -83.81034,816.6362 -146.74026,855.8587 -156.26888,861.79763 -180.17992,864.18372 -198.94914,861.06865 z M -192.70506,819.13763 C -145.00642,807.08937 -129.65709,766.11192 -150.58836,706.70045 -152.13853,702.30045 -154.04438,697.69762 -154.82358,696.47193 -158.12414,691.28017 -141.63018,675.17208 -118.73267,661.22536 -109.92689,655.86182 -109.92689,655.86182 -95.23267,657.11383 -63.4511,659.82176 -56.27548,660.21305 -49.41287,659.61243 -41.01149,658.87713 -41.99324,657.78992 -37.42767,672.88501 -27.39736,706.04808 0.94541,746.23707 25.14095,761.60498 28.7715,763.91094 38.14837,755.23532 45.62165,742.65592 55.69159,725.70571 55.59326,712.64418 45.24558,692.70045 41.51412,685.50856 13.60118,639.62672 1.44325,620.70045 -0.32331,617.95045 -6.63656,608.05045 -12.58621,598.70045 -23.44112,581.64172 -27.81646,574.88793 -50.80846,539.70045 -67.12916,514.72288 -66.09256,516.05608 -70.33434,514.58754 -76.50658,512.45066 -87.1808,511.36356 -92.98365,512.28087 -103.16054,513.88962 -123.03845,525.56346 -123.03845,529.93136 -123.03845,533.00948 -117.36793,551.89392 -115.60091,554.70045 -114.90835,555.80045 -113.76268,558.50045 -113.05499,560.70045 -109.38453,572.11084 -91.76859,601.85983 -80.46356,615.73935 -73.87633,623.8267 -72.60615,623.50495 -114.29316,624.30871 -148.56445,624.96949 -156.72557,625.60492 -163.35355,628.12858 -164.90185,628.71811 -166.54327,629.20045 -167.00113,629.20045 -168.07689,629.20045 -174.23463,616.30547 -176.55174,609.20045 -177.53826,606.17545 -179.62635,601.16978 -181.19193,598.07675 -182.75752,594.98371 -184.03845,592.15646 -184.03845,591.79398 -184.03845,584.23609 -200.07481,563.01427 -208.91032,558.87964 -248.72202,540.24949 -259.31217,589.79278 -242.43164,715.70045 -235.17497,769.82617 -235.27719,769.02427 -233.06207,789.20045 -230.70015,810.71363 -229.97101,812.60688 -222.19731,817.41128 -215.33174,821.65444 -205.05139,822.25621 -192.70506,819.13763 z M 1537.4616,841.20265 C 1443.2399,836.98933 1368.8988,804.48124 1347.8632,758.29456 1339.9519,740.92442 1339.4283,734.92561 1345.1567,727.29132 1373.5527,689.44706 1396.3702,669.57662 1421.0242,661.22242 1427.0543,659.17905 1432.2427,657.25261 1432.5539,656.94145 1432.865,656.63028 1430.4621,653.07376 1427.2139,649.03807 1413.0855,631.48445 1403.0002,611.51209 1404.2806,603.62203 1407.7883,582.00692 1463.2114,548.79636 1518.4616,535.20268 1568.7485,522.83018 1652.8755,522.14447 1668.8903,533.97655 1680.1023,542.26014 1707.7311,605.69669 1717.3322,645.20045 1719.6792,654.8571 1723.6507,673.12902 1724.4065,677.74745 1726.1001,688.09653 1704.6145,700.19364 1680.9367,702.22235 1652.069,704.69573 1652.5211,701.70825 1675.4278,738.62452 1709.3576,793.30578 1708.368,805.6923 1668.4616,825.81772 1639.5878,840.37924 1606.3476,844.28304 1537.4616,841.20265 z M 1625.2424,789.84124 C 1655.9036,781.8995 1664.6947,761.63635 1649.8546,733.11158 1643.5069,720.91061 1616.7814,695.20045 1610.4462,695.20045 1610.0745,695.20045 1608.5243,694.31317 1607.0013,693.22871 1604.267,691.28173 1591.1986,683.58457 1553.4616,661.69449 1523.4437,644.28198 1509.2742,631.26096 1507.3673,619.33634 1505.7879,609.45901 1509.0552,607.64233 1526.8725,608.49152 1537.5098,608.99851 1542.358,609.77287 1556.4616,613.2175 1568.9984,616.27946 1639.7892,640.77894 1644.2312,643.59302 1648.6485,646.39155 1672.252,654.31003 1673.2379,653.32418 1681.2815,645.28051 1674.643,600.86148 1661.3129,573.53312 1654.1953,558.94113 1655.0681,559.38191 1626.9616,556.18538 1550.4136,547.47963 1509.4565,556.60089 1452.9616,594.93568 1440.893,603.12487 1439.9616,604.21919 1439.9616,610.20969 1439.9616,623.66494 1453.592,637.7627 1481.7762,653.4581 1493.7919,660.14938 1505.1748,666.51675 1512.9616,670.90246 1514.8866,671.98667 1519.1616,674.3724 1522.4616,676.20409 1583.8451,710.27539 1595.4465,732.77574 1546.4616,722.75144 1521.013,717.54363 1516.471,716.35028 1479.4616,705.14781 1414.5932,685.51272 1428.6387,681.22335 1387.6043,733.20045 1370.8188,754.46202 1370.7563,754.62338 1378.7116,756.18775 1381.874,756.80965 1388.7366,758.37863 1393.9616,759.67436 1407.3525,762.99516 1423.7628,766.78008 1435.4616,769.24608 1440.9616,770.40543 1450.6366,772.46128 1456.9616,773.81463 1500.1172,783.04862 1528.9861,787.79239 1570.9616,792.54724 1583.182,793.93154 1615.7115,792.30988 1625.2424,789.84124 z M 1281.6023,763.95045 C 1280.2434,762.71295 1274.2282,754.05045 1268.2354,744.70045 1249.6893,715.76524 1249.9275,716.0057 1247.9556,724.2251 1244.8882,737.01168 1213.0673,747.49481 1191.4616,742.83658 1168.1294,737.80614 1158.262,720.58633 1163.3378,693.7576 1166.9011,674.92465 1166.903,674.92399 1146.0298,699.59249 1124.3143,725.2565 1122.3156,726.29207 1116.0419,715.12955 1114.7228,712.78272 1111.6183,707.9011 1109.1428,704.28151 1106.6674,700.66193 1103.8737,696.57545 1102.9347,695.20045 1101.9958,693.82545 1098.638,688.76295 1095.473,683.95045 1089.0891,674.24346 1089.1303,674.26151 1080.22,677.27055 1071.6872,680.15212 1071.7509,680.02883 1067.8713,701.20045 1064.4831,719.6914 1064.2653,719.84774 1045.3695,717.36512 1031.8607,715.59029 976.16035,666.34796 976.00235,656.0405 975.94995,652.62316 1005.475,613.02261 1044.8402,563.71182 1068.8944,533.58024 1068.0339,533.95867 1080.112,548.20045 1083.1439,551.77545 1086.9379,556.57113 1088.5431,558.85751 1090.1483,561.14389 1094.1616,566.39988 1097.4616,570.53747 1100.7616,574.67506 1106.8366,582.59919 1110.9616,588.14664 1115.0866,593.6941 1121.8366,602.71688 1125.9616,608.19726 1130.0866,613.67765 1136.8366,622.85484 1140.9616,628.59101 1145.0866,634.32719 1151.3866,643.07749 1154.9616,648.03612 1158.5366,652.99476 1162.734,658.94033 1164.2892,661.24851 1168.1064,666.91384 1168.244,666.61092 1172.4414,643.30923 1176.1144,622.918 1176.1144,622.918 1173.0087,618.80923 1164.6804,607.79112 1164.4592,607.29636 1164.4974,599.76931 1164.6501,569.6392 1219.4615,559.47553 1276.8905,578.92825 1330.6748,597.14645 1354.1646,654.16786 1316.9843,676.25627 1308.2173,681.46462 1307.9972,680.37858 1320.4562,693.38055 1337.0969,710.74655 1343.0395,723.34773 1338.6193,731.89543 1329.697,749.14935 1289.9112,771.51692 1281.6023,763.95045 z M 1292.3623,727.72252 C 1310.3952,715.75299 1313.7585,710.96654 1308.3909,704.91118 1300.7149,696.25155 1284.2167,678.41317 1276.2278,670.13538 1266.8668,660.43592 1266.1893,658.57057 1271.7116,657.69968 1285.3504,655.54875 1288.953,654.75764 1292.9491,653.03604 1309.1719,646.04711 1309.0226,625.24042 1292.6221,607.44797 1262.1995,574.44335 1162.0741,578.96677 1187.2206,612.20976 1189.0032,614.56623 1191.0623,617.30306 1191.7965,618.29158 1192.9318,619.82004 1192.5788,623.05174 1189.4371,639.89468 1187.4053,650.78785 1185.3566,663.52545 1184.8845,668.20045 1184.4124,672.87545 1182.8891,682.55045 1181.4994,689.70045 1177.9302,708.06241 1178.0274,709.91216 1182.662,711.84862 1188.8575,714.43725 1199.18,713.81907 1209.5065,710.24098 1222.2965,705.80935 1221.4616,707.71768 1221.4616,682.91456 1221.4616,652.81299 1223.7762,649.67803 1234.6353,665.07207 1237.207,668.71768 1240.6949,673.33825 1242.3863,675.34001 1244.0777,677.34176 1247.4866,681.76817 1249.9616,685.17646 1252.4365,688.58475 1257.0307,694.82195 1260.1707,699.0369 1263.3108,703.25185 1267.3164,708.72545 1269.0722,711.20045 1285.5599,734.44252 1283.9543,733.30348 1292.3623,727.72252 z M 1243.4616,647.55969 C 1219.1609,646.19759 1197.8713,626.80645 1216.2116,622.73963 1244.4636,616.47495 1284.9616,621.77703 1284.9616,631.74052 1284.9616,638.48882 1257.4253,650.93529 1248.9616,648.01261 1248.6865,647.91765 1246.2116,647.71384 1243.4616,647.55969 z M 1043.9814,686.95045 C 1043.998,685.90341 1044.8154,680.11228 1046.4163,669.70045 1046.5854,668.60045 1047.294,663.65045 1047.9909,658.70045 1049.5923,647.32709 1049.3037,647.61838 1059.7097,646.87495 1064.5232,646.53105 1073.9616,645.53426 1080.6838,644.65987 1096.1105,642.65326 1094.1281,641.02651 1106.8229,666.10956 1119.5289,691.21469 1117.687,690.11398 1126.2196,677.70045 1142.9039,653.42785 1142.4501,656.73276 1131.1413,641.85538 1128.6977,638.64059 1125.1119,633.69059 1123.173,630.85538 1119.4816,625.45788 1113.5446,616.9374 1108.4616,609.74242 1104.988,604.82563 1095.7162,592.19152 1089.6539,584.1147 1087.3482,581.04254 1083.987,576.54254 1082.1847,574.1147 1067.892,554.86083 1068.4544,555.24423 1063.7213,561.5283 1048.5349,581.69103 1014.1846,627.86642 1008.9615,635.13935 1005.3865,640.11738 1000.5611,646.78009 998.23815,649.94538 992.73185,657.44876 992.82835,657.98537 1000.5311,662.70045 1004.1252,664.90045 1008.8209,667.82545 1010.966,669.20045 1013.1111,670.57545 1018.1502,673.69279 1022.1639,676.12787 1026.1777,678.56295 1032.1578,682.27545 1035.4533,684.37787 1041.7181,688.37475 1043.9482,689.04747 1043.9814,686.95045 z M 1053.5566,629.35414 C 1052.9617,628.39156 1054.0337,621.92506 1056.4832,611.70045 1057.4055,607.85045 1058.542,602.90045 1059.0087,600.70045 1062.6861,583.36658 1061.5951,584.00303 1070.5794,593.95045 1086.9179,612.04026 1090.9545,617.08683 1089.7036,617.85989 1088.1639,618.8114 1055.4692,630.20045 1054.2771,630.20045 1054.1684,630.20045 1053.8443,629.81961 1053.5566,629.35414 z M 133.18668,757.74621 C 102.65948,750.78783 94.53809,721.46529 118.46261,704.58443 121.46155,702.46841 121.46155,702.46841 119.12702,694.08443 117.84302,689.47324 114.40127,676.70045 111.47867,665.70045 102.29719,631.1434 102.67239,632.06403 96.67013,629.36476 75.7746,619.96784 82.05124,594.85462 107.81932,584.75619 119.8621,580.03666 125.40704,579.07927 177.96155,572.64548 214.60163,568.15995 234.02818,571.13065 250.87624,583.79557 257.23935,588.57881 257.23935,588.57881 259.56513,585.63963 266.18661,577.27181 267.91168,575.5846 273.95333,571.56717 294.64277,557.80962 338.28088,552.25871 368.46155,559.54542 397.40429,566.53324 422.48357,582.82934 436.79974,603.95045 442.12707,611.81004 441.84074,611.87359 447.61936,601.54885 462.3249,575.27427 493.45605,550.87352 543.11411,526.6996 560.84416,518.06847 558.14798,517.62601 575.96155,532.09008 621.80125,569.31051 627.96155,575.2176 627.96155,581.9527 627.96155,595.52052 615.96948,603.17522 594.68017,603.19664 589.57121,603.20179 588.93565,605.32929 592.64738,610.0013 610.36387,632.30133 622.70811,652.86756 621.50965,658.08755 613.70855,692.06582 576.62284,708.77348 552.12513,689.3463 544.90148,683.61779 545.06881,683.6397 538.57351,687.5719 519.46089,699.1425 483.33792,690.50576 458.60511,668.45204 454.10456,664.43899 453.80769,664.62349 450.96438,673.20045 441.2248,702.58024 416.11074,719.6677 379.12491,722.0796 372.02873,722.54236 365.79222,723.18707 365.26598,723.5123 350.3115,732.75468 303.02549,727.15523 288.91806,714.47144 283.70588,709.78524 283.63697,709.80389 282.52761,716.20045 280.40242,728.45432 264.76965,738.4929 240.46155,743.21317 237.16155,743.85398 220.28655,747.53454 202.96155,751.39218 167.52104,759.28348 147.80689,761.07874 133.18668,757.74621 z M 153.46155,732.79057 C 171.59518,728.42527 229.61267,716.26304 244.72945,713.65804 256.78035,711.58137 256.44998,713.47995 247.89769,695.45045 244.30598,687.87861 241.51886,683.20045 240.59946,683.20045 239.16578,683.20045 209.85598,693.18746 195.46588,698.57926 184.57295,702.66071 182.90326,700.97992 179.86024,682.86991 178.25556,673.3199 176.55836,674.41987 202.46309,668.22081 222.20086,663.49752 223.84204,660.30802 214.12341,645.55989 201.40907,626.26575 198.3736,625.18288 186.07723,635.5547 173.13358,646.4725 162.98047,653.61937 161.92018,652.55908 160.90145,651.54035 155.96155,630.54057 155.96155,627.2286 155.96155,624.55184 153.31018,625.30533 190.96155,617.28202 230.82738,608.78682 232.59422,608.35771 233.77653,606.88378 244.66335,593.31166 221.49175,585.25022 184.46155,589.72701 132.78558,595.97441 129.21597,596.59215 118.38394,601.1621 104.14325,607.17013 101.92509,613.0537 112.69544,616.25064 118.96667,618.11211 119.59857,619.32701 123.8905,637.77414 126.05644,647.08361 130.7835,667.38149 134.39507,682.88055 142.41633,717.30385 142.47307,713.69636 133.8797,715.65088 122.35896,718.27121 119.36283,721.82624 121.98331,729.76637 124.02873,735.96407 135.64339,737.07992 153.46155,732.79057 z M 332.96155,698.30147 C 338.73655,697.2916 345.26155,695.99255 347.46155,695.41469 354.60856,693.53742 366.3231,691.29482 372.46155,690.62876 402.04156,687.41914 416.11915,676.88938 421.3061,654.094 425.12178,637.32498 424.38039,632.12473 415.68979,614.70045 398.06825,579.36999 373.97141,568.88623 318.96155,572.61711 282.89987,575.06288 271.23541,582.82897 269.3039,605.67871 268.14166,619.42793 270.66984,621.63371 286.72043,620.87432 305.96861,619.96364 309.78239,625.10883 310.22393,652.58309 310.46155,667.36874 310.46155,667.36874 303.17056,674.0346 282.99253,692.48256 297.70481,704.46676 332.96155,698.30147 z M 347.4541,673.18839 C 347.04668,672.52918 346.50683,670.34971 346.25442,668.34513 346.00202,666.34056 344.02628,652.80454 341.86388,638.2651 339.70149,623.72565 338.27635,611.52678 338.6969,611.15649 340.52133,609.55014 355.03603,608.50376 364.46194,609.29906 401.43267,612.41843 417.65242,659.90621 385.46155,670.78117 376.38705,673.84679 348.93555,675.58544 347.4541,673.18839 z M 381.50946,655.74488 C 388.33848,652.89153 386.02125,636.50846 378.52246,634.62638 372.90881,633.21745 372.43631,633.96205 372.74595,643.72935 373.20619,658.24718 373.74675,658.98834 381.50946,655.74488 z M 276.37873,682.95045 C 276.57365,682.26295 277.24667,679.80773 277.87432,677.4944 278.5451,675.02208 282.30196,668.90923 286.98852,662.66451 299.16308,646.44223 298.17638,643.27252 278.46155,635.27227 274.06155,633.48675 267.37566,630.21631 263.60401,628.00462 256.74646,623.98335 256.74646,623.98335 253.85072,626.12427 246.66859,631.43424 243.61075,633.10553 238.84087,634.32802 232.92096,635.84524 232.44787,636.57907 233.90382,641.98604 234.83671,645.45054 235.43944,646.06752 238.44115,646.63064 245.84654,648.01991 248.77795,652.31522 251.42378,665.65375 253.06841,673.94492 253.88688,675.15971 257.84553,675.18514 262.47654,675.21488 267.87972,677.5208 271.09747,680.84069 274.58796,684.44196 275.81668,684.93281 276.37873,682.95045 z M 565.08346,670.21645 C 575.43517,665.81141 592.05702,650.21078 591.929,645.02027 591.75419,637.93291 567.93105,600.67591 563.38478,600.37998 549.14585,599.45312 546.96155,601.24284 546.96155,613.8365 546.96155,628.70747 542.85744,635.63855 530.25139,642.05687 518.56989,648.00444 502.06909,637.69464 492.54887,618.50011 489.92649,613.2129 490.53782,611.82799 499.45862,602.84674 517.64017,584.54199 532.45114,579.40936 573.70621,577.1168 586.49077,576.40636 597.49179,575.49078 598.15291,575.08218 599.92544,573.9867 574.00881,550.74221 560.83894,541.61548 556.47567,538.59174 556.19997,538.6469 539.96155,545.7924 491.64,567.05568 462.11009,597.14568 459.43175,627.8496 456.94814,656.32127 495.8042,677.359 524.07153,662.84734 548.38756,650.36417 548.96155,650.17137 548.96155,654.48694 548.96155,660.334 554.91957,673.20045 557.62715,673.20045 557.87136,673.20045 561.22671,671.85765 565.08346,670.21645 z M 527.34109,627.22091 C 529.52555,625.03645 528.61151,617.72168 526.10984,617.36757 519.73255,616.46488 516.97301,620.85482 519.60546,627.71488 520.28815,629.49394 525.39411,629.16789 527.34109,627.22091 z M 711.46155,697.20036 C 675.34999,696.4431 672.87592,696.17824 658.96449,691.58047 627.39749,681.14746 621.2604,650.27487 647.83452,635.59121 654.35146,631.99024 653.87967,635.92206 652.14109,599.70045 650.22191,559.71606 650.55615,561.54162 643.99357,555.20045 637.93102,549.34244 636.96155,546.97466 636.96155,538.02579 636.96155,517.31955 655.95954,511.50061 710.96155,515.36015 761.35005,518.89595 784.29435,524.60237 798.12655,537.03874 802.74005,541.18667 803.23765,541.39481 805.76165,540.23253 848.70975,520.45487 862.40775,517.38545 872.16995,525.35185 895.25035,544.18634 896.19975,545.91258 894.77105,566.44898 893.48155,584.98516 893.47865,584.96763 898.43565,588.74853 903.20755,592.38819 904.07595,591.37551 905.08785,580.99125 905.53225,576.43131 906.58885,567.52545 907.43595,561.20045 908.28315,554.87545 909.38585,545.65909 909.88655,540.71966 912.10255,518.85791 946.45375,524.09465 982.48295,551.78676 999.33315,564.7378 999.87795,566.14095 993.98155,581.40044 991.79255,587.06545 985.66405,603.17545 980.36265,617.20045 955.80115,682.17828 937.65455,703.4961 920.68805,687.30359 911.48265,678.51814 894.12335,663.6466 891.28815,662.11702 889.05645,660.91302 888.37305,661.32347 866.59405,676.94775 864.87115,678.18376 862.03565,680.20876 860.29285,681.44775 858.55015,682.68673 853.30755,686.47305 848.64285,689.86178 836.56235,698.6377 836.90065,698.50804 830.46625,696.8278 823.89485,695.11175 818.10555,691.85087 811.86185,686.34858 807.26215,682.29508 807.26215,682.29508 804.02265,685.63737 792.80095,697.21527 781.21165,698.66304 711.46155,697.20036 z M 829.01715,670.68083 C 831.38605,669.84504 834.92205,667.93254 836.87485,666.43083 838.82775,664.92912 842.08435,662.57545 844.11175,661.20045 846.13925,659.82545 853.03755,654.20045 859.44145,648.70045 885.51845,626.30402 883.45195,626.27208 905.23885,649.40825 918.11105,663.0776 922.98125,666.65244 925.35415,664.17326 926.91575,662.54185 938.96155,639.26249 938.96155,637.8762 938.96155,637.39578 939.60845,635.5847 940.39905,633.85158 943.48475,627.08764 951.37655,606.46462 956.91175,590.70045 957.87735,587.95045 960.75855,580.16677 963.31445,573.40338 968.98055,558.40981 969.15845,560.31167 961.71155,556.27028 958.27405,554.40478 954.33655,552.11452 952.96155,551.18083 939.87395,542.29367 925.67515,540.78848 924.84705,548.20045 924.50905,551.22545 923.74295,557.30045 923.14475,561.70045 921.13005,576.5169 919.73875,587.63295 918.32575,600.20045 915.15045,628.44365 916.28875,627.31186 903.27505,615.16497 886.90445,599.88476 883.66205,599.24852 871.70945,608.97094 856.85875,621.05077 851.20465,622.78661 852.29065,614.9327 853.00205,609.78756 855.66725,591.10936 856.96125,582.20045 858.26795,573.20401 860.95185,553.91832 861.90175,546.70045 863.63055,533.56368 853.73425,532.91541 826.22665,544.36349 814.98795,549.04082 813.73345,561.37052 822.07155,585.20045 828.66885,604.05504 828.53945,611.08282 821.09565,638.20045 815.57935,658.29648 815.78735,657.04414 816.99775,662.87465 818.83215,671.71116 821.38945,673.37203 829.01715,670.68083 z M 716.96155,668.77236 C 723.28655,668.81191 740.38655,669.03691 754.96155,669.27236 781.46155,669.70045 781.46155,669.70045 781.15205,666.20045 780.81995,662.44488 775.26815,640.17371 774.46345,639.36904 773.67225,638.57784 740.29035,642.18333 729.24895,644.25253 714.51005,647.01467 714.59395,647.10155 714.81665,629.29372 714.98815,615.57823 711.86575,617.57844 734.90385,616.42605 761.86585,615.07739 762.91095,614.00209 755.32395,595.41503 747.51515,576.28473 743.56225,573.44612 733.12985,579.47749 726.52355,583.29683 705.49335,593.20045 703.98935,593.20045 703.33285,593.20045 702.96155,587.96188 702.96155,578.70045 702.96155,564.20045 702.96155,564.20045 741.52725,564.20045 788.53065,564.20045 786.24515,565.18538 782.42315,546.57704 780.66655,538.02463 691.12915,528.0723 667.35177,533.78655 655.96464,536.52313 654.65684,542.09107 664.14824,547.42553 669.21396,550.27263 668.82374,546.74052 669.92544,599.71739 671.05305,653.94037 671.97416,649.20045 660.30938,649.20045 647.47684,649.20045 643.14639,662.93467 654.46155,667.74706 657.44131,669.01436 682.95127,669.99533 694.96155,669.30445 700.73655,668.97225 710.63655,668.73281 716.96155,668.77236 z M 806.20955,635.95421 C 810.88295,626.94885 810.58525,611.45442 805.35925,591.70045 803.22655,583.63856 802.96895,583.48932 796.48605,586.55883 790.28345,589.49561 784.13505,591.13897 779.21155,591.176 773.86205,591.21624 774.23565,600.18941 779.69835,602.86809 786.38135,606.14511 787.96155,609.85563 787.96155,622.27078 787.96155,633.04535 787.96155,633.04535 791.71155,634.27164 793.77405,634.9461 797.03115,636.5578 798.94955,637.85319 803.19565,640.72035 803.82105,640.55677 806.20955,635.95421 z"
-           style="fill:#70778f" />
-        <path
-           inkscape:connector-curvature="0"
-           id="path3853"
-           d="M -195.03845,856.62587 C -213.07629,853.36538 -224.42322,847.12099 -238.30276,832.81686 -244.92528,825.99175 -255.03352,813.36396 -255.05826,811.88494 -255.06915,811.23347 -255.54164,807.55045 -256.10823,803.70045 -270.62571,705.05376 -275.23185,628.04493 -268.42973,597.70045 -254.1014,533.78118 -212.55959,514.94084 -171.91645,553.92906 -161.51443,563.90754 -149.81247,557.82821 -146.59964,540.77662 -142.59832,519.5403 -136.64751,510.93622 -120.70078,503.3303 -96.26831,491.67706 -100.62855,492.80141 -85.02738,494.13138 -36.06894,498.30499 -15.56955,514.09623 25.23209,579.06731 29.66709,586.12945 46.96155,616.1986 46.96155,616.84741 46.96155,617.09283 48.94817,620.76017 51.37626,624.99704 68.85019,655.488 92.71532,704.51762 94.06581,712.70045 99.93193,748.24407 92.10609,772.64808 66.24697,799.45045 60.10856,805.81276 60.67167,805.62246 52.39521,804.13161 25.64782,799.31357 -6.97059,765.78502 -41.90473,707.20045 -55.11692,685.0436 -55.38294,684.66682 -57.56443,685.02043 -58.65014,685.19641 -67.97595,688.0282 -78.28845,691.31328 -98.60974,697.78669 -98.74657,697.8872 -95.18568,703.72637 -64.69842,753.71954 -86.20227,812.25721 -149.56119,851.74709 -156.58074,856.12218 -182.46359,858.89888 -195.03845,856.62587 z M -193.53845,820.08783 C -150.90064,809.15665 -131.14875,771.78238 -143.92,726.20045 -147.92489,711.90659 -151.22068,701.88772 -153.24243,697.86121 -156.5487,691.27645 -142.72199,676.95011 -119.17459,662.5623 -109.81073,656.84085 -109.81073,656.84085 -94.67459,658.12841 -64.96904,660.65533 -58.43246,661.00025 -50.41214,660.46409 -41.12733,659.8434 -42.74824,657.93247 -37.48817,675.70045 -28.7684,705.15496 -6.71244,736.69015 21.08724,759.45045 27.94717,765.06685 29.3752,764.62425 38.0261,754.20045 49.9288,739.85844 53.12813,732.3739 53.20086,718.70045 53.27452,704.85367 50.17954,697.43556 32.39892,668.84186 29.61448,664.36408 22.45977,652.82545 16.49957,643.20045 -3.28429,611.25191 -22.62272,581.01495 -48.68866,541.2742 -67.48501,512.61683 -65.55854,514.73046 -74.74476,512.68672 -111.68432,504.46845 -131.74051,526.32459 -115.42231,557.0149 -114.11119,559.48078 -113.03845,562.12054 -113.03845,562.88102 -113.03845,567.52355 -93.92333,600.0414 -83.34334,613.3971 -75.0019,623.92697 -73.12398,623.32362 -115.39664,623.69528 -141.76644,623.92711 -150.17313,624.33064 -156.53845,625.67009 -160.93845,626.59599 -165.16459,627.43159 -165.92987,627.52699 -167.7467,627.75348 -171.5486,620.70667 -175.00814,610.70045 -176.5294,606.30045 -178.68248,600.90045 -179.79277,598.70045 -180.90307,596.50045 -183.31741,591.32545 -185.15797,587.20045 -195.43862,564.15987 -205.77807,555.19161 -222.03845,555.21094 -247.8166,555.24159 -256.49309,594.93829 -248.04593,674.20045 -244.4923,707.54522 -242.62859,722.80635 -240.04695,739.70045 -237.27827,757.8186 -233.027,790.99402 -232.13712,801.42592 -231.31785,811.03025 -230.60727,812.31629 -223.35594,817.31845 -216.47253,822.06682 -205.30379,823.10414 -193.53845,820.08783 z M 1536.4616,836.22181 C 1514.6516,835.27111 1496.2681,833.01184 1471.4616,828.23354 1398.0428,814.09139 1328.7297,757.80124 1349.9604,729.56075 1381.5564,687.53263 1414.6859,662.30559 1438.4415,662.18514 1444.8172,662.15281 1444.8999,660.72433 1438.8875,654.48496 1420.9198,635.83902 1406.6926,609.58199 1410.4882,602.073 1435.8319,551.93631 1585.9939,513.2876 1664.1451,536.7868 1677.4696,540.79334 1725.9905,672.02625 1717.7973,681.8984 1711.6911,689.25584 1695.4272,695.84477 1679.9616,697.22652 1674.1865,697.74248 1666.0866,698.45724 1661.9616,698.81488 1648.334,699.99641 1648.8469,706.56627 1664.4509,730.70045 1666.9402,734.55045 1669.8768,739.27545 1670.977,741.20045 1672.0769,743.12545 1675.4948,748.75045 1678.572,753.70045 1689.8429,771.83106 1694.5452,784.74662 1693.6624,795.14823 1692.8272,804.98853 1694.1693,803.37813 1677.4042,814.65548 1648.2026,834.29837 1613.6449,839.58622 1536.4616,836.22181 z M 1626.3809,790.31443 C 1655.8523,783.12816 1665.2222,761.45062 1651.0189,733.31398 1644.913,721.21851 1634.1835,709.80746 1619.9616,700.28444 1611.1208,694.36457 1606.6605,691.68465 1570.9616,670.84284 1559.1366,663.93915 1546.6085,656.58288 1543.1213,654.49556 1499.9891,628.67802 1495.0284,603.68892 1534.2257,609.68536 1555.5641,612.94973 1632.0782,637.03244 1642.3767,643.72573 1645.6077,645.82563 1669.0198,654.20045 1671.6592,654.20045 1677.1722,654.20045 1678.5493,623.23219 1673.8604,604.70045 1670.8944,592.97833 1664.8364,576.8125 1660.7444,569.70045 1660.1114,568.60045 1659.0048,566.53572 1658.2851,565.11216 1656.1324,560.85431 1653.7973,559.42678 1646.9616,558.18963 1616.4517,552.66781 1569.6204,550.72953 1548.9616,554.13355 1534.5187,556.51335 1530.0473,557.47923 1520.7622,560.2249 1498.1363,566.9156 1473.9102,579.08523 1450.4616,595.5393 1439.8235,603.00416 1438.6651,604.74735 1439.445,612.11717 1441.0754,627.52285 1451.8983,637.64667 1488.9616,658.43538 1500.2366,664.75949 1511.0366,670.81969 1512.9616,671.90249 1514.8866,672.98529 1518.4866,675.00052 1520.9616,676.38078 1523.4365,677.76104 1529.7366,681.27828 1534.9616,684.19688 1571.0152,704.3358 1587.3425,726.21264 1564.9616,724.3936 1551.4166,723.29272 1539.1868,721.04139 1521.9616,716.47797 1516.7366,715.09373 1510.5065,713.57063 1508.1168,713.09331 1505.7273,712.61599 1495.3773,709.55389 1485.1168,706.28863 1456.9957,697.33937 1428.4235,689.20045 1425.1279,689.20045 1421.5833,689.20045 1420.4996,690.36341 1401.4616,714.59563 1393.7616,724.39644 1384.2372,736.35914 1380.2961,741.17941 1369.8322,753.97822 1370.3303,756.27367 1383.9907,758.20456 1387.2371,758.66344 1392.9461,759.93098 1396.6774,761.02133 1400.4087,762.11168 1405.9365,763.50967 1408.9616,764.12798 1411.9866,764.74629 1418.5116,766.15317 1423.4616,767.25439 1428.4116,768.35561 1434.2616,769.65422 1436.4616,770.14021 1438.6616,770.62619 1443.6116,771.75599 1447.4616,772.65088 1451.3115,773.54576 1456.9365,774.7051 1459.9616,775.22718 1462.9866,775.74925 1467.2616,776.58643 1469.4616,777.08757 1482.3224,780.01718 1492.5386,781.96382 1506.9616,784.2331 1509.9866,784.70904 1517.6366,785.97381 1523.9616,787.0437 1563.2475,793.68898 1606.8333,795.08088 1626.3809,790.31443 z M 1284.7688,759.95045 C 1283.9026,759.26295 1280.372,754.20045 1276.923,748.70045 1268.4669,735.21538 1253.5639,713.35259 1250.4693,709.89256 1247.265,706.30987 1246.5782,706.81852 1245.0522,713.90481 1242.0396,727.89415 1242.8543,726.72989 1232.6742,731.59503 1200.9365,746.76263 1173.3544,738.82569 1167.0125,712.70045 1165.8782,708.02783 1166.2952,704.99728 1173.3802,666.41505 1182.4152,617.21383 1182.2191,620.68314 1176.3389,614.0623 1164.351,600.56451 1168.8214,586.10187 1187.7452,577.16068 1193.144,574.6098 1231.3695,573.88682 1239.8666,576.17488 1242.1443,576.78818 1244.3809,577.05931 1244.8371,576.77741 1249.5823,573.84472 1289.9098,587.80435 1301.4673,596.38032 1337.0504,622.78374 1338.1828,664.93191 1303.6388,677.2035 1299.5655,678.65054 1300.1316,679.56609 1314.0282,694.0075 1334.7603,715.55233 1338.3922,723.7591 1331.4063,733.27574 1321.8858,746.24517 1290.2786,764.32323 1284.7688,759.95045 z M 1293.3704,727.72436 C 1310.5921,716.41307 1315.0666,710.554 1310.3412,705.50197 1308.9,703.96113 1300.9125,695.27545 1292.5912,686.20045 1284.2699,677.12545 1275.4972,667.79778 1273.0962,665.4723 1267.6017,660.15048 1268.0893,658.66218 1275.6322,657.73141 1301.2121,654.57492 1309.3399,645.98104 1304.5379,627.16792 1296.8916,597.21141 1256.0664,579.82116 1206.1431,585.25482 1181.7554,587.90921 1175.0537,599.40315 1188.3984,615.68865 1192.1893,620.31494 1192.1893,620.31494 1190.0806,632.50769 1188.9209,639.21371 1187.2699,649.20045 1186.4119,654.70045 1185.5538,660.20045 1183.2901,673.92545 1181.3815,685.20045 1177.2254,709.75294 1177.2275,709.67307 1180.6661,711.9274 1188.1148,716.81067 1218.7782,711.33261 1221.3383,704.66126 1221.6811,703.76785 1221.9616,693.87377 1221.9616,682.67443 1221.9616,652.71146 1223.5603,651.16209 1236.4616,668.62139 1241.6878,675.69402 1245.07,680.22399 1249.7013,686.3542 1251.2194,688.36376 1254.4866,692.78021 1256.9616,696.16852 1259.4365,699.55684 1262.9446,704.16722 1264.7571,706.41382 1266.5696,708.66041 1269.7025,713.01897 1271.7191,716.09949 1283.4616,734.03691 1283.6254,734.12486 1293.3704,727.72436 z M 1236.9616,646.1498 C 1214.8563,643.10859 1215.4912,643.47053 1215.1704,633.72719 1214.7749,621.72002 1212.2508,622.83212 1242.6355,621.62663 1282.6625,620.03858 1296.9805,631.99011 1269.113,643.72807 1261.6434,646.87433 1249.0969,647.81936 1236.9616,646.1498 z M 142.58635,754.07832 C 109.30793,750.67488 96.67328,717.76553 124.57264,707.15821 125.88654,706.65867 126.96155,705.52629 126.96155,704.64181 126.96155,702.26411 123.06929,687.03576 121.83629,684.58937 121.25109,683.42827 118.59286,673.75327 115.92913,663.08937 106.94764,627.13322 107.66622,628.8902 100.5846,625.57066 93.16626,622.09328 90.56055,617.84405 90.50016,609.12559 90.39441,593.85822 106.87294,586.29547 152.46155,580.68867 159.06155,579.87696 168.06155,578.75202 172.46155,578.1888 217.68953,572.39946 236.74901,576.01337 253.07938,593.47489 258.40588,599.17034 260.96155,600.17579 260.96155,596.57589 260.96155,587.47578 272.96712,574.49916 285.31744,570.25003 350.60209,547.78882 414.34225,568.6074 440.91098,621.06943 443.44023,626.06363 444.21352,625.69518 445.88304,618.70045 452.54248,590.79948 489.63051,558.27144 546.0812,530.8217 560.23813,523.93775 557.01577,523.36551 571.87103,535.40152 614.57107,569.99788 623.21994,578.15954 622.71793,583.3841 621.81326,592.7991 612.61398,598.06426 596.89305,598.16483 591.31394,598.20052 581.48586,600.54309 580.54787,602.06078 580.27309,602.50538 584.86835,608.91828 590.75956,616.31166 617.13503,649.41248 619.32781,655.48111 610.41067,670.69706 605.78126,678.59656 581.35138,696.20045 575.01823,696.20045 572.19893,696.20045 555.02779,685.77848 550.1655,681.11618 544.04853,675.25078 544.26908,675.2808 540.06195,679.74117 524.14519,696.61598 483.25126,686.64027 457.30659,659.55373 449.31339,651.20874 449.46809,651.19676 448.52824,660.23372 446.12896,683.30363 429.20546,703.89501 405.96155,712.02601 394.15766,716.15515 392.12458,716.56752 381.96155,716.89397 376.18655,717.07947 369.43655,717.69479 366.96155,718.26135 302.33129,733.05612 262.00224,704.92884 291.28277,665.4796 305.71196,646.03936 299.66845,632.75679 274.63568,628.89221 268.11907,627.88617 262.42327,623.8412 260.31928,618.72518 258.08817,613.30003 257.16026,613.14659 254.20187,617.71357 249.97244,624.24272 240.74777,629.6517 231.49523,631.02782 227.92604,631.55866 226.52195,632.20182 226.66915,633.23846 228.60817,646.89401 230.62844,650.7583 236.22077,651.50839 242.29375,652.32295 244.2393,655.28045 246.41047,666.99814 248.53333,678.45506 249.49682,679.86154 255.28232,679.949 264.55101,680.08912 270.91123,685.41315 272.93079,694.72223 273.52479,697.46025 274.94868,701.92271 276.09499,704.6388 283.25738,721.60948 269.51601,732.45314 230.9972,740.22661 223.00259,741.84 206.49791,745.3917 194.32012,748.11927 182.14234,750.84685 168.19234,753.35742 163.32012,753.69832 158.44791,754.03922 153.56155,754.4454 152.46155,754.60094 151.36155,754.75647 146.91771,754.5213 142.58635,754.07832 z M 157.22868,732.6702 C 177.19105,727.9807 230.78341,716.83588 243.96155,714.63363 258.48851,712.20597 258.09828,714.67962 247.39898,692.84381 241.50693,680.81894 237.9401,680.85354 207.46155,693.23115 194.25605,698.59402 186.52978,701.15249 185.84803,700.38823 184.78007,699.191 182.82021,692.96893 180.90661,684.70045 178.7161,675.23542 178.8517,674.98933 187.46155,672.80419 190.76155,671.96666 196.38655,670.54568 199.96155,669.64645 224.25977,663.53466 225.53007,661.12019 213.71155,643.51184 202.40278,626.66296 197.40819,624.62964 187.91117,633.00835 180.69993,639.37043 162.89631,652.46855 162.28746,651.8597 160.49768,650.06992 156.16461,625.20045 157.64256,625.20045 158.51913,625.20045 209.55832,614.57026 217.46155,612.74165 237.09299,608.19942 236.72598,608.58015 232.89711,596.72851 229.88844,587.41566 229.22472,587.13024 210.67678,587.17314 198.15774,587.2021 181.84098,588.84842 142.46155,594.05587 112.95948,597.95716 94.46714,612.16233 112.3665,617.17384 118.64815,618.93259 118.30094,618.15624 124.49626,644.2953 127.54731,657.16813 131.11204,672.20045 132.41789,677.70045 141.43096,715.66184 141.30213,713.64485 134.78118,714.70024 121.46159,716.85598 116.77741,723.88501 122.66865,732.87619 125.61368,737.37086 137.52084,737.29989 157.22868,732.6702 z M 334.79233,698.79776 C 339.92426,697.95831 345.54926,696.83298 347.29233,696.29702 351.47705,695.01032 364.71649,692.42982 373.46155,691.19638 383.95947,689.71571 393.80702,687.56791 395.21257,686.45237 395.89951,685.90717 398.11112,684.93007 400.12726,684.28104 404.12077,682.99546 411.67135,676.82111 415.04658,672.08104 420.91489,663.83976 426.16911,640.47138 423.90105,632.70045 416.99885,609.05191 401.75497,588.26698 385.04872,579.72556 358.56622,566.18584 293.85488,568.5573 277.11476,583.681 269.07363,590.94568 264.85042,613.41265 270.53557,618.68147 273.61375,621.53423 272.89418,621.41661 286.96155,621.36632 303.63331,621.30672 307.73664,625.36726 309.53106,643.70045 311.52928,664.11587 311.16649,665.75453 303.00948,673.15696 281.39407,692.77278 296.60502,705.0442 334.79233,698.79776 z M 351.96155,673.20045 C 347.46155,672.70045 347.46155,672.70045 343.76632,647.70045 338.85497,614.47286 338.536,611.23229 340.16099,611.07283 340.8763,611.00263 342.58655,610.76537 343.96155,610.54557 365.14923,607.15862 382.32049,611.66495 391.16816,622.93421 395.11885,627.96619 396.78388,631.17665 401.0549,641.9975 404.09699,649.70482 398.88636,666.20045 393.40968,666.20045 392.7479,666.20045 391.64624,666.87545 390.96155,667.70045 390.27686,668.52545 388.98426,669.20322 388.08911,669.20661 387.19395,669.21 385.26943,669.83477 383.81239,670.59499 379.49712,672.84652 361.80291,674.29393 351.96155,673.20045 z M 384.75286,659.93146 C 392.94521,656.13225 393.65528,647.69349 386.88268,634.61977 383.3426,627.78605 366.2671,627.06119 366.61377,633.75935 367.44606,649.84035 368.58901,660.58945 369.66711,662.47505 370.38332,663.7277 380.09948,662.08947 384.75286,659.93146 z M 562.51155,672.35083 C 563.03405,671.88354 565.43035,670.73966 567.83666,669.80887 573.28473,667.70149 585.95848,656.4387 590.04119,650.07635 593.48493,644.70974 593.55195,645.00635 585.66301,630.70045 583.84323,627.40045 579.95119,620.20045 577.01401,614.70045 568.28497,598.35489 569.39434,599.29717 559.42597,599.76134 546.33268,600.37102 546.73803,599.85578 546.49269,616.20045 546.30602,628.63643 537.66066,639.78491 525.58076,643.16707 516.69686,645.65441 503.96065,636.44644 494.79049,620.90644 485.18787,604.63358 523.16384,580.34363 560.96155,578.58253 565.63655,578.36471 573.06155,577.94019 577.46155,577.63915 581.86155,577.33812 587.93669,577.13552 590.96187,577.18895 604.18796,577.42252 601.18162,572.76869 573.77978,550.59103 557.87055,537.7149 553.87257,536.44126 546.66509,541.95307 546.00314,542.45928 542.76155,543.93334 539.46155,545.22875 482.47745,567.59783 443.7653,619.07876 463.2323,646.60138 472.58191,659.81993 497.43991,672.68334 506.63438,669.06089 507.63932,668.66496 510.00298,668.30939 511.88696,668.27074 515.62433,668.19405 528.77218,662.19686 533.28828,658.50885 534.84297,657.23923 536.86797,656.19877 537.78828,656.19671 538.70858,656.19466 540.97926,655.2677 542.83423,654.1368 547.1285,651.51878 548.92812,652.20203 548.81633,656.40799 548.7682,658.21884 549.45341,661.05045 550.33903,662.70045 551.22464,664.35045 551.952,666.38782 551.95539,667.22794 551.97366,671.75738 559.2349,675.28125 562.51155,672.35083 z M 527.46155,633.18168 C 532.55796,631.26618 535.47036,622.34818 533.52751,614.60724 532.92475,612.20564 516.46186,611.3668 514.20593,613.62273 511.16873,616.65994 514.71056,631.76126 518.96155,633.8993 521.32145,635.08621 522.70514,634.96939 527.46155,633.18168 z M 1121.9616,715.3207 C 1121.9616,714.03691 1095.2286,674.12489 1092.5017,671.33733 1090.1899,668.97421 1090.1899,668.97421 1080.0808,672.11489 1067.3097,676.08256 1066.426,677.51442 1062.9597,699.85515 1062.1702,704.94426 1060.0969,712.01127 1058.9773,713.43061 1053.2329,720.71225 1033.548,710.22117 1012.6493,688.74011 1000.6339,676.38978 989.95335,666.01524 988.91465,665.68557 987.32745,665.18181 980.96155,657.12636 980.96155,655.62165 980.96155,655.35845 983.12545,652.34351 985.77025,648.92178 992.78375,639.8479 1042.784,574.34007 1055.3967,557.70045 1063.2444,547.34738 1068.4496,543.43086 1071.143,545.85259 1073.938,548.36569 1109.1587,593.83505 1113.877,601.0215 1115.2055,603.04492 1118.8055,607.84619 1121.877,611.69098 1124.9486,615.53578 1128.0397,619.7797 1128.7462,621.12191 1129.4527,622.46413 1132.4293,626.51839 1135.3611,630.13138 1138.2928,633.74437 1141.2302,637.73562 1141.8887,639.00082 1142.5471,640.26603 1145.3613,644.15612 1148.1424,647.64548 1156.3595,657.95516 1163.8666,669.5507 1163.1388,670.80893 1162.7663,671.4529 1157.5116,677.80913 1151.4616,684.93391 1145.4116,692.05868 1137.1149,702.00833 1133.0244,707.04424 1126.4884,715.09102 1121.9616,718.47768 1121.9616,715.3207 z M 1044.3033,688.45045 C 1044.5561,688.03795 1045.8077,679.43733 1047.0844,669.33796 1049.7825,647.994 1049.6086,648.35665 1057.4616,647.70362 1060.7616,647.42921 1066.6116,646.80101 1070.4616,646.30763 1094.1,643.27834 1094.287,643.31113 1098.3704,651.20045 1103.5208,661.1509 1115.706,685.81006 1116.2831,687.45045 1116.6218,688.41295 1117.6021,689.20045 1118.4616,689.20045 1119.3211,689.20045 1120.3265,688.41295 1120.6956,687.45045 1121.065,686.48795 1122.7384,683.75376 1124.4144,681.37446 1144.6977,652.57932 1144.4809,659.0763 1126.0294,632.97115 1123.5916,629.52227 1119.5871,623.77545 1117.1304,620.20045 1114.6738,616.62545 1111.8002,612.57545 1110.7448,611.20045 1109.6893,609.82545 1106.4059,605.32545 1103.4483,601.20045 1095.6734,590.35633 1085.2313,576.46057 1074.7128,562.9607 1067.6845,553.94016 1065.2355,555.85825 1041.9721,588.60379 1041.1528,589.75695 1037.3056,594.97545 1033.4226,600.20045 1015.8034,623.90898 1002.7127,641.98335 1001.9615,643.63861 1001.6865,644.24456 999.54905,647.24726 997.21155,650.31127 992.22695,656.84508 992.03955,658.11403 995.71785,660.4218 1000.888,663.66547 1002.4648,664.65781 1004.8645,666.17811 1010.6128,669.81975 1013.832,671.82898 1016.9169,673.70045 1018.73,674.80045 1021.4594,676.71295 1022.982,677.95045 1024.5045,679.18795 1026.2779,680.20045 1026.9227,680.20045 1027.5675,680.20045 1029.57,681.32545 1031.3727,682.70045 1033.1754,684.07545 1035.1007,685.20045 1035.651,685.20045 1036.2013,685.20045 1037.4661,686.10045 1038.4616,687.20045 1040.2669,689.19533 1043.4316,689.8725 1044.3033,688.45045 z M 1054.3974,624.45045 C 1054.5767,622.38795 1055.9109,616.47193 1057.3623,611.30373 1058.8139,606.13554 1059.807,601.71247 1059.5692,601.4747 1059.3314,601.23692 1059.7349,599.16544 1060.4659,596.87141 1061.1968,594.57738 1062.0954,591.35045 1062.4626,589.70045 1063.1303,586.70045 1063.1303,586.70045 1065.1429,589.20045 1067.2628,591.83386 1077.1221,602.88896 1085.3398,611.84709 1088.7599,615.57547 1089.8061,617.31876 1088.8398,617.67986 1061.0099,628.07986 1053.9614,629.46546 1054.3974,624.45045 z M 687.96155,692.4473 C 650.45727,688.64958 630.80295,673.69639 637.49619,654.0528 639.59188,647.9023 646.37556,641.43081 653.12671,639.1416 659.2839,637.0538 659.06499,639.35301 657.11994,597.20045 655.23317,556.31082 655.1579,555.90471 648.86241,552.64918 642.65721,549.44035 640.08341,538.80223 643.76588,531.584 649.96291,519.43682 665.21379,516.75412 708.96155,520.11579 771.50625,524.92185 791.50705,531.38661 802.75815,550.43322 804.89985,554.05887 805.41985,553.93238 806.79845,549.45045 808.99875,542.29714 827.98915,532.27107 846.12595,528.68739 850.16055,527.89018 855.40055,526.54756 857.77055,525.70379 862.94875,523.86016 861.76975,523.17604 877.50735,537.1553 891.54805,549.62725 890.88115,547.86021 889.41015,568.69286 887.98355,588.89751 887.39015,586.84066 896.65805,593.81591 907.92565,602.29615 908.22805,602.03976 909.87935,582.60533 910.30435,577.60302 910.97545,572.98692 911.37075,572.34733 911.76605,571.70775 912.47995,567.25055 912.95725,562.44245 916.11655,530.61467 915.54905,531.82344 926.89575,532.75439 946.87375,534.39349 984.86355,554.69835 992.18655,567.65116 993.31335,569.64418 967.79715,636.73106 959.85765,652.65014 950.79285,670.82531 940.99875,683.9768 933.65395,687.83611 930.45235,689.5184 932.58405,691.04116 910.06715,670.98716 899.02095,661.14924 891.16465,655.19746 889.23145,655.20243 888.19705,655.20509 874.39295,664.85012 853.45405,680.20045 851.57845,681.57545 848.43175,683.82545 846.46155,685.20045 844.49135,686.57545 841.26755,688.93266 839.29765,690.4387 832.23465,695.83867 815.39425,686.639 807.88525,673.27848 805.32285,668.71932 803.96155,668.83489 803.96155,673.61158 803.96155,680.6046 796.12815,687.52357 784.46155,690.83516 779.08275,692.36195 700.14237,693.68074 687.96155,692.4473 z M 781.96155,667.13053 C 781.96155,663.80178 776.37105,640.51686 775.26375,639.23339 773.98865,637.75553 745.59685,640.33816 729.18425,643.42495 715.33915,646.02888 715.90685,646.51432 715.30915,631.5613 714.69515,616.20311 713.08355,617.39811 735.40875,616.65781 764.18125,615.70371 765.53595,613.39355 752.63145,587.28711 746.36135,574.60233 742.39495,572.83463 732.96155,578.52087 707.08525,594.11857 702.97325,594.03844 703.68695,577.95045 704.25255,565.20045 704.25255,565.20045 742.60705,565.20045 788.17285,565.20045 785.39715,565.94928 784.33105,553.94406 783.32745,542.64169 780.75595,540.96255 759.46155,537.70443 753.96155,536.86291 746.76155,535.72969 743.46155,535.18617 722.39145,531.71586 681.07179,530.13055 669.64774,532.35415 658.10165,534.60151 652.83813,542.02144 659.99595,545.96018 667.9518,550.33805 667.56456,549.31784 668.51408,568.40183 671.38328,626.06863 669.71889,647.68567 662.38894,647.95478 650.52625,648.39031 647.96155,650.3566 647.96155,659.01593 647.96155,668.67147 652.34111,670.13703 680.96155,670.05898 745.70205,669.88241 767.80095,670.10915 773.46155,671.00803 780.82845,672.17785 781.96155,671.66095 781.96155,667.13053 z M 831.24365,670.70657 C 836.28945,668.36409 846.70345,660.58773 859.37475,649.70045 885.41015,627.3307 882.76985,627.34414 904.33385,649.47161 922.86985,668.49188 925.54775,669.28304 930.49445,657.20045 931.50775,654.72545 932.86315,652.02545 933.50645,651.20045 935.10785,649.14658 939.96155,638.59446 939.96155,637.16667 939.96155,636.52997 940.62245,634.8146 941.43025,633.35474 943.27575,630.01943 947.14095,620.53369 949.84635,612.70045 950.98605,609.40045 952.58475,604.90045 953.39905,602.70045 954.21335,600.50045 956.04635,595.55045 957.47235,591.70045 958.89835,587.85045 961.14735,581.77545 962.47015,578.20045 963.79295,574.62545 965.79465,569.2318 966.91835,566.21457 969.58565,559.05298 969.92845,559.824 962.21155,555.6287 958.49905,553.6104 954.27545,551.13788 952.82575,550.13421 948.89865,547.41546 938.44325,543.37835 931.74745,541.99535 925.06475,540.61507 923.99165,541.26619 923.99285,546.70045 923.99315,548.35045 923.33515,553.97545 922.53045,559.20045 919.63605,577.99511 917.72625,596.22095 917.82835,604.0739 917.85965,606.47929 917.28225,609.62929 916.54525,611.0739 915.80815,612.5185 915.40385,615.05045 915.64665,616.70045 916.77965,624.39883 913.78205,624.26045 905.81385,616.24652 897.41135,607.7958 887.85495,601.19361 884.05655,601.21519 880.85745,601.23337 879.09725,602.22933 869.80995,609.27618 865.76835,612.34283 861.04205,615.83033 859.30715,617.02618 853.26175,621.19325 850.61055,619.03431 853.35375,612.17818 854.23805,609.96817 854.96685,605.58158 854.97345,602.43021 854.97995,599.27884 855.63095,594.27439 856.42015,591.3092 857.20935,588.34401 857.60875,584.68648 857.30775,583.18137 857.00675,581.67625 857.26805,579.49626 857.88845,578.33695 859.08825,576.09513 861.94665,556.19526 862.68325,544.9568 863.49565,532.55932 845.85395,532.82809 821.17675,545.58915 814.15335,549.22111 814.29845,565.30214 821.54905,586.86058 826.70895,602.20231 827.57755,607.19898 826.06285,612.82423 825.45515,615.08093 824.72375,619.28053 824.43745,622.15669 824.15115,625.03285 823.30335,628.58181 822.55335,630.04326 821.80345,631.50472 820.65765,635.40045 820.00715,638.70045 819.35675,642.00045 818.09385,646.27545 817.20075,648.20045 814.56445,653.88258 815.68115,666.4989 819.21435,670.95045 820.57185,672.66088 827.32915,672.52388 831.24365,670.70657 z M 807.81645,644.21101 C 815.72205,630.957 816.99485,616.0427 811.87505,596.65233 810.13935,590.07879 808.26225,582.45045 807.70355,579.70045 806.29225,572.75277 805.64775,572.44757 801.38645,576.70888 795.64565,582.44967 788.02165,585.45791 778.46155,585.75444 773.38885,585.91178 770.49815,586.40469 770.56155,587.10151 770.61655,587.70593 770.72905,592.00739 770.81155,596.66031 770.96155,605.12017 770.96155,605.12017 775.09725,606.35925 781.61495,608.31201 783.06455,611.56097 782.83425,623.70045 782.59085,636.53271 783.01365,637.79326 787.81895,638.56165 792.94575,639.38147 798.03605,642.9717 800.46155,647.47871 803.06175,652.31033 802.95785,652.35648 807.81645,644.21101 z"
-           style="fill:#a05116" />
-        <path
-           inkscape:connector-curvature="0"
-           id="path3851"
-           d="M -195.03845,856.62587 C -213.07629,853.36538 -224.42322,847.12099 -238.30276,832.81686 -244.92528,825.99175 -255.03352,813.36396 -255.05826,811.88494 -255.06915,811.23347 -255.54164,807.55045 -256.10823,803.70045 -270.62571,705.05376 -275.23185,628.04493 -268.42973,597.70045 -254.1014,533.78118 -212.55959,514.94084 -171.91645,553.92906 -161.51443,563.90754 -149.81247,557.82821 -146.59964,540.77662 -142.59832,519.5403 -136.64751,510.93622 -120.70078,503.3303 -96.26831,491.67706 -100.62855,492.80141 -85.02738,494.13138 -36.06894,498.30499 -15.56955,514.09623 25.23209,579.06731 29.66709,586.12945 46.96155,616.1986 46.96155,616.84741 46.96155,617.09283 48.94817,620.76017 51.37626,624.99704 68.85019,655.488 92.71532,704.51762 94.06581,712.70045 99.93193,748.24407 92.10609,772.64808 66.24697,799.45045 60.10856,805.81276 60.67167,805.62246 52.39521,804.13161 25.64782,799.31357 -6.97059,765.78502 -41.90473,707.20045 -55.11692,685.0436 -55.38294,684.66682 -57.56443,685.02043 -58.65014,685.19641 -67.97595,688.0282 -78.28845,691.31328 -98.60974,697.78669 -98.74657,697.8872 -95.18568,703.72637 -64.69842,753.71954 -86.20227,812.25721 -149.56119,851.74709 -156.58074,856.12218 -182.46359,858.89888 -195.03845,856.62587 z M -192.7595,827.71548 C -146.70006,817.03358 -124.24726,779.03078 -134.99799,729.95045 -135.57024,727.33795 -136.46661,723.28795 -136.98991,720.95045 -137.51321,718.61295 -139.53821,711.99953 -141.48991,706.25397 -145.8749,693.34506 -145.90166,694.09224 -140.85838,688.62093 -129.48222,676.27924 -109.76792,663.76545 -103.03845,664.61445 -91.79902,666.03242 -63.76129,668.17706 -56.31756,668.18817 -48.09667,668.20045 -48.09667,668.20045 -44.94051,678.45045 -36.46027,705.9911 -19.429,732.21883 5.32415,755.85675 25.00654,774.65237 28.62688,775.49606 39.67758,763.86255 69.16617,732.81874 69.2287,714.7395 40.01471,666.395 12.47724,620.82488 -11.53405,582.73519 -50.82898,522.28747 -61.15738,506.39921 -64.61187,504.41661 -83.53845,503.51492 -104.14439,502.53323 -133.13979,518.5948 -133.0089,530.91833 -132.88926,542.18246 -115.37346,581.48228 -100.88064,603.00382 -91.53779,616.87776 -90.52176,616.0732 -117.22874,615.94943 -129.9578,615.89045 -144.38752,616.4092 -150.8301,617.15742 -163.89284,618.67447 -163.54196,618.85117 -166.52008,609.25623 -167.46852,606.20055 -169.77315,600.45075 -171.64148,596.4789 -173.50981,592.50705 -175.03623,588.90705 -175.03352,588.4789 -174.97252,578.84219 -194.96098,554.39308 -206.56321,549.91299 -246.82939,534.36461 -266.70983,576.79479 -258.23782,660.20045 -255.98039,682.42449 -253.98567,699.40292 -252.01109,713.20045 -248.58412,737.14672 -241.25501,793.47607 -240.56126,801.20045 -238.55489,823.53995 -219.74465,833.97376 -192.7595,827.71548 z M 1536.4616,836.22181 C 1514.6516,835.27111 1496.2681,833.01184 1471.4616,828.23354 1398.0428,814.09139 1328.7297,757.80124 1349.9604,729.56075 1381.5564,687.53263 1414.6859,662.30559 1438.4415,662.18514 1444.8172,662.15281 1444.8999,660.72433 1438.8875,654.48496 1420.9198,635.83902 1406.6926,609.58199 1410.4882,602.073 1435.8319,551.93631 1585.9939,513.2876 1664.1451,536.7868 1677.4696,540.79334 1725.9905,672.02625 1717.7973,681.8984 1711.6911,689.25584 1695.4272,695.84477 1679.9616,697.22652 1674.1865,697.74248 1666.0866,698.45724 1661.9616,698.81488 1648.334,699.99641 1648.8469,706.56627 1664.4509,730.70045 1666.9402,734.55045 1669.8768,739.27545 1670.977,741.20045 1672.0769,743.12545 1675.4948,748.75045 1678.572,753.70045 1689.8429,771.83106 1694.5452,784.74662 1693.6624,795.14823 1692.8272,804.98853 1694.1693,803.37813 1677.4042,814.65548 1648.2026,834.29837 1613.6449,839.58622 1536.4616,836.22181 z M 1628.4144,797.74357 C 1663.8375,788.34039 1674.8786,763.22934 1658.0203,730.4098 1646.8439,708.65163 1636.7028,700.59363 1575.9616,665.20632 1492.4398,616.54733 1496.5253,600.90935 1584.9616,630.75649 1620.2476,642.66545 1633.1901,647.31064 1638.3981,649.93529 1648.9693,655.26289 1673.2454,663.36979 1676.6916,662.72328 1694.3996,659.40123 1683.5695,581.46329 1661.9836,556.87827 1658.1908,552.55852 1655.8441,551.66017 1643.4616,549.78785 1554.7264,536.37049 1501.7117,547.7053 1439.8301,593.32524 1426.512,603.14353 1427.8278,619.29699 1443.2968,635.88144 1453.6132,646.94191 1458.2135,649.83155 1521.4309,684.96121 1545.3691,698.26355 1563.9616,711.56908 1563.9616,715.3978 1563.9616,717.14155 1551.8838,715.78099 1536.4616,712.29993 1534.2616,711.80335 1530.4365,710.95095 1527.9616,710.40572 1517.2789,708.05234 1499.3191,703.09357 1484.4616,698.39517 1414.9544,676.41489 1422.0672,675.97919 1400.1302,703.56093 1354.0641,761.48066 1354.9537,759.08306 1377.5871,764.32109 1382.4681,765.4507 1390.7366,767.42632 1395.9616,768.71136 1405.9473,771.16727 1418.7273,774.08754 1430.4616,776.59477 1443.5489,779.39107 1461.4483,783.27432 1465.4616,784.18795 1489.3854,789.63421 1538.6802,797.66911 1563.4616,800.1616 1581.9911,802.02529 1617.2259,800.71359 1628.4144,797.74357 z M 1284.7688,759.95045 C 1283.9026,759.26295 1280.372,754.20045 1276.923,748.70045 1268.4669,735.21538 1253.5639,713.35259 1250.4693,709.89256 1247.265,706.30987 1246.5782,706.81852 1245.0522,713.90481 1242.0396,727.89415 1242.8543,726.72989 1232.6742,731.59503 1200.9365,746.76263 1173.3544,738.82569 1167.0125,712.70045 1165.8782,708.02783 1166.2952,704.99728 1173.3802,666.41505 1177.55,643.70809 1180.9616,623.92416 1180.9616,622.45077 1180.9616,620.09016 1181.1367,619.94706 1182.4361,621.24634 1183.7353,622.54562 1183.4431,625.26335 1179.9762,644.12106 1177.8123,655.8912 1176.2387,665.83978 1176.4791,666.22901 1176.7198,666.61824 1175.3548,675.43355 1173.446,685.81858 1169.243,708.68468 1169.1614,711.096 1172.4579,715.01365 1179.1164,722.92691 1195.5726,724.1228 1213.3738,717.98708 1228.3757,712.81623 1229.9616,710.16276 1229.9616,690.23257 1229.9616,670.86487 1228.2059,669.75531 1254.4373,705.70045 1258.0497,710.65045 1262.2329,716.33075 1263.7334,718.32334 1265.2339,720.31593 1268.9103,725.36809 1271.9033,729.55036 1282.2631,744.02693 1290.2308,742.76078 1312.2407,723.14032 1325.871,710.98973 1325.5809,710.18307 1296.4455,679.21955 1281.8269,663.68392 1282.3728,664.55464 1286.7116,663.69144 1311.9317,658.6739 1320.7344,638.94299 1308.3994,615.07863 1283.7136,567.31918 1158.5558,561.7088 1175.0772,609.10227 1176.7018,613.76246 1175.4961,613.96521 1172.5582,609.52584 1157.4411,586.68234 1200.2023,565.49439 1239.8666,576.17488 1242.1443,576.78818 1244.3809,577.05931 1244.8371,576.77741 1249.5823,573.84472 1289.9098,587.80435 1301.4673,596.38032 1337.0504,622.78374 1338.1828,664.93191 1303.6388,677.2035 1299.5655,678.65054 1300.1316,679.56609 1314.0282,694.0075 1334.7603,715.55233 1338.3922,723.7591 1331.4063,733.27574 1321.8858,746.24517 1290.2786,764.32323 1284.7688,759.95045 z M 142.58635,754.07832 C 118.282,751.59268 100.14824,731.1279 112.12425,719.70045 112.85082,719.00716 112.95924,719.7108 112.47775,721.99459 108.46604,741.02277 124.81747,747.98635 156.19293,740.61157 178.54552,735.3576 229.5422,724.66055 243.96909,722.19966 266.82617,718.30078 267.53337,716.80396 257.00027,694.61851 250.13698,680.16263 250.25947,680.61731 253.03275,679.89208 261.05492,677.79424 271.00137,685.25832 272.99763,694.87426 273.62004,697.87239 275.04246,702.38979 276.15856,704.91293 283.45567,721.40924 269.26803,732.50318 230.9972,740.22661 223.00259,741.84 206.49791,745.3917 194.32012,748.11927 182.14234,750.84685 168.19234,753.35742 163.32012,753.69832 158.44791,754.03922 153.56155,754.4454 152.46155,754.60094 151.36155,754.75647 146.91771,754.5213 142.58635,754.07832 z M 316.21521,721.77482 C 284.41235,715.70758 273.05556,690.09333 291.25515,665.4796 295.23207,660.10107 299.09451,654.35045 299.83834,652.70045 301.19076,649.70045 301.19076,649.70045 302.15842,652.20045 304.51857,658.29802 302.67061,663.00483 295.13686,670.08458 287.48797,677.27252 286.40668,679.76613 286.60705,689.75538 286.99798,709.24501 308.73682,713.48314 352.96155,702.69164 356.53655,701.81929 365.08655,700.26037 371.96155,699.22738 413.21229,693.02933 427.01364,680.33796 431.98466,644.03165 434.35616,626.71118 417.45405,592.79406 400.3269,580.5047 393.14086,575.34845 392.70903,573.40857 399.58759,577.18358 415.6443,585.99561 431.88114,603.2393 440.91098,621.06943 443.44023,626.06363 444.21352,625.69518 445.88304,618.70045 448.42977,608.03045 470.26528,576.20045 475.03822,576.20045 476.64469,576.20045 476.07437,577.1641 471.60982,581.99329 424.21289,633.2614 472.4622,702.36728 531.77751,668.16946 540.51823,663.13007 541.66482,663.29133 544.12918,669.9066 549.85466,685.27594 567.4614,683.38465 587.08757,665.29207 604.53341,649.20945 604.53026,649.53396 587.54845,617.90412 580.83216,605.39456 582.22115,605.38234 592.06215,617.86441 617.09699,649.61797 619.20563,655.68959 610.41067,670.69706 605.78126,678.59656 581.35138,696.20045 575.01823,696.20045 572.19893,696.20045 555.02779,685.77848 550.1655,681.11618 544.04853,675.25078 544.26908,675.2808 540.06195,679.74117 524.14519,696.61598 483.25126,686.64027 457.30659,659.55373 449.31339,651.20874 449.46809,651.19676 448.52824,660.23372 446.12896,683.30363 429.20546,703.89501 405.96155,712.02601 394.15766,716.15515 392.12458,716.56752 381.96155,716.89397 376.18655,717.07947 369.43655,717.69479 366.96155,718.26135 348.2007,722.55597 327.73655,723.97283 316.21521,721.77482 z M 1121.9616,715.3207 C 1121.9616,714.03691 1095.2286,674.12489 1092.5017,671.33733 1090.1899,668.97421 1090.1899,668.97421 1080.0808,672.11489 1067.3097,676.08256 1066.426,677.51442 1062.9597,699.85515 1062.1702,704.94426 1060.0969,712.01127 1058.9773,713.43061 1053.4887,720.38801 1033.5233,710.22717 1014.7983,690.94687 1003.9834,679.81134 995.53185,670.55515 996.01695,670.37756 996.50205,670.19997 1003.1004,673.94676 1010.6802,678.70377 1041.2009,697.85842 1040.1659,697.29655 1044.3616,696.98761 1050.6152,696.52716 1051.6138,694.27045 1054.3893,674.32772 1057.2938,653.45721 1055.3688,655.55067 1073.3972,653.65698 1091.9652,651.70662 1089.0547,649.59668 1101.0275,673.68728 1116.689,705.19996 1117.6202,705.30514 1136.5605,677.70045 1149.8156,658.38158 1150.9178,655.29986 1146.754,649.20045 1140.0693,639.40823 1143.3161,640.88375 1150.8559,651.06451 1159.6583,662.95027 1163.8152,669.64031 1163.1319,670.82125 1162.7633,671.45844 1157.5116,677.80913 1151.4616,684.93391 1145.4116,692.05868 1137.1149,702.00833 1133.0244,707.04424 1126.4884,715.09102 1121.9616,718.47768 1121.9616,715.3207 z M 118.30246,711.39624 C 119.31497,710.26644 121.67747,708.61408 123.55246,707.72433 125.42746,706.83459 126.96155,705.4152 126.96155,704.57015 126.96155,702.24752 123.04953,686.99654 121.83629,684.58937 121.25109,683.42827 118.59286,673.75327 115.92913,663.08937 106.94764,627.13322 107.66622,628.8902 100.5846,625.57066 93.16626,622.09328 90.56055,617.84405 90.50016,609.12559 90.39441,593.85822 106.87294,586.29547 152.46155,580.68867 159.06155,579.87696 168.06155,578.75202 172.46155,578.1888 217.7917,572.38639 238.98553,576.55483 253.86338,594.19908 256.18285,596.94983 258.78067,599.20045 259.6363,599.20045 260.94174,599.20045 261.08347,600.12541 260.51736,604.95045 259.6426,612.4062 259.08686,614.19773 257.64416,614.21283 256.99373,614.21964 255.4447,615.79497 254.20187,617.71357 249.97244,624.24272 240.74777,629.6517 231.49523,631.02782 227.92604,631.55866 226.52195,632.20182 226.66915,633.23846 228.60817,646.89401 230.62844,650.7583 236.22077,651.50839 241.81579,652.25884 244.30398,655.48784 245.85807,664.01501 246.52821,667.692 247.34151,671.78104 247.66541,673.10175 248.2325,675.41411 248.0961,675.48184 243.98294,674.93014 241.63368,674.61504 238.75531,674.73861 237.58655,675.20474 236.4178,675.67087 230.28655,677.70792 223.96155,679.73151 217.63655,681.75511 207.80888,685.21329 202.12228,687.41635 190.55536,691.89752 190.00792,691.79149 189.23338,684.91979 188.68886,680.08876 191.48088,678.62889 208.00739,675.10341 226.55113,671.1476 233.3633,660.59378 225.78121,647.56714 222.24298,641.48818 214.02409,630.01804 210.66084,626.46543 206.87657,622.46809 206.98218,622.36568 217.16743,620.15573 242.88187,614.57633 246.10044,611.45687 241.36789,596.70045 234.84219,576.35288 232.06627,575.98394 154.46155,585.1502 104.66732,591.03163 79.41842,610.67899 105.984,622.87287 112.4726,625.8512 112.33543,625.62456 114.95809,637.70045 115.55535,640.45045 119.45063,657.0698 123.61429,674.63233 131.84208,709.33764 131.83409,709.19273 125.52042,709.20419 124.38804,709.20624 121.88655,710.16249 119.96155,711.32918 116.5211,713.41435 116.49287,713.41549 118.30246,711.39624 z M 687.96155,692.4473 C 649.99832,688.6031 630.15213,673.11846 637.76593,653.28305 638.69852,650.85348 640.02762,648.67729 640.71949,648.44707 641.68205,648.12678 641.74075,648.65099 640.96949,650.67957 637.54137,659.69622 640.95515,669.66627 648.81514,673.59304 656.35589,677.36032 656.80671,677.38512 722.41195,677.64307 799.69855,677.94694 793.25525,680.43488 787.00815,652.70045 785.24945,644.8923 784.44285,639.33386 784.98865,638.78255 787.60415,636.14055 798.66255,642.65017 800.95315,648.1802 802.66625,652.31598 803.29405,652.04499 806.93165,645.59938 810.87095,638.61936 811.48995,639.11034 809.51065,647.64494 803.66425,672.85402 815.11155,685.74261 835.38475,676.77685 842.24815,673.7415 847.99855,669.51574 866.20635,654.1271 884.84065,638.37799 881.97485,638.2171 899.70475,656.00774 926.79665,683.19241 932.11935,680.25355 952.78395,626.70045 979.80155,556.68327 979.97875,555.90346 970.03445,550.76477 944.67525,537.66041 937.04755,532.59164 955.70445,541.24214 968.15055,547.01292 989.08695,562.16854 992.18655,567.65116 993.31335,569.64418 967.79715,636.73106 959.85765,652.65014 950.79285,670.82531 940.99875,683.9768 933.65395,687.83611 930.45235,689.5184 932.58405,691.04116 910.06715,670.98716 899.02095,661.14924 891.16465,655.19746 889.23145,655.20243 888.19705,655.20509 874.39295,664.85012 853.45405,680.20045 851.57845,681.57545 848.43175,683.82545 846.46155,685.20045 844.49135,686.57545 841.26755,688.93266 839.29765,690.4387 832.23465,695.83867 815.39425,686.639 807.88525,673.27848 805.32285,668.71932 803.96155,668.83489 803.96155,673.61158 803.96155,680.6046 796.12815,687.52357 784.46155,690.83516 779.08275,692.36195 700.14237,693.68074 687.96155,692.4473 z M 355.2811,665.08548 C 353.94221,663.47222 347.57354,620.65397 348.36551,618.59014 349.1266,616.60676 365.00245,616.72646 371.87502,618.76739 387.34035,623.3601 399.68691,648.92964 390.75304,657.8635 385.13906,663.47748 358.45534,668.91021 355.2811,665.08548 z M 384.75286,659.93146 C 392.94521,656.13225 393.65528,647.69349 386.88268,634.61977 383.3426,627.78605 366.2671,627.06119 366.61377,633.75935 367.44606,649.84035 368.58901,660.58945 369.66711,662.47505 370.38332,663.7277 380.09948,662.08947 384.75286,659.93146 z M 981.48785,657.03971 C 981.02105,655.88566 983.32515,652.07193 989.03985,644.53971 1000.3826,629.58945 1003.4305,626.75882 995.24105,638.78062 991.57245,644.16588 984.75795,654.4747 983.31055,656.82858 982.26845,658.52348 982.09605,658.54344 981.48785,657.03971 z M 296.10399,639.54521 C 294.25733,637.69068 290.09951,634.94193 286.8644,633.43689 279.10511,629.82711 279.41749,629.20045 288.97625,629.20045 298.13398,629.20045 300.95,631.6095 300.95781,639.45045 300.96228,643.92849 300.47807,643.93794 296.10399,639.54521 z M 648.42266,641.10812 C 649.50128,640.42428 652.20128,639.32684 654.42266,638.66936 659.10787,637.28266 659.0269,638.52748 657.11994,597.20045 655.23317,556.31082 655.1579,555.90471 648.86241,552.64918 642.65721,549.44035 640.08341,538.80223 643.76588,531.584 649.96291,519.43682 665.21379,516.75412 708.96155,520.11579 771.50625,524.92185 791.50705,531.38661 802.75815,550.43322 804.91665,554.08736 805.42365,553.93913 806.83085,549.24243 808.77585,542.75062 810.25725,543.10848 809.29755,549.8383 807.45135,562.78444 808.42095,571.67091 813.26505,586.20045 818.72435,602.57543 819.03305,604.59272 817.59415,614.49248 816.23455,623.84628 814.57665,624.27603 814.86295,615.20045 815.00925,610.56235 814.15865,605.2631 811.89365,596.70045 810.14775,590.10045 808.26225,582.45045 807.70355,579.70045 806.29225,572.75277 805.64775,572.44757 801.38645,576.70888 795.64565,582.44967 788.02165,585.45791 778.46155,585.75444 773.38885,585.91178 770.49815,586.40469 770.56155,587.10151 770.61655,587.70593 770.72905,592.00739 770.81155,596.66031 770.96155,605.12017 770.96155,605.12017 775.09725,606.35925 781.28275,608.21248 782.95315,611.63863 782.95785,622.48183 782.96185,631.93711 782.12045,633.42625 778.01555,631.22935 776.39605,630.36264 770.69375,630.72915 753.18745,632.82514 721.32855,636.63952 723.46155,636.79198 723.46155,630.70045 723.46155,624.96839 724.88385,624.46729 741.66235,624.28806 770.14025,623.98384 774.71315,610.9551 757.41085,579.41854 753.31125,571.94622 752.24215,572.53616 771.25515,571.77873 793.20145,570.90444 796.48525,566.24971 790.84975,544.00407 786.24235,525.8169 666.9823,516.0906 652.33082,532.7071 646.64068,539.16039 647.04311,544.57694 653.61528,549.99514 655.73073,551.73915 658.19526,553.79501 659.09202,554.56373 665.40765,559.97757 662.34024,639.82525 655.79305,640.43932 652.86072,640.71435 649.56155,641.25709 648.46155,641.64541 646.49199,642.34072 646.4914,642.33254 648.42266,641.10812 z M 1139.0839,637.68695 C 1137.3872,635.75453 1135.2968,632.71703 1134.4386,630.93695 1132.4171,626.74431 1139.1859,633.86812 1141.5776,638.45045 1143.498,642.12974 1142.796,641.91482 1139.0839,637.68695 z M 1230.4616,637.88411 C 1222.6888,636.04405 1220.2848,632.70342 1224.9402,630.21186 1228.2554,628.43769 1260.6039,627.85058 1266.4604,629.45829 1284.5751,634.43106 1250.0301,642.51659 1230.4616,637.88411 z M 166.37276,635.70269 C 165.37518,631.72804 166.34796,630.74202 172.55023,629.44108 180.60398,627.75179 181.25782,629.15696 174.71618,634.09595 168.38934,638.87276 167.22469,639.09705 166.37276,635.70269 z M 508.54013,626.87944 C 498.77701,616.53601 499.01929,613.64507 510.46155,603.95306 526.13746,590.67499 538.78506,587.06025 577.39143,584.82419 620.43044,582.3314 620.4567,578.9613 577.70856,544.11892 558.28729,528.28939 560.16665,528.75576 543.2383,535.56496 518.81183,545.39018 517.86763,545.22694 538.31101,534.71305 560.35982,523.3735 556.9552,523.31514 571.7291,535.28592 614.59154,570.0159 623.22033,578.1555 622.71793,583.3841 621.80483,592.88683 612.71972,598.01249 596.46155,598.19747 593.16155,598.23502 587.98655,599.13584 584.96155,600.19929 579.82727,602.00426 579.39506,602.02031 578.46155,600.44067 574.12442,593.10151 571.46363,591.91101 560.68179,592.48554 540.72455,593.54899 539.52367,594.56383 538.58584,611.15826 537.92873,622.78549 536.30914,629.20045 534.0307,629.20045 533.54698,629.20045 533.39239,626.5406 533.68718,623.28966 534.69376,612.18885 534.33852,611.80954 523.68837,612.61352 518.64757,612.99405 514.40358,613.42509 514.25728,613.57138 513.54261,614.28605 513.60964,626.04169 514.34212,628.45045 515.59563,632.57263 513.33654,631.96094 508.54013,626.87944 z M 1126.5183,619.97794 C 1124.5851,617.21804 1124.4902,615.5643 1126.3535,617.11076 1127.6171,618.15945 1129.2615,622.20045 1128.4247,622.20045 1128.2324,622.20045 1127.3745,621.20032 1126.5183,619.97794 z M 1064.9616,615.14592 C 1064.9616,606.44488 1068.4507,603.353 1072.4107,608.54484 1076.3056,613.65135 1075.5651,615.08282 1068.2116,616.66159 1065.3136,617.28378 1064.9616,617.1196 1064.9616,615.14592 z M 903.37035,603.17232 C 890.32315,592.24666 880.12235,591.36096 868.97945,600.18627 863.43715,604.57588 862.56235,604.22339 863.43055,597.95045 864.70375,588.75156 865.99575,579.87821 866.96155,573.70045 873.47475,532.03787 874.02715,534.68964 857.48335,528.20308 854.25915,526.93891 854.94345,526.06816 860.12855,524.83717 862.46895,524.28154 864.36735,525.58884 875.62855,535.51109 891.72505,549.69363 890.93615,547.79732 889.43285,568.69286 887.97945,588.89458 887.38835,586.83934 896.65805,593.81591 905.80365,600.69903 907.16715,600.954 908.01465,595.93941 909.34705,588.05571 910.22595,589.74378 909.97285,599.70045 909.77025,607.66921 909.13765,608.00186 903.37035,603.17232 z M 910.40105,577.74085 C 911.14595,571.36774 912.96155,569.2891 912.96155,574.80932 912.96155,577.0142 912.25495,579.6917 911.39145,580.75932 909.92785,582.56876 909.86065,582.36398 910.40105,577.74085 z M 711.37275,577.70269 C 710.20745,573.0597 711.32255,572.20045 718.51345,572.20045 726.60485,572.20045 726.70735,573.5405 718.91045,577.39225 712.13695,580.73843 712.13475,580.73852 711.37275,577.70269 z M 360.46155,565.10465 C 352.03717,563.6547 335.98293,563.19893 325.46155,564.11102 314.887,565.02771 309.31275,564.04975 316.49082,562.53717 323.17772,561.12809 354.74168,561.53116 361.46155,563.11145 371.87073,565.55933 371.17384,566.94837 360.46155,565.10465 z M 1065.9616,547.32289 C 1065.9616,545.30033 1068.9076,543.9108 1070.4616,545.20045 1072.7844,547.12829 1072.2484,548.20045 1068.9616,548.20045 1067.3115,548.20045 1065.9616,547.80555 1065.9616,547.32289 z M 915.96155,537.50621 C 915.96155,533.64665 917.61555,532.18809 921.91155,532.25926 925.10305,532.31213 925.26265,532.43836 923.49195,533.50926 922.40865,534.16441 920.27115,535.98554 918.74195,537.55621 915.96155,540.41196 915.96155,540.41196 915.96155,537.50621 z M 936.96155,535.47959 C 934.13525,534.97257 931.70195,533.15535 934.01155,533.27653 934.80905,533.31837 937.03655,533.95914 938.96155,534.70045 942.44925,536.04356 941.71015,536.33148 936.96155,535.47959 z"
-           style="fill:#211c19" />
-      </g>
-      <path
-         inkscape:connector-curvature="0"
-         id="path3887"
-         d="M -543.82521,811.78316 C -553.7173,809.54136 -559.3757,803.60046 -560.31075,794.47456 -562.53946,772.72276 -565.65059,749.19606 -567.45164,740.47456 -568.92097,733.35936 -569.73142,727.73646 -572.32257,706.68026 -573.12084,700.19336 -574.21143,692.31836 -574.74611,689.18026 -575.82965,682.82076 -578.39499,656.11471 -579.76092,636.97451 -585.94558,550.31111 -546.01555,508.32581 -515.56516,569.47451 -506.88965,586.89611 -502.05408,597.53041 -500.33215,602.97451 -499.37537,605.99951 -498.10716,609.08501 -497.5139,609.83111 -496.92065,610.57731 -495.94137,612.15231 -495.33773,613.33111 -494.13727,615.67551 -493.88001,615.69271 -485.85718,613.96471 -482.70575,613.28591 -465.19821,612.44081 -444.85718,611.98561 -402.37205,611.03471 -406.25012,611.91351 -412.16574,604.57751 -415.4993,600.44351 -420.91908,592.60941 -426.68805,583.58611 -430.77367,577.19571 -441.49831,555.31741 -442.42902,551.47451 -442.82862,549.82451 -443.77293,547.57451 -444.52748,546.47451 -447.32683,542.39351 -452.97121,522.09921 -452.3008,518.52561 -449.59447,504.09961 -400.88002,493.70166 -392.00774,505.65621 -391.26555,506.65631 -385.86555,514.74011 -380.00774,523.62031 -374.14993,532.50051 -364.40718,547.25511 -358.35718,556.40821 -345.83803,575.34871 -332.77298,595.44261 -328.35718,602.54781 -326.70718,605.20271 -323.08605,610.99731 -320.31022,615.42471 -305.57663,638.92441 -301.60688,645.42321 -295.846,655.47451 -292.37847,661.52451 -288.2878,668.49956 -286.75563,670.97456 -283.92903,675.54046 -279.43684,684.33576 -276.36844,691.31166 -268.81004,708.49536 -274.45551,729.54536 -291.58435,748.04656 -303.30405,760.70526 -332.59263,734.97756 -354.84798,692.47456 -356.86391,688.62456 -358.98434,684.57456 -359.56005,683.47456 -363.22604,676.46996 -364.9612,672.10916 -367.37933,663.82301 -371.23933,650.59611 -370.89729,651.02491 -377.10388,651.63311 -382.38899,652.15111 -401.24412,651.04281 -423.1948,648.92411 -436.81223,647.60971 -436.82475,647.61361 -453.01175,658.27781 -470.00864,669.47556 -481.80923,682.22906 -479.43307,686.83276 -477.67861,690.23196 -472.85718,706.02666 -472.85718,708.37496 -472.85718,709.36346 -472.20475,711.59026 -471.40734,713.32336 -463.61333,730.26316 -467.80822,768.14126 -479.4148,785.62726 -490.83197,802.82796 -523.967,816.28356 -543.82521,811.78316 z M 1230.6428,782.53146 C 1214.1226,780.88736 1202.7564,779.36926 1192.6428,777.45616 1188.2428,776.62376 1178.1178,774.82766 1170.1428,773.46466 1162.1678,772.10166 1153.6178,770.53266 1151.1428,769.97796 1146.9673,769.04206 1142.5906,768.15376 1131.1428,765.91866 1128.6678,765.43546 1123.4928,764.30566 1119.6428,763.40806 1115.7928,762.51046 1110.8428,761.41526 1108.6428,760.97436 1095.5074,758.34176 1091.9896,757.54646 1085.9876,755.85266 1082.3272,754.81966 1078.2772,753.96776 1076.9876,753.95956 1075.6979,753.95126 1071.0428,752.82636 1066.6428,751.45966 1062.2428,750.09296 1057.5178,748.96796 1056.1428,748.95946 1047.0685,748.90386 1041.623,744.72056 1044.3695,739.91496 1046.245,736.63326 1067.0855,710.14576 1079.1428,695.71946 1083.2678,690.78396 1088.1097,684.77226 1089.9025,682.36016 1094.8729,675.67296 1100.3896,676.76036 1161.6323,696.49886 1170.9765,699.51046 1179.5686,701.97456 1180.7258,701.97456 1181.8829,701.97456 1185.4549,702.87776 1188.6635,703.98166 1191.8721,705.08556 1198.58,706.65086 1203.57,707.46016 1208.5601,708.26936 1216.0178,709.56986 1220.1428,710.35016 1231.8095,712.55686 1244.7565,713.40856 1245.6113,712.02556 1249.0072,706.53076 1231.2065,689.82386 1207.6428,676.39016 1183.9263,662.86931 1174.4561,657.53881 1171.6428,656.12691 1169.9928,655.29891 1162.8674,651.32581 1155.8087,647.29791 1148.7499,643.27001 1142.7434,639.97451 1142.4609,639.97451 1142.1784,639.97451 1138.5038,637.53391 1134.2951,634.55091 1109.4337,616.93021 1102.9347,598.09931 1117.8197,586.81371 1124.162,582.00511 1146.312,567.97451 1147.561,567.97451 1147.9862,567.97451 1149.5292,567.12351 1150.9899,566.08341 1175.1132,548.90601 1227.2687,538.64601 1274.1428,541.85681 1301.1636,543.70761 1326.333,547.42221 1328.5651,549.88861 1345.2134,568.28481 1358.271,645.97451 1344.7146,645.97451 1341.8384,645.97451 1320.4171,638.23941 1311.6428,634.03251 1303.1013,629.93721 1237.9817,607.59131 1227.1428,605.03611 1182.3451,594.47561 1169.7248,601.04501 1191.3738,623.65541 1201.0817,633.79441 1217.0707,644.14151 1264.1428,670.74656 1298.6519,690.25116 1317.1309,705.85016 1324.278,721.50976 1346.1306,769.38966 1313.337,790.76116 1230.6428,782.53146 z M -202.35718,726.02916 C -214.26131,721.15696 -209.86835,706.95706 -195.54352,704.00456 -192.346,703.34556 -189.49898,702.20466 -189.2168,701.46936 -188.6634,700.02716 -200.49804,647.66451 -202.0569,644.65801 -202.5749,643.65891 -203.37429,640.73391 -203.83331,638.15801 -206.94808,620.67851 -211.15549,608.97451 -214.32434,608.97451 -218.8964,608.97451 -223.85718,604.84331 -223.85718,601.03591 -223.85718,591.53701 -207.05689,584.71261 -174.35718,580.92871 -99.12123,572.22271 -97.52979,572.35061 -92.98895,587.46871 -89.01536,600.69821 -84.46864,598.35391 -134.85718,609.05591 -152.73218,612.85241 -167.86822,616.15331 -168.49283,616.39131 -169.78555,616.88381 -169.1683,625.87431 -167.73533,627.42451 -167.25235,627.94701 -166.85718,629.88911 -166.85718,631.74021 -166.85718,634.54231 -165.68917,638.19371 -164.26308,639.84981 -163.77244,640.41961 -150.27692,630.27421 -142.14918,623.22551 -134.49753,616.58971 -132.48493,615.96881 -126.18598,618.30061 -121.00324,620.21911 -107.3548,639.01031 -106.28504,645.70021 -105.11815,652.99761 -108.63446,655.50121 -126.35718,659.99181 -150.59617,666.13351 -148.19956,664.50871 -146.25329,673.48106 -145.41894,677.32746 -144.34177,681.37456 -143.85958,682.47456 -143.3774,683.57456 -142.69927,685.48706 -142.35264,686.72456 -141.46274,689.90156 -134.79852,688.36426 -119.20605,681.38496 -117.47293,680.60926 -115.55432,679.97456 -114.94248,679.97456 -114.33064,679.97456 -113.04865,679.56936 -112.09361,679.07416 -111.13857,678.57906 -107.65718,677.35966 -104.35718,676.36446 -101.05718,675.36936 -97.89593,674.22846 -97.33218,673.82916 -93.01903,670.77416 -81.85718,672.39136 -81.85718,676.07126 -81.85718,676.50396 -79.35407,682.08456 -76.29471,688.47266 -68.98445,703.73666 -68.60955,702.94066 -84.36447,705.60626 -99.2645,708.12726 -153.22917,719.39996 -172.05275,723.92356 -184.81104,726.98956 -197.80481,727.89246 -202.35718,726.02916 z M 950.99182,718.22456 C 949.03282,715.61206 945.09942,710.09956 942.25102,705.97456 935.00662,695.48336 929.75302,688.22506 925.60362,682.97456 919.48512,675.23246 912.45702,665.78921 906.43942,657.22461 896.58042,643.19291 895.21732,645.18951 895.17462,673.72456 895.13742,698.55906 895.78492,697.00556 883.59382,701.51076 873.48092,705.24806 856.64382,705.83166 851.89282,702.60956 848.25672,700.14356 848.31192,698.13256 852.64282,675.26516 854.56782,665.10101 856.14532,655.36511 856.14822,653.62971 856.15122,651.89431 857.29082,644.62451 858.68072,637.47451 863.79072,611.18611 863.79312,610.21541 858.75992,605.01131 832.63332,577.99761 890.60742,561.17521 942.64282,580.67091 988.23132,597.75111 992.75972,647.97451 948.71132,647.97451 940.20352,647.97451 940.71322,648.83071 964.19062,673.97456 990.97202,702.65696 990.27782,699.59926 973.14282,713.40056 959.17522,724.65076 956.28312,725.28056 950.99182,718.22456 z M 940.64282,632.95051 C 949.66592,628.67641 955.21802,623.10851 953.27022,620.28701 944.50852,607.59501 889.16032,609.02441 887.93072,621.97451 887.03312,631.42841 887.08302,631.54661 892.30462,632.32611 894.69062,632.68241 900.01782,633.63401 904.14282,634.44081 915.84862,636.73041 934.24902,635.97921 940.64282,632.95051 z M -20.7158,691.25056 C -37.46409,690.03776 -40.05588,674.95116 -25.75061,661.94341 -17.53362,654.47181 -17.50504,654.34851 -19.14652,633.47451 -20.53772,615.78331 -24.38657,612.19791 -42.07957,612.11161 -60.14951,612.02341 -61.11363,611.11681 -60.38895,594.89471 -59.67539,578.92131 -53.67471,569.65121 -41.72311,566.05881 -39.32185,565.33701 -36.45718,564.38431 -35.35718,563.94151 -18.03192,556.96831 36.95088,558.56681 54.79395,566.56241 56.52707,567.33911 58.32707,567.97851 58.79395,567.98341 67.96629,568.08001 89.47814,598.56341 97.06654,622.21771 99.21064,628.90121 95.5441,648.01541 89.86548,659.75791 84.27707,671.31386 66.4816,680.13186 44.14282,682.41436 37.20008,683.12376 25.80892,685.31326 17.64282,687.50786 7.3420798,690.27616 -10.34267,692.00166 -20.7158,691.25056 z M 53.38122,660.13611 C 54.0201,659.49721 55.24698,658.97451 56.10763,658.97451 72.77054,658.97451 77.61588,637.86101 65.71056,617.13001 57.77061,603.30391 16.63126,592.72021 12.51585,603.44471 12.06138,604.62911 19.65522,658.01651 20.6823,660.85771 21.32931,662.64761 51.53637,661.98091 53.38122,660.13611 z M 706.14282,675.47456 C 702.56782,673.00626 699.30112,670.98396 698.88352,670.98066 698.46592,670.97726 694.19092,668.42566 689.38352,665.31041 684.57612,662.19511 678.61782,658.38671 676.14282,656.84731 662.16152,648.15101 662.02212,647.81161 668.69062,638.69311 671.19192,635.27291 678.35762,625.49951 684.61432,616.97451 690.87102,608.44951 697.03702,599.97121 698.31652,598.13381 699.59592,596.29641 702.51462,592.41521 704.80252,589.50881 707.09032,586.60251 709.63222,582.93081 710.45112,581.34951 711.97762,578.40201 721.08692,565.99891 727.61842,557.97451 729.63302,555.49951 732.84572,551.33701 734.75782,548.72451 740.43212,540.97181 740.83312,541.20651 755.41352,560.81811 757.18962,563.20711 760.75412,567.93211 763.33452,571.31811 765.91492,574.70411 769.24952,579.49951 770.74462,581.97451 772.23972,584.44951 774.06602,586.83431 774.80292,587.27421 775.53992,587.71401 776.14282,588.67141 776.14282,589.40171 776.14282,590.13201 776.88682,591.34701 777.79602,592.10161 778.70532,592.85631 779.94282,594.59891 780.54602,595.97411 781.14932,597.34931 783.34532,600.72451 785.42602,603.47451 793.89822,614.67141 799.14282,621.93321 799.14282,622.46691 799.14282,622.77761 801.39282,625.93101 804.14282,629.47451 806.89282,633.01791 809.14282,636.18511 809.14282,636.51251 809.14282,636.84001 810.26782,638.58291 811.64282,640.38561 815.02852,644.82441 814.81182,646.76091 810.16302,653.61051 788.13412,686.06886 791.82442,685.63016 777.66042,657.47451 764.67012,631.65181 768.66092,634.01421 742.97192,636.93961 720.88402,639.45491 722.92302,637.39571 720.16292,659.97451 717.27202,683.62286 717.53062,683.33706 706.14282,675.47456 z M 744.08302,612.39401 C 751.54092,609.87471 758.24292,607.62441 758.97632,607.39331 761.11992,606.71791 739.52902,581.97451 736.79612,581.97451 735.54932,581.97451 733.14282,588.58401 733.14282,592.00841 733.14282,593.14441 732.49262,595.33111 731.69802,596.86781 730.90332,598.40441 729.94402,601.99221 729.56622,604.84051 729.18832,607.68891 728.48852,610.26081 728.01102,610.55591 718.72452,616.29531 729.04102,617.47511 744.08302,612.39401 z M 224.68042,661.67221 C 223.85074,660.40601 222.88224,657.92161 222.5282,656.15141 222.17416,654.38121 221.49262,652.69071 221.01366,652.39461 220.5347,652.09861 220.14282,650.15801 220.14282,648.08211 220.14282,646.00631 219.88345,644.04841 219.56644,643.73141 218.92133,643.08631 208.47319,647.57191 206.14282,649.49441 183.55389,668.13026 145.41176,659.27601 132.13914,632.31541 121.51816,610.74121 144.56092,570.64901 179.47904,549.94851 183.96912,547.28671 189.50269,543.95261 191.77587,542.53951 194.04905,541.12631 197.64905,539.26671 199.77587,538.40701 201.90269,537.54731 205.89282,535.75221 208.64282,534.41801 226.65158,525.68091 230.28031,525.38891 238.43663,532.02061 276.98279,563.36151 280.41238,568.27941 263.48092,567.93341 259.71996,567.85651 253.04282,568.04131 248.64282,568.34391 244.24282,568.64661 236.31367,569.09021 231.02249,569.32971 225.73131,569.56931 220.47339,570.26241 219.33823,570.86991 218.20307,571.47741 215.52924,571.97451 213.39639,571.97451 211.26354,571.97451 207.65569,572.87451 205.37896,573.97451 203.10222,575.07451 200.4058,575.97451 199.38691,575.97451 198.36802,575.97451 195.48572,577.27371 192.9818,578.86161 190.47788,580.44961 187.52136,582.03691 186.41176,582.38911 183.2603,583.38941 165.14282,601.47691 165.14282,603.62291 165.14282,608.57421 176.665,624.02351 182.79174,627.28721 195.54128,634.07881 198.60199,633.87341 208.4973,625.56241 215.78953,619.43781 217.41472,615.52421 218.08115,602.48411 219.58049,573.14621 265.5523,604.48141 266.11105,635.22221 266.20128,640.18631 250.54095,656.01961 241.57533,660.02881 238.86245,661.24201 235.86143,662.62601 234.90639,663.10451 231.44636,664.83801 226.28066,664.11451 224.68042,661.67221 z M 490.41032,661.72451 C 486.69312,656.97021 486.17172,645.56721 489.20632,635.39291 490.34132,631.58781 492.15382,625.54951 493.23412,621.97451 498.65972,604.02021 498.91152,593.52731 494.22982,580.47451 480.12082,541.13711 488.44362,525.35311 523.66082,524.65981 538.52042,524.36731 537.87262,522.63511 534.18592,552.80501 533.65962,557.11171 532.69512,562.62421 532.04252,565.05501 531.38992,567.48571 530.90192,571.27451 530.95802,573.47451 531.01402,575.67451 530.44212,579.07481 529.68702,581.03071 528.93192,582.98661 528.01942,588.38661 527.65922,593.03071 527.29912,597.67481 526.50472,602.49611 525.89382,603.74471 522.57242,610.53401 528.86962,608.25541 541.61742,598.05521 555.50222,586.94531 560.19632,587.61921 576.26092,603.02841 585.55412,611.94251 586.52612,612.20411 586.91662,605.89681 587.06712,603.46451 587.62852,600.57451 588.16412,599.47451 588.69972,598.37451 589.30132,593.19951 589.50092,587.97451 589.83912,579.12471 590.61852,571.48481 593.22452,551.47451 593.79762,547.07451 594.57612,540.54951 594.95462,536.97451 595.95772,527.50051 604.99922,527.84851 625.04802,538.13291 642.16132,546.91141 644.42752,549.88181 640.38542,558.23591 637.15482,564.91271 634.13892,572.41561 634.11102,573.84531 634.09352,574.74141 633.41852,576.34801 632.61102,577.41561 631.80352,578.48321 631.14402,580.05821 631.14562,580.91561 631.14712,581.77301 630.26912,584.27451 629.19442,586.47451 628.11972,588.67451 626.25832,593.17451 625.05792,596.47451 623.85752,599.77451 622.53092,603.37451 622.11002,604.47451 621.68902,605.57451 620.79652,608.04951 620.12652,609.97451 618.30982,615.19411 616.27042,620.12831 614.61652,623.30551 613.80602,624.86261 613.14282,626.69101 613.14282,627.36871 613.14282,628.75541 600.76442,653.52061 599.02182,655.62031 595.76922,659.53941 591.79682,656.80101 573.12882,637.77041 554.49482,618.77441 557.91542,618.62721 533.54952,639.47451 527.12122,644.97451 520.68752,650.47081 519.25232,651.68851 517.81712,652.90621 516.15002,653.91871 515.54782,653.93851 514.94552,653.95831 513.63782,654.87501 512.64172,655.97571 507.89382,661.22201 493.02402,665.06721 490.41032,661.72451 z M 443.93472,661.43311 C 443.58762,661.08591 417.50492,660.70741 385.97322,660.59201 317.12415,660.34001 319.14282,660.71751 319.14282,648.09601 319.14282,639.89761 321.86099,637.60051 332.30308,636.97451 341.43656,636.42691 343.05778,621.40571 340.18188,563.97451 338.9861,540.09491 339.61752,542.00511 331.14282,536.62981 304.48736,519.72311 376.45612,514.48471 443.86502,528.42521 456.49012,531.03611 457.05242,531.76411 457.42182,545.97451 457.68882,556.24401 460.29062,555.68581 411.36142,555.85761 385.69182,555.94771 377.99162,556.26041 377.69342,557.22451 375.43382,564.53021 376.24312,580.20381 378.85262,579.67331 382.73152,578.88481 399.80402,570.45931 404.64282,566.94561 411.26782,562.13481 419.05632,563.95981 422.71482,571.18031 423.63292,572.99211 424.94932,575.14951 425.64042,575.97451 426.33142,576.79951 428.30212,581.47111 430.01982,586.35581 436.44052,604.61521 435.28422,605.78481 409.48682,607.12671 399.12262,607.66581 390.01402,608.31341 389.24542,608.56591 387.66362,609.08541 388.22352,631.45521 389.85932,633.09101 390.35102,633.58271 396.13502,633.07631 403.18542,631.92431 413.99642,630.15791 436.51642,627.84311 445.59712,627.56501 448.82522,627.46611 455.58302,649.51361 454.91792,657.97451 454.65102,661.37051 446.45362,663.95191 443.93472,661.43311 z"
-         style="fill:#fe8902;fill-opacity:1;stroke:#fe8902;stroke-width:5;stroke-miterlimit:4;stroke-opacity:1;stroke-dasharray:none" />
-      <path
-         style="fill:url(#radialGradient4528);fill-opacity:1;stroke:none"
-         d="M -543.82521,811.78316 C -553.7173,809.54136 -559.3757,803.60046 -560.31075,794.47456 -562.53946,772.72276 -565.65059,749.19606 -567.45164,740.47456 -568.92097,733.35936 -569.73142,727.73646 -572.32257,706.68026 -573.12084,700.19336 -574.21143,692.31836 -574.74611,689.18026 -575.82965,682.82076 -578.39499,656.11471 -579.76092,636.97451 -585.94558,550.31111 -546.01555,508.32581 -515.56516,569.47451 -506.88965,586.89611 -502.05408,597.53041 -500.33215,602.97451 -499.37537,605.99951 -498.10716,609.08501 -497.5139,609.83111 -496.92065,610.57731 -495.94137,612.15231 -495.33773,613.33111 -494.13727,615.67551 -493.88001,615.69271 -485.85718,613.96471 -482.70575,613.28591 -465.19821,612.44081 -444.85718,611.98561 -402.37205,611.03471 -406.25012,611.91351 -412.16574,604.57751 -415.4993,600.44351 -420.91908,592.60941 -426.68805,583.58611 -430.77367,577.19571 -441.49831,555.31741 -442.42902,551.47451 -442.82862,549.82451 -443.77293,547.57451 -444.52748,546.47451 -447.32683,542.39351 -452.97121,522.09921 -452.3008,518.52561 -449.59447,504.09961 -400.88002,493.70166 -392.00774,505.65621 -391.26555,506.65631 -385.86555,514.74011 -380.00774,523.62031 -374.14993,532.50051 -364.40718,547.25511 -358.35718,556.40821 -345.83803,575.34871 -332.77298,595.44261 -328.35718,602.54781 -326.70718,605.20271 -323.08605,610.99731 -320.31022,615.42471 -305.57663,638.92441 -301.60688,645.42321 -295.846,655.47451 -292.37847,661.52451 -288.2878,668.49956 -286.75563,670.97456 -283.92903,675.54046 -279.43684,684.33576 -276.36844,691.31166 -268.81004,708.49536 -274.45551,729.54536 -291.58435,748.04656 -303.30405,760.70526 -332.59263,734.97756 -354.84798,692.47456 -356.86391,688.62456 -358.98434,684.57456 -359.56005,683.47456 -363.22604,676.46996 -364.9612,672.10916 -367.37933,663.82301 -371.23933,650.59611 -370.89729,651.02491 -377.10388,651.63311 -382.38899,652.15111 -401.24412,651.04281 -423.1948,648.92411 -436.81223,647.60971 -436.82475,647.61361 -453.01175,658.27781 -470.00864,669.47556 -481.80923,682.22906 -479.43307,686.83276 -477.67861,690.23196 -472.85718,706.02666 -472.85718,708.37496 -472.85718,709.36346 -472.20475,711.59026 -471.40734,713.32336 -463.61333,730.26316 -467.80822,768.14126 -479.4148,785.62726 -490.83197,802.82796 -523.967,816.28356 -543.82521,811.78316 z M 1230.6428,782.53146 C 1214.1226,780.88736 1202.7564,779.36926 1192.6428,777.45616 1188.2428,776.62376 1178.1178,774.82766 1170.1428,773.46466 1162.1678,772.10166 1153.6178,770.53266 1151.1428,769.97796 1146.9673,769.04206 1142.5906,768.15376 1131.1428,765.91866 1128.6678,765.43546 1123.4928,764.30566 1119.6428,763.40806 1115.7928,762.51046 1110.8428,761.41526 1108.6428,760.97436 1095.5074,758.34176 1091.9896,757.54646 1085.9876,755.85266 1082.3272,754.81966 1078.2772,753.96776 1076.9876,753.95956 1075.6979,753.95126 1071.0428,752.82636 1066.6428,751.45966 1062.2428,750.09296 1057.5178,748.96796 1056.1428,748.95946 1047.0685,748.90386 1041.623,744.72056 1044.3695,739.91496 1046.245,736.63326 1067.0855,710.14576 1079.1428,695.71946 1083.2678,690.78396 1088.1097,684.77226 1089.9025,682.36016 1094.8729,675.67296 1100.3896,676.76036 1161.6323,696.49886 1170.9765,699.51046 1179.5686,701.97456 1180.7258,701.97456 1181.8829,701.97456 1185.4549,702.87776 1188.6635,703.98166 1191.8721,705.08556 1198.58,706.65086 1203.57,707.46016 1208.5601,708.26936 1216.0178,709.56986 1220.1428,710.35016 1231.8095,712.55686 1244.7565,713.40856 1245.6113,712.02556 1249.0072,706.53076 1231.2065,689.82386 1207.6428,676.39016 1183.9263,662.86931 1174.4561,657.53881 1171.6428,656.12691 1169.9928,655.29891 1162.8674,651.32581 1155.8087,647.29791 1148.7499,643.27001 1142.7434,639.97451 1142.4609,639.97451 1142.1784,639.97451 1138.5038,637.53391 1134.2951,634.55091 1109.4337,616.93021 1102.9347,598.09931 1117.8197,586.81371 1124.162,582.00511 1146.312,567.97451 1147.561,567.97451 1147.9862,567.97451 1149.5292,567.12351 1150.9899,566.08341 1175.1132,548.90601 1227.2687,538.64601 1274.1428,541.85681 1301.1636,543.70761 1326.333,547.42221 1328.5651,549.88861 1345.2134,568.28481 1358.271,645.97451 1344.7146,645.97451 1341.8384,645.97451 1320.4171,638.23941 1311.6428,634.03251 1303.1013,629.93721 1237.9817,607.59131 1227.1428,605.03611 1182.3451,594.47561 1169.7248,601.04501 1191.3738,623.65541 1201.0817,633.79441 1217.0707,644.14151 1264.1428,670.74656 1298.6519,690.25116 1317.1309,705.85016 1324.278,721.50976 1346.1306,769.38966 1313.337,790.76116 1230.6428,782.53146 z M -202.35718,726.02916 C -214.26131,721.15696 -209.86835,706.95706 -195.54352,704.00456 -192.346,703.34556 -189.49898,702.20466 -189.2168,701.46936 -188.6634,700.02716 -200.49804,647.66451 -202.0569,644.65801 -202.5749,643.65891 -203.37429,640.73391 -203.83331,638.15801 -206.94808,620.67851 -211.15549,608.97451 -214.32434,608.97451 -218.8964,608.97451 -223.85718,604.84331 -223.85718,601.03591 -223.85718,591.53701 -207.05689,584.71261 -174.35718,580.92871 -99.12123,572.22271 -97.52979,572.35061 -92.98895,587.46871 -89.01536,600.69821 -84.46864,598.35391 -134.85718,609.05591 -152.73218,612.85241 -167.86822,616.15331 -168.49283,616.39131 -169.78555,616.88381 -169.1683,625.87431 -167.73533,627.42451 -167.25235,627.94701 -166.85718,629.88911 -166.85718,631.74021 -166.85718,634.54231 -165.68917,638.19371 -164.26308,639.84981 -163.77244,640.41961 -150.27692,630.27421 -142.14918,623.22551 -134.49753,616.58971 -132.48493,615.96881 -126.18598,618.30061 -121.00324,620.21911 -107.3548,639.01031 -106.28504,645.70021 -105.11815,652.99761 -108.63446,655.50121 -126.35718,659.99181 -150.59617,666.13351 -148.19956,664.50871 -146.25329,673.48106 -145.41894,677.32746 -144.34177,681.37456 -143.85958,682.47456 -143.3774,683.57456 -142.69927,685.48706 -142.35264,686.72456 -141.46274,689.90156 -134.79852,688.36426 -119.20605,681.38496 -117.47293,680.60926 -115.55432,679.97456 -114.94248,679.97456 -114.33064,679.97456 -113.04865,679.56936 -112.09361,679.07416 -111.13857,678.57906 -107.65718,677.35966 -104.35718,676.36446 -101.05718,675.36936 -97.89593,674.22846 -97.33218,673.82916 -93.01903,670.77416 -81.85718,672.39136 -81.85718,676.07126 -81.85718,676.50396 -79.35407,682.08456 -76.29471,688.47266 -68.98445,703.73666 -68.60955,702.94066 -84.36447,705.60626 -99.2645,708.12726 -153.22917,719.39996 -172.05275,723.92356 -184.81104,726.98956 -197.80481,727.89246 -202.35718,726.02916 z M 950.99182,718.22456 C 949.03282,715.61206 945.09942,710.09956 942.25102,705.97456 935.00662,695.48336 929.75302,688.22506 925.60362,682.97456 919.48512,675.23246 912.45702,665.78921 906.43942,657.22461 896.58042,643.19291 895.21732,645.18951 895.17462,673.72456 895.13742,698.55906 895.78492,697.00556 883.59382,701.51076 873.48092,705.24806 856.64382,705.83166 851.89282,702.60956 848.25672,700.14356 848.31192,698.13256 852.64282,675.26516 854.56782,665.10101 856.14532,655.36511 856.14822,653.62971 856.15122,651.89431 857.29082,644.62451 858.68072,637.47451 863.79072,611.18611 863.79312,610.21541 858.75992,605.01131 832.63332,577.99761 890.60742,561.17521 942.64282,580.67091 988.23132,597.75111 992.75972,647.97451 948.71132,647.97451 940.20352,647.97451 940.71322,648.83071 964.19062,673.97456 990.97202,702.65696 990.27782,699.59926 973.14282,713.40056 959.17522,724.65076 956.28312,725.28056 950.99182,718.22456 z M 940.64282,632.95051 C 949.66592,628.67641 955.21802,623.10851 953.27022,620.28701 944.50852,607.59501 889.16032,609.02441 887.93072,621.97451 887.03312,631.42841 887.08302,631.54661 892.30462,632.32611 894.69062,632.68241 900.01782,633.63401 904.14282,634.44081 915.84862,636.73041 934.24902,635.97921 940.64282,632.95051 z M -20.7158,691.25056 C -37.46409,690.03776 -40.05588,674.95116 -25.75061,661.94341 -17.53362,654.47181 -17.50504,654.34851 -19.14652,633.47451 -20.53772,615.78331 -24.38657,612.19791 -42.07957,612.11161 -60.14951,612.02341 -61.11363,611.11681 -60.38895,594.89471 -59.67539,578.92131 -53.67471,569.65121 -41.72311,566.05881 -39.32185,565.33701 -36.45718,564.38431 -35.35718,563.94151 -18.03192,556.96831 36.95088,558.56681 54.79395,566.56241 56.52707,567.33911 58.32707,567.97851 58.79395,567.98341 67.96629,568.08001 89.47814,598.56341 97.06654,622.21771 99.21064,628.90121 95.5441,648.01541 89.86548,659.75791 84.27707,671.31386 66.4816,680.13186 44.14282,682.41436 37.20008,683.12376 25.80892,685.31326 17.64282,687.50786 7.3420798,690.27616 -10.34267,692.00166 -20.7158,691.25056 z M 53.38122,660.13611 C 54.0201,659.49721 55.24698,658.97451 56.10763,658.97451 72.77054,658.97451 77.61588,637.86101 65.71056,617.13001 57.77061,603.30391 16.63126,592.72021 12.51585,603.44471 12.06138,604.62911 19.65522,658.01651 20.6823,660.85771 21.32931,662.64761 51.53637,661.98091 53.38122,660.13611 z M 706.14282,675.47456 C 702.56782,673.00626 699.30112,670.98396 698.88352,670.98066 698.46592,670.97726 694.19092,668.42566 689.38352,665.31041 684.57612,662.19511 678.61782,658.38671 676.14282,656.84731 662.16152,648.15101 662.02212,647.81161 668.69062,638.69311 671.19192,635.27291 678.35762,625.49951 684.61432,616.97451 690.87102,608.44951 697.03702,599.97121 698.31652,598.13381 699.59592,596.29641 702.51462,592.41521 704.80252,589.50881 707.09032,586.60251 709.63222,582.93081 710.45112,581.34951 711.97762,578.40201 721.08692,565.99891 727.61842,557.97451 729.63302,555.49951 732.84572,551.33701 734.75782,548.72451 740.43212,540.97181 740.83312,541.20651 755.41352,560.81811 757.18962,563.20711 760.75412,567.93211 763.33452,571.31811 765.91492,574.70411 769.24952,579.49951 770.74462,581.97451 772.23972,584.44951 774.06602,586.83431 774.80292,587.27421 775.53992,587.71401 776.14282,588.67141 776.14282,589.40171 776.14282,590.13201 776.88682,591.34701 777.79602,592.10161 778.70532,592.85631 779.94282,594.59891 780.54602,595.97411 781.14932,597.34931 783.34532,600.72451 785.42602,603.47451 793.89822,614.67141 799.14282,621.93321 799.14282,622.46691 799.14282,622.77761 801.39282,625.93101 804.14282,629.47451 806.89282,633.01791 809.14282,636.18511 809.14282,636.51251 809.14282,636.84001 810.26782,638.58291 811.64282,640.38561 815.02852,644.82441 814.81182,646.76091 810.16302,653.61051 788.13412,686.06886 791.82442,685.63016 777.66042,657.47451 764.67012,631.65181 768.66092,634.01421 742.97192,636.93961 720.88402,639.45491 722.92302,637.39571 720.16292,659.97451 717.27202,683.62286 717.53062,683.33706 706.14282,675.47456 z M 744.08302,612.39401 C 751.54092,609.87471 758.24292,607.62441 758.97632,607.39331 761.11992,606.71791 739.52902,581.97451 736.79612,581.97451 735.54932,581.97451 733.14282,588.58401 733.14282,592.00841 733.14282,593.14441 732.49262,595.33111 731.69802,596.86781 730.90332,598.40441 729.94402,601.99221 729.56622,604.84051 729.18832,607.68891 728.48852,610.26081 728.01102,610.55591 718.72452,616.29531 729.04102,617.47511 744.08302,612.39401 z M 224.68042,661.67221 C 223.85074,660.40601 222.88224,657.92161 222.5282,656.15141 222.17416,654.38121 221.49262,652.69071 221.01366,652.39461 220.5347,652.09861 220.14282,650.15801 220.14282,648.08211 220.14282,646.00631 219.88345,644.04841 219.56644,643.73141 218.92133,643.08631 208.47319,647.57191 206.14282,649.49441 183.55389,668.13026 145.41176,659.27601 132.13914,632.31541 121.51816,610.74121 144.56092,570.64901 179.47904,549.94851 183.96912,547.28671 189.50269,543.95261 191.77587,542.53951 194.04905,541.12631 197.64905,539.26671 199.77587,538.40701 201.90269,537.54731 205.89282,535.75221 208.64282,534.41801 226.65158,525.68091 230.28031,525.38891 238.43663,532.02061 276.98279,563.36151 280.41238,568.27941 263.48092,567.93341 259.71996,567.85651 253.04282,568.04131 248.64282,568.34391 244.24282,568.64661 236.31367,569.09021 231.02249,569.32971 225.73131,569.56931 220.47339,570.26241 219.33823,570.86991 218.20307,571.47741 215.52924,571.97451 213.39639,571.97451 211.26354,571.97451 207.65569,572.87451 205.37896,573.97451 203.10222,575.07451 200.4058,575.97451 199.38691,575.97451 198.36802,575.97451 195.48572,577.27371 192.9818,578.86161 190.47788,580.44961 187.52136,582.03691 186.41176,582.38911 183.2603,583.38941 165.14282,601.47691 165.14282,603.62291 165.14282,608.57421 176.665,624.02351 182.79174,627.28721 195.54128,634.07881 198.60199,633.87341 208.4973,625.56241 215.78953,619.43781 217.41472,615.52421 218.08115,602.48411 219.58049,573.14621 265.5523,604.48141 266.11105,635.22221 266.20128,640.18631 250.54095,656.01961 241.57533,660.02881 238.86245,661.24201 235.86143,662.62601 234.90639,663.10451 231.44636,664.83801 226.28066,664.11451 224.68042,661.67221 z M 490.41032,661.72451 C 486.69312,656.97021 486.17172,645.56721 489.20632,635.39291 490.34132,631.58781 492.15382,625.54951 493.23412,621.97451 498.65972,604.02021 498.91152,593.52731 494.22982,580.47451 480.12082,541.13711 488.44362,525.35311 523.66082,524.65981 538.52042,524.36731 537.87262,522.63511 534.18592,552.80501 533.65962,557.11171 532.69512,562.62421 532.04252,565.05501 531.38992,567.48571 530.90192,571.27451 530.95802,573.47451 531.01402,575.67451 530.44212,579.07481 529.68702,581.03071 528.93192,582.98661 528.01942,588.38661 527.65922,593.03071 527.29912,597.67481 526.50472,602.49611 525.89382,603.74471 522.57242,610.53401 528.86962,608.25541 541.61742,598.05521 555.50222,586.94531 560.19632,587.61921 576.26092,603.02841 585.55412,611.94251 586.52612,612.20411 586.91662,605.89681 587.06712,603.46451 587.62852,600.57451 588.16412,599.47451 588.69972,598.37451 589.30132,593.19951 589.50092,587.97451 589.83912,579.12471 590.61852,571.48481 593.22452,551.47451 593.79762,547.07451 594.57612,540.54951 594.95462,536.97451 595.95772,527.50051 604.99922,527.84851 625.04802,538.13291 642.16132,546.91141 644.42752,549.88181 640.38542,558.23591 637.15482,564.91271 634.13892,572.41561 634.11102,573.84531 634.09352,574.74141 633.41852,576.34801 632.61102,577.41561 631.80352,578.48321 631.14402,580.05821 631.14562,580.91561 631.14712,581.77301 630.26912,584.27451 629.19442,586.47451 628.11972,588.67451 626.25832,593.17451 625.05792,596.47451 623.85752,599.77451 622.53092,603.37451 622.11002,604.47451 621.68902,605.57451 620.79652,608.04951 620.12652,609.97451 618.30982,615.19411 616.27042,620.12831 614.61652,623.30551 613.80602,624.86261 613.14282,626.69101 613.14282,627.36871 613.14282,628.75541 600.76442,653.52061 599.02182,655.62031 595.76922,659.53941 591.79682,656.80101 573.12882,637.77041 554.49482,618.77441 557.91542,618.62721 533.54952,639.47451 527.12122,644.97451 520.68752,650.47081 519.25232,651.68851 517.81712,652.90621 516.15002,653.91871 515.54782,653.93851 514.94552,653.95831 513.63782,654.87501 512.64172,655.97571 507.89382,661.22201 493.02402,665.06721 490.41032,661.72451 z M 443.93472,661.43311 C 443.58762,661.08591 417.50492,660.70741 385.97322,660.59201 317.12415,660.34001 319.14282,660.71751 319.14282,648.09601 319.14282,639.89761 321.86099,637.60051 332.30308,636.97451 341.43656,636.42691 343.05778,621.40571 340.18188,563.97451 338.9861,540.09491 339.61752,542.00511 331.14282,536.62981 304.48736,519.72311 376.45612,514.48471 443.86502,528.42521 456.49012,531.03611 457.05242,531.76411 457.42182,545.97451 457.68882,556.24401 460.29062,555.68581 411.36142,555.85761 385.69182,555.94771 377.99162,556.26041 377.69342,557.22451 375.43382,564.53021 376.24312,580.20381 378.85262,579.67331 382.73152,578.88481 399.80402,570.45931 404.64282,566.94561 411.26782,562.13481 419.05632,563.95981 422.71482,571.18031 423.63292,572.99211 424.94932,575.14951 425.64042,575.97451 426.33142,576.79951 428.30212,581.47111 430.01982,586.35581 436.44052,604.61521 435.28422,605.78481 409.48682,607.12671 399.12262,607.66581 390.01402,608.31341 389.24542,608.56591 387.66362,609.08541 388.22352,631.45521 389.85932,633.09101 390.35102,633.58271 396.13502,633.07631 403.18542,631.92431 413.99642,630.15791 436.51642,627.84311 445.59712,627.56501 448.82522,627.46611 455.58302,649.51361 454.91792,657.97451 454.65102,661.37051 446.45362,663.95191 443.93472,661.43311 z"
-         id="path4492"
-         inkscape:connector-curvature="0" />
-    </g>
+    <path
+       inkscape:connector-curvature="0"
+       id="path3855"
+       d="M -526.00534,852.17056 C -542.67082,849.40463 -557.25422,840.6511 -571.77866,824.6956 -586.81864,808.17377 -586.25533,809.35375 -589.41486,787.75241 -590.93931,777.32988 -592.62117,765.87736 -593.15232,762.30236 -594.7215,751.74067 -600.02194,704.16746 -601.67568,685.80236 -611.83628,572.96688 -588.11991,515.67793 -533.36375,520.78899 -519.70323,522.06409 -506.51659,528.94492 -495.14848,540.72984 -491.15748,544.86717 -490.36779,544.99251 -485.12939,542.32008 -481.5908,540.51483 -481.14202,539.82273 -480.10409,534.57008 -474.25647,504.9771 -469.61911,499.08506 -442.09465,486.27681 -425.06997,478.35453 -415.61338,477.84565 -387.98533,483.3651 -345.06294,491.93999 -316.12855,526.46216 -256.86911,639.80236 -241.56375,669.07553 -230.03939,693.35993 -229.04826,698.42704 -228.52377,701.10847 -227.64465,705.58669 -227.09465,708.37865 -221.2129,738.23614 -232.5079,769.55771 -258.54663,795.59644 -280.02203,817.07185 -331.19847,773.8821 -376.71712,695.86784 -381.04976,688.44215 -385.10108,682.16277 -385.72006,681.91366 -386.91415,681.43311 -415.04112,689.99475 -416.38654,691.24831 -416.82208,691.65412 -414.92428,698.59926 -412.16921,706.68197 -392.2035,765.25648 -410.86654,807.73811 -473.79646,846.96061 -483.32508,852.89954 -507.23612,855.28563 -526.00534,852.17056 z M -519.76126,810.23954 C -472.06262,798.19128 -456.71329,757.21383 -477.64456,697.80236 -479.19473,693.40236 -481.10058,688.79953 -481.87978,687.57384 -485.18034,682.38208 -468.68638,666.27399 -445.78887,652.32727 -436.98309,646.96373 -436.98309,646.96373 -422.28887,648.21574 -390.5073,650.92367 -383.33168,651.31496 -376.46907,650.71434 -368.06769,649.97904 -369.04944,648.89183 -364.48387,663.98692 -354.45356,697.14999 -326.11079,737.33898 -301.91525,752.70689 -298.2847,755.01285 -288.90783,746.33723 -281.43455,733.75783 -271.36461,716.80762 -271.46294,703.74609 -281.81062,683.80236 -285.54208,676.61047 -313.45502,630.72863 -325.61295,611.80236 -327.37951,609.05236 -333.69276,599.15236 -339.64241,589.80236 -350.49732,572.74363 -354.87266,565.98984 -377.86466,530.80236 -394.18536,505.82479 -393.14876,507.15799 -397.39054,505.68945 -403.56278,503.55257 -414.237,502.46547 -420.03985,503.38278 -430.21674,504.99153 -450.09465,516.66537 -450.09465,521.03327 -450.09465,524.11139 -444.42413,542.99583 -442.65711,545.80236 -441.96455,546.90236 -440.81888,549.60236 -440.11119,551.80236 -436.44073,563.21275 -418.82479,592.96174 -407.51976,606.84126 -400.93253,614.92861 -399.66235,614.60686 -441.34936,615.41062 -475.62065,616.0714 -483.78177,616.70683 -490.40975,619.23049 -491.95805,619.82002 -493.59947,620.30236 -494.05733,620.30236 -495.13309,620.30236 -501.29083,607.40738 -503.60794,600.30236 -504.59446,597.27736 -506.68255,592.27169 -508.24813,589.17866 -509.81372,586.08562 -511.09465,583.25837 -511.09465,582.89589 -511.09465,575.338 -527.13101,554.11618 -535.96652,549.98155 -575.77822,531.3514 -586.36837,580.89469 -569.48784,706.80236 -562.23117,760.92808 -562.33339,760.12618 -560.11827,780.30236 -557.75635,801.81554 -557.02721,803.70879 -549.25351,808.51319 -542.38794,812.75635 -532.10759,813.35812 -519.76126,810.23954 z M 1210.4054,832.30456 C 1116.1837,828.09124 1041.8426,795.58315 1020.807,749.39647 1012.8957,732.02633 1012.3721,726.02752 1018.1005,718.39323 1046.4965,680.54897 1069.314,660.67853 1093.968,652.32433 1099.9981,650.28096 1105.1865,648.35452 1105.4977,648.04336 1105.8088,647.73219 1103.4059,644.17567 1100.1577,640.13998 1086.0293,622.58636 1075.944,602.614 1077.2244,594.72394 1080.7321,573.10883 1136.1552,539.89827 1191.4054,526.30459 1241.6923,513.93209 1325.8193,513.24638 1341.8341,525.07846 1353.0461,533.36205 1380.6749,596.7986 1390.276,636.30236 1392.623,645.95901 1396.5945,664.23093 1397.3503,668.84936 1399.0439,679.19844 1377.5583,691.29555 1353.8805,693.32426 1325.0128,695.79764 1325.4649,692.81016 1348.3716,729.72643 1382.3014,784.40769 1381.3118,796.79421 1341.4054,816.91963 1312.5316,831.48115 1279.2914,835.38495 1210.4054,832.30456 z M 1298.1862,780.94315 C 1328.8474,773.00141 1337.6385,752.73826 1322.7984,724.21349 1316.4507,712.01252 1289.7252,686.30236 1283.39,686.30236 1283.0183,686.30236 1281.4681,685.41508 1279.9451,684.33062 1277.2108,682.38364 1264.1424,674.68648 1226.4054,652.7964 1196.3875,635.38389 1182.218,622.36287 1180.3111,610.43825 1178.7317,600.56092 1181.999,598.74424 1199.8163,599.59343 1210.4536,600.10042 1215.3018,600.87478 1229.4054,604.31941 1241.9422,607.38137 1312.733,631.88085 1317.175,634.69493 1321.5923,637.49346 1345.1958,645.41194 1346.1817,644.42609 1354.2253,636.38242 1347.5868,591.96339 1334.2567,564.63503 1327.1391,550.04304 1328.0119,550.48382 1299.9054,547.28729 1223.3574,538.58154 1182.4003,547.7028 1125.9054,586.03759 1113.8368,594.22678 1112.9054,595.3211 1112.9054,601.3116 1112.9054,614.76685 1126.5358,628.86461 1154.72,644.56001 1166.7357,651.25129 1178.1186,657.61866 1185.9054,662.00437 1187.8304,663.08858 1192.1054,665.47431 1195.4054,667.306 1256.7889,701.3773 1268.3903,723.87765 1219.4054,713.85335 1193.9568,708.64554 1189.4148,707.45219 1152.4054,696.24972 1087.537,676.61463 1101.5825,672.32526 1060.5481,724.30236 1043.7626,745.56393 1043.7001,745.72529 1051.6554,747.28966 1054.8178,747.91156 1061.6804,749.48054 1066.9054,750.77627 1080.2963,754.09707 1096.7066,757.88199 1108.4054,760.34799 1113.9054,761.50734 1123.5804,763.56319 1129.9054,764.91654 1173.061,774.15053 1201.9299,778.8943 1243.9054,783.64915 1256.1258,785.03345 1288.6553,783.41179 1298.1862,780.94315 z M 954.5461,755.05236 C 953.1872,753.81486 947.172,745.15236 941.1792,735.80236 922.6331,706.86715 922.8713,707.10761 920.8994,715.32701 917.832,728.11359 886.0111,738.59672 864.4054,733.93849 841.0732,728.90805 831.2058,711.68824 836.2816,684.85951 839.8449,666.02656 839.8468,666.0259 818.9736,690.6944 797.2581,716.35841 795.2594,717.39398 788.9857,706.23146 787.6666,703.88463 784.5621,699.00301 782.0866,695.38342 779.6112,691.76384 776.8175,687.67736 775.8785,686.30236 774.9396,684.92736 771.5818,679.86486 768.4168,675.05236 762.0329,665.34537 762.0741,665.36342 753.1638,668.37246 744.631,671.25403 744.6947,671.13074 740.8151,692.30236 737.4269,710.79331 737.2091,710.94965 718.3133,708.46703 704.8045,706.6922 649.10415,657.44987 648.94615,647.14241 648.89375,643.72507 678.4188,604.12452 717.784,554.81373 741.8382,524.68215 740.9777,525.06058 753.0558,539.30236 756.0877,542.87736 759.8817,547.67304 761.4869,549.95942 763.0921,552.2458 767.1054,557.50179 770.4054,561.63938 773.7054,565.77697 779.7804,573.7011 783.9054,579.24855 788.0304,584.79601 794.7804,593.81879 798.9054,599.29917 803.0304,604.77956 809.7804,613.95675 813.9054,619.69292 818.0304,625.4291 824.3304,634.1794 827.9054,639.13803 831.4804,644.09667 835.6778,650.04224 837.233,652.35042 841.0502,658.01575 841.1878,657.71283 845.3852,634.41114 849.0582,614.01991 849.0582,614.01991 845.9525,609.91114 837.6242,598.89303 837.403,598.39827 837.4412,590.87122 837.5939,560.74111 892.4053,550.57744 949.8343,570.03016 1003.6186,588.24836 1027.1084,645.26977 989.9281,667.35818 981.1611,672.56653 980.941,671.48049 993.4,684.48246 1010.0407,701.84846 1015.9833,714.44964 1011.5631,722.99734 1002.6408,740.25126 962.855,762.61883 954.5461,755.05236 z M 965.3061,718.82443 C 983.339,706.8549 986.7023,702.06845 981.3347,696.01309 973.6587,687.35346 957.1605,669.51508 949.1716,661.23729 939.8106,651.53783 939.1331,649.67248 944.6554,648.80159 958.2942,646.65066 961.8968,645.85955 965.8929,644.13795 982.1157,637.14902 981.9664,616.34233 965.5659,598.54988 935.1433,565.54526 835.0179,570.06868 860.1644,603.31167 861.947,605.66814 864.0061,608.40497 864.7403,609.39349 865.8756,610.92195 865.5226,614.15365 862.3809,630.99659 860.3491,641.88976 858.3004,654.62736 857.8283,659.30236 857.3562,663.97736 855.8329,673.65236 854.4432,680.80236 850.874,699.16432 850.9712,701.01407 855.6058,702.95053 861.8013,705.53916 872.1238,704.92098 882.4503,701.34289 895.2403,696.91126 894.4054,698.81959 894.4054,674.01647 894.4054,643.9149 896.72,640.77994 907.5791,656.17398 910.1508,659.81959 913.6387,664.44016 915.3301,666.44192 917.0215,668.44367 920.4304,672.87008 922.9054,676.27837 925.3803,679.68666 929.9745,685.92386 933.1145,690.13881 936.2546,694.35376 940.2602,699.82736 942.016,702.30236 958.5037,725.54443 956.8981,724.40539 965.3061,718.82443 z M 916.4054,638.6616 C 892.1047,637.2995 870.8151,617.90836 889.1554,613.84154 917.4074,607.57686 957.9054,612.87894 957.9054,622.84243 957.9054,629.59073 930.3691,642.0372 921.9054,639.11452 921.6303,639.01956 919.1554,638.81575 916.4054,638.6616 z M 716.9252,678.05236 C 716.9418,677.00532 717.7592,671.21419 719.3601,660.80236 719.5292,659.70236 720.2378,654.75236 720.9347,649.80236 722.5361,638.429 722.2475,638.72029 732.6535,637.97686 737.467,637.63296 746.9054,636.63617 753.6276,635.76178 769.0543,633.75517 767.0719,632.12842 779.7667,657.21147 792.4727,682.3166 790.6308,681.21589 799.1634,668.80236 815.8477,644.52976 815.3939,647.83467 804.0851,632.95729 801.6415,629.7425 798.0557,624.7925 796.1168,621.95729 792.4254,616.55979 786.4884,608.03931 781.4054,600.84433 777.9318,595.92754 768.66,583.29343 762.5977,575.21661 760.292,572.14445 756.9308,567.64445 755.1285,565.21661 740.8358,545.96274 741.3982,546.34614 736.6651,552.63021 721.4787,572.79294 687.1284,618.96833 681.9053,626.24126 678.3303,631.21929 673.5049,637.882 671.18195,641.04729 665.67565,648.55067 665.77215,649.08728 673.4749,653.80236 677.069,656.00236 681.7647,658.92736 683.9098,660.30236 686.0549,661.67736 691.094,664.7947 695.1077,667.22978 699.1215,669.66486 705.1016,673.37736 708.3971,675.47978 714.6619,679.47666 716.892,680.14938 716.9252,678.05236 z M 726.5004,620.45605 C 725.9055,619.49347 726.9775,613.02697 729.427,602.80236 730.3493,598.95236 731.4858,594.00236 731.9525,591.80236 735.6299,574.46849 734.5389,575.10494 743.5232,585.05236 759.8617,603.14217 763.8983,608.18874 762.6474,608.9618 761.1077,609.91331 728.413,621.30236 727.2209,621.30236 727.1122,621.30236 726.7881,620.92152 726.5004,620.45605 z M -193.86952,748.84812 C -224.39672,741.88974 -232.51811,712.5672 -208.59359,695.68634 -205.59465,693.57032 -205.59465,693.57032 -207.92918,685.18634 -209.21318,680.57515 -212.65493,667.80236 -215.57753,656.80236 -224.75901,622.24531 -224.38381,623.16594 -230.38607,620.46667 -251.2816,611.06975 -245.00496,585.95653 -219.23688,575.8581 -207.1941,571.13857 -201.64916,570.18118 -149.09465,563.74739 -112.45457,559.26186 -93.02802,562.23256 -76.17996,574.89748 -69.81685,579.68072 -69.81685,579.68072 -67.49107,576.74154 -60.86959,568.37372 -59.14452,566.68651 -53.10287,562.66908 -32.41343,548.91153 11.22468,543.36062 41.40535,550.64733 70.34809,557.63515 95.42737,573.93125 109.74354,595.05236 115.07087,602.91195 114.78454,602.9755 120.56316,592.65076 135.2687,566.37618 166.39985,541.97543 216.05791,517.80151 233.78796,509.17038 231.09178,508.72792 248.90535,523.19199 294.74505,560.41242 300.90535,566.31951 300.90535,573.05461 300.90535,586.62243 288.91328,594.27713 267.62397,594.29855 262.51501,594.3037 261.87945,596.4312 265.59118,601.10321 283.30767,623.40324 295.65191,643.96947 294.45345,649.18946 286.65235,683.16773 249.56664,699.87539 225.06893,680.44821 217.84528,674.7197 218.01261,674.74161 211.51731,678.67381 192.40469,690.24441 156.28172,681.60767 131.54891,659.55395 127.04836,655.5409 126.75149,655.7254 123.90818,664.30236 114.1686,693.68215 89.05454,710.76961 52.06871,713.18151 44.97253,713.64427 38.73602,714.28898 38.20978,714.61421 23.2553,723.85659 -24.03071,718.25714 -38.13814,705.57335 -43.35032,700.88715 -43.41923,700.9058 -44.52859,707.30236 -46.65378,719.55623 -62.28655,729.59481 -86.59465,734.31508 -89.89465,734.95589 -106.76965,738.63645 -124.09465,742.49409 -159.53516,750.38539 -179.24931,752.18065 -193.86952,748.84812 z M -173.59465,723.89248 C -155.46102,719.52718 -97.44353,707.36495 -82.32675,704.75995 -70.27585,702.68328 -70.60622,704.58186 -79.15851,686.55236 -82.75022,678.98052 -85.53734,674.30236 -86.45674,674.30236 -87.89042,674.30236 -117.20022,684.28937 -131.59032,689.68117 -142.48325,693.76262 -144.15294,692.08183 -147.19596,673.97182 -148.80064,664.42181 -150.49784,665.52178 -124.59311,659.32272 -104.85534,654.59943 -103.21416,651.40993 -112.93279,636.6618 -125.64713,617.36766 -128.6826,616.28479 -140.97897,626.65661 -153.92262,637.57441 -164.07573,644.72128 -165.13602,643.66099 -166.15475,642.64226 -171.09465,621.64248 -171.09465,618.33051 -171.09465,615.65375 -173.74602,616.40724 -136.09465,608.38393 -96.22882,599.88873 -94.46198,599.45962 -93.27967,597.98569 -82.39285,584.41357 -105.56445,576.35213 -142.59465,580.82892 -194.27062,587.07632 -197.84023,587.69406 -208.67226,592.26401 -222.91295,598.27204 -225.13111,604.15561 -214.36076,607.35255 -208.08953,609.21402 -207.45763,610.42892 -203.1657,628.87605 -200.99976,638.18552 -196.2727,658.4834 -192.66113,673.98246 -184.63987,708.40576 -184.58313,704.79827 -193.1765,706.75279 -204.69724,709.37312 -207.69337,712.92815 -205.07289,720.86828 -203.02747,727.06598 -191.41281,728.18183 -173.59465,723.89248 z M 5.90535,689.40338 C 11.68035,688.39351 18.20535,687.09446 20.40535,686.5166 27.55236,684.63933 39.2669,682.39673 45.40535,681.73067 74.98536,678.52105 89.06295,667.99129 94.2499,645.19591 98.06558,628.42689 97.32419,623.22664 88.63359,605.80236 71.01205,570.4719 46.91521,559.98814 -8.09465,563.71902 -44.15633,566.16479 -55.82079,573.93088 -57.7523,596.78062 -58.91454,610.52984 -56.38636,612.73562 -40.33577,611.97623 -21.08759,611.06555 -17.27381,616.21074 -16.83227,643.685 -16.59465,658.47065 -16.59465,658.47065 -23.88564,665.13651 -44.06367,683.58447 -29.35139,695.56867 5.90535,689.40338 z M 20.3979,664.2903 C 19.99048,663.63109 19.45063,661.45162 19.19822,659.44704 18.94582,657.44247 16.97008,643.90645 14.80768,629.36701 12.64529,614.82756 11.22015,602.62869 11.6407,602.2584 13.46513,600.65205 27.97983,599.60567 37.40574,600.40097 74.37647,603.52034 90.59622,651.00812 58.40535,661.88308 49.33085,664.9487 21.87935,666.68735 20.3979,664.2903 z M 54.45326,646.84679 C 61.28228,643.99344 58.96505,627.61037 51.46626,625.72829 45.85261,624.31936 45.38011,625.06396 45.68975,634.83126 46.14999,649.34909 46.69055,650.09025 54.45326,646.84679 z M -50.67747,674.05236 C -50.48255,673.36486 -49.80953,670.90964 -49.18188,668.59631 -48.5111,666.12399 -44.75424,660.01114 -40.06768,653.76642 -27.89312,637.54414 -28.87982,634.37443 -48.59465,626.37418 -52.99465,624.58866 -59.68054,621.31822 -63.45219,619.10653 -70.30974,615.08526 -70.30974,615.08526 -73.20548,617.22618 -80.38761,622.53615 -83.44545,624.20744 -88.21533,625.42993 -94.13524,626.94715 -94.60833,627.68098 -93.15238,633.08795 -92.21949,636.55245 -91.61676,637.16943 -88.61505,637.73255 -81.20966,639.12182 -78.27825,643.41713 -75.63242,656.75566 -73.98779,665.04683 -73.16932,666.26162 -69.21067,666.28705 -64.57966,666.31679 -59.17648,668.62271 -55.95873,671.9426 -52.46824,675.54387 -51.23952,676.03472 -50.67747,674.05236 z M 238.02726,661.31836 C 248.37897,656.91332 265.00082,641.31269 264.8728,636.12218 264.69799,629.03482 240.87485,591.77782 236.32858,591.48189 222.08965,590.55503 219.90535,592.34475 219.90535,604.93841 219.90535,619.80938 215.80124,626.74046 203.19519,633.15878 191.51369,639.10635 175.01289,628.79655 165.49267,609.60202 162.87029,604.31481 163.48162,602.9299 172.40242,593.94865 190.58397,575.6439 205.39494,570.51127 246.65001,568.21871 259.43457,567.50827 270.43559,566.59269 271.09671,566.18409 272.86924,565.08861 246.95261,541.84412 233.78274,532.71739 229.41947,529.69365 229.14377,529.74881 212.90535,536.89431 164.5838,558.15759 135.05389,588.24759 132.37555,618.95151 129.89194,647.42318 168.748,668.46091 197.01533,653.94925 221.33136,641.46608 221.90535,641.27328 221.90535,645.58885 221.90535,651.43591 227.86337,664.30236 230.57095,664.30236 230.81516,664.30236 234.17051,662.95956 238.02726,661.31836 z M 200.28489,618.32282 C 202.46935,616.13836 201.55531,608.82359 199.05364,608.46948 192.67635,607.56679 189.91681,611.95673 192.54926,618.81679 193.23195,620.59585 198.33791,620.2698 200.28489,618.32282 z M 384.40535,688.30227 C 348.29379,687.54501 345.81972,687.28015 331.90829,682.68238 300.34129,672.24937 294.2042,641.37678 320.77832,626.69312 327.29526,623.09215 326.82347,627.02397 325.08489,590.80236 323.16571,550.81797 323.49995,552.64353 316.93737,546.30236 310.87482,540.44435 309.90535,538.07657 309.90535,529.1277 309.90535,508.42146 328.90334,502.60252 383.90535,506.46206 434.29385,509.99786 457.23815,515.70428 471.07035,528.14065 475.68385,532.28858 476.18145,532.49672 478.70545,531.33444 521.65355,511.55678 535.35155,508.48736 545.11375,516.45376 568.19415,535.28825 569.14355,537.01449 567.71485,557.55089 566.42535,576.08707 566.42245,576.06954 571.37945,579.85044 576.15135,583.4901 577.01975,582.47742 578.03165,572.09316 578.47605,567.53322 579.53265,558.62736 580.37975,552.30236 581.22695,545.97736 582.32965,536.761 582.83035,531.82157 585.04635,509.95982 619.39755,515.19656 655.42675,542.88867 672.27695,555.83971 672.82175,557.24286 666.92535,572.50235 664.73635,578.16736 658.60785,594.27736 653.30645,608.30236 628.74495,673.28019 610.59835,694.59801 593.63185,678.4055 584.42645,669.62005 567.06715,654.74851 564.23195,653.21893 562.00025,652.01493 561.31685,652.42538 539.53785,668.04966 537.81495,669.28567 534.97945,671.31067 533.23665,672.54966 531.49395,673.78864 526.25135,677.57496 521.58665,680.96369 509.50615,689.73961 509.84445,689.60995 503.41005,687.92971 496.83865,686.21366 491.04935,682.95278 484.80565,677.45049 480.20595,673.39699 480.20595,673.39699 476.96645,676.73928 465.74475,688.31718 454.15545,689.76495 384.40535,688.30227 z M 501.96095,661.78274 C 504.32985,660.94695 507.86585,659.03445 509.81865,657.53274 511.77155,656.03103 515.02815,653.67736 517.05555,652.30236 519.08305,650.92736 525.98135,645.30236 532.38525,639.80236 558.46225,617.40593 556.39575,617.37399 578.18265,640.51016 591.05485,654.17951 595.92505,657.75435 598.29795,655.27517 599.85955,653.64376 611.90535,630.3644 611.90535,628.97811 611.90535,628.49769 612.55225,626.68661 613.34285,624.95349 616.42855,618.18955 624.32035,597.56653 629.85555,581.80236 630.82115,579.05236 633.70235,571.26868 636.25825,564.50529 641.92435,549.51172 642.10225,551.41358 634.65535,547.37219 631.21785,545.50669 627.28035,543.21643 625.90535,542.28274 612.81775,533.39558 598.61895,531.89039 597.79085,539.30236 597.45285,542.32736 596.68675,548.40236 596.08855,552.80236 594.07385,567.61881 592.68255,578.73486 591.26955,591.30236 588.09425,619.54556 589.23255,618.41377 576.21885,606.26688 559.84825,590.98667 556.60585,590.35043 544.65325,600.07285 529.80255,612.15268 524.14845,613.88852 525.23445,606.03461 525.94585,600.88947 528.61105,582.21127 529.90505,573.30236 531.21175,564.30592 533.89565,545.02023 534.84555,537.80236 536.57435,524.66559 526.67805,524.01732 499.17045,535.4654 487.93175,540.14273 486.67725,552.47243 495.01535,576.30236 501.61265,595.15695 501.48325,602.18473 494.03945,629.30236 488.52315,649.39839 488.73115,648.14605 489.94155,653.97656 491.77595,662.81307 494.33325,664.47394 501.96095,661.78274 z M 389.90535,659.87427 C 396.23035,659.91382 413.33035,660.13882 427.90535,660.37427 454.40535,660.80236 454.40535,660.80236 454.09585,657.30236 453.76375,653.54679 448.21195,631.27562 447.40725,630.47095 446.61605,629.67975 413.23415,633.28524 402.19275,635.35444 387.45385,638.11658 387.53775,638.20346 387.76045,620.39563 387.93195,606.68014 384.80955,608.68035 407.84765,607.52796 434.80965,606.1793 435.85475,605.104 428.26775,586.51694 420.45895,567.38664 416.50605,564.54803 406.07365,570.5794 399.46735,574.39874 378.43715,584.30236 376.93315,584.30236 376.27665,584.30236 375.90535,579.06379 375.90535,569.80236 375.90535,555.30236 375.90535,555.30236 414.47105,555.30236 461.47445,555.30236 459.18895,556.28729 455.36695,537.67895 453.61035,529.12654 364.07295,519.17421 340.29557,524.88846 328.90844,527.62504 327.60064,533.19298 337.09204,538.52744 342.15776,541.37454 341.76754,537.84243 342.86924,590.8193 343.99685,645.04228 344.91796,640.30236 333.25318,640.30236 320.42064,640.30236 316.09019,654.03658 327.40535,658.84897 330.38511,660.11627 355.89507,661.09724 367.90535,660.40636 373.68035,660.07416 383.58035,659.83472 389.90535,659.87427 z M 479.15335,627.05612 C 483.82675,618.05076 483.52905,602.55633 478.30305,582.80236 476.17035,574.74047 475.91275,574.59123 469.42985,577.66074 463.22725,580.59752 457.07885,582.24088 452.15535,582.27791 446.80585,582.31815 447.17945,591.29132 452.64215,593.97 459.32515,597.24702 460.90535,600.95754 460.90535,613.37269 460.90535,624.14726 460.90535,624.14726 464.65535,625.37355 466.71785,626.04801 469.97495,627.65971 471.89335,628.9551 476.13945,631.82226 476.76485,631.65868 479.15335,627.05612 z"
+       style="fill:#70778f" />
+    <path
+       style="fill:#fe8902;fill-opacity:1"
+       d="M -544.27593,815.15562 C -554.52457,812.75752 -561.81921,805.22882 -562.72896,796.11042 -564.74585,775.89532 -568.08732,750.60342 -569.90236,741.81402 -571.36304,734.74072 -572.1632,729.20122 -574.74138,708.31402 -575.5221,701.98902 -576.62818,693.88903 -577.19933,690.31403 -578.45487,682.45537 -580.90982,656.9568 -582.25394,637.81403 -587.57342,562.05449 -568.11115,525.23519 -531.81168,542.38587 -523.32213,546.39699 -515.72072,554.89627 -509.8569,566.93393 -500.33927,586.4724 -496.4382,595.04125 -494.88784,599.81403 -491.75176,609.46851 -491.44175,609.62832 -478.24708,608.39237 -471.95553,607.80304 -455.47196,607.31933 -441.61692,607.31745 -412.61149,607.31351 -413.6706,607.77009 -420.30332,598.12929 -423.07135,594.1059 -426.88742,588.48758 -428.78348,585.64413 -432.90381,579.46504 -443.89098,557.05307 -444.878,552.81403 -445.26218,551.16403 -446.14151,549.13903 -446.83206,548.31403 -448.4472,546.38442 -455.3079,524.31516 -455.3079,521.04925 -455.3079,513.42223 -451.94871,509.05147 -442.3079,504.13446 -440.9329,503.43318 -438.18943,501.87463 -436.21131,500.67102 -421.5056,491.72315 -384.3079,495.25311 -384.3079,505.59651 -384.3079,506.09608 -381.8329,510.09776 -378.8079,514.48915 -375.7829,518.88054 -373.3079,522.81787 -373.3079,523.23877 -373.3079,523.65968 -372.4079,524.81854 -371.3079,525.81403 -370.2079,526.80952 -369.29789,528.11676 -369.28566,528.71902 -369.27343,529.32127 -368.34938,530.93903 -367.2322,532.31403 -364.26375,535.96756 -344.22512,565.96802 -340.84841,571.81403 -339.25999,574.56403 -336.23856,579.10492 -334.13413,581.9049 -332.02971,584.70488 -330.3079,587.46228 -330.3079,588.03245 -330.3079,588.60263 -329.58602,589.66825 -328.70372,590.40049 -327.82143,591.13273 -326.70421,592.65033 -326.22102,593.77293 -325.73783,594.89554 -324.3222,597.40293 -323.07519,599.34492 -321.82818,601.28691 -319.9079,604.37205 -318.8079,606.20079 -317.7079,608.02952 -312.96077,615.44062 -308.25872,622.6699 -303.55667,629.89917 -299.40159,636.48903 -299.0252,637.31403 -298.64882,638.13903 -296.87095,641.31195 -295.07438,644.36496 -293.27782,647.41796 -290.4579,652.29494 -288.8079,655.20267 -287.1579,658.11041 -284.1373,663.26249 -282.09545,666.65175 -278.41516,672.76064 -274.0651,681.24467 -270.80678,688.66831 -264.47527,703.09382 -267.29834,723.82762 -277.69062,739.22602 -291.59242,759.82452 -298.65666,761.88482 -312.84628,749.47902 -326.47639,737.56242 -349.3079,711.44932 -349.3079,707.77682 -349.3079,707.37862 -350.8829,704.86062 -352.8079,702.18112 -354.7329,699.50172 -356.3079,696.93122 -356.3079,696.46902 -356.3079,696.00682 -357.42723,693.64532 -358.7953,691.22131 -360.16337,688.79731 -361.78909,685.68903 -362.40801,684.31403 -363.02693,682.93903 -364.2218,680.51092 -365.06328,678.91822 -365.90476,677.32552 -367.86135,671.79867 -369.41126,666.63633 -370.96117,661.47398 -372.45948,656.87778 -372.74084,656.42254 -373.0222,655.96729 -380.57738,655.27647 -389.53015,654.88737 -398.48291,654.49827 -408.9579,653.7618 -412.8079,653.25076 -433.57242,650.49452 -444.12742,654.62428 -464.80261,673.59427 -474.04761,682.07678 -474.04071,682.05073 -470.33814,694.50308 -468.65193,700.17412 -466.60317,707.06402 -465.78535,709.81402 -458.36136,734.77782 -461.91135,768.95712 -473.78634,786.84752 -486.69937,806.30182 -521.8264,820.40852 -544.27593,815.15562 z M 1230.1923,785.86832 C 1213.6939,784.22972 1202.3195,782.71132 1192.1923,780.79562 1187.7923,779.96332 1177.6673,778.16712 1169.6923,776.80412 1161.7173,775.44122 1153.1673,773.87212 1150.6923,773.31742 1146.5168,772.38162 1142.1401,771.49332 1130.6923,769.25812 1128.2173,768.77492 1123.0423,767.64512 1119.1923,766.74752 1115.3423,765.84992 1110.3923,764.75472 1108.1923,764.31382 1095.0569,761.68122 1091.5391,760.88592 1085.5371,759.19212 1081.8767,758.15922 1077.8267,757.30732 1076.5371,757.29902 1075.2474,757.29072 1070.5923,756.16582 1066.1923,754.79912 1061.7923,753.43252 1057.0673,752.30942 1055.6923,752.30332 1052.5131,752.28942 1043.8344,749.67682 1042.0512,748.19702 1039.2771,745.89462 1040.4043,739.00882 1044.4423,733.58982 1050.3532,725.65742 1069.3376,701.54942 1076.0697,693.42655 1096.122,669.23164 1092.9534,670.37659 1119.2659,677.81842 1140.461,683.81293 1144.9834,685.2016 1172.6923,694.2236 1177.9173,695.92482 1183.1344,697.31612 1184.2857,697.31542 1185.4371,697.31462 1189.0371,698.23182 1192.2857,699.35362 1195.5344,700.47542 1202.2423,702.03182 1207.1923,702.81222 1212.1423,703.59272 1219.7923,704.90112 1224.1923,705.71972 1233.5022,707.45172 1240.6923,707.72592 1240.6923,706.34882 1240.6923,703.51522 1224.0016,689.46208 1213.493,683.44772 1211.6776,682.40873 1207.2673,679.86091 1203.6923,677.78589 1196.2415,673.46127 1190.7397,670.37081 1183.9529,666.69786 1181.3346,665.28087 1178.7423,663.77001 1178.1923,663.3404 1177.6423,662.9108 1173.8173,660.77116 1169.6923,658.58564 1162.1001,654.56315 1158.4499,652.53812 1141.9722,643.20747 1116.0958,628.55474 1104.4749,610.65116 1108.3298,591.37674 1109.1382,587.33443 1136.9327,567.0654 1146.3364,563.66055 1147.3572,563.29097 1149.318,562.2108 1150.6938,561.26019 1184.0861,538.18766 1248.0177,530.87937 1319.8739,541.9205 1343.9601,545.62149 1369.1953,627.77648 1352.4775,648.06403 1349.6145,651.5383 1330.313,646.53962 1311.1923,637.37206 1302.3833,633.14855 1237.4573,610.91209 1226.1923,608.26049 1171.7714,595.45072 1174.8897,611.20222 1233.7374,646.37357 1241.9648,651.29082 1248.8874,655.31403 1249.1209,655.31403 1249.3544,655.31403 1253.2116,657.56403 1257.6923,660.31403 1262.173,663.06403 1266.0232,665.31403 1266.2481,665.31403 1266.473,665.31403 1269.5979,667.11403 1273.1923,669.31403 1276.7867,671.51403 1280.0146,673.31403 1280.3655,673.31403 1280.7164,673.31403 1282.4785,674.43903 1284.2812,675.81403 1286.0839,677.18903 1287.8439,678.31403 1288.1923,678.31403 1288.5407,678.31403 1290.3007,679.43903 1292.1034,680.81403 1293.9061,682.18903 1295.68,683.31403 1296.0453,683.31403 1298.5268,683.31403 1316.9098,699.94392 1323.3812,708.04302 1335.3688,723.04562 1340.8099,754.24452 1333.0342,763.39282 1332.2961,764.26112 1331.6923,765.45342 1331.6923,766.04242 1331.6923,767.84032 1321.1635,776.85802 1315.774,779.67612 1302.7416,786.49062 1264.3945,789.26512 1230.1923,785.86832 z M -203.8555,728.90832 C -216.83027,723.25672 -212.70609,702.54302 -198.05897,699.79512 -196.03507,699.41542 -193.91188,698.54182 -193.34076,697.85362 -192.31039,696.61212 -201.86643,652.08895 -204.40276,646.31403 -205.00665,644.93903 -205.8674,641.78903 -206.31553,639.31403 -207.51491,632.68995 -211.16589,618.15086 -212.26849,615.60789 -212.7946,614.39452 -215.38119,612.43166 -218.01648,611.24599 -230.5486,605.60752 -229.49256,591.82062 -216.08375,586.01375 -209.07322,582.97774 -207.03388,582.28636 -199.05716,580.24141 -194.52007,579.07825 -183.3829,577.2725 -174.3079,576.22863 -165.2329,575.18475 -149.7079,573.3912 -139.8079,572.24296 -105.3501,568.24641 -92.489539,570.06739 -89.294359,579.3954 -88.461909,581.82565 -87.423279,584.37583 -86.986309,585.06247 -86.549329,585.74911 -85.939769,589.34911 -85.631729,593.06247 -84.822549,602.81693 -83.825419,602.22727 -111.24218,608.20752 -123.50139,610.88155 -126.83597,612.64142 -121.96155,613.86482 -116.25491,615.2971 -101.42765,636.75362 -100.59948,644.77786 -99.522759,655.21024 -103.41371,658.51901 -122.3079,663.23821 -142.44642,668.26819 -141.46594,667.6979 -140.10904,673.59228 -138.16508,682.03687 -136.18164,683.77438 -131.29433,681.31403 -130.20179,680.76403 -128.41401,679.86403 -127.32147,679.31403 -126.22893,678.76403 -124.45549,678.31403 -123.38049,678.31403 -122.30548,678.31403 -121.16922,677.89865 -120.85545,677.39097 -120.54168,676.88328 -118.8424,676.15106 -117.07926,675.76381 -115.31612,675.37656 -113.18378,674.71179 -112.34072,674.28654 -111.49767,673.86129 -108.1079,672.69914 -104.8079,671.70399 -101.5079,670.70883 -98.261876,669.49756 -97.594519,669.01227 -96.927169,668.52698 -92.837539,667.88704 -88.506459,667.59019 -79.624759,666.98142 -79.339059,667.18157 -74.625739,677.31403 -73.474449,679.78903 -70.906949,685.14737 -68.920189,689.22145 -62.099459,703.20812 -63.691449,706.19302 -79.307899,708.69772 -91.598589,710.66902 -150.12673,722.85282 -168.50347,727.26552 -182.67226,730.66782 -198.16342,731.38762 -203.8555,728.90832 z M -153.09536,626.82173 C -150.18726,624.35097 -146.1204,621.19533 -144.0579,619.80919 -140.17761,617.20138 -138.84137,613.76788 -142.0579,614.67015 -143.0204,614.94014 -147.6329,615.93467 -152.3079,616.88022 -162.42679,618.92683 -164.17358,620.11865 -162.48525,623.82414 -161.83771,625.24534 -161.3079,627.51196 -161.3079,628.86108 -161.3079,632.472 -159.10063,631.92389 -153.09536,626.82173 z M 950.4804,722.06402 C 948.5815,719.72652 944.2374,713.76402 940.8269,708.81402 932.7174,697.04412 927.5252,689.8465 923.1529,684.31403 917.4015,677.03646 910.0191,667.20096 906.0922,661.58423 900.9667,654.25327 900.6921,655.03477 900.6921,676.94997 900.6921,696.46792 900.6921,696.46792 897.9421,699.18882 889.4545,707.58692 858.6781,711.35442 850.3643,705.01312 845.5258,701.32272 845.5047,697.35432 850.1921,672.60469 852.1171,662.4406 853.6938,652.70466 853.6958,650.96927 853.6978,649.23389 855.0461,640.83903 856.6921,632.31403 860.5334,612.41864 860.5251,612.17712 855.8106,606.49344 841.0116,588.65251 850.7022,571.82397 877.2772,569.21497 940.2104,563.03649 984.71623,585.59328 984.68653,623.65312 984.67433,639.3802 978.65673,646.13696 961.25753,649.96016 951.521,652.09958 950.7987,650.56566 972.72633,674.31403 997.68303,701.34302 997.63913,700.87182 976.69213,716.96202 961.99843,728.24872 956.3913,729.34012 950.4804,722.06402 z M 939.8152,628.41506 C 960.1509,618.72912 936.8238,612.26816 899.1921,617.16359 893.1578,617.94858 890.8101,625.26781 895.9641,627.22735 907.3942,631.57306 931.7973,632.23402 939.8152,628.41506 z M -21.166519,694.62248 C -39.587869,693.17692 -43.689179,673.9346 -28.615989,659.67138 -20.050159,651.56583 -20.207209,652.13135 -21.712789,634.81403 -23.173279,618.01539 -24.512659,616.75902 -41.968569,615.81364 -62.305479,614.71224 -63.850509,613.1325 -62.995899,594.31403 -62.123449,575.10295 -51.546409,560.31403 -38.679089,560.31403 -37.439849,560.31403 -36.189489,559.93145 -35.900489,559.46385 -35.254829,558.41914 -22.263979,556.66951 -4.3078979,555.20889 19.729461,553.2536 45.089441,555.96283 58.343231,561.90198 60.076351,562.67861 61.768941,563.31403 62.104541,563.31403 67.294191,563.31403 87.599151,584.5405 91.758721,594.31403 92.343921,595.68903 94.410141,600.18903 96.350331,604.31403 104.58035,621.81169 105.09612,626.18407 101.06877,644.31403 95.288271,670.33624 79.633391,682.49015 47.692101,685.75385 40.778481,686.46027 29.422061,688.64006 21.192101,690.84035 10.171973,693.78659 -9.4696676,695.54032 -21.166519,694.62248 z M 52.963451,655.55665 C 53.639211,655.02488 55.466991,654.2848 57.025191,653.91201 67.030591,651.5183 73.104501,641.62936 69.801381,633.11108 63.508801,616.88343 59.783741,611.97808 50.240901,607.35284 40.548691,602.6552 18.663661,602.87906 18.714991,607.67532 18.756221,611.52695 25.519931,655.22643 26.260251,656.4243 27.137881,657.84433 51.043361,657.06758 52.963451,655.55665 z M 705.6921,678.81403 C 702.1171,676.34573 698.8504,674.32347 698.4328,674.32012 698.0152,674.31677 693.7402,671.77214 688.9328,668.66538 684.1254,665.55863 678.6171,662.02692 676.6921,660.81713 658.4915,649.37882 657.7522,647.62341 666.2529,636.03268 668.7614,632.61242 675.0404,623.96403 680.2062,616.81403 685.372,609.66403 691.3071,601.58313 693.3954,598.85648 695.4836,596.12983 698.8292,591.38929 700.83,588.32195 702.8309,585.25461 705.1934,582.14291 706.08,581.40705 706.9667,580.6712 707.6921,579.62263 707.6921,579.0769 707.6921,578.05966 723.6572,556.55627 732.388,545.81403 741.2034,534.96762 747.6019,537.36216 759.0675,555.7985 760.0989,557.45704 762.3489,560.42361 764.0675,562.39087 765.786,564.35813 768.9921,568.5782 771.1921,571.76881 773.3921,574.95942 777.3625,580.46398 780.0153,584.00117 782.668,587.53837 785.368,591.64329 786.0153,593.12323 786.6625,594.60317 788.8946,598.06403 790.9753,600.81403 799.4475,612.01094 804.6921,619.27273 804.6921,619.80644 804.6921,620.11715 806.9421,623.27057 809.6921,626.81403 812.4421,630.35749 814.6921,633.52462 814.6921,633.85208 814.6921,634.17955 815.8171,635.92242 817.1921,637.72514 821.106,642.85652 820.6208,647.72886 815.4421,655.29761 813.1046,658.71392 810.5171,662.5499 809.6921,663.82201 791.9239,691.21961 791.4365,691.18342 776.4523,661.35412 770.5233,649.55117 765.3074,639.52929 764.8613,639.08327 763.914,638.13592 729.7162,641.85869 728.6454,643.02574 728.2476,643.4593 726.9162,651.91403 725.6866,661.81403 722.6764,686.051 719.7624,688.5286 705.6921,678.81403 z M 744.9736,607.22308 C 753.9761,604.196 754.3962,603.63266 750.4745,599.84631 748.6692,598.10333 745.7549,594.97833 743.9983,592.90187 740.5889,588.87158 738.6921,588.87903 738.6921,592.92271 738.6921,594.29256 738.0703,596.6285 737.3103,598.11369 732.1193,608.25847 734.2747,610.82059 744.9736,607.22308 z M 223.79245,664.92085 C 222.5559,663.6046 220.89752,660.5671 220.10715,658.17085 219.31679,655.7746 218.39758,653.02653 218.06448,652.06403 217.2726,649.7759 213.5843,649.82908 210.57696,652.17198 165.71159,687.12476 102.5412,633.01912 135.72465,588.06075 136.84235,586.54644 138.76514,583.82164 139.99751,582.00564 149.50288,567.9987 164.53909,553.87515 179.1921,545.19009 183.5921,542.58215 189.05197,539.29217 191.32515,537.87904 193.59833,536.4659 197.19833,534.60629 199.32515,533.74655 201.45197,532.88682 205.4421,531.09179 208.1921,529.75759 217.76397,525.11368 226.36663,522.31403 231.06437,522.31403 236.18631,522.31403 234.21665,521.00086 257.01145,539.61297 289.36518,566.03003 288.33551,570.33254 249.1921,572.28645 235.4421,572.9728 223.43418,573.93479 222.50784,574.4242 221.5815,574.91361 219.07852,575.31403 216.94567,575.31403 214.81282,575.31403 211.20497,576.21403 208.92824,577.31403 206.6515,578.41403 203.93469,579.31403 202.89089,579.31403 201.84708,579.31403 199.01285,580.65584 196.59258,582.29583 194.17232,583.93582 191.6446,585.28582 190.97543,585.29583 190.30627,585.30584 188.22601,586.77653 186.35263,588.56403 184.47926,590.35153 181.08646,593.30429 178.81308,595.12572 170.43901,601.835 170.65047,606.30486 179.83559,616.73971 189.45667,627.66982 197.93943,629.28475 206.99148,621.90958 213.37306,616.71017 214.99862,612.46082 215.63523,599.31403 216.31191,585.33981 216.81608,584.9118 233.84515,583.85461 246.7189,583.05539 244.62359,580.96643 260.54481,610.47343 273.57242,634.61765 273.77944,635.57391 267.74666,643.74018 262.5447,650.78181 250.32194,661.34355 244.68637,663.66669 242.21452,664.68565 239.41071,665.92315 238.45567,666.41669 234.72234,668.34598 226.19275,667.47585 223.79245,664.92085 z M 489.0049,664.06403 C 484.1832,658.73496 483.1777,644.72828 486.7556,632.73244 487.8906,628.92731 489.7031,622.88903 490.7834,619.31403 495.9799,602.11792 496.1812,594.29312 491.7482,581.81403 483.5153,558.63809 483.17572,539.10922 489.41062,533.28665 512.75902,511.48238 558.3721,523.33874 540.7049,546.81403 540.291,547.36403 539.6992,550.73903 539.3897,554.31403 538.4259,565.4498 536.5998,577.62244 535.1893,582.31403 530.4703,598.0099 532.2027,600.84604 541.7475,593.05073 554.982,582.24212 561.6099,582.55398 575.8758,594.65655 585.1844,602.55367 586.2804,601.48886 587.0361,583.81403 587.2477,578.86403 587.9269,570.98903 588.5454,566.31403 590.784,549.39306 591.8333,540.70129 592.3485,534.81403 593.6301,520.1672 610.5463,522.16673 641.6921,540.64656 647.5216,544.10537 649.4374,552.4099 646.0218,559.41418 642.7967,566.02782 639.6886,573.73294 639.6603,575.18487 639.6428,576.08091 638.9678,577.68754 638.1603,578.75516 637.3528,579.82278 636.6891,581.62278 636.6855,582.75516 636.6819,583.88754 635.7849,586.16403 634.6921,587.81403 633.5993,589.46403 632.687,591.48903 632.6648,592.31403 632.6425,593.13903 631.7548,595.61403 630.6921,597.81403 629.6294,600.01403 628.7447,602.51153 628.726,603.36403 628.7074,604.21653 628.334,605.34153 627.8962,605.86403 627.4585,606.38653 626.5212,608.61403 625.8133,610.81403 624.2403,615.70277 622.1285,620.87468 620.1658,624.64507 619.3553,626.20214 618.6921,628.0306 618.6921,628.7083 618.6921,630.7133 605.799,655.57133 603.4772,658.04275 597.6871,664.20604 590.7525,660.44916 572.9122,641.48402 556.7415,624.29366 558.2667,624.5147 543.6357,637.24124 529.8768,649.20915 520.6618,656.80875 519.4188,657.21288 518.7441,657.43225 516.8455,658.73252 515.1996,660.10236 507.537,666.47988 493.1584,668.6545 489.0049,664.06403 z M 443.4486,664.73725 C 443.1314,664.42002 417.0689,664.06755 385.532,663.95398 315.54315,663.70196 316.6921,663.96607 316.6921,648.12951 316.6921,636.32632 319.58014,633.17893 331.1921,632.32737 338.1921,631.81403 338.1921,631.81403 338.50193,609.31403 339.05465,569.17548 337.12245,542.90278 333.53401,541.76386 320.87658,537.74654 321.85131,521.91914 335.01715,517.68116 358.10202,510.25031 457.8369,520.67401 461.7342,530.92489 469.577,551.55289 464.6582,558.30807 441.2729,559.02523 420.9325,559.64901 420.3396,559.78007 423.7788,562.89251 430.4451,568.92539 438.6921,588.19039 438.6921,597.72987 438.6921,607.67538 435.6266,609.25726 414.0701,610.43536 392.1109,611.63546 393.6702,611.08973 393.7918,617.53265 394.0075,628.96355 393.1346,628.57173 412.6921,626.01654 440.8729,622.33471 450.6529,621.82172 452.6617,623.92001 456.9794,628.43003 462.5275,661.07861 459.4921,664.11403 458.2823,665.32381 444.568,665.85655 443.4486,664.73725 z M 392.2432,568.99886 C 408.8629,560.25157 409.1158,559.16248 394.4421,559.53128 383.1921,559.81403 383.1921,559.81403 382.8944,566.06403 382.536,573.58725 383.1557,573.7818 392.2432,568.99886 z"
+       id="path3038"
+       inkscape:connector-curvature="0"
+       sodipodi:nodetypes="sssssssssssssssssssssssssssssssssssssssscssssssssssssssscscsccscccsssscscssssssssccsssssssssssssssscssscscssssssssssssssssssssssssssssscssssssssssssccsssssssssssssssssssscsssssssssssssssssssssscccssccscccssssssscssssssscsssssssssssssssssssssssssssssssscsssccssssscsscssscsccccsssscsscssssssssssssssscssss" />
+    <path
+       inkscape:connector-curvature="0"
+       id="path3048"
+       d="M -544.27593,815.15562 C -554.52457,812.75752 -561.81921,805.22882 -562.72896,796.11042 -564.74585,775.89532 -568.08732,750.60342 -569.90236,741.81402 -571.36304,734.74072 -572.1632,729.20122 -574.74138,708.31402 -575.5221,701.98902 -576.62818,693.88903 -577.19933,690.31403 -578.45487,682.45537 -580.90982,656.9568 -582.25394,637.81403 -587.57342,562.05449 -568.11115,525.23519 -531.81168,542.38587 -523.32213,546.39699 -515.72072,554.89627 -509.8569,566.93393 -500.33927,586.4724 -496.4382,595.04125 -494.88784,599.81403 -491.75176,609.46851 -491.44175,609.62832 -478.24708,608.39237 -471.95553,607.80304 -455.47196,607.31933 -441.61692,607.31745 -412.61149,607.31351 -413.6706,607.77009 -420.30332,598.12929 -423.07135,594.1059 -426.88742,588.48758 -428.78348,585.64413 -432.90381,579.46504 -443.89098,557.05307 -444.878,552.81403 -445.26218,551.16403 -446.14151,549.13903 -446.83206,548.31403 -448.4472,546.38442 -455.3079,524.31516 -455.3079,521.04925 -455.3079,513.42223 -451.94871,509.05147 -442.3079,504.13446 -440.9329,503.43318 -438.18943,501.87463 -436.21131,500.67102 -421.5056,491.72315 -384.3079,495.25311 -384.3079,505.59651 -384.3079,506.09608 -381.8329,510.09776 -378.8079,514.48915 -375.7829,518.88054 -373.3079,522.81787 -373.3079,523.23877 -373.3079,523.65968 -372.4079,524.81854 -371.3079,525.81403 -370.2079,526.80952 -369.29789,528.11676 -369.28566,528.71902 -369.27343,529.32127 -368.34938,530.93903 -367.2322,532.31403 -364.26375,535.96756 -344.22512,565.96802 -340.84841,571.81403 -339.25999,574.56403 -336.23856,579.10492 -334.13413,581.9049 -332.02971,584.70488 -330.3079,587.46228 -330.3079,588.03245 -330.3079,588.60263 -329.58602,589.66825 -328.70372,590.40049 -327.82143,591.13273 -326.70421,592.65033 -326.22102,593.77293 -325.73783,594.89554 -324.3222,597.40293 -323.07519,599.34492 -321.82818,601.28691 -319.9079,604.37205 -318.8079,606.20079 -317.7079,608.02952 -312.96077,615.44062 -308.25872,622.6699 -303.55667,629.89917 -299.40159,636.48903 -299.0252,637.31403 -298.64882,638.13903 -296.87095,641.31195 -295.07438,644.36496 -293.27782,647.41796 -290.4579,652.29494 -288.8079,655.20267 -287.1579,658.11041 -284.1373,663.26249 -282.09545,666.65175 -278.41516,672.76064 -274.0651,681.24467 -270.80678,688.66831 -264.47527,703.09382 -267.29834,723.82762 -277.69062,739.22602 -291.59242,759.82452 -298.65666,761.88482 -312.84628,749.47902 -326.47639,737.56242 -349.3079,711.44932 -349.3079,707.77682 -349.3079,707.37862 -350.8829,704.86062 -352.8079,702.18112 -354.7329,699.50172 -356.3079,696.93122 -356.3079,696.46902 -356.3079,696.00682 -357.42723,693.64532 -358.7953,691.22131 -360.16337,688.79731 -361.78909,685.68903 -362.40801,684.31403 -363.02693,682.93903 -364.2218,680.51092 -365.06328,678.91822 -365.90476,677.32552 -367.86135,671.79867 -369.41126,666.63633 -370.96117,661.47398 -372.45948,656.87778 -372.74084,656.42254 -373.0222,655.96729 -380.57738,655.27647 -389.53015,654.88737 -398.48291,654.49827 -408.9579,653.7618 -412.8079,653.25076 -433.57242,650.49452 -444.12742,654.62428 -464.80261,673.59427 -474.04761,682.07678 -474.04071,682.05073 -470.33814,694.50308 -468.65193,700.17412 -466.60317,707.06402 -465.78535,709.81402 -458.36136,734.77782 -461.91135,768.95712 -473.78634,786.84752 -486.69937,806.30182 -521.8264,820.40852 -544.27593,815.15562 z M 1230.1923,785.86832 C 1213.6939,784.22972 1202.3195,782.71132 1192.1923,780.79562 1187.7923,779.96332 1177.6673,778.16712 1169.6923,776.80412 1161.7173,775.44122 1153.1673,773.87212 1150.6923,773.31742 1146.5168,772.38162 1142.1401,771.49332 1130.6923,769.25812 1128.2173,768.77492 1123.0423,767.64512 1119.1923,766.74752 1115.3423,765.84992 1110.3923,764.75472 1108.1923,764.31382 1095.0569,761.68122 1091.5391,760.88592 1085.5371,759.19212 1081.8767,758.15922 1077.8267,757.30732 1076.5371,757.29902 1075.2474,757.29072 1070.5923,756.16582 1066.1923,754.79912 1061.7923,753.43252 1057.0673,752.30942 1055.6923,752.30332 1052.5131,752.28942 1043.8344,749.67682 1042.0512,748.19702 1039.2771,745.89462 1040.4043,739.00882 1044.4423,733.58982 1050.3532,725.65742 1069.3376,701.54942 1076.0697,693.42655 1096.122,669.23164 1092.9534,670.37659 1119.2659,677.81842 1140.461,683.81293 1144.9834,685.2016 1172.6923,694.2236 1177.9173,695.92482 1183.1344,697.31612 1184.2857,697.31542 1185.4371,697.31462 1189.0371,698.23182 1192.2857,699.35362 1195.5344,700.47542 1202.2423,702.03182 1207.1923,702.81222 1212.1423,703.59272 1219.7923,704.90112 1224.1923,705.71972 1233.5022,707.45172 1240.6923,707.72592 1240.6923,706.34882 1240.6923,703.51522 1224.0016,689.46208 1213.493,683.44772 1211.6776,682.40873 1207.2673,679.86091 1203.6923,677.78589 1196.2415,673.46127 1190.7397,670.37081 1183.9529,666.69786 1181.3346,665.28087 1178.7423,663.77001 1178.1923,663.3404 1177.6423,662.9108 1173.8173,660.77116 1169.6923,658.58564 1162.1001,654.56315 1158.4499,652.53812 1141.9722,643.20747 1116.0958,628.55474 1104.4749,610.65116 1108.3298,591.37674 1109.1382,587.33443 1136.9327,567.0654 1146.3364,563.66055 1147.3572,563.29097 1149.318,562.2108 1150.6938,561.26019 1184.0861,538.18766 1248.0177,530.87937 1319.8739,541.9205 1343.9601,545.62149 1369.1953,627.77648 1352.4775,648.06403 1349.6145,651.5383 1330.313,646.53962 1311.1923,637.37206 1302.3833,633.14855 1237.4573,610.91209 1226.1923,608.26049 1171.7714,595.45072 1174.8897,611.20222 1233.7374,646.37357 1241.9648,651.29082 1248.8874,655.31403 1249.1209,655.31403 1249.3544,655.31403 1253.2116,657.56403 1257.6923,660.31403 1262.173,663.06403 1266.0232,665.31403 1266.2481,665.31403 1266.473,665.31403 1269.5979,667.11403 1273.1923,669.31403 1276.7867,671.51403 1280.0146,673.31403 1280.3655,673.31403 1280.7164,673.31403 1282.4785,674.43903 1284.2812,675.81403 1286.0839,677.18903 1287.8439,678.31403 1288.1923,678.31403 1288.5407,678.31403 1290.3007,679.43903 1292.1034,680.81403 1293.9061,682.18903 1295.68,683.31403 1296.0453,683.31403 1298.5268,683.31403 1316.9098,699.94392 1323.3812,708.04302 1335.3688,723.04562 1340.8099,754.24452 1333.0342,763.39282 1332.2961,764.26112 1331.6923,765.45342 1331.6923,766.04242 1331.6923,767.84032 1321.1635,776.85802 1315.774,779.67612 1302.7416,786.49062 1264.3945,789.26512 1230.1923,785.86832 z M -203.8555,728.90832 C -216.83027,723.25672 -212.70609,702.54302 -198.05897,699.79512 -196.03507,699.41542 -193.91188,698.54182 -193.34076,697.85362 -192.31039,696.61212 -201.86643,652.08895 -204.40276,646.31403 -205.00665,644.93903 -205.8674,641.78903 -206.31553,639.31403 -207.51491,632.68995 -211.16589,618.15086 -212.26849,615.60789 -212.7946,614.39452 -215.38119,612.43166 -218.01648,611.24599 -230.5486,605.60752 -229.49256,591.82062 -216.08375,586.01375 -209.07322,582.97774 -207.03388,582.28636 -199.05716,580.24141 -194.52007,579.07825 -183.3829,577.2725 -174.3079,576.22863 -165.2329,575.18475 -149.7079,573.3912 -139.8079,572.24296 -105.3501,568.24641 -92.489539,570.06739 -89.294359,579.3954 -88.461909,581.82565 -87.423279,584.37583 -86.986309,585.06247 -86.549329,585.74911 -85.939769,589.34911 -85.631729,593.06247 -84.822549,602.81693 -83.825419,602.22727 -111.24218,608.20752 -123.50139,610.88155 -126.83597,612.64142 -121.96155,613.86482 -116.25491,615.2971 -101.42765,636.75362 -100.59948,644.77786 -99.522759,655.21024 -103.41371,658.51901 -122.3079,663.23821 -142.44642,668.26819 -141.46594,667.6979 -140.10904,673.59228 -138.16508,682.03687 -136.18164,683.77438 -131.29433,681.31403 -130.20179,680.76403 -128.41401,679.86403 -127.32147,679.31403 -126.22893,678.76403 -124.45549,678.31403 -123.38049,678.31403 -122.30548,678.31403 -121.16922,677.89865 -120.85545,677.39097 -120.54168,676.88328 -118.8424,676.15106 -117.07926,675.76381 -115.31612,675.37656 -113.18378,674.71179 -112.34072,674.28654 -111.49767,673.86129 -108.1079,672.69914 -104.8079,671.70399 -101.5079,670.70883 -98.261876,669.49756 -97.594519,669.01227 -96.927169,668.52698 -92.837539,667.88704 -88.506459,667.59019 -79.624759,666.98142 -79.339059,667.18157 -74.625739,677.31403 -73.474449,679.78903 -70.906949,685.14737 -68.920189,689.22145 -62.099459,703.20812 -63.691449,706.19302 -79.307899,708.69772 -91.598589,710.66902 -150.12673,722.85282 -168.50347,727.26552 -182.67226,730.66782 -198.16342,731.38762 -203.8555,728.90832 z M -153.09536,626.82173 C -150.18726,624.35097 -146.1204,621.19533 -144.0579,619.80919 -140.17761,617.20138 -138.84137,613.76788 -142.0579,614.67015 -143.0204,614.94014 -147.6329,615.93467 -152.3079,616.88022 -162.42679,618.92683 -164.17358,620.11865 -162.48525,623.82414 -161.83771,625.24534 -161.3079,627.51196 -161.3079,628.86108 -161.3079,632.472 -159.10063,631.92389 -153.09536,626.82173 z M 950.4804,722.06402 C 948.5815,719.72652 944.2374,713.76402 940.8269,708.81402 932.7174,697.04412 927.5252,689.8465 923.1529,684.31403 917.4015,677.03646 910.0191,667.20096 906.0922,661.58423 900.9667,654.25327 900.6921,655.03477 900.6921,676.94997 900.6921,696.46792 900.6921,696.46792 897.9421,699.18882 889.4545,707.58692 858.6781,711.35442 850.3643,705.01312 845.5258,701.32272 845.5047,697.35432 850.1921,672.60469 852.1171,662.4406 853.6938,652.70466 853.6958,650.96927 853.6978,649.23389 855.0461,640.83903 856.6921,632.31403 860.5334,612.41864 860.5251,612.17712 855.8106,606.49344 841.0116,588.65251 850.7022,571.82397 877.2772,569.21497 940.2104,563.03649 984.71623,585.59328 984.68653,623.65312 984.67433,639.3802 978.65673,646.13696 961.25753,649.96016 951.521,652.09958 950.7987,650.56566 972.72633,674.31403 997.68303,701.34302 997.63913,700.87182 976.69213,716.96202 961.99843,728.24872 956.3913,729.34012 950.4804,722.06402 z M 939.8152,628.41506 C 960.1509,618.72912 936.8238,612.26816 899.1921,617.16359 893.1578,617.94858 890.8101,625.26781 895.9641,627.22735 907.3942,631.57306 931.7973,632.23402 939.8152,628.41506 z M -21.166519,694.62248 C -39.587869,693.17692 -43.689179,673.9346 -28.615989,659.67138 -20.050159,651.56583 -20.207209,652.13135 -21.712789,634.81403 -23.173279,618.01539 -24.512659,616.75902 -41.968569,615.81364 -62.305479,614.71224 -63.850509,613.1325 -62.995899,594.31403 -62.123449,575.10295 -51.546409,560.31403 -38.679089,560.31403 -37.439849,560.31403 -36.189489,559.93145 -35.900489,559.46385 -35.254829,558.41914 -22.263979,556.66951 -4.3078979,555.20889 19.729461,553.2536 45.089441,555.96283 58.343231,561.90198 60.076351,562.67861 61.768941,563.31403 62.104541,563.31403 67.294191,563.31403 87.599151,584.5405 91.758721,594.31403 92.343921,595.68903 94.410141,600.18903 96.350331,604.31403 104.58035,621.81169 105.09612,626.18407 101.06877,644.31403 95.288271,670.33624 79.633391,682.49015 47.692101,685.75385 40.778481,686.46027 29.422061,688.64006 21.192101,690.84035 10.171973,693.78659 -9.4696676,695.54032 -21.166519,694.62248 z M 52.963451,655.55665 C 53.639211,655.02488 55.466991,654.2848 57.025191,653.91201 67.030591,651.5183 73.104501,641.62936 69.801381,633.11108 63.508801,616.88343 59.783741,611.97808 50.240901,607.35284 40.548691,602.6552 18.663661,602.87906 18.714991,607.67532 18.756221,611.52695 25.519931,655.22643 26.260251,656.4243 27.137881,657.84433 51.043361,657.06758 52.963451,655.55665 z M 705.6921,678.81403 C 702.1171,676.34573 698.8504,674.32347 698.4328,674.32012 698.0152,674.31677 693.7402,671.77214 688.9328,668.66538 684.1254,665.55863 678.6171,662.02692 676.6921,660.81713 658.4915,649.37882 657.7522,647.62341 666.2529,636.03268 668.7614,632.61242 675.0404,623.96403 680.2062,616.81403 685.372,609.66403 691.3071,601.58313 693.3954,598.85648 695.4836,596.12983 698.8292,591.38929 700.83,588.32195 702.8309,585.25461 705.1934,582.14291 706.08,581.40705 706.9667,580.6712 707.6921,579.62263 707.6921,579.0769 707.6921,578.05966 723.6572,556.55627 732.388,545.81403 741.2034,534.96762 747.6019,537.36216 759.0675,555.7985 760.0989,557.45704 762.3489,560.42361 764.0675,562.39087 765.786,564.35813 768.9921,568.5782 771.1921,571.76881 773.3921,574.95942 777.3625,580.46398 780.0153,584.00117 782.668,587.53837 785.368,591.64329 786.0153,593.12323 786.6625,594.60317 788.8946,598.06403 790.9753,600.81403 799.4475,612.01094 804.6921,619.27273 804.6921,619.80644 804.6921,620.11715 806.9421,623.27057 809.6921,626.81403 812.4421,630.35749 814.6921,633.52462 814.6921,633.85208 814.6921,634.17955 815.8171,635.92242 817.1921,637.72514 821.106,642.85652 820.6208,647.72886 815.4421,655.29761 813.1046,658.71392 810.5171,662.5499 809.6921,663.82201 791.9239,691.21961 791.4365,691.18342 776.4523,661.35412 770.5233,649.55117 765.3074,639.52929 764.8613,639.08327 763.914,638.13592 729.7162,641.85869 728.6454,643.02574 728.2476,643.4593 726.9162,651.91403 725.6866,661.81403 722.6764,686.051 719.7624,688.5286 705.6921,678.81403 z M 744.9736,607.22308 C 753.9761,604.196 754.3962,603.63266 750.4745,599.84631 748.6692,598.10333 745.7549,594.97833 743.9983,592.90187 740.5889,588.87158 738.6921,588.87903 738.6921,592.92271 738.6921,594.29256 738.0703,596.6285 737.3103,598.11369 732.1193,608.25847 734.2747,610.82059 744.9736,607.22308 z M 223.79245,664.92085 C 222.5559,663.6046 220.89752,660.5671 220.10715,658.17085 219.31679,655.7746 218.39758,653.02653 218.06448,652.06403 217.2726,649.7759 213.5843,649.82908 210.57696,652.17198 165.71159,687.12476 102.5412,633.01912 135.72465,588.06075 136.84235,586.54644 138.76514,583.82164 139.99751,582.00564 149.50288,567.9987 164.53909,553.87515 179.1921,545.19009 183.5921,542.58215 189.05197,539.29217 191.32515,537.87904 193.59833,536.4659 197.19833,534.60629 199.32515,533.74655 201.45197,532.88682 205.4421,531.09179 208.1921,529.75759 217.76397,525.11368 226.36663,522.31403 231.06437,522.31403 236.18631,522.31403 234.21665,521.00086 257.01145,539.61297 289.36518,566.03003 288.33551,570.33254 249.1921,572.28645 235.4421,572.9728 223.43418,573.93479 222.50784,574.4242 221.5815,574.91361 219.07852,575.31403 216.94567,575.31403 214.81282,575.31403 211.20497,576.21403 208.92824,577.31403 206.6515,578.41403 203.93469,579.31403 202.89089,579.31403 201.84708,579.31403 199.01285,580.65584 196.59258,582.29583 194.17232,583.93582 191.6446,585.28582 190.97543,585.29583 190.30627,585.30584 188.22601,586.77653 186.35263,588.56403 184.47926,590.35153 181.08646,593.30429 178.81308,595.12572 170.43901,601.835 170.65047,606.30486 179.83559,616.73971 189.45667,627.66982 197.93943,629.28475 206.99148,621.90958 213.37306,616.71017 214.99862,612.46082 215.63523,599.31403 216.31191,585.33981 216.81608,584.9118 233.84515,583.85461 246.7189,583.05539 244.62359,580.96643 260.54481,610.47343 273.57242,634.61765 273.77944,635.57391 267.74666,643.74018 262.5447,650.78181 250.32194,661.34355 244.68637,663.66669 242.21452,664.68565 239.41071,665.92315 238.45567,666.41669 234.72234,668.34598 226.19275,667.47585 223.79245,664.92085 z M 489.0049,664.06403 C 484.1832,658.73496 483.1777,644.72828 486.7556,632.73244 487.8906,628.92731 489.7031,622.88903 490.7834,619.31403 495.9799,602.11792 496.1812,594.29312 491.7482,581.81403 483.5153,558.63809 475.72585,535.25801 488.2742,531.39261 518.80493,521.98791 558.3721,523.33874 540.7049,546.81403 540.291,547.36403 539.6992,550.73903 539.3897,554.31403 538.4259,565.4498 536.5998,577.62244 535.1893,582.31403 530.4703,598.0099 532.2027,600.84604 541.7475,593.05073 554.982,582.24212 561.6099,582.55398 575.8758,594.65655 585.1844,602.55367 586.2804,601.48886 587.0361,583.81403 587.2477,578.86403 587.9269,570.98903 588.5454,566.31403 590.784,549.39306 591.8333,540.70129 592.3485,534.81403 593.6301,520.1672 610.5463,522.16673 641.6921,540.64656 647.5216,544.10537 649.4374,552.4099 646.0218,559.41418 642.7967,566.02782 639.6886,573.73294 639.6603,575.18487 639.6428,576.08091 638.9678,577.68754 638.1603,578.75516 637.3528,579.82278 636.6891,581.62278 636.6855,582.75516 636.6819,583.88754 635.7849,586.16403 634.6921,587.81403 633.5993,589.46403 632.687,591.48903 632.6648,592.31403 632.6425,593.13903 631.7548,595.61403 630.6921,597.81403 629.6294,600.01403 628.7447,602.51153 628.726,603.36403 628.7074,604.21653 628.334,605.34153 627.8962,605.86403 627.4585,606.38653 626.5212,608.61403 625.8133,610.81403 624.2403,615.70277 622.1285,620.87468 620.1658,624.64507 619.3553,626.20214 618.6921,628.0306 618.6921,628.7083 618.6921,630.7133 605.799,655.57133 603.4772,658.04275 597.6871,664.20604 590.7525,660.44916 572.9122,641.48402 556.7415,624.29366 558.2667,624.5147 543.6357,637.24124 529.8768,649.20915 520.6618,656.80875 519.4188,657.21288 518.7441,657.43225 516.8455,658.73252 515.1996,660.10236 507.537,666.47988 493.1584,668.6545 489.0049,664.06403 z M 443.4486,664.73725 C 443.1314,664.42002 417.0689,664.06755 385.532,663.95398 315.54315,663.70196 316.6921,663.96607 316.6921,648.12951 316.6921,636.32632 319.58014,633.17893 331.1921,632.32737 338.1921,631.81403 338.1921,631.81403 338.50193,609.31403 339.05465,569.17548 337.12245,542.90278 333.53401,541.76386 320.87658,537.74654 321.85131,521.91914 335.01715,517.68116 358.10202,510.25031 457.8369,520.67401 461.7342,530.92489 469.577,551.55289 464.6582,558.30807 441.2729,559.02523 420.9325,559.64901 420.3396,559.78007 423.7788,562.89251 430.4451,568.92539 438.6921,588.19039 438.6921,597.72987 438.6921,607.67538 435.6266,609.25726 414.0701,610.43536 392.1109,611.63546 393.6702,611.08973 393.7918,617.53265 394.0075,628.96355 393.1346,628.57173 412.6921,626.01654 440.8729,622.33471 450.6529,621.82172 452.6617,623.92001 456.9794,628.43003 462.5275,661.07861 459.4921,664.11403 458.2823,665.32381 444.568,665.85655 443.4486,664.73725 z M 392.2432,568.99886 C 408.8629,560.25157 409.1158,559.16248 394.4421,559.53128 383.1921,559.81403 383.1921,559.81403 382.8944,566.06403 382.536,573.58725 383.1557,573.7818 392.2432,568.99886 z"
+       style="fill:url(#radialGradient3824);fill-opacity:1"
+       sodipodi:nodetypes="sssssssssssssssssssssssssssssssssssssssscssssssssssssssscscsccscccsssscscssssssssccsssssssssssssssscssscscssssssssssssssssssssssssssssscssssssssssssccsssssssssssssssssssscsssssssssssssssssssssscccssccscccssssssscssssssscsssssssssssssssssssssssssssssssscsssccssssscsscssscsccccsssscsscssssssssssssssscssss" />
+    <path
+       inkscape:connector-curvature="0"
+       id="path3853"
+       d="M -522.09465,847.72778 C -540.13249,844.46729 -551.47942,838.2229 -565.35896,823.91877 -571.98148,817.09366 -582.08972,804.46587 -582.11446,802.98685 -582.12535,802.33538 -582.59784,798.65236 -583.16443,794.80236 -597.68191,696.15567 -602.28805,619.14684 -595.48593,588.80236 -581.1576,524.88309 -539.61579,506.04275 -498.97265,545.03097 -488.57063,555.00945 -476.86867,548.93012 -473.65584,531.87853 -469.65452,510.64221 -463.70371,502.03813 -447.75698,494.43221 -423.32451,482.77897 -427.68475,483.90332 -412.08358,485.23329 -363.12514,489.4069 -342.62575,505.19814 -301.82411,570.16922 -297.38911,577.23136 -280.09465,607.30051 -280.09465,607.94932 -280.09465,608.19474 -278.10803,611.86208 -275.67994,616.09895 -258.20601,646.58991 -234.34088,695.61953 -232.99039,703.80236 -227.12427,739.34598 -234.95011,763.74999 -260.80923,790.55236 -266.94764,796.91467 -266.38453,796.72437 -274.66099,795.23352 -301.40838,790.41548 -334.02679,756.88693 -368.96093,698.30236 -382.17312,676.14551 -382.43914,675.76873 -384.62063,676.12234 -385.70634,676.29832 -395.03215,679.13011 -405.34465,682.41519 -425.66594,688.8886 -425.80277,688.98911 -422.24188,694.82828 -391.75462,744.82145 -413.25847,803.35912 -476.61739,842.849 -483.63694,847.22409 -509.51979,850.00079 -522.09465,847.72778 z M -520.59465,811.18974 C -477.95684,800.25856 -458.20495,762.88429 -470.9762,717.30236 -474.98109,703.0085 -478.27688,692.98963 -480.29863,688.96312 -483.6049,682.37836 -469.77819,668.05202 -446.23079,653.66421 -436.86693,647.94276 -436.86693,647.94276 -421.73079,649.23032 -392.02524,651.75724 -385.48866,652.10216 -377.46834,651.566 -368.18353,650.94531 -369.80444,649.03438 -364.54437,666.80236 -355.8246,696.25687 -333.76864,727.79206 -305.96896,750.55236 -299.10903,756.16876 -297.681,755.72616 -289.0301,745.30236 -277.1274,730.96035 -273.92807,723.47581 -273.85534,709.80236 -273.78168,695.95558 -276.87666,688.53747 -294.65728,659.94377 -297.44172,655.46599 -304.59643,643.92736 -310.55663,634.30236 -330.34049,602.35382 -349.67892,572.11686 -375.74486,532.37611 -394.54121,503.71874 -392.61474,505.83237 -401.80096,503.78863 -438.74052,495.57036 -458.79671,517.4265 -442.47851,548.11681 -441.16739,550.58269 -440.09465,553.22245 -440.09465,553.98293 -440.09465,558.62546 -420.97953,591.14331 -410.39954,604.49901 -402.0581,615.02888 -400.18018,614.42553 -442.45284,614.79719 -468.82264,615.02902 -477.22933,615.43255 -483.59465,616.772 -487.99465,617.6979 -492.22079,618.5335 -492.98607,618.6289 -494.8029,618.85539 -498.6048,611.80858 -502.06434,601.80236 -503.5856,597.40236 -505.73868,592.00236 -506.84897,589.80236 -507.95927,587.60236 -510.37361,582.42736 -512.21417,578.30236 -522.49482,555.26178 -532.83427,546.29352 -549.09465,546.31285 -574.8728,546.3435 -583.54929,586.0402 -575.10213,665.30236 -571.5485,698.64713 -569.68479,713.90826 -567.10315,730.80236 -564.33447,748.92051 -560.0832,782.09593 -559.19332,792.52783 -558.37405,802.13216 -557.66347,803.4182 -550.41214,808.42036 -543.52873,813.16873 -532.35999,814.20605 -520.59465,811.18974 z M 1209.4054,827.32372 C 1187.5954,826.37302 1169.2119,824.11375 1144.4054,819.33545 1070.9866,805.1933 1001.6735,748.90315 1022.9042,720.66266 1054.5002,678.63454 1087.6297,653.4075 1111.3853,653.28705 1117.761,653.25472 1117.8437,651.82624 1111.8313,645.58687 1093.8636,626.94093 1079.6364,600.6839 1083.432,593.17491 1108.7757,543.03822 1258.9377,504.38951 1337.0889,527.88871 1350.4134,531.89525 1398.9343,663.12816 1390.7411,673.00031 1384.6349,680.35775 1368.371,686.94668 1352.9054,688.32843 1347.1303,688.84439 1339.0304,689.55915 1334.9054,689.91679 1321.2778,691.09832 1321.7907,697.66818 1337.3947,721.80236 1339.884,725.65236 1342.8206,730.37736 1343.9208,732.30236 1345.0207,734.22736 1348.4386,739.85236 1351.5158,744.80236 1362.7867,762.93297 1367.489,775.84853 1366.6062,786.25014 1365.771,796.09044 1367.1131,794.48004 1350.348,805.75739 1321.1464,825.40028 1286.5887,830.68813 1209.4054,827.32372 z M 1299.3247,781.41634 C 1328.7961,774.23007 1338.166,752.55253 1323.9627,724.41589 1317.8568,712.32042 1307.1273,700.90937 1292.9054,691.38635 1284.0646,685.46648 1279.6043,682.78656 1243.9054,661.94475 1232.0804,655.04106 1219.5523,647.68479 1216.0651,645.59747 1172.9329,619.77993 1167.9722,594.79083 1207.1695,600.78727 1228.5079,604.05164 1305.022,628.13435 1315.3205,634.82764 1318.5515,636.92754 1341.9636,645.30236 1344.603,645.30236 1350.116,645.30236 1351.4931,614.3341 1346.8042,595.80236 1343.8382,584.08024 1337.7802,567.91441 1333.6882,560.80236 1333.0552,559.70236 1331.9486,557.63763 1331.2289,556.21407 1329.0762,551.95622 1326.7411,550.52869 1319.9054,549.29154 1289.3955,543.76972 1242.5642,541.83144 1221.9054,545.23546 1207.4625,547.61526 1202.9911,548.58114 1193.706,551.32681 1171.0801,558.01751 1146.854,570.18714 1123.4054,586.64121 1112.7673,594.10607 1111.6089,595.84926 1112.3888,603.21908 1114.0192,618.62476 1124.8421,628.74858 1161.9054,649.53729 1173.1804,655.8614 1183.9804,661.9216 1185.9054,663.0044 1187.8304,664.0872 1191.4304,666.10243 1193.9054,667.48269 1196.3803,668.86295 1202.6804,672.38019 1207.9054,675.29879 1243.959,695.43771 1260.2863,717.31455 1237.9054,715.49551 1224.3604,714.39463 1212.1306,712.1433 1194.9054,707.57988 1189.6804,706.19564 1183.4503,704.67254 1181.0606,704.19522 1178.6711,703.7179 1168.3211,700.6558 1158.0606,697.39054 1129.9395,688.44128 1101.3673,680.30236 1098.0717,680.30236 1094.5271,680.30236 1093.4434,681.46532 1074.4054,705.69754 1066.7054,715.49835 1057.181,727.46105 1053.2399,732.28132 1042.776,745.08013 1043.2741,747.37558 1056.9345,749.30647 1060.1809,749.76535 1065.8899,751.03289 1069.6212,752.12324 1073.3525,753.21359 1078.8803,754.61158 1081.9054,755.22989 1084.9304,755.8482 1091.4554,757.25508 1096.4054,758.3563 1101.3554,759.45752 1107.2054,760.75613 1109.4054,761.24212 1111.6054,761.7281 1116.5554,762.8579 1120.4054,763.75279 1124.2553,764.64767 1129.8803,765.80701 1132.9054,766.32909 1135.9304,766.85116 1140.2054,767.68834 1142.4054,768.18948 1155.2662,771.11909 1165.4824,773.06573 1179.9054,775.33501 1182.9304,775.81095 1190.5804,777.07572 1196.9054,778.14561 1236.1913,784.79089 1279.7771,786.18279 1299.3247,781.41634 z M 957.7126,751.05236 C 956.8464,750.36486 953.3158,745.30236 949.8668,739.80236 941.4107,726.31729 926.5077,704.4545 923.4131,700.99447 920.2088,697.41178 919.522,697.92043 917.996,705.00672 914.9834,718.99606 915.7981,717.8318 905.618,722.69694 873.8803,737.86454 846.2982,729.9276 839.9563,703.80236 838.822,699.12974 839.239,696.09919 846.324,657.51696 855.359,608.31574 855.1629,611.78505 849.2827,605.16421 837.2948,591.66642 842.03306,579.97164 860.95686,571.03045 866.35566,568.47957 904.01064,567.26591 912.8104,567.27679 914.60555,567.24585 917.3247,568.16122 917.7809,567.87932 922.5261,564.94663 962.8536,578.90626 974.4111,587.48223 1009.9942,613.88565 1011.1266,656.03382 976.5826,668.30541 972.5093,669.75245 973.0754,670.668 986.972,685.10941 1007.7041,706.65424 1011.336,714.86101 1004.3501,724.37765 994.8296,737.34708 963.2224,755.42514 957.7126,751.05236 z M 966.3142,718.82627 C 983.5359,707.51498 988.0104,701.65591 983.285,696.60388 981.8438,695.06304 973.8563,686.37736 965.535,677.30236 957.2137,668.22736 948.441,658.89969 946.04,656.57421 940.5455,651.25239 941.0331,649.76409 948.576,648.83332 974.1559,645.67683 982.2837,637.08295 977.4817,618.26983 969.8354,588.31332 929.0102,570.92307 879.0869,576.35673 854.6992,579.01112 847.9975,590.50506 861.3422,606.79056 865.1331,611.41685 865.1331,611.41685 863.0244,623.6096 861.8647,630.31562 860.2137,640.30236 859.3557,645.80236 858.4976,651.30236 856.2339,665.02736 854.3253,676.30236 850.1692,700.85485 850.1713,700.77498 853.6099,703.02931 861.0586,707.91258 891.722,702.43452 894.2821,695.76317 894.6249,694.86976 894.9054,684.97568 894.9054,673.77634 894.9054,643.81337 896.5041,642.264 909.4054,659.7233 914.6316,666.79593 918.0138,671.3259 922.6451,677.45611 924.1632,679.46567 927.4304,683.88212 929.9054,687.27043 932.3803,690.65875 935.8884,695.26913 937.7009,697.51573 939.5134,699.76232 942.6463,704.12088 944.6629,707.2014 956.4054,725.13882 956.5692,725.22677 966.3142,718.82627 z M 909.9054,637.25171 C 887.8001,634.2105 888.435,634.57244 888.1142,624.8291 887.7187,612.82193 885.1946,613.93403 915.5793,612.72854 955.6063,611.14049 969.9243,623.09202 942.0568,634.82998 934.5872,637.97624 922.0407,638.92127 909.9054,637.25171 z M -184.46985,745.18023 C -217.74827,741.77679 -230.38292,708.86744 -202.48356,698.26012 -201.16966,697.76058 -200.09465,696.6282 -200.09465,695.74372 -200.09465,693.36602 -203.98691,678.13767 -205.21991,675.69128 -205.80511,674.53018 -208.46334,664.85518 -211.12707,654.19128 -220.10856,618.23513 -219.38998,619.99211 -226.4716,616.67257 -233.88994,613.19519 -236.49565,608.94596 -236.55604,600.2275 -236.66179,584.96013 -220.18326,577.39738 -174.59465,571.79058 -167.99465,570.97887 -158.99465,569.85393 -154.59465,569.29071 -109.36667,563.50137 -90.30719,567.11528 -73.97682,584.5768 -68.65032,590.27225 -66.09465,591.2777 -66.09465,587.6778 -66.09465,578.57769 -54.981937,564.52964 -42.631617,560.28051 22.653033,537.8193 87.28605,559.70931 113.85478,612.17134 116.38403,617.16554 117.15732,616.79709 118.82684,609.80236 125.48628,581.90139 162.57431,549.37335 219.025,521.92361 233.18193,515.03966 229.95957,514.46742 244.81483,526.50343 287.51487,561.09979 296.16374,569.26145 295.66173,574.48601 294.75706,583.90101 285.55778,589.16617 269.83685,589.26674 264.25774,589.30243 254.42966,591.645 253.49167,593.16269 253.21689,593.60729 257.81215,600.02019 263.70336,607.41357 290.07883,640.51439 292.27161,646.58302 283.35447,661.79897 278.72506,669.69847 254.29518,687.30236 247.96203,687.30236 245.14273,687.30236 227.97159,676.88039 223.1093,672.21809 216.99233,666.35269 217.21288,666.38271 213.00575,670.84308 197.08899,687.71789 156.19506,677.74218 130.25039,650.65564 122.25719,642.31065 122.41189,642.29867 121.47204,651.33563 119.07276,674.40554 102.14926,694.99692 78.90535,703.12792 67.10146,707.25706 65.06838,707.66943 54.90535,707.99588 49.13035,708.18138 42.38035,708.7967 39.90535,709.36326 -24.72491,724.15803 -65.05396,696.03075 -35.77343,656.58151 -21.34424,637.14127 -27.38775,623.8587 -52.42052,619.99412 -58.93713,618.98808 -64.63293,614.94311 -66.73692,609.82709 -68.96803,604.40194 -69.89594,604.2485 -72.85433,608.81548 -77.08376,615.34463 -86.30843,620.75361 -95.56097,622.12973 -99.13016,622.66057 -100.53425,623.30373 -100.38705,624.34037 -98.44803,637.99592 -96.42776,641.86021 -90.83543,642.6103 -84.76245,643.42486 -82.8169,646.38236 -80.64573,658.10005 -78.52287,669.55697 -77.55938,670.96345 -71.77388,671.05091 -62.50519,671.19103 -56.14497,676.51506 -54.12541,685.82414 -53.53141,688.56216 -52.10752,693.02462 -50.96121,695.74071 -43.79882,712.71139 -57.54019,723.55505 -96.059,731.32852 -104.05361,732.94191 -120.55829,736.49361 -132.73608,739.22118 -144.91386,741.94876 -158.86386,744.45933 -163.73608,744.80023 -168.60829,745.14113 -173.49465,745.54731 -174.59465,745.70285 -175.69465,745.85838 -180.13849,745.62321 -184.46985,745.18023 z M -169.82752,723.77211 C -149.86515,719.08261 -96.27279,707.93779 -83.09465,705.73554 -68.56769,703.30788 -68.95792,705.78153 -79.65722,683.94572 -85.54927,671.92085 -89.1161,671.95545 -119.59465,684.33306 -132.80015,689.69593 -140.52642,692.2544 -141.20817,691.49014 -142.27613,690.29291 -144.23599,684.07084 -146.14959,675.80236 -148.3401,666.33733 -148.2045,666.09124 -139.59465,663.9061 -136.29465,663.06857 -130.66965,661.64759 -127.09465,660.74836 -102.79643,654.63657 -101.52613,652.2221 -113.34465,634.61375 -124.65342,617.76487 -129.64801,615.73155 -139.14503,624.11026 -146.35627,630.47234 -164.15989,643.57046 -164.76874,642.96161 -166.55852,641.17183 -170.89159,616.30236 -169.41364,616.30236 -168.53707,616.30236 -117.49788,605.67217 -109.59465,603.84356 -89.96321,599.30133 -90.33022,599.68206 -94.15909,587.83042 -97.16776,578.51757 -97.83148,578.23215 -116.37942,578.27505 -128.89846,578.30401 -145.21522,579.95033 -184.59465,585.15778 -214.09672,589.05907 -232.58906,603.26424 -214.6897,608.27575 -208.40805,610.0345 -208.75526,609.25815 -202.55994,635.39721 -199.50889,648.27004 -195.94416,663.30236 -194.63831,668.80236 -185.62524,706.76375 -185.75407,704.74676 -192.27502,705.80215 -205.59461,707.95789 -210.27879,714.98692 -204.38755,723.9781 -201.44252,728.47277 -189.53536,728.4018 -169.82752,723.77211 z M 7.73613,689.89967 C 12.86806,689.06022 18.49306,687.93489 20.23613,687.39893 24.42085,686.11223 37.66029,683.53173 46.40535,682.29829 56.90327,680.81762 66.75082,678.66982 68.15637,677.55428 68.84331,677.00908 71.05492,676.03198 73.07106,675.38295 77.06457,674.09737 84.61515,667.92302 87.99038,663.18295 93.85869,654.94167 99.11291,631.57329 96.84485,623.80236 89.94265,600.15382 74.69877,579.36889 57.99252,570.82747 31.51002,557.28775 -33.20132,559.65921 -49.94144,574.78291 -57.98257,582.04759 -62.20578,604.51456 -56.52063,609.78338 -53.44245,612.63614 -54.16202,612.51852 -40.09465,612.46823 -23.42289,612.40863 -19.31956,616.46917 -17.52514,634.80236 -15.52692,655.21778 -15.88971,656.85644 -24.04672,664.25887 -45.66213,683.87469 -30.45118,696.14611 7.73613,689.89967 z M 24.90535,664.30236 C 20.40535,663.80236 20.40535,663.80236 16.71012,638.80236 11.79877,605.57477 11.4798,602.3342 13.10479,602.17474 13.8201,602.10454 15.53035,601.86728 16.90535,601.64748 38.09303,598.26053 55.26429,602.76686 64.11196,614.03612 68.06265,619.0681 69.72768,622.27856 73.9987,633.09941 77.04079,640.80673 71.83016,657.30236 66.35348,657.30236 65.6917,657.30236 64.59004,657.97736 63.90535,658.80236 63.22066,659.62736 61.92806,660.30513 61.03291,660.30852 60.13775,660.31191 58.21323,660.93668 56.75619,661.6969 52.44092,663.94843 34.74671,665.39584 24.90535,664.30236 z M 57.69666,651.03337 C 65.88901,647.23416 66.59908,638.7954 59.82648,625.72168 56.2864,618.88796 39.2109,618.1631 39.55757,624.86126 40.38986,640.94226 41.53281,651.69136 42.61091,653.57696 43.32712,654.82961 53.04328,653.19138 57.69666,651.03337 z M 235.45535,663.45274 C 235.97785,662.98545 238.37415,661.84157 240.78046,660.91078 246.22853,658.8034 258.90228,647.54061 262.98499,641.17826 266.42873,635.81165 266.49575,636.10826 258.60681,621.80236 256.78703,618.50236 252.89499,611.30236 249.95781,605.80236 241.22877,589.4568 242.33814,590.39908 232.36977,590.86325 219.27648,591.47293 219.68183,590.95769 219.43649,607.30236 219.24982,619.73834 210.60446,630.88682 198.52456,634.26898 189.64066,636.75632 176.90445,627.54835 167.73429,612.00835 158.13167,595.73549 196.10764,571.44554 233.90535,569.68444 238.58035,569.46662 246.00535,569.0421 250.40535,568.74106 254.80535,568.44003 260.88049,568.23743 263.90567,568.29086 277.13176,568.52443 274.12542,563.8706 246.72358,541.69294 230.81435,528.81681 226.81637,527.54317 219.60889,533.05498 218.94694,533.56119 215.70535,535.03525 212.40535,536.33066 155.42125,558.69974 116.7091,610.18067 136.1761,637.70329 145.52571,650.92184 170.38371,663.78525 179.57818,660.1628 180.58312,659.76687 182.94678,659.4113 184.83076,659.37265 188.56813,659.29596 201.71598,653.29877 206.23208,649.61076 207.78677,648.34114 209.81177,647.30068 210.73208,647.29862 211.65238,647.29657 213.92306,646.36961 215.77803,645.23871 220.0723,642.62069 221.87192,643.30394 221.76013,647.5099 221.712,649.32075 222.39721,652.15236 223.28283,653.80236 224.16844,655.45236 224.8958,657.48973 224.89919,658.32985 224.91746,662.85929 232.1787,666.38316 235.45535,663.45274 z M 200.40535,624.28359 C 205.50176,622.36809 208.41416,613.45009 206.47131,605.70915 205.86855,603.30755 189.40566,602.46871 187.14973,604.72464 184.11253,607.76185 187.65436,622.86317 191.90535,625.00121 194.26525,626.18812 195.64894,626.0713 200.40535,624.28359 z M 794.9054,706.42261 C 794.9054,705.13882 768.1724,665.2268 765.4455,662.43924 763.1337,660.07612 763.1337,660.07612 753.0246,663.2168 740.2535,667.18447 739.3698,668.61633 735.9035,690.95706 735.114,696.04617 733.0407,703.11318 731.9211,704.53252 726.1767,711.81416 706.4918,701.32308 685.5931,679.84202 673.5777,667.49169 662.89715,657.11715 661.85845,656.78748 660.27125,656.28372 653.90535,648.22827 653.90535,646.72356 653.90535,646.46036 656.06925,643.44542 658.71405,640.02369 665.72755,630.94981 715.7278,565.44198 728.3405,548.80236 736.1882,538.44929 740.85324,535.32254 744.0868,536.9545 748.07837,538.96903 782.17272,584.9077 786.8208,592.12341 788.13162,594.15833 791.7493,598.9481 794.8208,602.79289 797.8924,606.63769 800.9835,610.88161 801.69,612.22382 802.3965,613.56604 805.3731,617.6203 808.3049,621.23329 811.2366,624.84628 814.174,628.83753 814.8325,630.10273 815.4909,631.36794 818.3051,635.25803 821.0862,638.74739 829.3033,649.05707 836.8104,660.65261 836.0826,661.91084 835.7101,662.55481 830.4554,668.91104 824.4054,676.03582 818.3554,683.16059 810.0587,693.11024 805.9682,698.14615 799.4322,706.19293 794.9054,709.57959 794.9054,706.42261 z M 717.2471,679.55236 C 717.4999,679.13986 718.7515,670.53924 720.0282,660.43987 722.7263,639.09591 722.5524,639.45856 730.4054,638.80553 733.7054,638.53112 739.5554,637.90292 743.4054,637.40954 767.0438,634.38025 767.2308,634.41304 771.3142,642.30236 776.4646,652.25281 788.6498,676.91197 789.2269,678.55236 789.5656,679.51486 790.5459,680.30236 791.4054,680.30236 792.2649,680.30236 793.2703,679.51486 793.6394,678.55236 794.0088,677.58986 795.6822,674.85567 797.3582,672.47637 817.6415,643.68123 817.4247,650.17821 798.9732,624.07306 796.5354,620.62418 792.5309,614.87736 790.0742,611.30236 787.6176,607.72736 784.744,603.67736 783.6886,602.30236 782.6331,600.92736 779.3497,596.42736 776.3921,592.30236 768.6172,581.45824 758.1751,567.56248 747.6566,554.06261 740.6283,545.04207 738.1793,546.96016 714.9159,579.7057 714.0966,580.85886 710.2494,586.07736 706.3664,591.30236 688.7472,615.01089 675.6565,633.08526 674.9053,634.74052 674.6303,635.34647 672.49285,638.34917 670.15535,641.41318 665.17075,647.94699 664.98335,649.21594 668.66165,651.52371 673.8318,654.76738 675.4086,655.75972 677.8083,657.28002 683.5566,660.92166 686.7758,662.93089 689.8607,664.80236 691.6738,665.90236 694.4032,667.81486 695.9258,669.05236 697.4483,670.28986 699.2217,671.30236 699.8665,671.30236 700.5113,671.30236 702.5138,672.42736 704.3165,673.80236 706.1192,675.17736 708.0445,676.30236 708.5948,676.30236 709.1451,676.30236 710.4099,677.20236 711.4054,678.30236 713.2107,680.29724 716.3754,680.97441 717.2471,679.55236 z M 727.3412,615.55236 C 727.5205,613.48986 728.8547,607.57384 730.3061,602.40564 731.7577,597.23745 732.7508,592.81438 732.513,592.57661 732.2752,592.33883 732.6787,590.26735 733.4097,587.97332 734.1406,585.67929 735.0392,582.45236 735.4064,580.80236 736.0741,577.80236 736.0741,577.80236 738.0867,580.30236 740.2066,582.93577 750.0659,593.99087 758.2836,602.949 761.7037,606.67738 762.7499,608.42067 761.7836,608.78177 733.9537,619.18177 726.9052,620.56737 727.3412,615.55236 z M 360.90535,683.54921 C 323.40107,679.75149 303.74675,664.7983 310.43999,645.15471 312.53568,639.00421 319.31936,632.53272 326.07051,630.24351 332.2277,628.15571 332.00879,630.45492 330.06374,588.30236 328.17697,547.41273 328.1017,547.00662 321.80621,543.75109 315.60101,540.54226 313.02721,529.90414 316.70968,522.68591 322.90671,510.53873 338.15759,507.85603 381.90535,511.2177 444.45005,516.02376 464.45085,522.48852 475.70195,541.53513 477.84365,545.16078 478.36365,545.03429 479.74225,540.55236 481.94255,533.39905 500.93295,523.37298 519.06975,519.7893 523.10435,518.99209 528.34435,517.64947 530.71435,516.8057 535.89255,514.96207 534.71355,514.27795 550.45115,528.25721 564.49185,540.72916 563.82495,538.96212 562.35395,559.79477 560.92735,579.99942 560.33395,577.94257 569.60185,584.91782 580.86945,593.39806 581.17185,593.14167 582.82315,573.70724 583.24815,568.70493 583.91925,564.08883 584.31455,563.44924 584.70985,562.80966 585.42375,558.35246 585.90105,553.54436 589.06035,521.71658 588.49285,522.92535 599.83955,523.8563 619.81755,525.4954 657.80735,545.80026 665.13035,558.75307 666.25715,560.74609 640.74095,627.83297 632.80145,643.75205 623.73665,661.92722 613.94255,675.07871 606.59775,678.93802 603.39615,680.62031 605.52785,682.14307 583.01095,662.08907 571.96475,652.25115 564.10845,646.29937 562.17525,646.30434 561.14085,646.307 547.33675,655.95203 526.39785,671.30236 524.52225,672.67736 521.37555,674.92736 519.40535,676.30236 517.43515,677.67736 514.21135,680.03457 512.24145,681.54061 505.17845,686.94058 488.33805,677.74091 480.82905,664.38039 478.26665,659.82123 476.90535,659.9368 476.90535,664.71349 476.90535,671.70651 469.07195,678.62548 457.40535,681.93707 452.02655,683.46386 373.08617,684.78265 360.90535,683.54921 z M 454.90535,658.23244 C 454.90535,654.90369 449.31485,631.61877 448.20755,630.3353 446.93245,628.85744 418.54065,631.44007 402.12805,634.52686 388.28295,637.13079 388.85065,637.61623 388.25295,622.66321 387.63895,607.30502 386.02735,608.50002 408.35255,607.75972 437.12505,606.80562 438.47975,604.49546 425.57525,578.38902 419.30515,565.70424 415.33875,563.93654 405.90535,569.62278 380.02905,585.22048 375.91705,585.14035 376.63075,569.05236 377.19635,556.30236 377.19635,556.30236 415.55085,556.30236 461.11665,556.30236 458.34095,557.05119 457.27485,545.04597 456.27125,533.7436 453.69975,532.06446 432.40535,528.80634 426.90535,527.96482 419.70535,526.8316 416.40535,526.28808 395.33525,522.81777 354.01559,521.23246 342.59154,523.45606 331.04545,525.70342 325.78193,533.12335 332.93975,537.06209 340.8956,541.43996 340.50836,540.41975 341.45788,559.50374 344.32708,617.17054 342.66269,638.78758 335.33274,639.05669 323.47005,639.49222 320.90535,641.45851 320.90535,650.11784 320.90535,659.77338 325.28491,661.23894 353.90535,661.16089 418.64585,660.98432 440.74475,661.21106 446.40535,662.10994 453.77225,663.27976 454.90535,662.76286 454.90535,658.23244 z M 504.18745,661.80848 C 509.23325,659.466 519.64725,651.68964 532.31855,640.80236 558.35395,618.43261 555.71365,618.44605 577.27765,640.57352 595.81365,659.59379 598.49155,660.38495 603.43825,648.30236 604.45155,645.82736 605.80695,643.12736 606.45025,642.30236 608.05165,640.24849 612.90535,629.69637 612.90535,628.26858 612.90535,627.63188 613.56625,625.91651 614.37405,624.45665 616.21955,621.12134 620.08475,611.6356 622.79015,603.80236 623.92985,600.50236 625.52855,596.00236 626.34285,593.80236 627.15715,591.60236 628.99015,586.65236 630.41615,582.80236 631.84215,578.95236 634.09115,572.87736 635.41395,569.30236 636.73675,565.72736 638.73845,560.33371 639.86215,557.31648 642.52945,550.15489 642.87225,550.92591 635.15535,546.73061 631.44285,544.71231 627.21925,542.23979 625.76955,541.23612 621.84245,538.51737 611.38705,534.48026 604.69125,533.09726 598.00855,531.71698 596.93545,532.3681 596.93665,537.80236 596.93695,539.45236 596.27895,545.07736 595.47425,550.30236 592.57985,569.09702 590.67005,587.32286 590.77215,595.17581 590.80345,597.5812 590.22605,600.7312 589.48905,602.17581 588.75195,603.62041 588.34765,606.15236 588.59045,607.80236 589.72345,615.50074 586.72585,615.36236 578.75765,607.34843 570.35515,598.89771 560.79875,592.29552 557.00035,592.3171 553.80125,592.33528 552.04105,593.33124 542.75375,600.37809 538.71215,603.44474 533.98585,606.93224 532.25095,608.12809 526.20555,612.29516 523.55435,610.13622 526.29755,603.28009 527.18185,601.07008 527.91065,596.68349 527.91725,593.53212 527.92375,590.38075 528.57475,585.3763 529.36395,582.41111 530.15315,579.44592 530.55255,575.78839 530.25155,574.28328 529.95055,572.77816 530.21185,570.59817 530.83225,569.43886 532.03205,567.19704 534.89045,547.29717 535.62705,536.05871 536.43945,523.66123 518.79775,523.93 494.12055,536.69106 487.09715,540.32302 487.24225,556.40405 494.49285,577.96249 499.65275,593.30422 500.52135,598.30089 499.00665,603.92614 498.39895,606.18284 497.66755,610.38244 497.38125,613.2586 497.09495,616.13476 496.24715,619.68372 495.49715,621.14517 494.74725,622.60663 493.60145,626.50236 492.95095,629.80236 492.30055,633.10236 491.03765,637.37736 490.14455,639.30236 487.50825,644.98449 488.62495,657.60081 492.15815,662.05236 493.51565,663.76279 500.27295,663.62579 504.18745,661.80848 z M 480.76025,635.31292 C 488.66585,622.05891 489.93865,607.14461 484.81885,587.75424 483.08315,581.1807 481.20605,573.55236 480.64735,570.80236 479.23605,563.85468 478.59155,563.54948 474.33025,567.81079 468.58945,573.55158 460.96545,576.55982 451.40535,576.85635 446.33265,577.01369 443.44195,577.5066 443.50535,578.20342 443.56035,578.80784 443.67285,583.1093 443.75535,587.76222 443.90535,596.22208 443.90535,596.22208 448.04105,597.46116 454.55875,599.41392 456.00835,602.66288 455.77805,614.80236 455.53465,627.63462 455.95745,628.89517 460.76275,629.66356 465.88955,630.48338 470.97985,634.07361 473.40535,638.58062 476.00555,643.41224 475.90165,643.45839 480.76025,635.31292 z"
+       style="fill:#a05116"
+       sodipodi:nodetypes="sscsssssssssssssssssssssssssssssssssssssssssssssssssssscssssccsssssssssssssccssssssscssscssscsssssssssssccsssssssccsssscssssssssccsscssccsssscssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssscssssssssssscsccssssssscsccssssscsssccscsccccscsssccccsssccsccccccsssssssssssscsssssssssssssssssssscsssssssssssssssssssssscscsssscscscscccssssccssccsscsccccssscsscssssss" />
+    <path
+       inkscape:connector-curvature="0"
+       id="path3851"
+       d="M -522.09465,847.72778 C -540.13249,844.46729 -551.47942,838.2229 -565.35896,823.91877 -571.98148,817.09366 -582.08972,804.46587 -582.11446,802.98685 -582.12535,802.33538 -582.59784,798.65236 -583.16443,794.80236 -597.68191,696.15567 -602.28805,619.14684 -595.48593,588.80236 -581.1576,524.88309 -539.61579,506.04275 -498.97265,545.03097 -488.57063,555.00945 -476.86867,548.93012 -473.65584,531.87853 -469.65452,510.64221 -463.70371,502.03813 -447.75698,494.43221 -423.32451,482.77897 -427.68475,483.90332 -412.08358,485.23329 -363.12514,489.4069 -342.62575,505.19814 -301.82411,570.16922 -297.38911,577.23136 -280.09465,607.30051 -280.09465,607.94932 -280.09465,608.19474 -278.10803,611.86208 -275.67994,616.09895 -258.20601,646.58991 -234.34088,695.61953 -232.99039,703.80236 -227.12427,739.34598 -234.95011,763.74999 -260.80923,790.55236 -266.94764,796.91467 -266.38453,796.72437 -274.66099,795.23352 -301.40838,790.41548 -334.02679,756.88693 -368.96093,698.30236 -382.17312,676.14551 -382.43914,675.76873 -384.62063,676.12234 -385.70634,676.29832 -395.03215,679.13011 -405.34465,682.41519 -425.66594,688.8886 -425.80277,688.98911 -422.24188,694.82828 -391.75462,744.82145 -413.25847,803.35912 -476.61739,842.849 -483.63694,847.22409 -509.51979,850.00079 -522.09465,847.72778 z M -519.8157,818.81739 C -473.75626,808.13549 -451.30346,770.13269 -462.05419,721.05236 -462.62644,718.43986 -463.52281,714.38986 -464.04611,712.05236 -464.56941,709.71486 -466.59441,703.10144 -468.54611,697.35588 -472.9311,684.44697 -472.95786,685.19415 -467.91458,679.72284 -456.53842,667.38115 -436.82412,654.86736 -430.09465,655.71636 -418.85522,657.13433 -390.81749,659.27897 -383.37376,659.29008 -375.15287,659.30236 -375.15287,659.30236 -371.99671,669.55236 -363.51647,697.09301 -346.4852,723.32074 -321.73205,746.95866 -302.04966,765.75428 -298.42932,766.59797 -287.37862,754.96446 -257.89003,723.92065 -257.8275,705.84141 -287.04149,657.49691 -314.57896,611.92679 -338.59025,573.8371 -377.88518,513.38938 -388.21358,497.50112 -391.66807,495.51852 -410.59465,494.61683 -431.20059,493.63514 -460.19599,509.69671 -460.0651,522.02024 -459.94546,533.28437 -442.42966,572.58419 -427.93684,594.10573 -418.59399,607.97967 -417.57796,607.17511 -444.28494,607.05134 -457.014,606.99236 -471.44372,607.51111 -477.8863,608.25933 -490.94904,609.77638 -490.59816,609.95308 -493.57628,600.35814 -494.52472,597.30246 -496.82935,591.55266 -498.69768,587.58081 -500.56601,583.60896 -502.09243,580.00896 -502.08972,579.58081 -502.02872,569.9441 -522.01718,545.49499 -533.61941,541.0149 -573.88559,525.46652 -593.76603,567.8967 -585.29402,651.30236 -583.03659,673.5264 -581.04187,690.50483 -579.06729,704.30236 -575.64032,728.24863 -568.31121,784.57798 -567.61746,792.30236 -565.61109,814.64186 -546.80085,825.07567 -519.8157,818.81739 z M 1209.4054,827.32372 C 1187.5954,826.37302 1169.2119,824.11375 1144.4054,819.33545 1070.9866,805.1933 1001.6735,748.90315 1022.9042,720.66266 1054.5002,678.63454 1087.6297,653.4075 1111.3853,653.28705 1117.761,653.25472 1117.8437,651.82624 1111.8313,645.58687 1093.8636,626.94093 1079.6364,600.6839 1083.432,593.17491 1108.7757,543.03822 1258.9377,504.38951 1337.0889,527.88871 1350.4134,531.89525 1398.9343,663.12816 1390.7411,673.00031 1384.6349,680.35775 1368.371,686.94668 1352.9054,688.32843 1347.1303,688.84439 1339.0304,689.55915 1334.9054,689.91679 1321.2778,691.09832 1321.7907,697.66818 1337.3947,721.80236 1339.884,725.65236 1342.8206,730.37736 1343.9208,732.30236 1345.0207,734.22736 1348.4386,739.85236 1351.5158,744.80236 1362.7867,762.93297 1367.489,775.84853 1366.6062,786.25014 1365.771,796.09044 1367.1131,794.48004 1350.348,805.75739 1321.1464,825.40028 1286.5887,830.68813 1209.4054,827.32372 z M 1301.3582,788.84548 C 1336.7813,779.4423 1347.8224,754.33125 1330.9641,721.51171 1319.7877,699.75354 1309.6466,691.69554 1248.9054,656.30823 1165.3836,607.64924 1169.4691,592.01126 1257.9054,621.8584 1293.1914,633.76736 1306.1339,638.41255 1311.3419,641.0372 1321.9131,646.3648 1346.1892,654.4717 1349.6354,653.82519 1367.3434,650.50314 1356.5133,572.5652 1334.9274,547.98018 1331.1346,543.66043 1328.7879,542.76208 1316.4054,540.88976 1227.6702,527.4724 1174.6555,538.80721 1112.7739,584.42715 1099.4558,594.24544 1100.7716,610.3989 1116.2406,626.98335 1126.557,638.04382 1131.1573,640.93346 1194.3747,676.06312 1218.3129,689.36546 1236.9054,702.67099 1236.9054,706.49971 1236.9054,708.24346 1224.8276,706.8829 1209.4054,703.40184 1207.2054,702.90526 1203.3803,702.05286 1200.9054,701.50763 1190.2227,699.15425 1172.2629,694.19548 1157.4054,689.49708 1087.8982,667.5168 1095.011,667.0811 1073.074,694.66284 1027.0079,752.58257 1027.8975,750.18497 1050.5309,755.423 1055.4119,756.55261 1063.6804,758.52823 1068.9054,759.81327 1078.8911,762.26918 1091.6711,765.18945 1103.4054,767.69668 1116.4927,770.49298 1134.3921,774.37623 1138.4054,775.28986 1162.3292,780.73612 1211.624,788.77102 1236.4054,791.26351 1254.9349,793.1272 1290.1697,791.8155 1301.3582,788.84548 z M 957.7126,751.05236 C 956.8464,750.36486 953.3158,745.30236 949.8668,739.80236 941.4107,726.31729 926.5077,704.4545 923.4131,700.99447 920.2088,697.41178 919.522,697.92043 917.996,705.00672 914.9834,718.99606 915.7981,717.8318 905.618,722.69694 873.8803,737.86454 846.2982,729.9276 839.9563,703.80236 838.822,699.12974 839.239,696.09919 846.324,657.51696 850.4938,634.81 853.9054,615.02607 853.9054,613.55268 853.9054,611.19207 854.0805,611.04897 855.3799,612.34825 856.6791,613.64753 856.3869,616.36526 852.92,635.22297 850.7561,646.99311 849.1825,656.94169 849.4229,657.33092 849.6636,657.72015 848.2986,666.53546 846.3898,676.92049 842.1868,699.78659 842.1052,702.19791 845.4017,706.11556 852.0602,714.02882 868.5164,715.22471 886.3176,709.08899 901.3195,703.91814 902.9054,701.26467 902.9054,681.33448 902.9054,661.96678 901.1497,660.85722 927.3811,696.80236 930.9935,701.75236 935.1767,707.43266 936.6772,709.42525 938.1777,711.41784 941.8541,716.47 944.8471,720.65227 955.2069,735.12884 963.1746,733.86269 985.1845,714.24223 998.8148,702.09164 998.5247,701.28498 969.3893,670.32146 954.7707,654.78583 955.3166,655.65655 959.6554,654.79335 984.8755,649.77581 993.6782,630.0449 981.3432,606.18054 956.6574,558.42109 831.4996,552.81071 848.021,600.20418 849.6456,604.86437 848.4399,605.06712 845.502,600.62775 830.3849,577.78425 873.1461,556.5963 912.8104,567.27679 915.0881,567.89009 917.3247,568.16122 917.7809,567.87932 922.5261,564.94663 962.8536,578.90626 974.4111,587.48223 1009.9942,613.88565 1011.1266,656.03382 976.5826,668.30541 972.5093,669.75245 973.0754,670.668 986.972,685.10941 1007.7041,706.65424 1011.336,714.86101 1004.3501,724.37765 994.8296,737.34708 963.2224,755.42514 957.7126,751.05236 z M -184.46985,745.18023 C -208.7742,742.69459 -226.90796,722.22981 -214.93195,710.80236 -214.20538,710.10907 -214.09696,710.81271 -214.57845,713.0965 -218.59016,732.12468 -202.23873,739.08826 -170.86327,731.71348 -148.51068,726.45951 -97.514,715.76246 -83.08711,713.30157 -60.23003,709.40269 -59.52283,707.90587 -70.05593,685.72042 -76.91922,671.26454 -76.79673,671.71922 -74.02345,670.99399 -66.00128,668.89615 -56.05483,676.36023 -54.05857,685.97617 -53.43616,688.9743 -52.01374,693.4917 -50.89764,696.01484 -43.60053,712.51115 -57.78817,723.60509 -96.059,731.32852 -104.05361,732.94191 -120.55829,736.49361 -132.73608,739.22118 -144.91386,741.94876 -158.86386,744.45933 -163.73608,744.80023 -168.60829,745.14113 -173.49465,745.54731 -174.59465,745.70285 -175.69465,745.85838 -180.13849,745.62321 -184.46985,745.18023 z M -10.84099,712.87673 C -42.64385,706.80949 -54.00064,681.19524 -35.80105,656.58151 -31.82413,651.20298 -27.96169,645.45236 -27.21786,643.80236 -25.86544,640.80236 -25.86544,640.80236 -24.89778,643.30236 -22.53763,649.39993 -24.38559,654.10674 -31.91934,661.18649 -39.56823,668.37443 -40.64952,670.86804 -40.44915,680.85729 -40.05822,700.34692 -18.31938,704.58505 25.90535,693.79355 29.48035,692.9212 38.03035,691.36228 44.90535,690.32929 86.15609,684.13124 99.95744,671.43987 104.92846,635.13356 107.29996,617.81309 90.39785,583.89597 73.2707,571.60661 66.08466,566.45036 65.65283,564.51048 72.53139,568.28549 88.5881,577.09752 104.82494,594.34121 113.85478,612.17134 116.38403,617.16554 117.15732,616.79709 118.82684,609.80236 121.37357,599.13236 143.20908,567.30236 147.98202,567.30236 149.58849,567.30236 149.01817,568.26601 144.55362,573.0952 97.15669,624.36331 145.406,693.46919 204.72131,659.27137 213.46203,654.23198 214.60862,654.39324 217.07298,661.00851 222.79846,676.37785 240.4052,674.48656 260.03137,656.39398 277.47721,640.31136 277.47406,640.63587 260.49225,609.00603 253.77596,596.49647 255.16495,596.48425 265.00595,608.96632 290.04079,640.71988 292.14943,646.7915 283.35447,661.79897 278.72506,669.69847 254.29518,687.30236 247.96203,687.30236 245.14273,687.30236 227.97159,676.88039 223.1093,672.21809 216.99233,666.35269 217.21288,666.38271 213.00575,670.84308 197.08899,687.71789 156.19506,677.74218 130.25039,650.65564 122.25719,642.31065 122.41189,642.29867 121.47204,651.33563 119.07276,674.40554 102.14926,694.99692 78.90535,703.12792 67.10146,707.25706 65.06838,707.66943 54.90535,707.99588 49.13035,708.18138 42.38035,708.7967 39.90535,709.36326 21.1445,713.65788 0.68035,715.07474 -10.84099,712.87673 z M 794.9054,706.42261 C 794.9054,705.13882 768.1724,665.2268 765.4455,662.43924 763.1337,660.07612 763.1337,660.07612 753.0246,663.2168 740.2535,667.18447 739.3698,668.61633 735.9035,690.95706 735.114,696.04617 733.0407,703.11318 731.9211,704.53252 726.4325,711.48992 706.4671,701.32908 687.7421,682.04878 676.9272,670.91325 668.47565,661.65706 668.96075,661.47947 669.44585,661.30188 676.0442,665.04867 683.624,669.80568 714.1447,688.96033 713.1097,688.39846 717.3054,688.08952 723.559,687.62907 724.5576,685.37236 727.3331,665.42963 730.2376,644.55912 728.3126,646.65258 746.341,644.75889 764.909,642.80853 761.9985,640.69859 773.9713,664.78919 789.6328,696.30187 790.564,696.40705 809.5043,668.80236 822.7594,649.48349 823.8616,646.40177 819.6978,640.30236 813.0131,630.51014 816.2599,631.98566 823.7997,642.16642 832.6021,654.05218 836.759,660.74222 836.0757,661.92316 835.7071,662.56035 830.4554,668.91104 824.4054,676.03582 818.3554,683.16059 810.0587,693.11024 805.9682,698.14615 799.4322,706.19293 794.9054,709.57959 794.9054,706.42261 z M -208.75374,702.49815 C -207.74123,701.36835 -205.37873,699.71599 -203.50374,698.82624 -201.62874,697.9365 -200.09465,696.51711 -200.09465,695.67206 -200.09465,693.34943 -204.00667,678.09845 -205.21991,675.69128 -205.80511,674.53018 -208.46334,664.85518 -211.12707,654.19128 -220.10856,618.23513 -219.38998,619.99211 -226.4716,616.67257 -233.88994,613.19519 -236.49565,608.94596 -236.55604,600.2275 -236.66179,584.96013 -220.18326,577.39738 -174.59465,571.79058 -167.99465,570.97887 -158.99465,569.85393 -154.59465,569.29071 -109.2645,563.4883 -88.07067,567.65674 -73.19282,585.30099 -70.87335,588.05174 -68.27553,590.30236 -67.4199,590.30236 -66.11446,590.30236 -65.97273,591.22732 -66.53884,596.05236 -67.4136,603.50811 -67.96934,605.29964 -69.41204,605.31474 -70.06247,605.32155 -71.6115,606.89688 -72.85433,608.81548 -77.08376,615.34463 -86.30843,620.75361 -95.56097,622.12973 -99.13016,622.66057 -100.53425,623.30373 -100.38705,624.34037 -98.44803,637.99592 -96.42776,641.86021 -90.83543,642.6103 -85.24041,643.36075 -82.75222,646.58975 -81.19813,655.11692 -80.52799,658.79391 -79.71469,662.88295 -79.39079,664.20366 -78.8237,666.51602 -78.9601,666.58375 -83.07326,666.03205 -85.42252,665.71695 -88.30089,665.84052 -89.46965,666.30665 -90.6384,666.77278 -96.76965,668.80983 -103.09465,670.83342 -109.41965,672.85702 -119.24732,676.3152 -124.93392,678.51826 -136.50084,682.99943 -137.04828,682.8934 -137.82282,676.0217 -138.36734,671.19067 -135.57532,669.7308 -119.04881,666.20532 -100.50507,662.24951 -93.6929,651.69569 -101.27499,638.66905 -104.81322,632.59009 -113.03211,621.11995 -116.39536,617.56734 -120.17963,613.57 -120.07402,613.46759 -109.88877,611.25764 -84.17433,605.67824 -80.95576,602.55878 -85.68831,587.80236 -92.21401,567.45479 -94.98993,567.08585 -172.59465,576.25211 -222.38888,582.13354 -247.63778,601.7809 -221.0722,613.97478 -214.5836,616.95311 -214.72077,616.72647 -212.09811,628.80236 -211.50085,631.55236 -207.60557,648.17171 -203.44191,665.73424 -195.21412,700.43955 -195.22211,700.29464 -201.53578,700.3061 -202.66816,700.30815 -205.16965,701.2644 -207.09465,702.43109 -210.5351,704.51626 -210.56333,704.5174 -208.75374,702.49815 z M 360.90535,683.54921 C 322.94212,679.70501 303.09593,664.22037 310.70973,644.38496 311.64232,641.95539 312.97142,639.7792 313.66329,639.54898 314.62585,639.22869 314.68455,639.7529 313.91329,641.78148 310.48517,650.79813 313.89895,660.76818 321.75894,664.69495 329.29969,668.46223 329.75051,668.48703 395.35575,668.74498 472.64235,669.04885 466.19905,671.53679 459.95195,643.80236 458.19325,635.99421 457.38665,630.43577 457.93245,629.88446 460.54795,627.24246 471.60635,633.75208 473.89695,639.28211 475.61005,643.41789 476.23785,643.1469 479.87545,636.70129 483.81475,629.72127 484.43375,630.21225 482.45445,638.74685 476.60805,663.95593 488.05535,676.84452 508.32855,667.87876 515.19195,664.84341 520.94235,660.61765 539.15015,645.22901 557.78445,629.4799 554.91865,629.31901 572.64855,647.10965 599.74045,674.29432 605.06315,671.35546 625.72775,617.80236 652.74535,547.78518 652.92255,547.00537 642.97825,541.86668 617.61905,528.76232 609.99135,523.69355 628.64825,532.34405 641.09435,538.11483 662.03075,553.27045 665.13035,558.75307 666.25715,560.74609 640.74095,627.83297 632.80145,643.75205 623.73665,661.92722 613.94255,675.07871 606.59775,678.93802 603.39615,680.62031 605.52785,682.14307 583.01095,662.08907 571.96475,652.25115 564.10845,646.29937 562.17525,646.30434 561.14085,646.307 547.33675,655.95203 526.39785,671.30236 524.52225,672.67736 521.37555,674.92736 519.40535,676.30236 517.43515,677.67736 514.21135,680.03457 512.24145,681.54061 505.17845,686.94058 488.33805,677.74091 480.82905,664.38039 478.26665,659.82123 476.90535,659.9368 476.90535,664.71349 476.90535,671.70651 469.07195,678.62548 457.40535,681.93707 452.02655,683.46386 373.08617,684.78265 360.90535,683.54921 z M 28.2249,656.18739 C 26.88601,654.57413 20.51734,611.75588 21.30931,609.69205 22.0704,607.70867 37.94625,607.82837 44.81882,609.8693 60.28415,614.46201 72.63071,640.03155 63.69684,648.96541 58.08286,654.57939 31.39914,660.01212 28.2249,656.18739 z M 57.69666,651.03337 C 65.88901,647.23416 66.59908,638.7954 59.82648,625.72168 56.2864,618.88796 39.2109,618.1631 39.55757,624.86126 40.38986,640.94226 41.53281,651.69136 42.61091,653.57696 43.32712,654.82961 53.04328,653.19138 57.69666,651.03337 z M 654.43165,648.14162 C 653.96485,646.98757 656.26895,643.17384 661.98365,635.64162 673.3264,620.69136 676.3743,617.86073 668.18485,629.88253 664.51625,635.26779 657.70175,645.57661 656.25435,647.93049 655.21225,649.62539 655.03985,649.64535 654.43165,648.14162 z M -30.95221,630.64712 C -32.79887,628.79259 -36.95669,626.04384 -40.1918,624.5388 -47.95109,620.92902 -47.63871,620.30236 -38.07995,620.30236 -28.92222,620.30236 -26.1062,622.71141 -26.09839,630.55236 -26.09392,635.0304 -26.57813,635.03985 -30.95221,630.64712 z M 321.36646,632.21003 C 322.44508,631.52619 325.14508,630.42875 327.36646,629.77127 332.05167,628.38457 331.9707,629.62939 330.06374,588.30236 328.17697,547.41273 328.1017,547.00662 321.80621,543.75109 315.60101,540.54226 313.02721,529.90414 316.70968,522.68591 322.90671,510.53873 338.15759,507.85603 381.90535,511.2177 444.45005,516.02376 464.45085,522.48852 475.70195,541.53513 477.86045,545.18927 478.36745,545.04104 479.77465,540.34434 481.71965,533.85253 483.20105,534.21039 482.24135,540.94021 480.39515,553.88635 481.36475,562.77282 486.20885,577.30236 491.66815,593.67734 491.97685,595.69463 490.53795,605.59439 489.17835,614.94819 487.52045,615.37794 487.80675,606.30236 487.95305,601.66426 487.10245,596.36501 484.83745,587.80236 483.09155,581.20236 481.20605,573.55236 480.64735,570.80236 479.23605,563.85468 478.59155,563.54948 474.33025,567.81079 468.58945,573.55158 460.96545,576.55982 451.40535,576.85635 446.33265,577.01369 443.44195,577.5066 443.50535,578.20342 443.56035,578.80784 443.67285,583.1093 443.75535,587.76222 443.90535,596.22208 443.90535,596.22208 448.04105,597.46116 454.22655,599.31439 455.89695,602.74054 455.90165,613.58374 455.90565,623.03902 455.06425,624.52816 450.95935,622.33126 449.33985,621.46455 443.63755,621.83106 426.13125,623.92705 394.27235,627.74143 396.40535,627.89389 396.40535,621.80236 396.40535,616.0703 397.82765,615.5692 414.60615,615.38997 443.08405,615.08575 447.65695,602.05701 430.35465,570.52045 426.25505,563.04813 425.18595,563.63807 444.19895,562.88064 466.14525,562.00635 469.42905,557.35162 463.79355,535.10598 459.18615,516.91881 339.9261,507.19251 325.27462,523.80901 319.58448,530.2623 319.98691,535.67885 326.55908,541.09705 328.67453,542.84106 331.13906,544.89692 332.03582,545.66564 338.35145,551.07948 335.28404,630.92716 328.73685,631.54123 325.80452,631.81626 322.50535,632.359 321.40535,632.74732 319.43579,633.44263 319.4352,633.43445 321.36646,632.21003 z M 812.0277,628.78886 C 810.331,626.85644 808.2406,623.81894 807.3824,622.03886 805.3609,617.84622 812.1297,624.97003 814.5214,629.55236 816.4418,633.23165 815.7398,633.01673 812.0277,628.78886 z M 903.4054,628.98602 C 895.6326,627.14596 893.2286,623.80533 897.884,621.31377 901.1992,619.5396 933.5477,618.95249 939.4042,620.5602 957.5189,625.53297 922.9739,633.6185 903.4054,628.98602 z M -160.68344,626.8046 C -161.68102,622.82995 -160.70824,621.84393 -154.50597,620.54299 -146.45222,618.8537 -145.79838,620.25887 -152.34002,625.19786 -158.66686,629.97467 -159.83151,630.19896 -160.68344,626.8046 z M 181.48393,617.98135 C 171.72081,607.63792 171.96309,604.74698 183.40535,595.05497 199.08126,581.7769 211.72886,578.16216 250.33523,575.9261 293.37424,573.43331 293.4005,570.06321 250.65236,535.22083 231.23109,519.3913 233.11045,519.85767 216.1821,526.66687 191.75563,536.49209 190.81143,536.32885 211.25481,525.81496 233.30362,514.47541 229.899,514.41705 244.6729,526.38783 287.53534,561.11781 296.16413,569.25741 295.66173,574.48601 294.74863,583.98874 285.66352,589.1144 269.40535,589.29938 266.10535,589.33693 260.93035,590.23775 257.90535,591.3012 252.77107,593.10617 252.33886,593.12222 251.40535,591.54258 247.06822,584.20342 244.40743,583.01292 233.62559,583.58745 213.66835,584.6509 212.46747,585.66574 211.52964,602.26017 210.87253,613.8874 209.25294,620.30236 206.9745,620.30236 206.49078,620.30236 206.33619,617.64251 206.63098,614.39157 207.63756,603.29076 207.28232,602.91145 196.63217,603.71543 191.59137,604.09596 187.34738,604.527 187.20108,604.67329 186.48641,605.38796 186.55344,617.1436 187.28592,619.55236 188.53943,623.67454 186.28034,623.06285 181.48393,617.98135 z M 799.4621,611.07985 C 797.5289,608.31995 797.434,606.66621 799.2973,608.21267 800.5609,609.26136 802.2053,613.30236 801.3685,613.30236 801.1762,613.30236 800.3183,612.30223 799.4621,611.07985 z M 737.9054,606.24783 C 737.9054,597.54679 741.3945,594.45491 745.3545,599.64675 749.2494,604.75326 748.5089,606.18473 741.1554,607.7635 738.2574,608.38569 737.9054,608.22151 737.9054,606.24783 z M 576.31415,594.27423 C 563.26695,583.34857 553.06615,582.46287 541.92325,591.28818 536.38095,595.67779 535.50615,595.3253 536.37435,589.05236 537.64755,579.85347 538.93955,570.98012 539.90535,564.80236 546.41855,523.13978 546.97095,525.79155 530.42715,519.30499 527.20295,518.04082 527.88725,517.17007 533.07235,515.93908 535.41275,515.38345 537.31115,516.69075 548.57235,526.613 564.66885,540.79554 563.87995,538.89923 562.37665,559.79477 560.92325,579.99649 560.33215,577.94125 569.60185,584.91782 578.74745,591.80094 580.11095,592.05591 580.95845,587.04132 582.29085,579.15762 583.16975,580.84569 582.91665,590.80236 582.71405,598.77112 582.08145,599.10377 576.31415,594.27423 z M 583.34485,568.84276 C 584.08975,562.46965 585.90535,560.39101 585.90535,565.91123 585.90535,568.11611 585.19875,570.79361 584.33525,571.86123 582.87165,573.67067 582.80445,573.46589 583.34485,568.84276 z M 384.31655,568.8046 C 383.15125,564.16161 384.26635,563.30236 391.45725,563.30236 399.54865,563.30236 399.65115,564.64241 391.85425,568.49416 385.08075,571.84034 385.07855,571.84043 384.31655,568.8046 z M 33.40535,556.20656 C 24.98097,554.75661 8.92673,554.30084 -1.59465,555.21293 -12.1692,556.12962 -17.74345,555.15166 -10.56538,553.63908 -3.87848,552.23 27.68548,552.63307 34.40535,554.21336 44.81453,556.66124 44.11764,558.05028 33.40535,556.20656 z M 738.9054,538.4248 C 738.9054,536.40224 741.8514,535.01271 743.4054,536.30236 745.7282,538.2302 745.1922,539.30236 741.9054,539.30236 740.2553,539.30236 738.9054,538.90746 738.9054,538.4248 z M 588.90535,528.60812 C 588.90535,524.74856 590.55935,523.29 594.85535,523.36117 598.04685,523.41404 598.20645,523.54027 596.43575,524.61117 595.35245,525.26632 593.21495,527.08745 591.68575,528.65812 588.90535,531.51387 588.90535,531.51387 588.90535,528.60812 z M 609.90535,526.5815 C 607.07905,526.07448 604.64575,524.25726 606.95535,524.37844 607.75285,524.42028 609.98035,525.06105 611.90535,525.80236 615.39305,527.14547 614.65395,527.43339 609.90535,526.5815 z"
+       style="fill:#211c19" />
   </g>
 </svg>
diff -r 57a508884052 -r 0a494f951dcf share/hedgewars/Data/Locale/da.lua
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/hedgewars/Data/Locale/da.lua	Thu Jul 26 11:10:56 2012 +0200
@@ -0,0 +1,220 @@
+locale = {
+        [":("] = ":(",
+        ["!!!"] = "!!!",
+        ["..."] = "...",
+        ["Accuracy Bonus!"] = "Præcisionsbonus",
+        ["Achievement Unlocked"] = "Bedrift Fuldført", -- User_Mission_-_Bamboo_Thicket, User_Mission_-_That_Sinking_Feeling, Tumbler
+        ["a Hedgewars mini-game"] = "et Hedgewars-minispil", -- Space_Invasion, The_Specialists
+        ["Aiming Practice"] = "Sigtetræning", --Bazooka, Shotgun, SniperRifle
+        ["Ammo"] = "Ammunition",
+        ["Ammo Depleted!"] = "Ammunition Udtømt",
+        ["ammo extended!"] = "ammunition udstrakt",
+        ["Ammo is reset at the end of your turn."] = "Ammunition nulstilles i slutningen af turen",
+        ["Ammo Maniac!"] = "Ammunitionsgalskab",
+        ["Available points remaining: "] = "Tilgængeligt point tilbage: ",
+        ["[Backspace]"] = "[Tilbage]",
+        ["Bamboo Thicket"] = "Bambusbuskads",
+        ["Barrel Eater!"] = "Tøndeæder!",
+        ["Barrel Launcher"] = "Tøndekaster",
+        ["Bat balls at your enemies and|push them into the sea!"] = "Slå bolde på dine fjender og|skub dem i havet!",
+        ["Bat your opponents through the|baskets and out of the map!"] = "Slå dine modstandere gennem|kurvene og ud af banen!",
+        ["Bazooka Training"] = "Træning med Bazooka",
+        ["Best laps per team: "] = "Bedste omgang per hold: ",
+        ["Best Team Times: "] = "Bedste Holdtid: ",
+        ["Bloody Rookies"] = "Forbandede Begyndere", -- 01#Boot_Camp, User_Mission_-_Dangerous_Ducklings, User_Mission_-_Diver, User_Mission_-_Spooky_Tree
+        ["Boom!"] = "Bum!",
+        ["BOOM!"] = "BUM!",
+        ["Boss defeated!"] = "Boss besejret!",
+        ["Boss Slayer!"] = "Boss-morder!",
+        ["Build a track and race."] = "Byg en bane og ræs.",
+        ["CAPTURE THE FLAG"] = "EROBR FLAGET",
+        ["Careless"] = "Sløset",
+        ["Change Weapon"] = "Skift Våben",
+        ["Clumsy"] = "Kluntet",
+        ["Codename: Teamwork"] = "Kodeord: Samarbejde",
+        ["Complete the track as fast as you can!"] = "Gennemfør banen så hurtigt som muligt!",
+        ["Congratulations!"] = "Tillykke!",
+        ["Congratulations! You've eliminated all targets|within the allowed time frame."] = "Tillykke! Du har elimineret alle målene|inden for den tilladte tidsramme.", --Bazooka, Shotgun, SniperRifle
+        ["Control pillars to score points."] = "Kontroller søjler for at score point.",
+        ["Cybernetic Empire"] = "Kybernetisk Imperium",
+        ["DAMMIT, ROOKIE!"] = "FOR HELVEDE, REKRUT!",
+        ["DAMMIT, ROOKIE! GET OFF MY HEAD!"] = "FOR HELVEDE, REKRUT! KOM NED DERFRA!",
+        ["Dangerous Ducklings"] = "Farlige Ællinger",
+        ["Deadweight"] = "Dødvægt",
+        ["Demolition is fun!"] = "Nedrivning er sjovt!",
+        ["Depleted Kamikaze!"] = "Udtømt Kamikaze!",
+        ["Destroy invaders to score points."] = "Tilintetgør indtrængere for at score point.",
+        ["Double Kill!"] = "Dobbeltdrab!",
+        ["Drone Hunter!"] = "Dronjæger!",
+        ["Drowner"] = "Drukner",
+        ["Each turn you get 1-3 random weapons"] = "Hver tur får du 1-3 tilfældige våben",
+        ["Each turn you get one random weapon"] = "Hver tur får du ét tilfældigt våben",
+        ["Eliminate all enemies"] = "Eliminer alle fjender",
+        ["Eliminate all targets before your time runs out.|You have unlimited ammo for this mission."] = "Eliminer all mål før tiden løber ud.|Du har uendelig ammunition under denne mission.", --Bazooka, Shotgun, SniperRifle
+        ["Eliminate Poison before the time runs out"] = "Eliminer Giften før tiden løber ud",
+        ["Eliminate the Blue Team"] = "Eliminer det Blå Hold",
+        ["Eliminate the enemy before the time runs out"] = "Eliminer fjenden før tiden løber ud", -- User_Mission_-_Bamboo_Thicket, User_Mission_-_Newton_and_the_Hammock
+        ["Eliminate the enemy hogs to win."] = "Eliminer fjendens pindsvin for at vinde.",
+        ["Eliminate the enemy specialists."] = "Eliminer fjendens specialister.",
+        ["- Eliminate Unit 3378 |- Feeble Resistance must survive"] = "- Eliminer Enhed 3378 |- Sølle Modstandere skal overleve",
+        ["Energetic Engineer"] = "Energisk Ingeniør",
+        ["Enjoy the swim..."] = "Nyd svømmeturen...",
+        ["[Enter]"] = "[Enter]",
+        ["Fastest lap: "] = "Hurtigste omgang: ",
+        ["Feeble Resistance"] = "Sølle Modstand",
+        ["Fire"] = "Skyd",
+        ["Flag captured!"] = "Flag erobred!",
+        ["Flag respawned!"] = "Flag gendannet!",
+        ["Flag returned!"] = "Flag returneret!",
+        ["Flags, and their home base will be placed where each team ends their first turn."] = "Flag og deres hjemmebase bliver placeret der hvor hvert hold afslutter sin første tur.",
+        ["Flamer"] = "Hetzer",
+        ["Friendly Fire!"] = "Egenbeskydning!",
+        ["fuel extended!"] = "brændstof udstrakt!",
+        ["GAME BEGUN!!!"] = "SPILLET ER STARTET!!!",
+        ["Game Modifiers: "] = "Spilmodifikatorere",
+        ["GAME OVER!"] = "SPILLET ER FÆRDIGT!",
+        ["Game Started!"] = "Spillet er Startet!",
+        ["Get on over there and take him out!"] = "Kom derover og tag ham ud!",
+        ["Goal"] = "Mål",
+        ["GO! GO! GO!"] = "GO! GO! GO!",
+        ["Good birdy......"] = "God pipfugl......",
+        ["Good luck out there!"] = "Held og lykke derude!",
+        ["Good so far!"] = "Godt indtil videre!",
+        ["Good to go!"] = "Klar!",
+        ["GOTCHA!"] = "FIK DIG!",
+        ["Grab Mines/Explosives"] = "Snup Miner/Sprængstof",
+        ["Hahahaha!"] = "Hahahaha!",
+        ["Haha, now THAT would be something!"] = "Haha, ja DET ville være noget!",
+        ["Hapless Hogs"] = "Uheldige Pindsvin",
+        [" Hapless Hogs left!"] = " Uheldige Pindsvin gik!",
+        ["Health crates extend your time."] = "Kasse med helbredelse forlænger din tid.",
+        ["Heavy"] = "Tung",
+        ["Hedgewars-Basketball"] = "Hedgewars-Basketball",
+        ["Hedgewars-Knockball"] = "Hedgewars-Knockball",
+        ["Heh, it's not that bad."] = "Heh, det er ikke så slemt.",
+        ["Hit Combo!"] = "Slagkombi!",
+        ["Hmmm..."] = "Hmmm...",
+        ["Hooray!"] = "Hurra!",
+        ["Hunter"] = "Jæger", --Bazooka, Shotgun, SniperRifle
+        ["Instructor"] = "Instruktør", -- 01#Boot_Camp, User_Mission_-_Dangerous_Ducklings
+        ["invaders destroyed"] = "indtrængere tilintetgjorte",
+        ["It's a good thing SUDDEN DEATH is 99 turns away..."] = "Det er heldigt at PLUDSELIG DØD er 99 ture væk...",
+        ["Jumping is disabled"] = "Hop er deaktiveret",
+        ["Kamikaze Expert!"] = "Kamikaze-ekspert!",
+        ["Keep it up!"] = "Hold gejsten!",
+        ["Killing spree!"] = "Drabsorgie!",
+        ["KILLS"] = "DRAB",
+        ["Last Target!"] = "Sidste Mål!",
+        ["[Left Shift]"] = "[Venstre Shift]",
+        ["Listen up, maggot!!"] = "Lyt efter, maddike!",
+        ["Lively Lifeguard"] = "Livlig Livredder",
+        ["Mine Deployer"] = "Mineudsætter",
+        ["Mine Eater!"] = "Mineæder",
+        ["|- Mines Time:"] = "|- Tid til Miner:", -- User_Mission_-_Diver, User_Mission_-_Spooky_Tree, User_Mission_-_Teamwork
+        ["MISSION FAILED"] = "MISSION MISLYKKEDES", -- User_Mission_-_Dangerous_Ducklings, User_Mission_-_Diver, User_Mission_-_Spooky_Tree, User_Mission_-_Teamwork
+        ["MISSION SUCCESS"] = "MISSION LYKKEDES",
+        ["MISSION SUCCESSFUL"] = "MISSION VAR SUCCESFULD", -- User_Mission_-_Diver, User_Mission_-_Spooky_Tree, User_Mission_-_Teamwork
+        ["Movement: [Up], [Down], [Left], [Right]"] = "Bevægelse: [Op], [Ned], [Venstre], [Højre]",
+        ["Multi-shot!"] = "Flerskud!",
+        ["Nameless Heroes"] = "Navnløse Helte",
+        ["New Barrels Per Turn"] = "Nye Tønder Per Tur",
+        ["NEW CLAN RECORD: "] = "NY KLANREKORD: ",
+        ["NEW fastest lap: "] = "NY hurtigste omgang: ",
+        ["New Mines Per Turn"] = "Nyt Antal Miner Per Tur",
+        ["NEW RACE RECORD: "] = "NY RÆSREKORD: ",
+        ["Newton's Hammock"] = "Newtons Hængekøje",
+        ["NOT ENOUGH WAYPOINTS"] = "IKKE NOK RUTEPUNKTER",
+        ["Not So Friendly Match"] = "Ikke Så Venlig Kamp", -- Basketball, Knockball
+        ["Oh no! Just try again!"] = "Åh nej! Bare prøv igen!", -- User_Mission_-_Diver, User_Mission_-_Spooky_Tree, User_Mission_-_Teamwork
+        ["Oh no! Time's up! Just try again."] = "Åh nej! Tiden er løbet ud! Bare prøv igen.", --Bazooka, Shotgun, SniperRifle
+        ["Operation Diver"] = "Operation Dykker",
+        ["Opposing Team: "] = "Modstander: ",
+        ["Pathetic Hog #%d"] = "Patetisk Pindsvin #%d",
+        ["Pathetic Resistance"] = "Patetisk Modstand", -- User_Mission_-_Bamboo_Thicket, User_Mission_-_Newton_and_the_Hammock
+        ["Per-Hog Ammo"] = "Ammunition Per Pindsvin",
+        ["Place more waypoints using [ENTER]"] = "Placer flere rutepunkter med [ENTER]",
+        ["Place more waypoints using the 'Air Attack' weapon."] = "Placer flere rutepunkter med 'Luftangreb'-våbnet",
+        ["points"] = "point", -- Control, CTF_Blizzard, Basic_Training_-_Bazooka, Basic_Training_-_Shotgun, Basic_Training_-_Sniper_Rifle
+        ["Poison"] = "Gift",
+        ["Power Remaining"] = "Kraft Tilbage",
+        ["Prepare yourself"] = "Gør dig klar",
+        ["Press [Precise] to skip intro"] = "Tryk på [Præcis] for at springe introen over",
+        ["Race complexity limit reached."] = "Kompleksitetsgrænsen for ræset er nået.",
+        ["RACER"] = "RACER",
+        [" - Return the enemy flag to your base to score | - First team to 3 captures wins | - You may only score when your flag is in your base | - Hogs will drop the flag if killed, or drowned | - Dropped flags may be returned or recaptured | - Hogs respawn when killed"] = " - Returner fjendens flag til din base for at score | - Første hold til at erobre 3 flag vinder | - Du kan kun score når dit flag er ved din base | Pindsvin taber flaget hvis de dør eller drukner | - Tabte flag kan returneres eller generobres | - Pindsvin genopliver når de bliver dræbt",
+        ["Round Limit:"] = "Rundebegrænsning: ",
+        ["Round Limit"] = "Rundebegrænsning",
+        ["Rounds Complete: "] = "Runder Færdiggjort: ",
+        ["Rounds Complete"] = "Runder Færdiggjort",
+        ["RULES OF THE GAME [Press ESC to view]"] = "SPILLETS REGLER [Tryk på ESC for at se]",
+        ["s|"] = "s|",
+        ["Save as many hapless hogs as possible!"] = "Red så mange uheldige pindsvin som muligt!",
+        ["SCORE"] = "SCORE",
+        ["sec"] = "sek.", -- CTF_Blizzard, TrophyRace, Basic_Training_-_Bazooka, Basic_Training_-_Shotgun, Basic_Training_-_Sniper_Rifle, User_Mission_-_Diver, User_Mission_-_Spooky_Tree, User_Mission_-_Teamwork, Capture_the_Flag
+        ["See ya!"] = "Ses!",
+        ["selected!"] = "valgt",
+        ["s"] = "s", -- GaudyRacer, Space_Invasion
+        ["Shield boosted! +30 power"] = "Skjold forstærket! +30 kraft",
+        ["Shield Depleted"] = "Skjold Udtømt",
+        ["Shield is fully recharged!"] = "Skjold er fuldt genopladt!",
+        ["Shield Master!"] = "Skjoldmester!",
+        ["Shield Miser!"] = "Skjoldgnier!",
+        ["Shield OFF:"] = "Skjold SLÅET FRA:",
+        ["Shield ON:"] = "Skjold SLÅET TIL:",
+        ["Shield Seeker!"] = "Skjoldsøger!",
+        ["Shotgun Team"] = "Haglgeværdshold",
+        ["Shotgun Training"] = "Træning med Haglgevær",
+        ["shots remaining."] = "skud tilbage.",
+        ["Silly"] = "Fjollet",
+        ["Sinky"] = "Synkende",
+        ["%s is out and Team %d|scored a penalty!| |Score:"] = "%s er ude og Hold %d|scored en straf!| |Score:", -- Basketball, Knockball
+        ["%s is out and Team %d|scored a point!| |Score:"] = "%s er ude og Hold %d|scored et point!| |Score:", -- Basketball, Knockball
+        ["Sniper Training"] = "Træning med Sniperriffel",
+        ["Sniperz"] = "Sniperz",
+        ["Sponge"] = "Svamp",
+        ["Spooky Tree"] = "Uhyggeligt Træ",
+        ["STATUS UPDATE"] = "STATUSOPDATERING", -- GaudyRacer, Space_Invasion
+        ["Switched to "] = "Skiftede til ",
+        ["Team %d: "] = "Hold %d: ",
+        ["Team Scores"] = "Holdscore", -- Control, Space_Invasion
+        ["That Sinking Feeling"] = "Følelsen af at Synke",
+        ["That was pointless."] = "Det var meningsløst.",
+        ["The enemy is hiding out on yonder ducky!"] = "Fjenden gemmer sig på rapanden derover!",
+        ["The flag will respawn next round."] = "Flaget gendannes næste runde.",
+        ["The Nameless One"] = "Den Navnløse Ene",
+        ["THE SPECIALISTS"] = "SPECIALISTERNE",
+        ["This one's tricky."] = "Den her er drilagtig.",
+        ["This rain is really something..."] = "Det her regnvejr er virkelig noget...",
+        ["TIME: "] = "TID: ",
+        ["Timed Kamikaze!"] = "Tidsindstillet Kamikaze!",
+        ["Time Extended!"] = "Tid Forlænget!",
+        ["Time Extension"] = "Tidsforlængelse",
+        ["Toggle Shield"] = "Slå Skjold Til/Fra",
+        ["Toxic Team"] = "Giftigt Hold", -- User_Mission_-_Diver, User_Mission_-_Spooky_Tree, User_Mission_-_Teamwork
+        ["TRACK COMPLETED"] = "BANE FULDFØRT",
+        ["TRACK FAILED!"] = "BANE MISLYKKEDES!",
+        ["TrophyRace"] = "TrofæRæs",
+        ["T_T"] = "T_T",
+        ["Tumbling Time Extended!"] = "Tumlende Tid Forlænget",
+        ["Turn Time"] = "Tid til Tur",
+        ["Unit"] = "Enhed",
+        ["Unit 3378"] = "Enhed 3378",
+        ["Unit 835"] = "Enhed 835",
+        ["Unlimited Attacks"] = "Uendelige Angreb",
+        ["Unstoppable!"] = "Ustoppelig!",
+        ["User Challenge"] = "Brugerudfordring",
+        ["Use your rope to get from start to finish as fast as you can!"] = "Brug dit reb til at komme fra start til slut så hurtigt som muligt!",
+        ["Victory for the "] = "Sejr for ", -- CTF_Blizzard, Capture_the_Flag
+        ["Waypoint placed."] = "Rutepunkt placeret.",
+        ["Way-Points Remaining"] = "Rutepunkter Tilbage",
+        ["Weapons Reset"] = "Våben Nulstillede",
+        ["Well done."] = "Godt klaret.",
+        ["Will this ever end?"] = "Slutter det her nogensinde?",
+        ["WINNING TIME: "] = "VINDENDE TID: ",
+        ["You'd almost swear the water was rising!"] = "Man kunne næsten sværge på at vandet steg!",
+        ["You have SCORED!!"] = "Du har SCORET!!",
+        ["You saved"] = "Du reddede",
+        ["You've failed. Try again."] = "Det lykkedes dig ikke. Prøv igen.",
+        ["You've reached the goal!| |Time: "] = "Du har nået målet!| |Tid: ",
+        ["'Zooka Team"] = "'Zooka-hold",
+    }
diff -r 57a508884052 -r 0a494f951dcf share/hedgewars/Data/Locale/en.txt
--- a/share/hedgewars/Data/Locale/en.txt	Thu Jul 26 11:01:32 2012 +0200
+++ b/share/hedgewars/Data/Locale/en.txt	Thu Jul 26 11:10:56 2012 +0200
@@ -79,6 +79,7 @@
 01:18=High
 01:19=Extreme
 01:20=%1 Bounce
+01:21=Audio Muted
 
 ; Event messages
 ; Hog (%1) died
diff -r 57a508884052 -r 0a494f951dcf share/hedgewars/Data/Locale/missions_da.txt
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/hedgewars/Data/Locale/missions_da.txt	Thu Jul 26 11:10:56 2012 +0200
@@ -0,0 +1,32 @@
+Basic_Training_-_Bazooka.name=Grundliggende Træning med Bazooka
+Basic_Training_-_Bazooka.desc="Nøglen er et bruge vinden til din fordel!"
+
+Basic_Training_-_Grenade.name=Grundliggende Træning med Granater
+Basic_Training_-_Grenade.desc="Husk, FØRST hiver du splitten ud OG SÅ kaster du!"
+
+Basic_Training_-_Shotgun.name=Grundliggende Træning med Haglgevær
+Basic_Training_-_Shotgun.desc="Skyd først, spørg bagefter!"
+
+Basic_Training_-_Sniper_Rifle.name=Grundliggende Træning med Sniperriffel
+Basic_Training_-_Sniper_Rifle.desc="Bum, Lige i Hovedet!"
+
+User_Mission_-_Dangerous_Ducklings.name=Mission: Farlige Ællinger
+User_Mission_-_Dangerous_Ducklings.desc="Udmærket, rekrut! Nu skal vi se om du kan huske hvad du har lært!"
+
+User_Mission_-_Diver.name=Mission: Dykker
+User_Mission_-_Diver.desc="Det der 'amfibieangreb' er sværere end det ser ud..."
+
+User_Mission_-_Teamwork.name=Mission: Samarbejde
+User_Mission_-_Teamwork.desc="Kærlighed gør ondt en gang imellem."
+
+User_Mission_-_Spooky_Tree.name=Mission: Uhyggeligt Træ
+User_Mission_-_Spooky_Tree.desc="Der er masser af kasser derude. Men jeg håber virkelig ikke den fugl er sulten."
+
+User_Mission_-_Bamboo_Thicket.name=Mission: Bambusbuskads
+User_Mission_-_Bamboo_Thicket.desc="Døden kommer oppefra."
+
+User_Mission_-_That_Sinking_Feeling.name=Mission: Følelsen af at Synke
+User_Mission_-_That_Sinking_Feeling.desc="Vandet stiger hurtigt og tiden er knap. Mange har prøvet, men få sejret. Kan du redde dem alle sammen?"
+
+User_Mission_-_Newton_and_the_Hammock.name=Mission: Newton og Hængekøjen
+User_Mission_-_Newton_and_the_Hammock.desc="Husk, grislinger: Et legemes hastighed forbliver uændret med mindre legemet bliver påvirket af krafter udefra."
\ No newline at end of file
diff -r 57a508884052 -r 0a494f951dcf share/hedgewars/Data/Locale/missions_fr.txt
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/hedgewars/Data/Locale/missions_fr.txt	Thu Jul 26 11:10:56 2012 +0200
@@ -0,0 +1,47 @@
+Basic_Training_-_Bazooka.name=Initiation au Bazooka
+Basic_Training_-_Bazooka.desc="Pour gagner, utiliser le vent à votre avantage !" 
+
+Basic_Training_-_Grenade.name=Entrainement au lancer de Grenade
+Basic_Training_-_Grenade.desc="Souvenez vous, retirez la goupille et lancez !"
+
+Basic_Training_-_Cluster_Bomb.name=Entrainement au lancer de grenade à fragmentation
+Basic_Training_-_Cluster_Bomb.desc="Quelqu'un à besoin d'une bonne douche !"
+
+Basic_Training_-_Shotgun.name=Initiation au Fusil
+Basic_Training_-_Shotgun.desc="On tire d'abord, on pose les questions après !"
+
+Basic_Training_-_Sniper_Rifle.name=Initiation au Sniper
+Basic_Training_-_Sniper_Rifle.desc="Pan ! En pleine tête !"
+
+Basic_Training_-_Rope.name=Initiation à la Corde Ninja
+Basic_Training_-_Rope.desc="Bouge de là et Balance toi !"
+
+User_Mission_-_Dangerous_Ducklings.name=Mission: Canards dangereux 
+User_Mission_-_Dangerous_Ducklings.desc="Très bien le bleu, il est temps de mettre en pratique ce que tu as appris aux entraînements !" 
+
+User_Mission_-_Diver.name=Mission: Diver
+User_Mission_-_Diver.desc="Cet assault 'sous-marin' est plus dur que cela n'y paraît...." 
+
+User_Mission_-_Teamwork.name=Mission: Travail en équipe
+User_Mission_-_Teamwork.desc="Parfois, l'amour blesse."
+
+User_Mission_-_Spooky_Tree.name=Mission: L'arbre qui parle
+User_Mission_-_Spooky_Tree.desc="Beaucoup de caisses par ici. J'espère vraiment que cet oiseau n'a pas faim."
+
+User_Mission_-_Bamboo_Thicket.name=Mission: Forêt de Bamboo 
+User_Mission_-_Bamboo_Thicket.desc="La mort vient d'en haut."
+
+User_Mission_-_That_Sinking_Feeling.name=Mission: Cette impression de naufrage
+User_Mission_-_That_Sinking_Feeling.desc="L'eau monte rapidement et le temps est compté. Beaucoup ont essayé, sans succès.Pouvez vous tous les sauvez ?"
+
+User_Mission_-_Newton_and_the_Hammock.name=Mission: Newton et le Hammac
+User_Mission_-_Newton_and_the_Hammock.desc="Souvenez vous petits hérissons : La vitesse d'un corps reste constante à moins que ce corps ne soit attiré par une force extérieure!"
+
+User_Mission_-_The_Great_Escape.name=Mission: La grande évasion
+User_Mission_-_The_Great_Escape.desc="Tu pense que tu peux me capturer ?!"
+
+User_Mission_-_Rope_Knock_Challenge.name=Challenge: A coup de Corde Ninja
+User_Mission_-_Rope_Knock_Challenge.desc="Regarde derrière toi !"
+
+User_Mission_-_RCPlane_Challenge.name=Challenge: Avion télécommandé
+User_Mission_-_RCPlane_Challenge.desc="Plutôt confiant, hein, aviateur ?" 
\ No newline at end of file
diff -r 57a508884052 -r 0a494f951dcf share/hedgewars/Data/misc/hedgewars-mimeinfo.xml
--- a/share/hedgewars/Data/misc/hedgewars-mimeinfo.xml	Thu Jul 26 11:01:32 2012 +0200
+++ b/share/hedgewars/Data/misc/hedgewars-mimeinfo.xml	Thu Jul 26 11:10:56 2012 +0200
@@ -11,12 +11,13 @@
     <comment xml:lang="es">Demo de Hedgewars</comment>
     <comment xml:lang="fr">Démonstration d'Hedgewars</comment>
     <comment xml:lang="it">Demo di Hedgewars</comment>
-	<comment xml:lang="ko">헤즈와스 데모</comment>
+    <comment xml:lang="ko">헤즈와스 데모</comment>
     <comment xml:lang="pl">Demo gry Hedgewars</comment>
-	<comment xml:lang="pt">Hedgewars Demo</comment>
+    <comment xml:lang="pt">Hedgewars Demo</comment>
     <comment xml:lang="sk">Demo hry Hedgewars</comment>
     <comment xml:lang="cs">Ukázka hry Hedgewars</comment>
     <comment xml:lang="sv">Demo för Hedgewars</comment>
+    <comment xml:lang="da">Hedgewars-demo</comment>
     <magic priority="50">
       <match required="yes" type="byte" offset="0" value="2"/>
       <match required="yes" type="big16" offset="1" value="21572"/>
@@ -30,13 +31,14 @@
     <comment xml:lang="de">Hedgewars gespeichertes Spiel</comment>
     <comment xml:lang="es">Partida guardada de Hedgewars</comment>
     <comment xml:lang="fr">Parties enregistrées d'Hedgewars</comment>
-	<comment xml:lang="ko">헤즈와스 저장된 게임</comment>
+    <comment xml:lang="ko">헤즈와스 저장된 게임</comment>
     <comment xml:lang="it">Partita salvata di Hedgewars</comment>
     <comment xml:lang="pl">Zapis gry Hedgewars</comment>
-	<comment xml:lang="pt">Partida guardada de Hedgewars</comment>
+    <comment xml:lang="pt">Partida guardada de Hedgewars</comment>
     <comment xml:lang="sk">Uložená hra Hedgewars</comment>
     <comment xml:lang="cs">Uložená hra Hedgewars</comment>
     <comment xml:lang="sv">Sparfil för Hedgewars</comment>
+    <comment xml:lang="da">Gemt Hedgewars-spil</comment>
     <magic priority="50">
       <match required="yes" type="byte" offset="0" value="2"/>
       <match required="yes" type="big16" offset="1" value="21587"/>
diff -r 57a508884052 -r 0a494f951dcf share/hedgewars/Data/misc/hwengine.desktop.in
--- a/share/hedgewars/Data/misc/hwengine.desktop.in	Thu Jul 26 11:01:32 2012 +0200
+++ b/share/hedgewars/Data/misc/hwengine.desktop.in	Thu Jul 26 11:10:56 2012 +0200
@@ -15,6 +15,7 @@
 GenericName[sk]=Engine hry Hedgewars, pre prehrávanie uložených hier a demo súborov
 GenericName[cs]=Engine hry Hedgewars pro přehrávání uložených her a ukázkových souborů
 GenericName[sv]=Hedgewarsmotorn, för att öppna demo- och sparfiler
+GenericName[da]=Kæmpende Pindsvin
 Icon=hedgewars.png
 Exec=${CMAKE_INSTALL_PREFIX}/bin/hwengine ${HEDGEWARS_DATADIR}/hedgewars/Data %f
 Path=/tmp
diff -r 57a508884052 -r 0a494f951dcf tools/PascalBasics.hs
--- a/tools/PascalBasics.hs	Thu Jul 26 11:01:32 2012 +0200
+++ b/tools/PascalBasics.hs	Thu Jul 26 11:10:56 2012 +0200
@@ -9,7 +9,7 @@
 import Data.Char
 
 builtin = ["succ", "pred", "low", "high", "ord", "inc", "dec", "exit", "break", "continue", "length"]
-    
+
 pascalLanguageDef
     = emptyDef
     { commentStart   = "(*"
@@ -27,8 +27,8 @@
             , "downto", "div", "mod", "record", "set", "nil"
             , "cdecl", "external", "if", "then", "else"
             ] -- ++ builtin
-    , reservedOpNames= [] 
-    , caseSensitive  = False   
+    , reservedOpNames= []
+    , caseSensitive  = False
     }
 
 preprocessorSwitch :: Stream s m Char => ParsecT s u m String
@@ -36,11 +36,11 @@
     try $ string "{$"
     s <- manyTill (noneOf "\n") $ char '}'
     return s
-        
+
 caseInsensitiveString s = do
     mapM_ (\a -> satisfy (\b -> toUpper a == toUpper b)) s <?> s
     return s
-    
+
 pas = patch $ makeTokenParser pascalLanguageDef
     where
     patch tp = tp {stringLiteral = stringL}
@@ -50,7 +50,7 @@
         , (try $ string "(*") >> manyTill anyChar (try $ string "*)")
         , (try $ string "//") >> manyTill anyChar (try newline)
         ]
-    
+
 comments = do
     spaces
     skipMany $ do
@@ -66,5 +66,5 @@
         s' <- (many $ noneOf "'")
         (char '\'')
         return $ '\'' : s'
-    comments    
+    comments
     return $ concat (s:ss)
diff -r 57a508884052 -r 0a494f951dcf tools/PascalParser.hs
--- a/tools/PascalParser.hs	Thu Jul 26 11:01:32 2012 +0200
+++ b/tools/PascalParser.hs	Thu Jul 26 11:10:56 2012 +0200
@@ -14,12 +14,12 @@
 
 import PascalBasics
 import PascalUnitSyntaxTree
-    
+
 knownTypes = ["shortstring", "ansistring", "char", "byte"]
 
 pascalUnit = do
     comments
-    u <- choice [program, unit, systemUnit]
+    u <- choice [program, unit, systemUnit, redoUnit]
     comments
     return u
 
@@ -27,7 +27,7 @@
     i <- liftM (flip Identifier BTUnknown) (identifier pas)
     comments
     return i
-        
+
 unit = do
     string "unit" >> comments
     name <- iD
@@ -38,7 +38,7 @@
     comments
     return $ Unit name int impl Nothing Nothing
 
-    
+
 reference = buildExpressionParser table term <?> "reference"
     where
     term = comments >> choice [
@@ -48,9 +48,9 @@
         , liftM SimpleReference iD >>= postfixes 
         ] <?> "simple reference"
 
-    table = [ 
+    table = [
         ]
-    
+
     postfixes r = many postfix >>= return . foldl (flip ($)) r
     postfix = choice [
             parens pas (option [] parameters) >>= return . FunCall
@@ -64,21 +64,23 @@
         e <- parens pas expression
         comments
         return $ TypeCast (Identifier t BTUnknown) e
-        
-    
-varsDecl1 = varsParser sepEndBy1    
+
+varsDecl1 = varsParser sepEndBy1
 varsDecl = varsParser sepEndBy
 varsParser m endsWithSemi = do
     vs <- m (aVarDecl endsWithSemi) (semi pas)
     return vs
 
 aVarDecl endsWithSemi = do
-    unless endsWithSemi $
-        optional $ choice [
-            try $ string "var"
-            , try $ string "const"
-            , try $ string "out"
-            ]
+    isVar <- liftM (== Just "var") $
+        if not endsWithSemi then
+            optionMaybe $ choice [
+                try $ string "var"
+                , try $ string "const"
+                , try $ string "out"
+                ]
+            else
+                return Nothing
     comments
     ids <- do
         i <- (commaSep1 pas) $ (try iD <?> "variable declaration")
@@ -93,7 +95,7 @@
         e <- initExpression
         comments
         return (Just e)
-    return $ VarDeclaration False (ids, t) init
+    return $ VarDeclaration isVar False (ids, t) init
 
 
 constsDecl = do
@@ -114,8 +116,8 @@
         comments
         e <- initExpression
         comments
-        return $ VarDeclaration (isNothing t) ([i], fromMaybe (DeriveType e) t) (Just e)
-        
+        return $ VarDeclaration False (isNothing t) ([i], fromMaybe (DeriveType e) t) (Just e)
+
 typeDecl = choice [
     char '^' >> typeDecl >>= return . PointerTo
     , try (string "shortstring") >> return (String 255)
@@ -211,7 +213,6 @@
         comments
         return $ TypeDeclaration i t
 
-        
 rangeDecl = choice [
     try $ rangeft
     , iD >>= return . Range
@@ -221,8 +222,8 @@
     e1 <- initExpression
     string ".."
     e2 <- initExpression
-    return $ RangeFromTo e1 e2        
-    
+    return $ RangeFromTo e1 e2
+
 typeVarDeclaration isImpl = (liftM concat . many . choice) [
     varSection,
     constSection,
@@ -251,7 +252,7 @@
         t <- typesDecl <?> "type declaration"
         comments
         return t
-        
+
     operatorDecl = do
         try $ string "operator"
         comments
@@ -276,7 +277,7 @@
                 return Nothing
         return $ [OperatorDeclaration i rid ret vs b]
 
-        
+
     funcDecl = do
         fp <- try (string "function") <|> try (string "procedure")
         comments
@@ -300,7 +301,7 @@
                 else
                 return Nothing
         return $ [FunctionDeclaration i ret vs b]
-        
+
     functionDecorator = choice [
         try $ string "inline;"
         , try $ caseInsensitiveString "cdecl;"
@@ -309,8 +310,8 @@
         , try $ string "varargs;"
         , try (string "external") >> comments >> iD >> optional (string "name" >> comments >> stringLiteral pas)>> string ";"
         ] >> comments
-        
-        
+
+
 program = do
     string "program"
     comments
@@ -347,36 +348,46 @@
     comments
     return $ Implementation u (TypesAndVars tv)
 
-expression = buildExpressionParser table term <?> "expression"
+expression = do
+    buildExpressionParser table term <?> "expression"
     where
     term = comments >> choice [
         builtInFunction expression >>= \(n, e) -> return $ BuiltInFunCall e (SimpleReference (Identifier n BTUnknown))
         , try (parens pas $ expression >>= \e -> notFollowedBy (comments >> char '.') >> return e)
         , brackets pas (commaSep pas iD) >>= return . SetExpression
-        , try $ natural pas >>= \i -> notFollowedBy (char '.') >> (return . NumberLiteral . show) i
+        , try $ integer pas >>= \i -> notFollowedBy (char '.') >> (return . NumberLiteral . show) i
         , float pas >>= return . FloatLiteral . show
-        , natural pas >>= return . NumberLiteral . show
+        , try $ integer pas >>= return . NumberLiteral . show
         , try (string "_S" >> stringLiteral pas) >>= return . StringLiteral
         , try (string "_P" >> stringLiteral pas) >>= return . PCharLiteral
         , stringLiteral pas >>= return . strOrChar
         , try (string "#$") >> many hexDigit >>= \c -> comments >> return (HexCharCode c)
         , char '#' >> many digit >>= \c -> comments >> return (CharCode c)
         , char '$' >> many hexDigit >>=  \h -> comments >> return (HexNumber h)
-        , char '-' >> expression >>= return . PrefixOp "-"
+        --, char '-' >> expression >>= return . PrefixOp "-"
+        , char '-' >> reference >>= return . PrefixOp "-" . Reference
+        , try $ string "not" >> error "unexpected not in term"
         , try $ string "nil" >> return Null
-        , try $ string "not" >> expression >>= return . PrefixOp "not"
         , reference >>= return . Reference
         ] <?> "simple expression"
 
-    table = [ 
+    table = [
+          [  Prefix (try (string "not") >> return (PrefixOp "not"))
+           , Prefix (try (char '-') >> return (PrefixOp "-"))]
+        ,
           [  Infix (char '*' >> return (BinOp "*")) AssocLeft
            , Infix (char '/' >> return (BinOp "/")) AssocLeft
            , Infix (try (string "div") >> return (BinOp "div")) AssocLeft
            , Infix (try (string "mod") >> return (BinOp "mod")) AssocLeft
            , Infix (try (string "in") >> return (BinOp "in")) AssocNone
+           , Infix (try $ string "and" >> return (BinOp "and")) AssocLeft
+           , Infix (try $ string "shl" >> return (BinOp "shl")) AssocLeft
+           , Infix (try $ string "shr" >> return (BinOp "shr")) AssocLeft
           ]
         , [  Infix (char '+' >> return (BinOp "+")) AssocLeft
            , Infix (char '-' >> return (BinOp "-")) AssocLeft
+           , Infix (try $ string "or" >> return (BinOp "or")) AssocLeft
+           , Infix (try $ string "xor" >> return (BinOp "xor")) AssocLeft
           ]
         , [  Infix (try (string "<>") >> return (BinOp "<>")) AssocNone
            , Infix (try (string "<=") >> return (BinOp "<=")) AssocNone
@@ -384,27 +395,27 @@
            , Infix (char '<' >> return (BinOp "<")) AssocNone
            , Infix (char '>' >> return (BinOp ">")) AssocNone
           ]
-        , [  Infix (try $ string "shl" >> return (BinOp "shl")) AssocNone
-           , Infix (try $ string "shr" >> return (BinOp "shr")) AssocNone
+        {-, [  Infix (try $ string "shl" >> return (BinOp "shl")) AssocNone
+             , Infix (try $ string "shr" >> return (BinOp "shr")) AssocNone
           ]
-        , [  Infix (try $ string "and" >> return (BinOp "and")) AssocLeft
-           , Infix (try $ string "or" >> return (BinOp "or")) AssocLeft
+        , [ 
+             Infix (try $ string "or" >> return (BinOp "or")) AssocLeft
            , Infix (try $ string "xor" >> return (BinOp "xor")) AssocLeft
-          ]
+          ]-}
         , [
              Infix (char '=' >> return (BinOp "=")) AssocNone
           ]
         ]
     strOrChar [a] = CharCode . show . ord $ a
-    strOrChar a = StringLiteral a    
-    
+    strOrChar a = StringLiteral a
+
 phrasesBlock = do
     try $ string "begin"
     comments
     p <- manyTill phrase (try $ string "end" >> notFollowedBy alphaNum)
     comments
     return $ Phrases p
-    
+
 phrase = do
     o <- choice [
         phrasesBlock
@@ -414,7 +425,7 @@
         , switchCase
         , withBlock
         , forCycle
-        , (try $ reference >>= \r -> string ":=" >> return r) >>= \r -> expression >>= return . Assignment r
+        , (try $ reference >>= \r -> string ":=" >> return r) >>= \r -> comments >> expression >>= return . Assignment r
         , builtInFunction expression >>= \(n, e) -> return $ BuiltInFunctionCall e (SimpleReference (Identifier n BTUnknown))
         , procCall
         , char ';' >> comments >> return NOP
@@ -459,7 +470,7 @@
     comments
     o <- phrase
     return $ foldr WithBlock o rs
-    
+
 repeatCycle = do
     try $ string "repeat" >> space
     comments
@@ -479,7 +490,12 @@
     comments
     e1 <- expression
     comments
-    choice [string "to", string "downto"]
+    up <- liftM (== Just "to") $
+            optionMaybe $ choice [
+                try $ string "to"
+                , try $ string "downto"
+                ]   
+    --choice [string "to", string "downto"]
     comments
     e2 <- expression
     comments
@@ -487,8 +503,8 @@
     comments
     p <- phrase
     comments
-    return $ ForCycle i e1 e2 p
-    
+    return $ ForCycle i e1 e2 p up
+
 switchCase = do
     try $ string "case"
     comments
@@ -515,14 +531,14 @@
         p <- phrase
         comments
         return (e, p)
-    
+
 procCall = do
     r <- reference
     p <- option [] $ (parens pas) parameters
     return $ ProcCall r p
 
 parameters = (commaSep pas) expression <?> "parameters"
-        
+
 functionBody = do
     tv <- typeVarDeclaration True
     comments
@@ -559,7 +575,7 @@
         , itypeCast
         , iD >>= return . InitReference
         ]
-        
+
     recField = do
         i <- iD
         spaces
@@ -569,17 +585,23 @@
         spaces
         return (i ,e)
 
-    table = [ 
+    table = [
           [
              Prefix (char '-' >> return (InitPrefixOp "-"))
+            ,Prefix (try (string "not") >> return (InitPrefixOp "not"))
           ]
         , [  Infix (char '*' >> return (InitBinOp "*")) AssocLeft
            , Infix (char '/' >> return (InitBinOp "/")) AssocLeft
            , Infix (try (string "div") >> return (InitBinOp "div")) AssocLeft
            , Infix (try (string "mod") >> return (InitBinOp "mod")) AssocLeft
+           , Infix (try $ string "and" >> return (InitBinOp "and")) AssocLeft
+           , Infix (try $ string "shl" >> return (InitBinOp "shl")) AssocNone
+           , Infix (try $ string "shr" >> return (InitBinOp "shr")) AssocNone
           ]
         , [  Infix (char '+' >> return (InitBinOp "+")) AssocLeft
            , Infix (char '-' >> return (InitBinOp "-")) AssocLeft
+           , Infix (try $ string "or" >> return (InitBinOp "or")) AssocLeft
+           , Infix (try $ string "xor" >> return (InitBinOp "xor")) AssocLeft
           ]
         , [  Infix (try (string "<>") >> return (InitBinOp "<>")) AssocNone
            , Infix (try (string "<=") >> return (InitBinOp "<=")) AssocNone
@@ -588,14 +610,14 @@
            , Infix (char '>' >> return (InitBinOp ">")) AssocNone
            , Infix (char '=' >> return (InitBinOp "=")) AssocNone
           ]
-        , [  Infix (try $ string "and" >> return (InitBinOp "and")) AssocLeft
+        {--, [  Infix (try $ string "and" >> return (InitBinOp "and")) AssocLeft
            , Infix (try $ string "or" >> return (InitBinOp "or")) AssocLeft
            , Infix (try $ string "xor" >> return (InitBinOp "xor")) AssocLeft
           ]
         , [  Infix (try $ string "shl" >> return (InitBinOp "shl")) AssocNone
            , Infix (try $ string "shr" >> return (InitBinOp "shr")) AssocNone
-          ]
-        , [Prefix (try (string "not") >> return (InitPrefixOp "not"))]
+          ]--}
+        --, [Prefix (try (string "not") >> return (InitPrefixOp "not"))]
         ]
 
     itypeCast = do
@@ -603,7 +625,7 @@
         i <- parens pas initExpression
         comments
         return $ InitTypeCast (Identifier t BTUnknown) i
-        
+
 builtInFunction e = do
     name <- choice $ map (\s -> try $ caseInsensitiveString s >>= \i -> notFollowedBy alphaNum >> return i) builtin
     spaces
@@ -620,3 +642,14 @@
     string "var"
     v <- varsDecl True
     return $ System (t ++ v)
+
+redoUnit = do
+    string "redo;"
+    comments
+    string "type"
+    comments
+    t <- typesDecl
+    string "var"
+    v <- varsDecl True
+    return $ Redo (t ++ v)
+
diff -r 57a508884052 -r 0a494f951dcf tools/PascalPreprocessor.hs
--- a/tools/PascalPreprocessor.hs	Thu Jul 26 11:01:32 2012 +0200
+++ b/tools/PascalPreprocessor.hs	Thu Jul 26 11:10:56 2012 +0200
@@ -18,8 +18,10 @@
 initDefines = Map.fromList [
     ("FPC", "")
     , ("PAS2C", "")
+    , ("ENDIAN_LITTLE", "")
+    , ("S3D_DISABLED", "")
     ]
-        
+
 preprocess :: String -> IO String
 preprocess fn = do
     r <- runParserT (preprocessFile fn) (initDefines, [True]) "" ""
@@ -28,17 +30,17 @@
              hPutStrLn stderr (show a)
              return ""
          (Right a) -> return a
-    
+
     where
     preprocessFile fn = do
         f <- liftIO (readFile fn)
         setInput f
         preprocessor
-        
+
     preprocessor, codeBlock, switch :: ParsecT String (Map.Map String String, [Bool]) IO String
-    
+
     preprocessor = chainr codeBlock (return (++)) ""
-    
+
     codeBlock = do
         s <- choice [
             switch
@@ -55,7 +57,7 @@
         c <- letter <|> oneOf "_"
         s <- many (alphaNum <|> oneOf "_")
         return $ c:s
-            
+
     switch = do
         try $ string "{$"
         s <- choice [
@@ -68,7 +70,7 @@
             , unknown
             ]
         return s
-        
+
     include = do
         try $ string "INCLUDE"
         spaces
@@ -85,26 +87,26 @@
     ifdef = do
         s <- try (string "IFDEF") <|> try (string "IFNDEF")
         let f = if s == "IFNDEF" then not else id
-        
+
         spaces
         d <- identifier
         spaces
         char '}'
-        
+
         updateState $ \(m, b) ->
             (m, (f $ d `Map.member` m) : b)
-      
+
         return ""
 
     if' = do
         s <- try (string "IF" >> notFollowedBy alphaNum)
-        
+
         manyTill anyChar (char '}')
         --char '}'
-        
+
         updateState $ \(m, b) ->
             (m, False : b)
-      
+
         return ""
 
     elseSwitch = do
@@ -118,7 +120,7 @@
     define = do
         try $ string "DEFINE"
         spaces
-        i <- identifier        
+        i <- identifier
         d <- ((string ":=" >> return ())<|> spaces) >> many (noneOf "}")
         char '}'
         updateState $ \(m, b) -> (if (and b) && (head i /= '_') then Map.insert i d m else m, b)
@@ -126,7 +128,7 @@
     replace s = do
         (m, _) <- getState
         return $ Map.findWithDefault s s m
-        
+
     unknown = do
         fn <- many1 $ noneOf "}\n"
         char '}'
diff -r 57a508884052 -r 0a494f951dcf tools/PascalUnitSyntaxTree.hs
--- a/tools/PascalUnitSyntaxTree.hs	Thu Jul 26 11:01:32 2012 +0200
+++ b/tools/PascalUnitSyntaxTree.hs	Thu Jul 26 11:10:56 2012 +0200
@@ -7,6 +7,7 @@
     Program Identifier Implementation Phrase
     | Unit Identifier Interface Implementation (Maybe Initialize) (Maybe Finalize)
     | System [TypeVarDeclaration]
+    | Redo [TypeVarDeclaration]
     deriving Show
 data Interface = Interface Uses TypesAndVars
     deriving Show
@@ -17,7 +18,7 @@
 data TypesAndVars = TypesAndVars [TypeVarDeclaration]
     deriving Show
 data TypeVarDeclaration = TypeDeclaration Identifier TypeDecl
-    | VarDeclaration Bool ([Identifier], TypeDecl) (Maybe InitExpression)
+    | VarDeclaration Bool Bool ([Identifier], TypeDecl) (Maybe InitExpression)
     | FunctionDeclaration Identifier TypeDecl [TypeVarDeclaration] (Maybe (TypesAndVars, Phrase))
     | OperatorDeclaration String Identifier TypeDecl [TypeVarDeclaration] (Maybe (TypesAndVars, Phrase))
     deriving Show
@@ -30,8 +31,9 @@
     | String Integer
     | Set TypeDecl
     | FunctionType TypeDecl [TypeVarDeclaration]
-    | DeriveType InitExpression 
+    | DeriveType InitExpression
     | VoidType
+    | VarParamType TypeDecl -- this is a hack
     deriving Show
 data Range = Range Identifier
            | RangeFromTo InitExpression InitExpression
@@ -47,7 +49,7 @@
         | IfThenElse Expression Phrase (Maybe Phrase)
         | WhileCycle Expression Phrase
         | RepeatCycle Expression [Phrase]
-        | ForCycle Identifier Expression Expression Phrase
+        | ForCycle Identifier Expression Expression Phrase Bool -- The last Boolean indicates wether it's up or down counting
         | WithBlock Reference Phrase
         | Phrases [Phrase]
         | SwitchCase Expression [([InitExpression], Phrase)] (Maybe [Phrase])
@@ -106,11 +108,12 @@
     | BTFloat
     | BTRecord String [(String, BaseType)]
     | BTArray Range BaseType BaseType
-    | BTFunction Int BaseType
+    | BTFunction Bool Int BaseType
     | BTPointerTo BaseType
     | BTUnresolved String
     | BTSet BaseType
     | BTEnum [String]
     | BTVoid
     | BTUnit
+    | BTVarParam BaseType
     deriving Show
diff -r 57a508884052 -r 0a494f951dcf tools/pas2c.hs
--- a/tools/pas2c.hs	Thu Jul 26 11:01:32 2012 +0200
+++ b/tools/pas2c.hs	Thu Jul 26 11:10:56 2012 +0200
@@ -21,7 +21,7 @@
 import PascalUnitSyntaxTree
 
 
-data InsertOption = 
+data InsertOption =
     IOInsert
     | IOLookup
     | IOLookupLast
@@ -30,7 +30,7 @@
 
 type Record = (String, BaseType)
 type Records = Map.Map String [Record]
-data RenderState = RenderState 
+data RenderState = RenderState
     {
         currentScope :: Records,
         lastIdentifier :: String,
@@ -42,7 +42,7 @@
         currentFunctionResult :: String,
         namespaces :: Map.Map String Records
     }
-    
+
 emptyState = RenderState Map.empty "" BTUnknown [] 0 Set.empty "" ""
 
 getUniq :: State RenderState Int
@@ -50,7 +50,7 @@
     i <- gets uniqCounter
     modify(\s -> s{uniqCounter = uniqCounter s + 1})
     return i
-    
+
 addStringConst :: String -> State RenderState Doc
 addStringConst str = do
     strs <- gets stringConsts
@@ -65,21 +65,22 @@
         let sn = "__str" ++ show i
         modify (\s -> s{lastType = BTString, stringConsts = (sn, str) : strs})
         return $ text sn
-    
+
 escapeStr :: String -> String
 escapeStr = foldr escapeChar []
 
 escapeChar :: Char -> ShowS
 escapeChar '"' s = "\\\"" ++ s
+escapeChar '\\' s = "\\\\" ++ s
 escapeChar a s = a : s
 
 strInit :: String -> Doc
 strInit a = text "STRINIT" <> parens (doubleQuotes (text $ escapeStr a))
 
 renderStringConsts :: State RenderState Doc
-renderStringConsts = liftM (vcat . map (\(a, b) -> text "const string255" <+> (text a) <+> text "=" <+> strInit b <> semi)) 
+renderStringConsts = liftM (vcat . map (\(a, b) -> text "static const string255" <+> (text a) <+> text "=" <+> strInit b <> semi))
     $ gets stringConsts
-    
+
 docToLower :: Doc -> Doc
 docToLower = text . map toLower . render
 
@@ -97,8 +98,8 @@
         processed <- gets $ Map.member fileName
         unless processed $ do
             print ("Preprocessing '" ++ fileName ++ ".pas'... ")
-            fc' <- liftIO 
-                $ tryJust (guard . isDoesNotExistError) 
+            fc' <- liftIO
+                $ tryJust (guard . isDoesNotExistError)
                 $ preprocess (fileName ++ ".pas")
             case fc' of
                 (Left a) -> do
@@ -127,15 +128,21 @@
     mapM_ (toCFiles nss) u
     where
     toNamespace :: Map.Map String Records -> PascalUnit -> Records
-    toNamespace nss (System tvs) = 
+    toNamespace nss (System tvs) =
         currentScope $ execState f (emptyState nss)
         where
         f = do
             checkDuplicateFunDecls tvs
-            mapM_ (tvar2C True) tvs                
+            mapM_ (tvar2C True False True False) tvs
+    toNamespace nss (Redo tvs) = -- functions that are re-implemented, add prefix to all of them
+        currentScope $ execState f (emptyState nss){currentUnit = "fpcrtl_"}
+        where
+        f = do
+            checkDuplicateFunDecls tvs
+            mapM_ (tvar2C True False True False) tvs
     toNamespace _ (Program {}) = Map.empty
-    toNamespace nss (Unit (Identifier i _) interface _ _ _) = 
-        currentScope $ execState (interface2C interface) (emptyState nss){currentUnit = map toLower i ++ "_"}
+    toNamespace nss (Unit (Identifier i _) interface _ _ _) =
+        currentScope $ execState (interface2C interface True) (emptyState nss){currentUnit = map toLower i ++ "_"}
 
 
 withState' :: (RenderState -> RenderState) -> State RenderState a -> State RenderState a
@@ -149,7 +156,6 @@
         })
     return a
 
-withLastIdNamespace :: State RenderState Doc -> State RenderState Doc
 withLastIdNamespace f = do
     li <- gets lastIdentifier
     nss <- gets namespaces
@@ -165,49 +171,57 @@
 
 toCFiles :: Map.Map String Records -> (String, PascalUnit) -> IO ()
 toCFiles _ (_, System _) = return ()
+toCFiles _ (_, Redo _) = return ()
 toCFiles ns p@(fn, pu) = do
     hPutStrLn stdout $ "Rendering '" ++ fn ++ "'..."
     toCFiles' p
     where
-    toCFiles' (fn, p@(Program {})) = writeFile (fn ++ ".c") $ (render2C initialState . pascal2C) p
+    toCFiles' (fn, p@(Program {})) = writeFile (fn ++ ".c") $ "#include \"fpcrtl.h\"\n" ++ (render2C initialState . pascal2C) p
     toCFiles' (fn, (Unit unitId@(Identifier i _) interface implementation _ _)) = do
-        let (a, s) = runState (id2C IOInsert (setBaseType BTUnit unitId) >> interface2C interface) initialState{currentUnit = map toLower i ++ "_"}
+        let (a, s) = runState (id2C IOInsert (setBaseType BTUnit unitId) >> interface2C interface True) initialState{currentUnit = map toLower i ++ "_"}
+            (a', s') = runState (id2C IOInsert (setBaseType BTUnit unitId) >> interface2C interface False) initialState{currentUnit = map toLower i ++ "_"}
         writeFile (fn ++ ".h") $ "#pragma once\n\n#include \"pas2c.h\"\n\n" ++ (render (a $+$ text ""))
-        writeFile (fn ++ ".c") $ "#include \"" ++ fn ++ ".h\"\n" ++ (render2C s . implementation2C) implementation
+        writeFile (fn ++ ".c") $ "#include \"fpcrtl.h\"\n\n#include \"" ++ fn ++ ".h\"\n" ++ render (a' $+$ text "") ++ (render2C s . implementation2C) implementation
     initialState = emptyState ns
 
     render2C :: RenderState -> State RenderState Doc -> String
     render2C a = render . ($+$ empty) . flip evalState a
 
+
 usesFiles :: PascalUnit -> [String]
-usesFiles (Program _ (Implementation uses _) _) = "pas2cSystem" : uses2List uses
-usesFiles (Unit _ (Interface uses1 _) (Implementation uses2 _) _ _) = "pas2cSystem" : uses2List uses1 ++ uses2List uses2
+usesFiles (Program _ (Implementation uses _) _) = ["pas2cSystem", "pas2cRedo"] ++ uses2List uses
+usesFiles (Unit _ (Interface uses1 _) (Implementation uses2 _) _ _) = ["pas2cSystem", "pas2cRedo"] ++ uses2List uses1 ++ uses2List uses2
 usesFiles (System {}) = []
-
+usesFiles (Redo {}) = []
 
 pascal2C :: PascalUnit -> State RenderState Doc
 pascal2C (Unit _ interface implementation init fin) =
-    liftM2 ($+$) (interface2C interface) (implementation2C implementation)
-    
+    liftM2 ($+$) (interface2C interface True) (implementation2C implementation)
+
 pascal2C (Program _ implementation mainFunction) = do
     impl <- implementation2C implementation
-    [main] <- tvar2C True 
-        (FunctionDeclaration (Identifier "main" BTInt) (SimpleType $ Identifier "int" BTInt) [] (Just (TypesAndVars [], mainFunction)))
+    [main] <- tvar2C True False True True (FunctionDeclaration (Identifier "main" BTInt) (SimpleType $ Identifier "int" BTInt) [VarDeclaration False False ([Identifier "argc" BTInt], SimpleType (Identifier "Integer" BTInt)) Nothing, VarDeclaration False False ([Identifier "argv" BTUnknown], SimpleType (Identifier "PPChar" BTUnknown)) Nothing] (Just (TypesAndVars [], mainFunction)))
     return $ impl $+$ main
 
-    
-    
-interface2C :: Interface -> State RenderState Doc
-interface2C (Interface uses tvars) = do
+
+-- the second bool indicates whether do normal interface translation or generate variable declarations
+-- that will be inserted into implementation files
+interface2C :: Interface -> Bool -> State RenderState Doc
+interface2C (Interface uses tvars) True = do
     u <- uses2C uses
-    tv <- typesAndVars2C True tvars
+    tv <- typesAndVars2C True True True tvars
     r <- renderStringConsts
     return (u $+$ r $+$ tv)
-    
+interface2C (Interface uses tvars) False = do
+    u <- uses2C uses
+    tv <- typesAndVars2C True False False tvars
+    r <- renderStringConsts
+    return tv
+
 implementation2C :: Implementation -> State RenderState Doc
 implementation2C (Implementation uses tvars) = do
     u <- uses2C uses
-    tv <- typesAndVars2C True tvars
+    tv <- typesAndVars2C True False True tvars
     r <- renderStringConsts
     return (u $+$ r $+$ tv)
 
@@ -220,17 +234,22 @@
         ins (FunctionDeclaration (Identifier i _) _ _ _) m = Map.insertWith (+) (map toLower i) 1 m
         ins _ m = m
 
-typesAndVars2C :: Bool -> TypesAndVars -> State RenderState Doc
-typesAndVars2C b (TypesAndVars ts) = do
+-- the second bool indicates whether declare variable as extern or not
+-- the third bool indicates whether include types or not
+
+typesAndVars2C :: Bool -> Bool -> Bool -> TypesAndVars -> State RenderState Doc
+typesAndVars2C b externVar includeType(TypesAndVars ts) = do
     checkDuplicateFunDecls ts
-    liftM (vcat . map (<> semi) . concat) $ mapM (tvar2C b) ts
+    liftM (vcat . map (<> semi) . concat) $ mapM (tvar2C b externVar includeType False) ts
 
 setBaseType :: BaseType -> Identifier -> Identifier
 setBaseType bt (Identifier i _) = Identifier i bt
 
 uses2C :: Uses -> State RenderState Doc
 uses2C uses@(Uses unitIds) = do
+
     mapM_ injectNamespace (Identifier "pas2cSystem" undefined : unitIds)
+    mapM_ injectNamespace (Identifier "pas2cRedo" undefined : unitIds)
     mapM_ (id2C IOInsert . setBaseType BTUnit) unitIds
     return $ vcat . map (\i -> text $ "#include \"" ++ i ++ ".h\"") $ uses2List uses
     where
@@ -247,27 +266,29 @@
     ns <- gets currentScope
     tom <- gets (Set.member n . toMangle)
     cu <- gets currentUnit
-    let i' = case (t, tom) of
-            (BTFunction p _, True) -> cu ++ i ++ ('_' : show p)
-            (BTFunction _ _, _) -> cu ++ i
-            _ -> i
-    modify (\s -> s{currentScope = Map.insertWith (++) n [(i', t)] (currentScope s), lastIdentifier = n})
+    let (i', t') = case (t, tom) of
+            (BTFunction _ p _, True) -> (cu ++ i ++ ('_' : show p), t)
+            (BTFunction _ _ _, _) -> (cu ++ i, t)
+            (BTVarParam t', _) -> ('(' : '*' : i ++ ")" , t')
+            _ -> (i, t)
+    modify (\s -> s{currentScope = Map.insertWith (++) n [(i', t')] (currentScope s), lastIdentifier = n})
     return $ text i'
     where
         n = map toLower i
+
 id2C IOLookup i = id2CLookup head i
 id2C IOLookupLast i = id2CLookup last i
 id2C (IOLookupFunction params) (Identifier i t) = do
     let i' = map toLower i
     v <- gets $ Map.lookup i' . currentScope
     lt <- gets lastType
-    if isNothing v then 
+    if isNothing v then
         error $ "Not defined: '" ++ i' ++ "'\n" ++ show lt ++ "\nwith num of params = " ++ show params ++ "\n" ++ show v
-        else 
-        let vv = fromMaybe (head $ fromJust v) . find checkParam $ fromJust v in 
+        else
+        let vv = fromMaybe (head $ fromJust v) . find checkParam $ fromJust v in
             modify (\s -> s{lastType = snd vv, lastIdentifier = fst vv}) >> (return . text . fst $ vv)
     where
-        checkParam (_, BTFunction p _) = p == params
+        checkParam (_, BTFunction _ p _) = p == params
         checkParam _ = False
 id2C IODeferred (Identifier i t) = do
     let i' = map toLower i
@@ -278,20 +299,20 @@
         let vv = head $ fromJust v in modify (\s -> s{lastType = snd vv, lastIdentifier = fst vv}) >> (return . text . fst $ vv)
 
 id2CLookup :: ([Record] -> Record) -> Identifier -> State RenderState Doc
-id2CLookup f (Identifier i _) = do
+id2CLookup f (Identifier i t) = do
     let i' = map toLower i
     v <- gets $ Map.lookup i' . currentScope
     lt <- gets lastType
-    if isNothing v then 
+    if isNothing v then
         error $ "Not defined: '" ++ i' ++ "'\n" ++ show lt
-        else 
+        else
         let vv = f $ fromJust v in modify (\s -> s{lastType = snd vv, lastIdentifier = fst vv}) >> (return . text . fst $ vv)
-        
-        
+
+
 id2CTyped :: TypeDecl -> Identifier -> State RenderState Doc
 id2CTyped t (Identifier i _) = do
     tb <- resolveType t
-    case (t, tb) of 
+    case (t, tb) of
         (_, BTUnknown) -> do
             error $ "id2CTyped: type BTUnknown for " ++ show i ++ "\ntype: " ++ show t
         (SimpleType {}, BTRecord _ r) -> do
@@ -301,7 +322,7 @@
             ts <- type2C t
             id2C IOInsert (Identifier i (BTRecord i r))
         _ -> id2C IOInsert (Identifier i tb)
-    
+
 
 
 resolveType :: TypeDecl -> State RenderState BaseType
@@ -324,12 +345,12 @@
     return . BTRecord "" . concat $ tvs
     where
         f :: TypeVarDeclaration -> State RenderState [(String, BaseType)]
-        f (VarDeclaration _ (ids, td) _) = mapM (\(Identifier i _) -> liftM ((,) i) $ resolveType td) ids
+        f (VarDeclaration _ _ (ids, td) _) = mapM (\(Identifier i _) -> liftM ((,) i) $ resolveType td) ids
 resolveType (ArrayDecl (Just i) t) = do
     t' <- resolveType t
-    return $ BTArray i BTInt t' 
+    return $ BTArray i BTInt t'
 resolveType (ArrayDecl Nothing t) = liftM (BTArray RangeInfinite BTInt) $ resolveType t
-resolveType (FunctionType t a) = liftM (BTFunction (length a)) $ resolveType t
+resolveType (FunctionType t a) = liftM (BTFunction False (length a)) $ resolveType t
 resolveType (DeriveType (InitHexNumber _)) = return BTInt
 resolveType (DeriveType (InitNumber _)) = return BTInt
 resolveType (DeriveType (InitFloat _)) = return BTFloat
@@ -344,7 +365,8 @@
 resolveType (Sequence ids) = return $ BTEnum $ map (\(Identifier i _) -> map toLower i) ids
 resolveType (RangeType _) = return $ BTVoid
 resolveType (Set t) = liftM BTSet $ resolveType t
-   
+resolveType (VarParamType t) = liftM BTVarParam $ resolveType t
+
 
 resolve :: String -> BaseType -> State RenderState BaseType
 resolve s (BTUnresolved t) = do
@@ -360,46 +382,78 @@
 fromPointer s t = do
     error $ "Dereferencing from non-pointer type " ++ show t ++ "\n" ++ s
 
-    
-functionParams2C params = liftM (hcat . punctuate comma . concat) $ mapM (tvar2C False) params
+
+functionParams2C params = liftM (hcat . punctuate comma . concat) $ mapM (tvar2C False False True True) params
 
 numberOfDeclarations :: [TypeVarDeclaration] -> Int
 numberOfDeclarations = sum . map cnt
     where
-        cnt (VarDeclaration _ (ids, _) _) = length ids
+        cnt (VarDeclaration _ _ (ids, _) _) = length ids
         cnt _ = 1
 
+hasPassByReference :: [TypeVarDeclaration] -> Bool
+hasPassByReference = or . map isVar
+    where
+        isVar (VarDeclaration v _ (_, _) _) = v
+        isVar _ = error $ "hasPassByReference called not on function parameters"
+
+toIsVarList :: [TypeVarDeclaration] -> [Bool]
+toIsVarList = concatMap isVar
+    where
+        isVar (VarDeclaration v _ (p, _) _) = replicate (length p) v
+        isVar _ = error $ "toIsVarList called not on function parameters"
+
+
+funWithVarsToDefine :: String -> [TypeVarDeclaration] -> Doc
+funWithVarsToDefine n params = text "#define" <+> text n <> parens abc <+> text (n ++ "__vars") <> parens cparams
+    where
+        abc = hcat . punctuate comma . map (char . fst) $ ps
+        cparams = hcat . punctuate comma . map (\(c, v) -> if v then char '&' <> parens (char c) else char c) $ ps
+        ps = zip ['a'..] (toIsVarList params)
+
 fun2C :: Bool -> String -> TypeVarDeclaration -> State RenderState [Doc]
 fun2C _ _ (FunctionDeclaration name returnType params Nothing) = do
-    t <- type2C returnType 
+    t <- type2C returnType
     t'<- gets lastType
     p <- withState' id $ functionParams2C params
-    n <- id2C IOInsert $ setBaseType (BTFunction (numberOfDeclarations params) t') name
-    return [t empty <+> n <> parens p]
-    
-fun2C True rv (FunctionDeclaration name returnType params (Just (tvars, phrase))) = do
+    n <- liftM render . id2C IOInsert $ setBaseType (BTFunction hasVars (numberOfDeclarations params) t') name
+    if hasVars then
+        return [funWithVarsToDefine n params $+$ t empty <+> text (n ++ "__vars") <> parens p]
+        else
+        return [t empty <+> text n <> parens p]
+    where
+        hasVars = hasPassByReference params
+
+
+fun2C True rv (FunctionDeclaration name@(Identifier i _) returnType params (Just (tvars, phrase))) = do
     let res = docToLower $ text rv <> text "_result"
     t <- type2C returnType
     t'<- gets lastType
-    n <- id2C IOInsert $ setBaseType (BTFunction (numberOfDeclarations params) t') name
-    
+
+    notDeclared <- liftM isNothing . gets $ Map.lookup (map toLower i) . currentScope
+
+    n <- liftM render . id2C IOInsert $ setBaseType (BTFunction hasVars (numberOfDeclarations params) t') name
+
     let isVoid = case returnType of
             VoidType -> True
             _ -> False
-            
+
     (p, ph) <- withState' (\st -> st{currentScope = Map.insertWith un (map toLower rv) [(render res, t')] $ currentScope st
             , currentFunctionResult = if isVoid then [] else render res}) $ do
         p <- functionParams2C params
-        ph <- liftM2 ($+$) (typesAndVars2C False tvars) (phrase2C' phrase)
+        ph <- liftM2 ($+$) (typesAndVars2C False False True tvars) (phrase2C' phrase)
         return (p, ph)
-        
+
     let phrasesBlock = if isVoid then ph else t empty <+> res <> semi $+$ ph $+$ text "return" <+> res <> semi
-    
-    return [ 
-        t empty <+> n <> parens p
+    let define = if hasVars then text "#ifndef" <+> text n $+$ funWithVarsToDefine n params $+$ text "#endif" else empty
+    return [
+        define
         $+$
-        text "{" 
-        $+$ 
+        --(if notDeclared && hasVars then funWithVarsToDefine n params else empty) $+$
+        t empty <+> text (if hasVars then n ++ "__vars" else n) <> parens p
+        $+$
+        text "{"
+        $+$
         nest 4 phrasesBlock
         $+$
         text "}"]
@@ -407,69 +461,112 @@
     phrase2C' (Phrases p) = liftM vcat $ mapM phrase2C p
     phrase2C' p = phrase2C p
     un [a] b = a : b
-    
+    hasVars = hasPassByReference params
+
 fun2C False _ (FunctionDeclaration (Identifier name _) _ _ _) = error $ "nested functions not allowed: " ++ name
 fun2C _ tv _ = error $ "fun2C: I don't render " ++ show tv
 
-tvar2C :: Bool -> TypeVarDeclaration -> State RenderState [Doc]
-tvar2C b f@(FunctionDeclaration (Identifier name _) _ _ _) =
-    fun2C b name f
-tvar2C _ td@(TypeDeclaration i' t) = do
+-- the second bool indicates whether declare variable as extern or not
+-- the third bool indicates whether include types or not
+-- the fourth bool indicates whether ignore initialization or not (basically for dynamic arrays since we cannot do initialization in function params)
+tvar2C :: Bool -> Bool -> Bool -> Bool -> TypeVarDeclaration -> State RenderState [Doc]
+tvar2C b _ includeType _ f@(FunctionDeclaration (Identifier name _) _ _ _) = do
+    t <- fun2C b name f
+    if includeType then return t else return []
+tvar2C _ _ includeType _ td@(TypeDeclaration i' t) = do
     i <- id2CTyped t i'
     tp <- type2C t
-    return [text "typedef" <+> tp i]
-    
-tvar2C _ (VarDeclaration isConst (ids, t) mInitExpr) = do
-    t' <- liftM (((if isConst then text "const" else empty) <+>) . ) $ type2C t
+    return $ if includeType then [text "typedef" <+> tp i] else []
+
+tvar2C _ _ _ _ (VarDeclaration True _ (ids, t) Nothing) = do
+    t' <- liftM ((empty <+>) . ) $ type2C t
+    liftM (map(\i -> t' i)) $ mapM (id2CTyped (VarParamType t)) ids
+
+tvar2C _ externVar includeType ignoreInit (VarDeclaration _ isConst (ids, t) mInitExpr) = do
+    t' <- liftM (((if isConst then text "static const" else if externVar 
+                                                                then text "extern"
+                                                                else empty)
+                   <+>) . ) $ type2C t
     ie <- initExpr mInitExpr
     lt <- gets lastType
     case (isConst, lt, ids, mInitExpr) of
          (True, BTInt, [i], Just _) -> do
              i' <- id2CTyped t i
-             return [text "enum" <> braces (i' <+> ie)]
+             return $ if includeType then [text "enum" <> braces (i' <+> ie)] else []
          (True, BTFloat, [i], Just e) -> do
              i' <- id2CTyped t i
              ie <- initExpr2C e
-             return [text "#define" <+> i' <+> parens ie <> text "\n"]
-         (_, BTFunction{}, _, Nothing) -> liftM (map(\i -> t' $ text "*" <+> i)) $ mapM (id2CTyped t) ids
-         _ -> liftM (map(\i -> t' i <+> ie)) $ mapM (id2CTyped t) ids
+             return $ if includeType then [text "#define" <+> i' <+> parens ie <> text "\n"] else []
+         (_, BTFunction{}, _, Nothing) -> liftM (map(\i -> t' i)) $ mapM (id2CTyped t) ids
+         (_, BTArray r _ _, [i], _) -> do
+            i' <- id2CTyped t i
+            ie' <- return $ case (r, mInitExpr, ignoreInit) of
+                (RangeInfinite, Nothing, False) -> text "= NULL" -- force dynamic array to be initialized as NULL if not initialized at all
+                (_, _, _) -> ie
+            result <- liftM (map(\i -> varDeclDecision isConst includeType (t' i) ie')) $ mapM (id2CTyped t) ids           
+            case (r, ignoreInit) of
+                (RangeInfinite, False) -> 
+                    -- if the array is dynamic, add dimension info to it
+                    return $ [dimDecl] ++ result
+                    where 
+                        arrayDimStr = show $ arrayDimension t
+                        arrayDimInitExp = text ("={" ++ ".dim = " ++ arrayDimStr ++ ", .a = {0, 0, 0, 0}}")
+                        dimDecl = varDeclDecision isConst includeType (text "fpcrtl_dimension_t" <+>  i' <> text "_dimension_info") arrayDimInitExp
+                    
+                (_, _) -> return result
+            
+         _ -> liftM (map(\i -> varDeclDecision isConst includeType (t' i) ie)) $ mapM (id2CTyped t) ids
     where
     initExpr Nothing = return $ empty
     initExpr (Just e) = liftM (text "=" <+>) (initExpr2C e)
-    
-tvar2C f (OperatorDeclaration op (Identifier i _) ret params body) = do
+    varDeclDecision True True varStr expStr = varStr <+> expStr
+    varDeclDecision False True varStr expStr = if externVar then varStr else varStr <+> expStr
+    varDeclDecision False False varStr expStr = varStr <+> expStr
+    varDeclDecision True False varStr expStr = empty
+    arrayDimension a = case a of
+        ArrayDecl Nothing t -> let a = arrayDimension t in if a > 3 then error "Dynamic array with dimension > 4 is not supported." else 1 + arrayDimension t
+        ArrayDecl _ _ -> error "Mixed dynamic array and static array are not supported."
+        _ -> 0
+
+tvar2C f _ _ _ (OperatorDeclaration op (Identifier i _) ret params body) = do
     r <- op2CTyped op (extractTypes params)
     fun2C f i (FunctionDeclaration r ret params body)
 
-    
+
 op2CTyped :: String -> [TypeDecl] -> State RenderState Identifier
 op2CTyped op t = do
     t' <- liftM (render . hcat . punctuate (char '_') . map (\t -> t empty)) $ mapM type2C t
     bt <- gets lastType
     return $ Identifier (t' ++ "_op_" ++ opStr) bt
-    where 
+    where
     opStr = case op of
                     "+" -> "add"
                     "-" -> "sub"
                     "*" -> "mul"
                     "/" -> "div"
+                    "/(float)" -> "div"
                     "=" -> "eq"
                     "<" -> "lt"
                     ">" -> "gt"
                     "<>" -> "neq"
                     _ -> error $ "op2CTyped: unknown op '" ++ op ++ "'"
-    
+
 extractTypes :: [TypeVarDeclaration] -> [TypeDecl]
 extractTypes = concatMap f
     where
-        f (VarDeclaration _ (ids, t) _) = replicate (length ids) t
+        f (VarDeclaration _ _ (ids, t) _) = replicate (length ids) t
         f a = error $ "extractTypes: can't extract from " ++ show a
 
 initExpr2C, initExpr2C' :: InitExpression -> State RenderState Doc
 initExpr2C (InitArray values) = liftM (braces . vcat . punctuate comma) $ mapM initExpr2C values
 initExpr2C a = initExpr2C' a
 initExpr2C' InitNull = return $ text "NULL"
-initExpr2C' (InitAddress expr) = liftM ((<>) (text "&")) (initExpr2C' expr)
+initExpr2C' (InitAddress expr) = do
+    ie <- initExpr2C' expr
+    lt <- gets lastType
+    case lt of
+        BTFunction True _ _ -> return $ text "&" <> ie <> text "__vars"
+        _ -> return $ text "&" <> ie
 initExpr2C' (InitPrefixOp op expr) = liftM (text (op2C op) <>) (initExpr2C' expr)
 initExpr2C' (InitBinOp op expr1 expr2) = do
     e1 <- initExpr2C' expr1
@@ -500,7 +597,7 @@
 initExpr2C' (InitRange a) = error $ show a --return $ text "<<range>>"
 initExpr2C' (InitSet []) = return $ text "0"
 initExpr2C' (InitSet a) = return $ text "<<set>>"
-initExpr2C' (BuiltInFunction "low" [InitReference e]) = return $ 
+initExpr2C' (BuiltInFunction "low" [InitReference e]) = return $
     case e of
          (Identifier "LongInt" _) -> int (-2^31)
          (Identifier "SmallInt" _) -> int (-2^15)
@@ -515,7 +612,7 @@
 initExpr2C' (BuiltInFunction "pred" [BuiltInFunction "succ" [e]]) = initExpr2C' e
 initExpr2C' (BuiltInFunction "succ" [e]) = liftM (<> text " + 1") $ initExpr2C' e
 initExpr2C' (BuiltInFunction "pred" [e]) = liftM (<> text " - 1") $ initExpr2C' e
-initExpr2C' b@(BuiltInFunction _ _) = error $ show b    
+initExpr2C' b@(BuiltInFunction _ _) = error $ show b
 initExpr2C' a = error $ "initExpr2C: don't know how to render " ++ show a
 
 
@@ -550,7 +647,7 @@
              _ -> return $ \a -> i' <+> text "*" <+> a
     type2C' (PointerTo t) = liftM (\t a -> t (parens $ text "*" <> a)) $ type2C t
     type2C' (RecordType tvs union) = do
-        t <- withState' f $ mapM (tvar2C False) tvs
+        t <- withState' f $ mapM (tvar2C False False True False) tvs
         u <- unions
         return $ \i -> text "struct __" <> i <+> lbrace $+$ nest 4 ((vcat . map (<> semi) . concat $ t) $$ u) $+$ rbrace <+> i
         where
@@ -561,7 +658,7 @@
                          structs <- mapM struct2C a
                          return $ text "union" $+$ braces (nest 4 $ vcat structs) <> semi
             struct2C tvs = do
-                t <- withState' f $ mapM (tvar2C False) tvs
+                t <- withState' f $ mapM (tvar2C False False True False) tvs
                 return $ text "struct" $+$ braces (nest 4 (vcat . map (<> semi) . concat $ t)) <> semi
     type2C' (RangeType r) = return (text "int" <+>)
     type2C' (Sequence ids) = do
@@ -574,7 +671,7 @@
         t' <- type2C t
         lt <- gets lastType
         ft <- case lt of
-                BTFunction {} -> type2C (PointerTo t)
+                -- BTFunction {} -> type2C (PointerTo t)
                 _ -> return t'
         r' <- initExpr2C (InitRange r)
         return $ \i -> ft i <> brackets r'
@@ -582,7 +679,7 @@
     type2C' (FunctionType returnType params) = do
         t <- type2C returnType
         p <- withState' id $ functionParams2C params
-        return (\i -> t empty <+> i <> parens p)
+        return (\i -> (t empty <> (parens $ text "*" <> i) <> parens p))
     type2C' (DeriveType (InitBinOp _ _ i)) = type2C' (DeriveType i)
     type2C' (DeriveType (InitPrefixOp _ i)) = type2C' (DeriveType i)
     type2C' (DeriveType (InitNumber _)) = return (text "int" <+>)
@@ -610,7 +707,7 @@
     e <- expr2C expr
     p1 <- (phrase2C . wrapPhrase) phrase1
     el <- elsePart
-    return $ 
+    return $
         text "if" <> parens e $+$ p1 $+$ el
     where
     elsePart | isNothing mphrase2 = return $ empty
@@ -634,15 +731,26 @@
                     e <- expr2C expr
                     return $ r <+> text "=" <+> e <> semi
                 _ -> error $ "Assignment to string from " ++ show lt
-        (BTArray _ _ _, _) -> phrase2C $ 
-            ProcCall (FunCall
-                [
-                Reference $ Address ref
-                , Reference $ Address $ RefExpression expr
-                , Reference $ FunCall [expr] (SimpleReference (Identifier "sizeof" BTUnknown))
-                ]
-                (SimpleReference (Identifier "memcpy" BTUnknown))
-                ) []
+        (BTArray _ _ _, _) -> do
+            case expr of
+                Reference er -> do
+                    exprRef <- ref2C er
+                    exprT <- gets lastType
+                    case exprT of
+                        BTArray RangeInfinite _ _ ->
+                            return $ text "FIXME: assign a dynamic array to an array"
+                        BTArray _ _ _ -> phrase2C $
+                                ProcCall (FunCall
+                                    [
+                                    Reference $ ref
+                                    , Reference $ RefExpression expr
+                                    , Reference $ FunCall [expr] (SimpleReference (Identifier "sizeof" BTUnknown))
+                                    ]
+                                    (SimpleReference (Identifier "memcpy" BTUnknown))
+                                    ) []
+                        _ -> return $ text "FIXME: assign a non-specific value to an array"
+
+                _ -> return $ text "FIXME: dynamic array assignment 2"
         _ -> do
             e <- expr2C expr
             return $ r <+> text "=" <+> e <> semi
@@ -654,34 +762,36 @@
     e <- expr2C expr
     cs <- mapM case2C cases
     d <- dflt
-    return $ 
+    return $
         text "switch" <> parens e $+$ braces (nest 4 . vcat $ cs ++ d)
     where
     case2C :: ([InitExpression], Phrase) -> State RenderState Doc
     case2C (e, p) = do
         ies <- mapM range2C e
         ph <- phrase2C p
-        return $ 
+        return $
              vcat (map (\i -> text "case" <+> i <> colon) . concat $ ies) <> nest 4 (ph $+$ text "break;")
-    dflt | isNothing mphrase = return []
+    dflt | isNothing mphrase = return [text "default: break;"] -- avoid compiler warning
          | otherwise = do
              ph <- mapM phrase2C $ fromJust mphrase
              return [text "default:" <+> nest 4 (vcat ph)]
-                                         
+
 phrase2C wb@(WithBlock ref p) = do
-    r <- ref2C ref 
+    r <- ref2C ref
     t <- gets lastType
     case t of
         (BTRecord _ rs) -> withRecordNamespace (render r ++ ".") rs $ phrase2C $ wrapPhrase p
         a -> do
             error $ "'with' block referencing non-record type " ++ show a ++ "\n" ++ show wb
-phrase2C (ForCycle i' e1' e2' p) = do
+phrase2C (ForCycle i' e1' e2' p up) = do
     i <- id2C IOLookup i'
     e1 <- expr2C e1'
     e2 <- expr2C e2'
     ph <- phrase2C (wrapPhrase p)
-    return $ 
-        text "for" <> (parens . hsep . punctuate (char ';') $ [i <+> text "=" <+> e1, i <+> text "<=" <+> e2, text "++" <> i])
+    cmp <- return $ if up == True then "<=" else ">="
+    inc <- return $ if up == True then "++" else "--"
+    return $
+        text "for" <> (parens . hsep . punctuate (char ';') $ [i <+> text "=" <+> parens e1, i <+> text cmp <+> parens e2, text inc <> i])
         $$
         ph
 phrase2C (RepeatCycle e' p') = do
@@ -716,13 +826,13 @@
     e2 <- expr2C expr2
     t2 <- gets lastType
     case (op2C op, t1, t2) of
-        ("+", BTString, BTString) -> expr2C $ BuiltInFunCall [expr1, expr2] (SimpleReference $ Identifier "_strconcat" (BTFunction 2 BTString))
-        ("+", BTString, BTChar) -> expr2C $ BuiltInFunCall [expr1, expr2] (SimpleReference $ Identifier "_strappend" (BTFunction 2 BTString))
-        ("+", BTChar, BTString) -> expr2C $ BuiltInFunCall [expr1, expr2] (SimpleReference $ Identifier "_strprepend" (BTFunction 2 BTString))
-        ("+", BTChar, BTChar) -> expr2C $ BuiltInFunCall [expr1, expr2] (SimpleReference $ Identifier "_chrconcat" (BTFunction 2 BTString))
-        ("==", BTString, BTChar) -> expr2C $ BuiltInFunCall [expr1, expr2] (SimpleReference $ Identifier "_strcomparec" (BTFunction 2 BTBool))
-        ("==", BTString, BTString) -> expr2C $ BuiltInFunCall [expr1, expr2] (SimpleReference $ Identifier "_strcompare" (BTFunction 2 BTBool))
-        ("!=", BTString, _) -> expr2C $ BuiltInFunCall [expr1, expr2] (SimpleReference $ Identifier "_strncompare" (BTFunction 2 BTBool))
+        ("+", BTString, BTString) -> expr2C $ BuiltInFunCall [expr1, expr2] (SimpleReference $ Identifier "_strconcat" (BTFunction False 2 BTString))
+        ("+", BTString, BTChar) -> expr2C $ BuiltInFunCall [expr1, expr2] (SimpleReference $ Identifier "_strappend" (BTFunction False 2 BTString))
+        ("+", BTChar, BTString) -> expr2C $ BuiltInFunCall [expr1, expr2] (SimpleReference $ Identifier "_strprepend" (BTFunction False 2 BTString))
+        ("+", BTChar, BTChar) -> expr2C $ BuiltInFunCall [expr1, expr2] (SimpleReference $ Identifier "_chrconcat" (BTFunction False 2 BTString))
+        ("==", BTString, BTChar) -> expr2C $ BuiltInFunCall [expr1, expr2] (SimpleReference $ Identifier "_strcomparec" (BTFunction False 2 BTBool))
+        ("==", BTString, BTString) -> expr2C $ BuiltInFunCall [expr1, expr2] (SimpleReference $ Identifier "_strcompare" (BTFunction False 2 BTBool))
+        ("!=", BTString, _) -> expr2C $ BuiltInFunCall [expr1, expr2] (SimpleReference $ Identifier "_strncompare" (BTFunction False 2 BTBool))
         ("&", BTBool, _) -> return $ parens e1 <+> text "&&" <+> parens e2
         ("|", BTBool, _) -> return $ parens e1 <+> text "||" <+> parens e2
         (_, BTRecord t1 _, BTRecord t2 _) -> do
@@ -732,16 +842,27 @@
             -- aw, "LongInt" here is hwengine-specific hack
             i <- op2CTyped op [SimpleType (Identifier t1 undefined), SimpleType (Identifier "LongInt" undefined)]
             ref2C $ FunCall [expr1, expr2] (SimpleReference i)
-        ("in", _, _) -> 
+        ("in", _, _) ->
             case expr2 of
                  SetExpression set -> do
                      ids <- mapM (id2C IOLookup) set
+                     modify(\s -> s{lastType = BTBool})
                      return . parens . hcat . punctuate (text " || ") . map (\i -> parens $ e1 <+> text "==" <+> i) $ ids
                  _ -> error "'in' against not set expression"
         (o, _, _) | o `elem` boolOps -> do
                         modify(\s -> s{lastType = BTBool})
                         return $ parens e1 <+> text o <+> parens e2
-                  | otherwise -> return $ parens e1 <+> text o <+> parens e2
+                  | otherwise -> do
+                        o' <- return $ case o of
+                            "/(float)" -> text "/(float)" -- pascal returns real value
+                            _ -> text o
+                        e1' <- return $ case (o, t1, t2) of
+                                ("-", BTInt, BTInt) -> parens $ text "(int64_t)" <+> parens e1
+                                _ -> parens e1
+                        e2' <- return $ case (o, t1, t2) of
+                                ("-", BTInt, BTInt) -> parens $ text "(int64_t)" <+> parens e2
+                                _ -> parens e2
+                        return $ e1' <+> o' <+> e2'
     where
         boolOps = ["==", "!=", "<", ">", "<=", ">="]
 expr2C (NumberLiteral s) = do
@@ -765,7 +886,12 @@
         BTRecord t _ -> do
             i <- op2CTyped op [SimpleType (Identifier t undefined)]
             ref2C $ FunCall [expr] (SimpleReference i)
-        _ -> return $ text (op2C op) <> e
+        BTBool -> do
+            o <- return $ case op of
+                     "not" -> text "!"
+                     _ -> text (op2C op)
+            return $ o <> parens e
+        _ -> return $ text (op2C op) <> parens e
 expr2C Null = return $ text "NULL"
 expr2C (CharCode a) = do
     modify(\s -> s{lastType = BTChar})
@@ -794,24 +920,25 @@
          _ -> error $ "BuiltInFunCall 'high' from " ++ show e ++ "\ntype: " ++ show lt
 expr2C (BuiltInFunCall [e] (SimpleReference (Identifier "ord" _))) = liftM parens $ expr2C e
 expr2C (BuiltInFunCall [e] (SimpleReference (Identifier "succ" _))) = liftM (<> text " + 1") $ expr2C e
-expr2C (BuiltInFunCall [e] (SimpleReference (Identifier "pred" _))) = liftM (<> text " - 1") $ expr2C e
+expr2C (BuiltInFunCall [e] (SimpleReference (Identifier "pred" _))) = liftM (<> text " - (int64_t)1") $ expr2C e
 expr2C (BuiltInFunCall [e] (SimpleReference (Identifier "length" _))) = do
     e' <- expr2C e
     lt <- gets lastType
     modify (\s -> s{lastType = BTInt})
     case lt of
-         BTString -> return $ text "Length" <> parens e'
-         BTArray {} -> return $ text "length_ar" <> parens e'
+         BTString -> return $ text "fpcrtl_Length" <> parens e'
+         BTArray RangeInfinite _ _ -> error $ "length() called on variable size array " ++ show e'
+         BTArray (RangeFromTo _ n) _ _ -> initExpr2C (BuiltInFunction "succ" [n])
          _ -> error $ "length() called on " ++ show lt
 expr2C (BuiltInFunCall params ref) = do
-    r <- ref2C ref 
+    r <- ref2C ref
     t <- gets lastType
     ps <- mapM expr2C params
     case t of
-        BTFunction _ t' -> do
+        BTFunction _ _ t' -> do
             modify (\s -> s{lastType = t'})
         _ -> error $ "BuiltInFunCall lastType: " ++ show t
-    return $ 
+    return $
         r <> parens (hsep . punctuate (char ',') $ ps)
 expr2C a = error $ "Don't know how to render " ++ show a
 
@@ -820,15 +947,15 @@
     i <- id2C IOLookup name
     t <- gets lastType
     case t of
-         BTFunction _ rt -> do
+         BTFunction _ _ rt -> do
              modify(\s -> s{lastType = rt})
-             return $ i <> parens empty
+             return $ i <> parens empty --xymeng: removed parens
          _ -> return $ i
 ref2CF r@(RecordField (SimpleReference _) (SimpleReference _)) = do
     i <- ref2C r
     t <- gets lastType
     case t of
-         BTFunction _ rt -> do
+         BTFunction _ _ rt -> do
              modify(\s -> s{lastType = rt})
              return $ i <> parens empty
          _ -> return $ i
@@ -844,7 +971,7 @@
 -- conversion routines
 ref2C ae@(ArrayElement [expr] ref) = do
     e <- expr2C expr
-    r <- ref2C ref 
+    r <- ref2C ref
     t <- gets lastType
     case t of
          (BTArray _ _ t') -> modify (\st -> st{lastType = t'})
@@ -862,13 +989,13 @@
          _ -> return $ r <> brackets e
 ref2C (SimpleReference name) = id2C IOLookup name
 ref2C rf@(RecordField (Dereference ref1) ref2) = do
-    r1 <- ref2C ref1 
+    r1 <- ref2C ref1
     t <- fromPointer (show ref1) =<< gets lastType
     r2 <- case t of
         BTRecord _ rs -> withRecordNamespace "" rs $ ref2C ref2
         BTUnit -> error "What??"
         a -> error $ "dereferencing from " ++ show a ++ "\n" ++ show rf
-    return $ 
+    return $
         r1 <> text "->" <> r2
 ref2C rf@(RecordField ref1 ref2) = do
     r1 <- ref2C ref1
@@ -888,7 +1015,7 @@
     r <- fref2C ref
     t <- gets lastType
     case t of
-        BTFunction _ t' -> do
+        BTFunction _ _ t' -> do
             ps <- liftM (parens . hsep . punctuate (char ',')) $ mapM expr2C params
             modify (\s -> s{lastType = t'})
             return $ r <> ps
@@ -898,10 +1025,13 @@
     where
     fref2C (SimpleReference name) = id2C (IOLookupFunction $ length params) name
     fref2C a = ref2C a
-        
+
 ref2C (Address ref) = do
     r <- ref2C ref
-    return $ text "&" <> parens r
+    lt <- gets lastType
+    case lt of
+        BTFunction True _ _ -> return $ text "&" <> parens (r <> text "__vars")
+        _ -> return $ text "&" <> parens r
 ref2C (TypeCast t'@(Identifier i _) expr) = do
     lt <- expr2C expr >> gets lastType
     case (map toLower i, lt) of
@@ -909,7 +1039,7 @@
         ("shortstring", BTPointerTo _) -> ref2C $ FunCall [expr] (SimpleReference (Identifier "pchar2str" $ BTString))
         (a, _) -> do
             e <- expr2C expr
-            t <- id2C IOLookup t'    
+            t <- id2C IOLookup t'
             return . parens $ parens t <> e
 ref2C (RefExpression expr) = expr2C expr
 
@@ -917,7 +1047,7 @@
 op2C :: String -> String
 op2C "or" = "|"
 op2C "and" = "&"
-op2C "not" = "!"
+op2C "not" = "~"
 op2C "xor" = "^"
 op2C "div" = "/"
 op2C "mod" = "%"
@@ -925,5 +1055,6 @@
 op2C "shr" = ">>"
 op2C "<>" = "!="
 op2C "=" = "=="
+op2C "/" = "/(float)"
 op2C a = a