resetFlag :: (Monad m) => Flag -> CyoaT m ()
resetFlag flag =
  modifyPlayerState $ \ps -> ps { player_flags = Set.delete flag (player_flags ps) }
resetFlag :: (Monad m) => Flag -> CyoaT m ()
resetFlag flag =
  modifyPlayerState $ \ps -> ps { player_flags = Set.delete flag (player_flags ps) }
resetFlag flag =
  modifyPlayerState $ \ps -> ps { player_flags = Set.delete flag (player_flags ps) }