old showdown - Printable Version

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