Rename help text-> footer text, rename tractor param

2022-03-20 18:13:34 +00:00
parent d19bd5c327
commit ff93d1d041
5 changed files with 47 additions and 44 deletions
@@ -174,7 +174,10 @@ data ScreenLayer
        , _scOptionFlag :: OptionScreenFlag
        }
    | ColumnsScreen String [(String,String)]
-    | InputScreen String String
+    | InputScreen 
+        { _scInput  :: String 
+        , _scFooter :: String
+        }
    | WaitScreen
        { _scWaitMessage :: Universe -> String
        , _scWaitTime    :: Int
@@ -616,7 +619,7 @@ data ItemParams
        , _shellThrustDelay :: Int
        }
    | Refracting    {_phaseV :: Float}
-    | Traction    {_power :: Point2}
+    | Attracting    {_attractionPower :: Point2}
    | BulletShooter -- this should possibly be moved into ammo type
        { _muzVel   :: Float
        , _rifling  :: Float