ayer :: WriterT Output IO PlayerState
mkPlayer = do
  tell $ OutputClear "Új kaland" []
  emit [outText "Ügyesség pontjaid: 6 + "]
  agility <- (6+) <$> roll
  emit [outText $ " = " ++ show agility, OutBreak]

  emit [outText "Életerő pontjaid: 12 + "]
  health <- (12+) <$> ((+) <$> roll <*> roll)
  emit [outText $ " = " ++ show health, OutBreak]

  emit [outText "Szerencse pontjaid: 6 + "]
  luck <- (6+) <$> roll
  emit [outText $ " = " ++ show luck, OutBreak]

  emit [ OutLink (PageLink 1) "És most lapozz az 1. oldalra..." ]
  return PS { player_carries = Set.empty,
              player_flags = Set.empty,
              player_counters = Map.empty,

              player_stats = Map.fromList [ (Luck, (luck, luck))
                                          , (Agility, (agility, agility))
                                          , (Health, (health, health))],
              player_page = 1 } -- harc teszt: 73, death teszt: 323, kockadobas: 5, 31

mkPlayer :: WriterT Output IO PlayerState
mkPlayer = do
  tell $ OutputClear "Új kaland" []
  emit [outText "Ügyesség pontjaid: 6 + "]
  agility <- (6+) <$> roll
  emit [outText $ " = " ++ show agility, OutBreak]

  emit [outText "Életerő pontjaid: 12 + "]
  health <- (12+) <$> ((+) <$> roll <*> roll)
  emit [outText $ " = " ++ show health, OutBreak]

  emit [outText "Szerencse pontjaid: 6 + "]
  luck <- (6+) <$> roll
  emit [outText $ " = " ++ show luck, OutBreak]

  emit [ OutLink (PageLink 1) "És most lapozz az 1. oldalra..." ]
  return PS { player_carries = Set.empty,
              player_flags = Set.empty,
              player_counters = Map.empty,

              player_stats = Map.fromList [ (Luck, (luck, luck))
                                          , (Agility, (agility, agility))
                                          , (Health, (health, health))],
              player_page = 1 } -- harc teszt: 73, death teszt: 323, kockadobas: 5, 31
mkPlayer = do
  tell $ OutputClear "Új kaland" []
  emit [outText "Ügyesség pontjaid: 6 + "]
  agility <- (6+) <$> roll
  emit [outText $ " = " ++ show agility, OutBreak]

  emit [outText "Életerő pontjaid: 12 + "]
  health <- (12+) <$> ((+) <$> roll <*> roll)
  emit [outText $ " = " ++ show health, OutBreak]

  emit [outText "Szerencse pontjaid: 6 + "]
  luck <- (6+) <$> roll
  emit [outText $ " = " ++ show luck, OutBreak]

  emit [ OutLink (PageLink 1) "És most lapozz az 1. oldalra..." ]
  return PS { player_carries = Set.empty,
              player_flags = Set.empty,
              player_counters = Map.empty,

              player_stats = Map.fromList [ (Luck, (luck, luck))
                                          , (Agility, (agility, agility))
                                          , (Health, (health, health))],
              player_page = 1 } -- harc teszt: 73, death teszt: 323, kockadobas: 5, 31