Reinstate damagecode terminal commands

src/Dodge/WorldEffect.hs

@@ -95,6 +95,10 @@ doTmWdWd tmwdwd = case tmwdwd of
     TmTmClearDisplayedLines -> \tm -> fromMaybe id $ do
         tid <- tm ^? tmID
         return $ cWorld . lWorld . terminals . ix tid . tmDisplayedLines .~ []
+    TmGetDamageCoding st -> \tm w -> fromMaybe w $ do
+        tid <- tm ^? tmID
+        return $ w & cWorld . lWorld . terminals . ix tid . tmFutureLines 
+            .~ decodeSensorType st w
     TmTmSetStatus x -> \tm -> fromMaybe id $ do
         tid <- tm ^? tmID
         return $ cWorld . lWorld . terminals . ix tid . tmStatus .~ x
@@ -114,3 +118,9 @@ doTmWdWd tmwdwd = case tmwdwd of
          in soundStart TerminalSound tpos sid Nothing w
     TmWdWdDoDeathTriggers -> doDeathTriggers
     TmWdWdfromWdWd f -> \_ -> doWdWd f
+
+decodeSensorType :: SensorType -> World -> [TerminalLine]
+decodeSensorType st w = fromMaybe [] $ do
+    x <- w ^? cWorld . cwGen . cwgParams . sensorCoding . ix st
+    return [makeTermLine $ show x]
+