Add flavour text, start smoke, support for different reload sounds

2021-06-22 14:42:23 +02:00
parent 52eaeead5d
commit 39218ed3b5
31 changed files with 128 additions and 57 deletions
@@ -0,0 +1,18 @@
+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