如何在Gloss Haskell中实施多个级别？

Question

我正在尝试在Haskell中实施具有多个级别的游戏。每个级别都有不同但广义的游戏状态。我们可以像以下内容一样定义游戏状态

type Player = (Float, Float) -- Player coordinates
data State a = State Player a Bool

- a是环境。在一个级别上，它被定义为String，在另一个级别中，它被定义为（[int]，[int]）。 Bool确定水平是否完成。

我实现了两个不同的功能，它们使用play from graphics.gloss.interface.pure.game。我可以将任何此功能都注入main并单独播放。例如 -

lv1 = play window black 90 (State (0,0) "Hello" False) drawLv1 handleLv1 updateLv1
lv2 = play window black 90 (State (0,0) ([1,2,3,4], [0,0,0,0]) False) drawLv2 handleLv2 updateLv2

main :: IO()
main = lv1
-- main = lv2

但是，我想以某种方式从LV1转到LV2。我知道Haskell函数可以作为值传递，并且显然有一种将主函数从lv1更改为lv2的方法，但我无法弄清楚。

解决方案或有关如何正确处理问题的想法将非常好。

Answer 1

当您说这些级别可以具有不同的类型时，以某种方式播放级别的游戏代码必须在解释和修改此状态值。因此，必须有从字符串到游戏中某些类型的功能，而从（[int]，[int]）到相​​同类型的等效函数。

如果是这样，则需要将这些功能放入类中：

class MyGameState a where
   someFunction :: a -> Int
   someOtherFunction :: a -> Thing
   updateGameState :: Int -> a -> a

instance MyGameState String where
   someFunction str = .....
   someOtherFunction str = ......
   updateGameState n oldState = ......

实例myGamestate（[int]，[int]）同样。然后，您可以使用somefunction和someotherfunction来定义游戏玩法功能。

Answer 2

我决定写我最终解决问题的方法，因为其他人可能会遇到与我相同的问题 -

首先，我更改了state数据，以制造一个通用系统，以更好地在不同级别之间进行过渡。因此，我现在拥有状态，而不是当前状态a数据，但是使用新的参数level

type Player = (Float, Float) -- Player coordinates
-- data State a = State Player a Bool
data State = State {
    getPlayer :: Player,
    getLevel :: Level,
    levelCompleted :: Bool
}
data Level = Lv1 String | Lv2 ([Int], [Int])

，我需要相应地修复特定级别的功能。例如，

updateLv1 :: Float -> State -> State
-- If com is true then level is complete
updateLv1 _ (State player (Lv1 st) com) =
    if com then State (0,0) ([1,2,3,4], [0,0,0,0]) False
    else
        ...
        ...

updateLv1 time state = commonUpdater time state

绘图和事件处理程序也是如此。

最后，我必须修复普通处理程序 -

commonUpdater time state = case getLevel state of
    Lv1 _ = updateLv1 time state
    Lv2 _ = updateLv2 time state

我也必须实现concomhandler和consondrawer。该过程几乎相同。

最后，播放功能很容易。我只需要初始化LV1状态，而休息就是通过共同的功能来处理的 -

game :: IO()
game = play window black 90 (State (0,0) (Lv2 "Hello") False) commonDrawer commonHandler commonUpdater

main :: IO()
main = game

仅此而已！