Implement modules changing shell payloads

2024-12-24 21:13:58 +00:00
parent e82ef26b3e
commit 81fd2131e0
18 changed files with 82 additions and 18 deletions
@@ -73,6 +73,7 @@ showAttachItem t itm = case t of
                (itm ^? itUse . uaParams . apLinkedProjectile . _Just)
    HOMINGMODULE -> "HOMING MOD"
    AUGMENTEDHUD -> "AUGMENTED HUD"
+    SHELLPAYLOAD x -> show x

 showEquipItem :: EquipItemType -> String
 showEquipItem eit = case eit of