Block screen during long loading

src/Dodge/Item/Info.hs

@@ -0,0 +1,12 @@
+module Dodge.Item.Info where
+
+import Dodge.Data.Item
+
+itmBaseInfo :: ItemBaseType -> String
+itmBaseInfo t = case t of
+    HELD _ -> "THIS ITEM CAN BE HELD."
+    LEFT _ -> "THIS ITEM CAN BE EQUIPPED. WHEN EQUIPPED, IT CAN BE ACTIVATED."
+    EQUIP _ -> "THIS ITEM CAN BE EQUIPPED."
+    Consumable _ -> "THIS ITEM CAN BE CONSUMED."
+    CRAFT _ -> "THIS ITEM SEEMS USELESS ON ITS OWN."
+    _ -> "THIS SHOULD NOT BE DISPLAYED"