Move button data

2022-07-21 18:22:08 +01:00
parent aabd8a2cb8
commit b58444f931
16 changed files with 185 additions and 89 deletions
@@ -5,6 +5,7 @@ module Dodge.Placement.Instance.Terminal
    , simpleTermMessage
    , terminalColor
    , terminalSPic
+    , accessTerminal
    ) where
 import Dodge.Data
 import Dodge.LevelGen.Data
@@ -52,10 +53,10 @@ putMessageTerminal col = putTerminal $ defaultMachine

 termButton :: Button
 termButton = Button
-    { _btPict   = const mempty
+    { _btPict   = DrawNoButton
    , _btPos    = 0
    , _btRot    = 0
-    , _btEvent  = accessTerminal . _btTermMID
+    , _btEvent  = ButtonAccessTerminal
    , _btID     = 0
    , _btText   = "TERMINAL"
    , _btState  = BtOff