hallway-test/hallway-test.bas

Rem This is a test for a potential game named Savage Actual. We'll see what happens.

Rem by John Paul Wohlscheid

WindowTitle "Hallway test"

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:

print "Officer "; funame; ","
print "We just received a message from dispatch."
print "Kevin O'Mara have escaped from Cairo Max, where"
print "he was serving a 50 years for homicide."
print "He knocked out a guard and stole his service pistol."
print "O'Mara was seen entering 979 Harvest Plaza."
print "Check it out. Be warned the fugitive is armed and dangerous."

sleep 5000



room1:



room2:



room3:



room4:



room5: