update game demo

hallway-test.bas

@@ -4,18 +4,54 @@ Rem by John Paul Wohlscheid
 
 WindowTitle "Hallway test"
 
-Dim as integer room1, room2, room3, room4, room5
+Dim as integer room1, room2, room3, room4, room5, ranum
 
 Dim as string funame
 
+ranum = cast(integer, fix(rnd*100)+1) ' generate random number
+
 Input "Before we begin, please enter the name of your character: ", funame
+print
+If funame = "fuck" then
+	print "That's real nice. I think I'll call you Larry." 
+	funame = "Larry"
+elseif funame = "Bryan" then
+	print "I'll call you 'the Duke'." 
+	funame = "the Duke"
+elseif funame = "Gregg" then
+	print "Looks like we're going to get some philosophy in the house."
+end if	
+print
+print
+sleep 5000
+startover:
 
-If funame = "fuck" 
+print "Officer "; funame; ","
-	then print "That's real nice. I think I'll call you Larry." 
+print "We just received a message from dispatch."
-	then funame = "Larry"
+print "Kevin O'Mara have escaped from Cairo Max, where"
-elseif funame = "Bryan"
+print "he was serving a 50 years for homicide."
-	then print "I'll call you 'the Duke'." 
+print "He knocked out a guard and stole his service pistol."
-	then 
+print "O'Mara was seen entering 979 Harvest Plaza."
-elseif funame = "Gregg"
+print "Check it out. Be warned the fugitive is armed and dangerous."
-	then print "Looks like we're going to get some philosophy in the house."
 
+sleep 5000
+
+
+
+room1:
+
+
+
+room2:
+
+
+
+room3:
+
+
+
+room4:
+
+
+
+room5: