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