59 lines
1.2 KiB
QBasic
59 lines
1.2 KiB
QBasic
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."
|
|
print
|
|
|
|
sleep 5000
|
|
|
|
print "The front door
|
|
|
|
room1:
|
|
|
|
|
|
|
|
room2:
|
|
|
|
|
|
|
|
room3:
|
|
|
|
|
|
|
|
room4:
|
|
|
|
|
|
|
|
room5:
|