old showdown

[James D Jarvis]

This is a recreation of the first computer program (and first game) I ever wrote about 40 years ago. It's uses a couple of new-fangled features but is as close as I can remember it.
The original requirements for the assignment was a math function, and user input .

Code: (Select All)

'oldshowdown
'This is a recreation of my very first basic game as best as I can recall.
'originally written in math class on an apple computer in the 7th or 8th grade
'nothing amazing, just personal computing archeology of a sort
Randomize Timer
Cls
Dim p$(3)
For x = 20 To 1 Step -1
    _Limit 10
    Cls
    For y = 1 To x
        Print
    Next
    Print "                             S H O W D O W N"
    _Display
Next
Print: Print
Print "    Well Pardner the time has come, Black Bart is calling you out."
_Delay 0.25
Print
Print "    You strap on your trusty six-shooter and walk out into the street."
_Delay 0.25
givehint:
hint = Int(1 + Rnd * 3)
p$(1) = "    The sun is in your eyes."
p$(2) = "    Everything is silent except for a dog barking in the distance."
p$(3) = "    Buzzards circle high above the dusty street..."
Print p$(hint)
hint = hint * 3
_Delay 0.25
shoot:
Print "    Pick a number from 1 to 9 to fire your shooting iron."
Input s$
sn = Val(s$)
Print
bartshot = Int(1 + Rnd * hint)
Print "Both shots ring out... "
_Delay 0.5

If sn = bartshot Then GoTo youwon
If sn < bartshot Then GoTo bartwon
If sn > bartshot Then GoTo fighton

bartwon:
Print "                      ... the last thing you hear is Black Bart laughing."
Print
End
youwon:
Print "                      ... Black Bart smiles..."
_Delay 0.5
Print "                                               ... before dropping where he stands."
Print
Print "The street fills with the townsfolk slapping you on the back and cheering."
Print
End
fighton:
Print "Both of your shots have gone wild, Black Bart shifts to the side and pulls the hammer back on his revolver..."
Print
GoTo givehint