Add no weapon start

src/Dodge/Event/Keyboard.hs

@@ -76,7 +76,7 @@ spaceAction w = if _carteDisplay w
         w & carteCenter .~ theLoc
     else 
         case listToMaybe $ _closeActiveObjects w of
-            Just (Left flit) -> pickUpItem' flit w
+            Just (Left flit) -> pickUpItem flit w
             Just (Right but) -> updateTopCloseObject (_btID but) $ _btEvent but but w
             Nothing -> w
   where
@@ -90,22 +90,14 @@ toggleMap w = w & carteDisplay %~ not
 escapeMap w = w & carteDisplay .~ False
 
 dropLight :: World -> World
-dropLight w = placeLS ls dec pos 0
-        --  $ over creatures IM.insert i (lamp)
-        $ w
-        --case yourItem w of
-        --NoItem -> w
-        --it -> rmInvItem (_yourID w) $ over floorItems (IM.insert flid theflit)
-        --             gg           $ updateLocation
-        --                        $ soundOnce putDownSound 
-        --                        $ set randGen g w
-        where --(rot, g) = randomR (-pi,pi) $ _randGen w
-            i = newCrKey w -- to give different lights different keys
-            pos = _crPos(you w)
-            ls = lightAt pos 0
-            dec = onLayer PtLayer $ color white $ circleSolid 8
+dropLight w = placeLS ls dec pos 0 w
+  where --(rot, g) = randomR (-pi,pi) $ _randGen w
+    i = newCrKey w -- to give different lights different keys
+    pos = _crPos(you w)
+    ls = lightAt pos 0
+    dec = onLayer PtLayer $ color white $ circleSolid 8
 
 dropLight' :: World -> World
 dropLight' w = placeCr lamp pos 0 w
-        where
-            pos = _crPos(you w)
+  where
+    pos = _crPos(you w)