19 lines
448 B
Haskell
19 lines
448 B
Haskell
module Dodge.Story
|
|
where
|
|
|
|
rezText :: [String]
|
|
rezText =
|
|
["INITIALIZING..."
|
|
,"COMPLETE"
|
|
,"LOADING SUBJECT 288307..."
|
|
,"COMPLETE"
|
|
,"INITIALIZING RECONSTRUCTION..."
|
|
,"WARNING 56684 PARAHIPPOCAMPAL GYRUS"
|
|
,"WARNING 57810 DIENCEPHALON"
|
|
,"RECONSTRUCTION TERMINATED 1527"
|
|
,"PRESS ANY KEY TO CONTINUE"
|
|
,">"
|
|
]
|
|
rezText' :: [(Int,String)]
|
|
rezText' = reverse $ zip [300,250,248,200,198,100,80,10,1,999] rezText
|