DOS | @ECHO OFF SETLOCAL CLS - Philmasterplus - f7fbef914

@ECHO OFF
SETLOCAL
CLS


:: All "REM" in the code replaced with "::"

:: Note: Some of your previous actions will be "remembered" by the game.
::  That is, when you don't enter anything at a prompt for action, how many
::  paces, etc. the game will assume that you will take the same previous
::  action. I don't know whether this is an intentional feature.
::  - K.Y.H

:: Officially Supported OS: Windows XP
:: Officially Unsupported OS: Windows 98

:: Initialization section (unlike BASIC, MS-DOS Batch doesn't set its
:: environmental variables to anything by default)
SET HN_B=0
SET HN_C=0
SET HN_P=0
SET HN_S=0

:: --- ORIGINAL CODE START ---

:: DESIGNED AND PROGRAMMED BY CHRIS GAYLO, SYOSSET H.S.--9/12/70
:: Ported to MS-DOS Batch by Kang Ye-hyoung, Seoul, South Korea--3/15/08
:: Version 1.0
ECHO                       H I G H  N O O N
ECHO                       ----------------
ECHO.
ECHO.
ECHO DO YOU WANT INSTRUCTIONS
SET /P HN_DS=
IF /I "%HN_DS%"=="NO" GOTO 460
ECHO.
ECHO.
ECHO YOU HAVE BEEN CHALLENGED TO A SHOWDOWN BY BLACK BART, ONE OF
ECHO THE MEANEST DESPERADOES WEST OF THE ALLEGHENY MOUNTAINS.
ECHO WHILE YOU ARE WALKING DOWN A DUSTY, DESERTED SIDE STREET,
ECHO BLACK BART EMERGES FROM A SALOON ONE HUNDRED PACES AWAY. BY
ECHO AGGREEMENT, YOU EACH HAVE FOUR CARTRIDGES IN YOUR SIX-GUNS.
ECHO YOUR MARKSMANSHIP EQUALS HIS. AT THE START OF THE WALK, NEI-
ECHO THER OF YOU CAN POSSIBLY HIT THE OTHER, AND AT THE END OF
ECHO THE WALK, NEITHER CAN MISS. THE CLOSER YOU GET, THE BETTER
ECHO YOUR CHANCES OF HITTING BART, BUT HE ALSO HAS BETTER CHANCES
ECHO OFF HITTING YOU.
ECHO DO YOU STILL WANT TO CONTINUE
SET /P HN_AS=
IF /I "%HN_AS%"=="NO" GOTO 1370
ECHO THE MOVES ARE AS FOLLOWS:
ECHO.
ECHO.
ECHO                         *M O V E S*
ECHO                         ===========
ECHO.
ECHO                         1. ADVANCE
ECHO.
ECHO 2. STAND STILL                                 3. FIRE
ECHO.
ECHO 4. JUMP BEHIND THE WATERING TROUGH             5. GIVE UP
ECHO.
ECHO                         6. TURN TAIL AND RUN
ECHO.
ECHO.
:460
ECHO WHAT IS YOUR LUCKY NUMBER FOR TODAY
SET /P HN_A=
ECHO KYH: Sorry, but MS-DOS Batch doesn't support the SIN() function.
ECHO KYH: We'll be using zero instead of your lucky number.

:: Personally, I don't know what the lines 480-520 are for yet.
:: But it seems to set B to a random number by some obfuscation.
:: We'll set HN_B to 0 at the initialization section, which will serve a
:: similar purpose.

ECHO.
SET HN_X=100
:550
ECHO.
ECHO WHAT IS YOUR STRATEGY
SET /P HN_B=
IF %HN_B% GTR 6 GOTO 1340
IF %HN_B% LSS 1 GOTO 1340
IF %HN_B%==1 GOTO 620
IF %HN_B%==2 GOTO 1390
IF %HN_B%==3 GOTO 690
IF %HN_B%==4 GOTO 1410
IF %HN_B%==5 GOTO 1510
IF %HN_B%==6 GOTO 1610
:620
ECHO HOW MANY PACES DO YOU ADVANCE
SET /P HN_S=
IF %HN_S% LSS 0 GOTO 2000
IF %HN_S% GTR 10 GOTO 1980
SET /A HN_X=%HN_X%-%HN_S%
ECHO YOU ARE NOW %HN_X% PACES APART.
GOTO 1040
:690
SET /A HN_C=%HN_C%+1
IF %HN_C% LEQ 4 GOTO 750
:710
ECHO NICE GOING, ACE. YOU'VE RUN OUT OF SHELLS.
ECHO NOW BART WON'T SHOOT UNTIL YOU TOUCH NOSES.
ECHO YOU BETTER THINK OF SOMETHING FAST. (LIKE RUN)
GOTO 1040
:750
SET /A HN_W=%RANDOM%*100/32767
IF %HN_W% GTR %HN_X% GOTO 820_BART_IS_SHOT
IF %HN_C%==2 GOTO 1820
IF %HN_C%==3 GOTO 1840
ECHO WHAT A LOUSY SHOT.
IF %HN_C%==4 GOTO 710
GOTO 1460
:820_BART_IS_SHOT
ECHO WHAT A SHOT, YOU GOT BLACK BART RIGHT BETWEEN THE EYES.
ECHO.
ECHO.
ECHO AS MAYOR OF DODGE CITY, AND ON BEHALF OF ITS CITIZENS,
ECHO I EXTEND TO YOU OUR THANKS, AND PRESENT YOU WITH THIS
ECHO REWARD, A CHECK FOR  $20,000,  FOR KILLING BLACK BART.
ECHO.
ECHO ************************************************************
ECHO.
SET /A HN_1=%RANDOM%*1000
SET /A HN_2=%RANDOM%*30/32767+1
ECHO CHECK NO.%HN_1%                           AUG.%HN_2%TH. 1889
ECHO             CASHIER'S RECEIT---BANK OF DODGE CITY
ECHO.
ECHO                  PAY TO THE BEARER ON DEMAND
ECHO.
ECHO                          THE SUM OF
ECHO.
ECHO      TWENTY THOUSAND DOLLARS--------------------$20,000
ECHO.
ECHO *************************************************************
ECHO.
ECHO DON'T SPEND IT ALL IN ONE PLACE.
GOTO 2080
:1040
IF %HN_X% LSS 10 GOTO 1120
SET /A HN_Q=%RANDOM%*10/32767
IF %HN_Q% GTR 5 GOTO 1120
:1070
SET /A HN_Z=%RANDOM%*9/32768+2
ECHO BLACK BART MOVES %HN_Z% PACES
SET /A HN_X=%HN_X%-%HN_Z%
ECHO YOU ARE NOW %HN_X% PACES APART
GOTO 550
:1120
SET /A HN_P=%HN_P%+1
IF %HN_C% GTR 4 GOTO 1070
IF %HN_P% LEQ 4 GOTO 1200
IF %HN_P%==5 GOTO 1180
IF %HN_P% GTR 6 GOTO 2020
GOTO 1070
:1180
ECHO NOW IS YOUR CHANCE, BART IS OUT OF SHELLS
GOTO 1070
:1200
SET /A HN_R=10*%RANDOM%/32767
ECHO BART FIRES . . . . . .
SET /A HN_1=%HN_X%/10
IF %HN_R% GTR %HN_1% GOTO 1300
ECHO A MISS . . . .
IF %HN_P%==2 GOTO 1890
IF %HN_P%==3 GOTO 1940
IF %HN_P% GTR 4 GOTO 1070
IF %HN_P%==4 GOTO 1960
ECHO WHEW, WERE YOU LUCKY, THAT BULLET JUST MISSED YOUR HEAD.
GOTO 1490
:1300
IF %HN_B%==4 GOTO 1910
ECHO BART SHOT YOU RIGHT THROUGH THE HEART THAT TIME.
ECHO YOU WENT KINKIN' WITH YOUR BOOTS ON.
GOTO 2080
:1340
ECHO YOU SURE AREN'T GOING TO LIVE VERY LONG IF YOU CAN'T EVEN
ECHO FOLLOW DIRECTIONS
GOTO 550
:1370
ECHO GREENHORN.
GOTO 2080
:1390
ECHO THAT MOVE MADE YOU A PERFECT STATIONARY TARGET
GOTO 1040
:1410
SET /A HN_T=%HN_T%+1
IF %HN_T% GTR 3 GOTO 2060
ECHO NOT A BAD MANEUVER, YOU THREW BART'S STRATEGY OFF
GOTO 1040
:1460
IF %HN_P% GTR 4 GOTO 1050
SET /A HN_1=4-%HN_C%
SET /A HN_2=4-%HN_P%
ECHO YOU NOW HAVE %HN_1% SHELLS TO BART'S %HN_2% SHELLS.
GOTO 1040
:1490
SET /A HN_1=4-%HN_C%
SET /A HN_2=4-%HN_P%
ECHO YOU NOW HAVE %HN_1% SHELLS TO BART'S %HN_2% SHELLS.
GOTO 550
:1510
ECHO BLACK BART ACCEPTS. THE CONDITIONS ARE THAT HE WON'T SHOOT YOU
ECHO IF YOU TAKE THE FIRST STAGE OUT OF TOWN AND NEVER COME BACK
ECHO AGREED
SET /P HN_HS=
IF /I "%HN_HS%"=="NO" GOTO 1590
ECHO A VERY WISE DECISION.
GOTO 2080
:1590
ECHO OH WELL, BACK TO THE SHOWDOWN
GOTO 550
:1610
ECHO HOW FAR DID YOU RUN
SET /P HN_F=
IF %HN_F% LSS 50 GOTO 1670
ECHO MAN, DID HE RUN. HE RAN SO FAST EVEN THE DOGS COULDN'T
ECHO CATCH HIM
GOTO 2080
:1670
IF %HN_P% GEQ 4 GOTO 1770
SET /A HN_1=4-%HN_P%
ECHO BLACK BART FIRES %HN_1% SHELLS.......
IF %HN_1% GTR 1 GOTO 1730
ECHO HE GOT YOU RIGHT IN THE BACK. THAT'S WHAT YOU DESERVE
ECHO FOR RUNNING.
GOTO 2080
:1730
SET /A HN_2=3-%HN_P%
ECHO BLACK BART UNLOADED HIS GUN, ONCE IN YOUR BACK
ECHO AND %HN_2% TIMES IN YOUR A**. NOW YOU CAN'T EVEN REST IN
ECHO PEACE.
GOTO 2080
:1770
ECHO YOU WERE LUCKY, BART CAN ONLY THROW HIS GUN AT YOU, HE
ECHO DOESN'T HAVE ANY SHELLS LEFT. YOU SHOULD REALLY BE DEAD.
GOTO 2080
:1800
IF %HN_P%==2 GOTO 1940
IF %HN-P%==3 GOTO 1960
:1820
ECHO GRAZED BART IN THE RIGHT ARM
GOTO 1040
:1840
ECHO HE'S HIT IN THE LEFT SHOULDER, FORCING HIM TO USE HIS RIGHT
ECHO HAND TO SHOOT WITH
GOTO 1040
:1870
ECHO THAT WAS YOUR LAST SHOT, YOU MISSED
GOTO 1040
:1890
ECHO BUT BART GOT YOU IN THE RIGHT SHIN
GOTO 550
:1910
ECHO THAT TRICK JUST SAVED YOUR LIFE. BART'S BULLET
ECHO WAS STOPPED BY THE WOOD SIDES OF THE TROUGH.
GOTO 550
:1940
ECHO THOUGH BART GOT YOU ON THE LEFT SIDE OF YOUR JAW.
GOTO 550
:1960
ECHO BART MUST HAVE JERKED THE TRIGGER
GOTO 550
:1980
ECHO NOBODY CAN WALK THAT FAST
GOTO 620
:2000
ECHO NONE OF THIS NEGATIVE STUFF PARTNER, ONLY POSITIVE NUMBERS
GOTO 620
:2020
ECHO BART JUST HI-TAILED IT OUT OF TOWN RATHER THAN FACE YOU WITH-
ECHO OUT A LOADED GUN. YOU CAN REST ASSURED THAT BART WON'T EVER
ECHO SHOW HIS FACE AROUND THIS TOWN AGAIN.
GOTO 2080
:2060
ECHO HOW MANY WATERING TROUGHS DO YOU THINK ARE ON THIS STREET
GOTO 550
:2080
ECHO.
ECHO C.G. INC.
:: THE VARAIBLE USAGE IS AS FOLLOWS:

ECHO.
ECHO KYH: THIS IS THE END OF THE GAME.
PAUSE