Fix aiming with no weapon crash

src/Dodge/Combine/Combinations.hs

@@ -2,6 +2,7 @@
 module Dodge.Combine.Combinations where
 import Dodge.Data
 import Dodge.Item.Equipment
+import Dodge.Item.Craftable
 import Dodge.Item.Weapon.BulletGuns
 import Dodge.Item.Weapon.Launcher
 import Dodge.Item.Weapon.SprayGuns
@@ -44,6 +45,10 @@ itemCombinations =
     , po [FLAMESTICK,DRUM,DRUM] flameWall
 
     , po [MAGNET,TIN] magShield
+
+    , p [p 4 CAN] plateCraft
+
+    , p [p 2 PLATE] flatShield
     ] 
     ++ map (\i -> po [PIPE,BANGSTICK i] $ bangStick (i+1)) [1..8]
     ++ map (\i -> po [REVOLVERX i,CAN]  $ revolverX (i+1)) [1..5]

src/Dodge/Combine/Data.hs

@@ -40,6 +40,7 @@ data CombineType
     | LONGGUN
     | TESLAGUN
     | LASGUN
+    | SONICGUN
     | TRACTORGUN
     | LAUNCHER
     | SPRAYER