Add various item info

2023-01-03 15:58:54 +00:00
parent 6c1862b2a1
commit 5fc39bd12d
11 changed files with 310 additions and 50 deletions
@@ -43,7 +43,12 @@ equipItemSPic et _ = case et of
    JETPACK ->
        (,) emptySH $
            setDepth 20 $
-                pictures [color yellow $ polygon $ reverse $ rectNSWE 5 (-5) (-11) (-3)]
+                pictures [color yellow $ polygon $ reverse $ rectNSWE 5 (-5) (-4) (-4)]
+    FUELPACK ->
+        (,) emptySH $
+            setDepth 20 $
+                --pictures [color yellow $ polygon $ reverse $ rectNSWE 5 (-5) (-11) (-3)]
+                pictures [color yellow $ polygon $ reverse $ polyCirc 3 5]
    AUTODETECTOR dt -> noPic (colorSH (detectorColor dt) $ upperPrismPoly 3 $ rectWH 2 2)

 leftItemSPic :: LeftItemType -> Item -> SPic