1module Help where
2
3import Types
4import Status
5
6helpWindow :: M ()
7helpWindow = showWindow (3,3) $ map (\l -> " " ++ l ++ " ")
8	[ "Move: hjkl or arrow keys"
9	, ""
10	, "Navigate through the whitespace on your way down the scroll."
11	, "Move over a letter to swallow it. (Punctuation is tasty too!)"
12	, "You cannot move entirely past some swallowed letters."
13	, "(Back up if you get stuck!)"
14	, ""
15	, "d: Dive to other side of scroll"
16	, "TAB: Force screen refresh"
17	, "Q: Quit the game"
18	, "i: Spell inventory"
19	, ""
20	, "To cast a spell, swallow the spell components,"
21	, "and type the magic letter or phrase."
22	, ""
23	, "Scroll is a 7DRL 2015 entry! And a file pager..."
24	, "GPL-2+ Copyright 2015 by Joey Hess <scroll@joeyh.name>"
25	]
26