refactored source code with variable names in plaintext
parent
6ed6d58174
commit
df6b24fc99
|
|
@ -0,0 +1,717 @@
|
||||||
|
' FreeBASIC port of Oregon Trail
|
||||||
|
' ------------------------------
|
||||||
|
'
|
||||||
|
' The program that follows is a reconstruction
|
||||||
|
' of the Oregon Trail game written for HP time-shared
|
||||||
|
' BASIC by Don Rawitsch and Bill Heinemann and Paul Dillenberger
|
||||||
|
' in 1971. Its source is an updated version published in the
|
||||||
|
' July-August 1978 issue of Creative Computing.
|
||||||
|
'
|
||||||
|
|
||||||
|
10 REM PROGRAM NAME - 0REGON VERSION:01/01/78
|
||||||
|
20 REM ORIGINAL PROGRAMMING BY BILL HEINEMANN - 1971
|
||||||
|
30 REM SUPPORT RESEARCH AND MATERIALS BY DON RAVITSCH
|
||||||
|
40 REM MINNESOTA EDUCATIONAL COMPUTING CONSORTIUM STAFF
|
||||||
|
50 REM CDC CYBER 70/73-26 BASIC 3-1
|
||||||
|
60 REM DOCUMENTATION BOOKLET 'OREGON' AVAILABLE FROM
|
||||||
|
61 REM MECC SUPPORT SERVICES
|
||||||
|
62 REM 2520 BROADWAY DRIVE
|
||||||
|
63 REM ST. PAUL, MN 55113
|
||||||
|
80 REM
|
||||||
|
150 REM *FOR THE MEANING OF THE VARIABLES USED, LIST LINES 6470-6790*
|
||||||
|
155 REM
|
||||||
|
|
||||||
|
160 PRINT "DO YOU NEED INSTRUCTIONS (YES/NO)";
|
||||||
|
170 DIM yesNoResponseToQuestions AS STRING
|
||||||
|
180 REM RANDOMIZE REMOVED
|
||||||
|
190 INPUT yesNoResponseToQuestions
|
||||||
|
200 IF yesNoResponseToQuestions="NO" THEN 690
|
||||||
|
210 PRINT
|
||||||
|
220 PRINT
|
||||||
|
|
||||||
|
230 REM ***INSTRUCTIONS***
|
||||||
|
240 PRINT "THIS PROGRAM SIMULATES A TRIP OVER THE OREGON TRAIL FROM"
|
||||||
|
250 PRINT "INDEPENDENCE, MISSOURI TO OREGON CITY, OREGON IN 1847."
|
||||||
|
260 PRINT "YOUR FAMILY OF FIVE WILL COVER THE 2040 MILE OREGON TRAIL"
|
||||||
|
270 PRINT "IN 5-6 MONTHS --- IF YOU MAKE IT ALIVE."
|
||||||
|
280 PRINT
|
||||||
|
290 PRINT "YOU HAD SAVED $900 TO SPEND FOR THE TRIP, AND YOU'VE JUST"
|
||||||
|
300 PRINT " PAID $200 FOR A WAGON ."
|
||||||
|
310 PRINT "YOU WILL NEED TO SPEND THE REST OF YOUR MONEY ON THE"
|
||||||
|
320 PRINT " FOLLOWING ITEMS:"
|
||||||
|
330 PRINT
|
||||||
|
340 PRINT " OXEN - YOU CAN SPEND $200-$300 ON YOUR TEAM"
|
||||||
|
350 PRINT " THE MORE YOU SPEND, THE FASTER YOU'LL GO"
|
||||||
|
360 PRINT " BECAUSE YOU'LL HAVE BETTER ANIMALS"
|
||||||
|
370 PRINT
|
||||||
|
380 PRINT " FOOD - THE MORE YOU HAVE, THE LESS CHANCE THERE"
|
||||||
|
390 PRINT " IS OF GETTING SICK"
|
||||||
|
400 PRINT
|
||||||
|
410 PRINT " AMMUNITION - $1 BUYS A BELT OF 50 BULLETS"
|
||||||
|
420 PRINT " YOU WILL NEED BULLETS FOR ATTACKS BY ANIMALS"
|
||||||
|
430 PRINT " AND BANDITS, AND FOR HUNTING FOOD"
|
||||||
|
440 PRINT
|
||||||
|
450 PRINT " CLOTHING - THIS IS ESPECIALLY IMPORTANT FOR THE COLD"
|
||||||
|
460 PRINT " WEATHER YOU WILL ENCOUNTER WHEN CROSSING"
|
||||||
|
470 PRINT " THE MOUNTAINS"
|
||||||
|
480 PRINT
|
||||||
|
490 PRINT " MISCELLANEOUS SUPPLIES - THIS INCLUDES MEDICINE AND"
|
||||||
|
500 PRINT " OTHER THINGS YOU WILL NEED FOR SICKNESS"
|
||||||
|
510 PRINT " AND EMERGENCY REPAIRS"
|
||||||
|
520 PRINT
|
||||||
|
530 PRINT
|
||||||
|
540 PRINT "YOU CAN SPEND ALL YOUR MONEY BEFORE YOU START YOUR TRIP -"
|
||||||
|
550 PRINT "OR YOU CAN SAVE SOME OF YOUR CASH TO SPEND AT FORTS ALONG"
|
||||||
|
560 PRINT "THE WAY WHEN YOU RUN LOW. H0WEVER, ITEMS COST MORE AT"
|
||||||
|
570 PRINT "THE FORTS. YOU CAN ALSO GO HUNTING ALONG THE WAY TO GET"
|
||||||
|
580 PRINT "MORE FOOD."
|
||||||
|
590 PRINT "WHENEVER YOU HAVE TO USE YOUR TRUSTY RIFLE ALONG THE WAY,"
|
||||||
|
600 PRINT "YOU WILL BE TOLD TO TYPE IN A WORD (ONE THAT SOUNDS LIKE A"
|
||||||
|
610 PRINT "GUN SHOT). THE FASTER YOU TYPE IN THAT WORD AND HIT THE"
|
||||||
|
620 PRINT """RETURN"" KEY, THE BETTER LUCK YOU'LL HAVE WITH YOUR GUN."
|
||||||
|
630 PRINT
|
||||||
|
640 PRINT "AT EACH TURN, ALL ITEMS ARE SHOWN IN DOLLAR AMOUNTS"
|
||||||
|
650 PRINT "EXCEPT BULLETS"
|
||||||
|
660 PRINT "WHEN ASKED TO ENTER MONEY AMOUNTS, DON'T USE A ""$""."
|
||||||
|
670 PRINT
|
||||||
|
680 PRINT "GOOD LUCK!!!"
|
||||||
|
690 PRINT
|
||||||
|
700 PRINT
|
||||||
|
|
||||||
|
710 PRINT "HOW GOOD A SHOT ARE YOU WITH YOUR RIFLE?"
|
||||||
|
720 PRINT " (1) ACE MARKSMAN, (2) GOOD SHOT, (3) FAIR TO MIDDLIN'"
|
||||||
|
730 PRINT " (4) NEED MORE PRACTICE, (5) SHAKY KNEES"
|
||||||
|
740 PRINT "ENTER ONE OF THE ABOVE -- THE BETTER YOU CLAIM YOU ARE, THE"
|
||||||
|
750 PRINT "FASTER YOU'LL HAVE TO BE WITH YOUR GUN TO BE SUCCESSFUL."
|
||||||
|
760 INPUT shootingExpertiseLevelChoice
|
||||||
|
770 IF shootingExpertiseLevelChoice>5 THEN 790
|
||||||
|
780 GOTO 810
|
||||||
|
790 shootingExpertiseLevelChoice=0
|
||||||
|
|
||||||
|
800 REM *** INITIAL PURCHASES***
|
||||||
|
810 fortOptionFlag=-1
|
||||||
|
820 injuryFlag=illnessFlag=clearSouthPassFlag=clearBlueMountainsFlag=totalMileageWholeTrip=clearSouthPassMileageFlag =turnNumberForSettingDate=0
|
||||||
|
830 PRINT
|
||||||
|
840 PRINT
|
||||||
|
850 PRINT "HOW MUCH DO YOU WANT TO SPEND ON YOUR OXEN TEAM";
|
||||||
|
860 INPUT amountSpentOnAnimals
|
||||||
|
870 IF amountSpentOnAnimals >= 200 THEN 900
|
||||||
|
880 PRINT "NOT ENOUGH"
|
||||||
|
890 GOTO 850
|
||||||
|
900 IF amountSpentOnAnimals <= 300 THEN 930
|
||||||
|
910 PRINT "TOO MUCH"
|
||||||
|
920 GOTO 850
|
||||||
|
930 PRINT "HOW MUCH DO YOU WANT TO SPEND ON FOOD";
|
||||||
|
940 INPUT amountSpentOnFood
|
||||||
|
950 IF amountSpentOnFood >= 0 THEN 980
|
||||||
|
960 PRINT "IMPOSSIBLE"
|
||||||
|
970 GOTO 930
|
||||||
|
980 PRINT "HOW MUCH DO YOU WANT TO SPEND ON AMMUNITION";
|
||||||
|
990 INPUT amountSpentOnAmmunition
|
||||||
|
1000 IF amountSpentOnAmmunition >= 0 THEN 1030
|
||||||
|
1010 PRINT "IMPOSSIBLE"
|
||||||
|
1020 GOTO 980
|
||||||
|
1030 PRINT "HOW MUCH DO YOU WANT TO SPEND ON CLOTHING";
|
||||||
|
1040 INPUT amountSpentOnClothing
|
||||||
|
1050 IF amountSpentOnClothing >= 0 THEN 1080
|
||||||
|
1060 PRINT "IMPOSSIBLE"
|
||||||
|
1070 GOTO 1030
|
||||||
|
1080 PRINT "HOW MUCH DO YOU WANT TO SPEND ON MISCELLANEOUS SUPPLIES";
|
||||||
|
1090 INPUT amountSpentOnMiscellaneousSupplies
|
||||||
|
1100 IF amountSpentOnMiscellaneousSupplies >= 0 THEN 1130
|
||||||
|
1110 PRINT "IMPOSSIBLE"
|
||||||
|
1120 GOTO 1080
|
||||||
|
1130 cashLeftAfterInitialPurchases =700-amountSpentOnAnimals-amountSpentOnFood-amountSpentOnAmmunition-amountSpentOnClothing-amountSpentOnMiscellaneousSupplies
|
||||||
|
1140 IF cashLeftAfterInitialPurchases >= 0 THEN 1170
|
||||||
|
1150 PRINT "YOU OVERSPENT--YOU ONLY HAD $700 TO SPEND. BUY AGAIN."
|
||||||
|
1160 GOTO 830
|
||||||
|
1170 amountSpentOnAmmunition=50*amountSpentOnAmmunition
|
||||||
|
1180 PRINT "AFTER ALL YOUR PURCHASES, YOU NOW HAVE ";cashLeftAfterInitialPurchases ;" DOLLARS LEFT"
|
||||||
|
1190 PRINT
|
||||||
|
1200 PRINT "MONDAY MARCH 29 1847"
|
||||||
|
1210 PRINT
|
||||||
|
1220 GOTO 1750
|
||||||
|
1230 IF totalMileageWholeTrip >= 2040 THEN 5430
|
||||||
|
|
||||||
|
1240 REM ***SETTING DATE***
|
||||||
|
1250 turnNumberForSettingDate=turnNumberForSettingDate+1
|
||||||
|
1260 PRINT
|
||||||
|
1270 PRINT "MONDAY ";
|
||||||
|
1280 IF turnNumberForSettingDate>10 THEN 1300
|
||||||
|
1290 ON turnNumberForSettingDate GOTO 1310, 1330, 1350, 1370, 1390, 1410, 1430, 1450, 1470, 1490
|
||||||
|
1300 ON turnNumberForSettingDate-10 GOTO 1510, 1530, 1550, 1570, 1590, 1610, 1630, 1650, 1670, 1690
|
||||||
|
1310 PRINT "APRIL 12 ";
|
||||||
|
1320 GOTO 1720
|
||||||
|
1330 PRINT "APRIL 26 ";
|
||||||
|
1340 GOTO 1720
|
||||||
|
1350 PRINT "MAY 10 ";
|
||||||
|
1360 GOTO 1720
|
||||||
|
1370 PRINT "MAY 24 ";
|
||||||
|
1380 GOTO 1720
|
||||||
|
1390 PRINT "JUNE 7 ";
|
||||||
|
1400 GOTO 1720
|
||||||
|
1410 PRINT "JUNE 21 ";
|
||||||
|
1420 GOTO 1720
|
||||||
|
1430 PRINT "JULY 5 ";
|
||||||
|
1440 GOTO 1720
|
||||||
|
1450 PRINT "JULY 19 ";
|
||||||
|
1460 GOTO 1720
|
||||||
|
1470 PRINT "AUGUST 2 ";
|
||||||
|
1480 GOTO 1720
|
||||||
|
1490 PRINT "AUGUST 16 ";
|
||||||
|
1500 GOTO 1720
|
||||||
|
1510 PRINT "AUGUST 31 ";
|
||||||
|
1520 GOTO 1720
|
||||||
|
1530 PRINT "SEPTEMBER 13 ";
|
||||||
|
1540 GOTO 1720
|
||||||
|
1550 PRINT "SEPTEMBER 27 ";
|
||||||
|
1560 GOTO 1720
|
||||||
|
1570 PRINT "OCTOBER 11 ";
|
||||||
|
1580 GOTO 1720
|
||||||
|
1590 PRINT "OCTOBER 25 ";
|
||||||
|
1600 GOTO 1720
|
||||||
|
1610 PRINT "NOVEMBER 8 ";
|
||||||
|
1620 GOTO 1720
|
||||||
|
1630 PRINT "NOVEMBER 22 ";
|
||||||
|
1640 GOTO 1720
|
||||||
|
1650 PRINT "DECEMBER 6 ";
|
||||||
|
1660 GOTO 1720
|
||||||
|
1670 PRINT "DECEMBER 20 ";
|
||||||
|
1680 GOTO 1720
|
||||||
|
1690 PRINT "YOU HAVE BEEN ON THE TRAIL TOO LONG ------"
|
||||||
|
1700 PRINT "YOUR FAMILY DIES IN THE FIRST BLIZZARD OF WINTER"
|
||||||
|
1710 GOTO 5170
|
||||||
|
1720 PRINT "1847"
|
||||||
|
1730 PRINT
|
||||||
|
|
||||||
|
1740 REM ***BEGINNING EACH TURN***
|
||||||
|
1750 IF amountSpentOnFood >= 0 THEN 1770
|
||||||
|
1760 amountSpentOnFood=0
|
||||||
|
1770 IF amountSpentOnAmmunition >= 0 THEN 1790
|
||||||
|
1780 amountSpentOnAmmunition=0
|
||||||
|
1790 IF amountSpentOnClothing >= 0 THEN 1810
|
||||||
|
1800 amountSpentOnClothing=0
|
||||||
|
1810 IF amountSpentOnMiscellaneousSupplies >= 0 THEN 1830
|
||||||
|
1820 amountSpentOnMiscellaneousSupplies=0
|
||||||
|
1830 IF amountSpentOnFood >= 13 THEN 1850
|
||||||
|
1840 PRINT "YOU'D BETTER DO SOME HUNTING OR BUY FOOD AND SOON!!!!"
|
||||||
|
1850 amountSpentOnFood=INT(amountSpentOnFood)
|
||||||
|
1860 amountSpentOnAmmunition=INT(amountSpentOnAmmunition)
|
||||||
|
1870 amountSpentOnClothing=INT(amountSpentOnClothing)
|
||||||
|
1880 amountSpentOnMiscellaneousSupplies=INT(amountSpentOnMiscellaneousSupplies)
|
||||||
|
1890 cashLeftAfterInitialPurchases =INT(cashLeftAfterInitialPurchases )
|
||||||
|
1900 totalMileageWholeTrip=INT(totalMileageWholeTrip)
|
||||||
|
1910 totalMileageUpThroughPreviousTurn=totalMileageWholeTrip
|
||||||
|
1920 IF illnessFlag=1 THEN 1950
|
||||||
|
1930 IF injuryFlag=1 THEN 1950
|
||||||
|
1940 GOTO 1990
|
||||||
|
1950 cashLeftAfterInitialPurchases =cashLeftAfterInitialPurchases -20
|
||||||
|
1960 IF cashLeftAfterInitialPurchases <0 THEN 5080
|
||||||
|
1970 PRINT "DOCTOR'S BILL IS $20"
|
||||||
|
1980 LET injuryFlag=illnessFlag=0
|
||||||
|
1990 IF clearSouthPassMileageFlag =1 THEN 2020
|
||||||
|
2000 PRINT "TOTAL MILEAGE IS";totalMileageWholeTrip
|
||||||
|
2010 GOTO 2040
|
||||||
|
2020 PRINT "TOTAL MILEAGE IS 950"
|
||||||
|
2030 clearSouthPassMileageFlag =0
|
||||||
|
2040 PRINT "FOOD","BULLETS","CLOTHING","MISC. SUPP.","CASH"
|
||||||
|
2050 PRINT amountSpentOnFood, amountSpentOnAmmunition, amountSpentOnClothing, amountSpentOnMiscellaneousSupplies, cashLeftAfterInitialPurchases
|
||||||
|
2060 IF fortOptionFlag=-1 THEN 2170
|
||||||
|
2070 fortOptionFlag=fortOptionFlag*(-1)
|
||||||
|
|
||||||
|
2080 PRINT "DO YOU WANT TO (1) STOP AT THE NEXT FORT, (2) HUNT, ";
|
||||||
|
2090 PRINT "OR (3) CONTINUE"
|
||||||
|
2100 INPUT actionChoiceForEachTurn
|
||||||
|
2110 IF actionChoiceForEachTurn >2 THEN 2150
|
||||||
|
2120 IF actionChoiceForEachTurn <1 THEN 2150
|
||||||
|
2130 LET actionChoiceForEachTurn =INT(actionChoiceForEachTurn )
|
||||||
|
2140 GOTO 2270
|
||||||
|
2150 LET actionChoiceForEachTurn =3
|
||||||
|
2160 GOTO 2270
|
||||||
|
|
||||||
|
2170 PRINT "DO YOU WANT TO (1) HUNT, OR (2) CONTINUE"
|
||||||
|
2180 INPUT actionChoiceForEachTurn
|
||||||
|
2190 IF actionChoiceForEachTurn =l THEN 2210
|
||||||
|
2200 LET actionChoiceForEachTurn =2
|
||||||
|
2210 LET actionChoiceForEachTurn =actionChoiceForEachTurn +1
|
||||||
|
2220 IF actionChoiceForEachTurn =3 THEN 2260
|
||||||
|
2230 IF amountSpentOnAmmunition>39 THEN 2260
|
||||||
|
2240 PRINT "TOUGH YOU NEED MORE BULLETS TO GO HUNTING"
|
||||||
|
2250 GOTO 2170
|
||||||
|
2260 fortOptionFlag=fortOptionFlag*(-1)
|
||||||
|
2270 ON actionChoiceForEachTurn GOTO 2290,2540,2720
|
||||||
|
|
||||||
|
2280 REM ***STOPPING AT FORT***
|
||||||
|
2290 PRINT "ENTER WHAT YOU WISH TO SPEND ON THE FOLLOWING"
|
||||||
|
2300 PRINT "F00D";
|
||||||
|
2310 GOSUB 2330
|
||||||
|
2320 GOTO 2410
|
||||||
|
2330 INPUT amountSpentOnItemsAtFort
|
||||||
|
2340 IF amountSpentOnItemsAtFort<0 THEN 2400
|
||||||
|
2350 cashLeftAfterInitialPurchases =cashLeftAfterInitialPurchases -amountSpentOnItemsAtFort
|
||||||
|
2360 IF cashLeftAfterInitialPurchases >= 0 THEN 2400
|
||||||
|
2370 PRINT "YOU DON'T HAVE THAT MUCH--KEEP YOUR SPENDING DOWN"
|
||||||
|
2375 PRINT "YOU MISS YOUR CHANCE TO SPEND ON THAT ITEM"
|
||||||
|
2380 cashLeftAfterInitialPurchases =cashLeftAfterInitialPurchases +amountSpentOnItemsAtFort
|
||||||
|
2390 amountSpentOnItemsAtFort=0
|
||||||
|
2400 RETURN
|
||||||
|
2410 amountSpentOnFood=amountSpentOnFood+2/3*amountSpentOnItemsAtFort
|
||||||
|
2420 PRINT "AMMUNITION";
|
||||||
|
2430 GOSUB 2330
|
||||||
|
2440 LET amountSpentOnAmmunition=INT(amountSpentOnAmmunition+2/3*amountSpentOnItemsAtFort*50)
|
||||||
|
2450 PRINT "CLOTHING";
|
||||||
|
2460 GOSUB 2330
|
||||||
|
2470 amountSpentOnClothing=amountSpentOnClothing+2/3*amountSpentOnItemsAtFort
|
||||||
|
2480 PRINT "MISCELLANEOUS SUPPLIES";
|
||||||
|
2490 GOSUB 2330
|
||||||
|
2500 amountSpentOnMiscellaneousSupplies=amountSpentOnMiscellaneousSupplies+2/3*amountSpentOnItemsAtFort
|
||||||
|
2510 totalMileageWholeTrip=totalMileageWholeTrip-45
|
||||||
|
2520 GOTO 2720
|
||||||
|
|
||||||
|
2530 REM ***HUNTING***
|
||||||
|
2540 IF amountSpentOnAmmunition>39 THEN 2570
|
||||||
|
2550 PRINT "TOUGH---YOU NEED M0RE BULLETS TO GO HUNTING"
|
||||||
|
2560 GOTO 2080
|
||||||
|
2570 totalMileageWholeTrip=totalMileageWholeTrip-45
|
||||||
|
2580 GOSUB 6140
|
||||||
|
2590 IF actualResponseTimeForBang <= 1 THEN 2660
|
||||||
|
2600 IF 100*RND(-1)<13*actualResponseTimeForBang THEN 2710
|
||||||
|
2610 amountSpentOnFood=amountSpentOnFood+48-2*actualResponseTimeForBang
|
||||||
|
2620 PRINT "NICE SHOT--RIGHT ON TARGET--GOOD EATIN' TONIGHT!!"
|
||||||
|
2630 amountSpentOnAmmunition=amountSpentOnAmmunition-10-3*actualResponseTimeForBang
|
||||||
|
2640 GOTO 2720
|
||||||
|
|
||||||
|
2650 REM **BELLS IN LINE 2660**
|
||||||
|
2660 PRINT "RIGHT BETWEEN THE EYES---YOU GOT A BIG ONE!!!!"
|
||||||
|
2670 PRINT "FULL BELLIES TONIGHT!"
|
||||||
|
2680 amountSpentOnFood=amountSpentOnFood+52+RND(-1)*6
|
||||||
|
2690 amountSpentOnAmmunition=amountSpentOnAmmunition-10-RND(-1)*4
|
||||||
|
2700 GOTO 2720
|
||||||
|
2710 PRINT "YOU MISSED---AND YOUR DINNER GOT AWAY....."
|
||||||
|
2720 IF amountSpentOnFood >= 13 THEN 2750
|
||||||
|
2730 GOTO 5060
|
||||||
|
|
||||||
|
2740 REM ***EATING***
|
||||||
|
2750 PRINT "DO YOU WANT TO EAT (1) POORLY (2) MODERATELY"
|
||||||
|
2760 PRINT "OR (3) WELL";
|
||||||
|
2770 INPUT eatingChoice
|
||||||
|
2780 IF eatingChoice>3 THEN 2750
|
||||||
|
2790 If eatingChoice<1 THEN 2750
|
||||||
|
2800 LET eatingChoice=INT(eatingChoice)
|
||||||
|
2810 LET amountSpentOnFood=amountSpentOnFood-8-5*eatingChoice
|
||||||
|
2820 IF amountSpentOnFood >= 0 THEN 2860
|
||||||
|
2830 amountSpentOnFood=amountSpentOnFood+8+5*eatingChoice
|
||||||
|
2840 PRINT "YOU CAN'T EAT THAT WELL"
|
||||||
|
2850 GOTO 2750
|
||||||
|
2860 LET totalMileageWholeTrip=totalMileageWholeTrip+200+(amountSpentOnAnimals-220)/5+10*RND(-1)
|
||||||
|
2870 blizzardFlag=insufficientClothingFlag=0
|
||||||
|
|
||||||
|
2880 REM ***RIDERS ATTACK***
|
||||||
|
2890 IF RND(-1)*10>((totalMileageWholeTrip/100-4)^2+72)/((totalMileageWholeTrip/100-4)^2+12)-1 THEN 3550
|
||||||
|
2900 PRINT "RIDERS AHEAD. THEY ";
|
||||||
|
2910 hostilityOfRidersFactor=0
|
||||||
|
2920 IF RND(-1)<.8 THEN 2950
|
||||||
|
2930 PRINT "DON'T ";
|
||||||
|
2940 hostilityOfRidersFactor=1
|
||||||
|
2950 PRINT "LOOK HOSTILE"
|
||||||
|
2960 PRINT "TACTICS"
|
||||||
|
2970 PRINT "(1) RUN (2) ATTACK (3) CONTINUE (4) CIRCLE WAGONS"
|
||||||
|
2980 IF RND(-1)>.2 THEN 3000
|
||||||
|
2990 hostilityOfRidersFactor=1-hostilityOfRidersFactor
|
||||||
|
3000 INPUT tacticsChoiceWhenAttacked
|
||||||
|
3010 IF tacticsChoiceWhenAttacked <1 THEN 2970
|
||||||
|
3020 IF tacticsChoiceWhenAttacked >4 THEN 2970
|
||||||
|
3030 tacticsChoiceWhenAttacked =INT(tacticsChoiceWhenAttacked )
|
||||||
|
3040 IF hostilityOfRidersFactor=1 THEN 3330
|
||||||
|
3050 IF tacticsChoiceWhenAttacked >1 THEN 3110
|
||||||
|
3060 totalMileageWholeTrip=totalMileageWholeTrip+20
|
||||||
|
3070 amountSpentOnMiscellaneousSupplies=amountSpentOnMiscellaneousSupplies-15
|
||||||
|
3080 amountSpentOnAmmunition=amountSpentOnAmmunition-150
|
||||||
|
3090 amountSpentOnAnimals=amountSpentOnAnimals-40
|
||||||
|
3100 GOTO 3470
|
||||||
|
3110 IF tacticsChoiceWhenAttacked >2 THEN 3240
|
||||||
|
3120 GOSUB 6140
|
||||||
|
3130 amountSpentOnAmmunition=amountSpentOnAmmunition-actualResponseTimeForBang*40-80
|
||||||
|
3140 IF actualResponseTimeForBang>1 THEN 3170
|
||||||
|
3150 PRINT "NICE SHOOTING---YOU DROVE THEM OFF"
|
||||||
|
3160 GOTO 3470
|
||||||
|
3170 IF actualResponseTimeForBang <= 4 THEN 3220
|
||||||
|
3180 PRINT "LOUSY SHOT---YOU GOT KNIFED"
|
||||||
|
3190 injuryFlag=1
|
||||||
|
3200 PRINT "YOU HAVE TO SEE OL' DOC BLANCHARD"
|
||||||
|
3210 GOTO 3470
|
||||||
|
3220 PRINT "KINDA SLOW WITH YOUR COLT .45"
|
||||||
|
3230 GOTO 3470
|
||||||
|
3240 IF tacticsChoiceWhenAttacked >3 THEN 3290
|
||||||
|
3250 IF RND(-1)>.8 THEN 3450
|
||||||
|
3260 LET amountSpentOnAmmunition=amountSpentOnAmmunition-150
|
||||||
|
3270 amountSpentOnMiscellaneousSupplies=amountSpentOnMiscellaneousSupplies-15
|
||||||
|
3280 GOTO 3470
|
||||||
|
3290 GOSUB 6140
|
||||||
|
3300 amountSpentOnAmmunition=amountSpentOnAmmunition-actualResponseTimeForBang*30-80
|
||||||
|
3310 totalMileageWholeTrip=totalMileageWholeTrip-25
|
||||||
|
3320 GOTO 3140
|
||||||
|
3330 IF tacticsChoiceWhenAttacked >1 THEN 3370
|
||||||
|
3340 totalMileageWholeTrip=totalMileageWholeTrip+15
|
||||||
|
3350 amountSpentOnAnimals=amountSpentOnAnimals-10
|
||||||
|
3360 GOTO 3470
|
||||||
|
3370 IF tacticsChoiceWhenAttacked >2 THEN 3410
|
||||||
|
3380 totalMileageWholeTrip=totalMileageWholeTrip-5
|
||||||
|
3390 amountSpentOnAmmunition=amountSpentOnAmmunition-100
|
||||||
|
3400 GOTO 3470
|
||||||
|
3410 IF tacticsChoiceWhenAttacked >3 THEN 3430
|
||||||
|
3420 GOTO 3470
|
||||||
|
3430 totalMileageWholeTrip=totalMileageWholeTrip-20
|
||||||
|
3440 GOTO 3470
|
||||||
|
3450 PRINT "THEY DID NOT ATTACK"
|
||||||
|
3460 GOTO 3550
|
||||||
|
3470 IF hostilityOfRidersFactor=0 THEN 3500
|
||||||
|
3480 PRINT "RIDERS WERE FRIENDLY, BUT CHECK FOR POSSIBLE LOSSES"
|
||||||
|
3490 GOTO 3550
|
||||||
|
3500 PRINT "RIDERS WERE HOSTILE--CHECK FOR LOSSES"
|
||||||
|
3510 IF amountSpentOnAmmunition >= 0 THEN 3550
|
||||||
|
3520 PRINT "YOU RAN OUT OF BULLETS AND GOT MASSACRED BY THE RIDERS"
|
||||||
|
3530 GOTO 5170
|
||||||
|
|
||||||
|
3540 REM ***SELECTION OF EVENTS***
|
||||||
|
3550 LET eventCounter=0
|
||||||
|
3560 RESTORE
|
||||||
|
3570 randomEventNumber=100*RND(-1)
|
||||||
|
3580 LET eventCounter=eventCounter+1
|
||||||
|
3590 IF eventCounter=16 THEN 4670
|
||||||
|
3600 READ D
|
||||||
|
3610 IF randomEventNumber>D THEN 3580
|
||||||
|
3620 DATA 6, 11, 13, 15, 17, 22, 32, 35, 37, 42, 44, 54, 64, 69, 95
|
||||||
|
3630 IF eventCounter>10 THEN 3650
|
||||||
|
3640 ON eventCounter GOTO 3660, 3700, 3740, 3790, 3820, 3850, 3880, 3960, 4130, 4190
|
||||||
|
3650 ON eventCounter-10 GOTO 4220, 4290, 4340, 4560, 4610, 4670
|
||||||
|
3660 PRINT "WAGON BREAKS DOWN--LOSE TIME AND SUPPLIES FIXING IT"
|
||||||
|
3670 LET totalMileageWholeTrip=totalMileageWholeTrip-15-5*RND(-1)
|
||||||
|
3680 LET amountSpentOnMiscellaneousSupplies=amountSpentOnMiscellaneousSupplies-8
|
||||||
|
3690 GOTO 4710
|
||||||
|
3700 PRINT "OX INJURES LEG--SLOWS YOU DOWN REST OF TRIP"
|
||||||
|
3710 LET totalMileageWholeTrip=totalMileageWholeTrip-25
|
||||||
|
3720 LET amountSpentOnAnimals=amountSpentOnAnimals-20
|
||||||
|
3730 GOTO 4710
|
||||||
|
3740 PRINT "BAD LUCK--YOUR DAUGHTER BROKE HER ARM"
|
||||||
|
3750 PRINT "YOU HAD TO STOP AND USE SUPPLIES TO MAKE A SLING"
|
||||||
|
3760 totalMileageWholeTrip=totalMileageWholeTrip-5-4*RND(-1)
|
||||||
|
3770 amountSpentOnMiscellaneousSupplies=amountSpentOnMiscellaneousSupplies-2-3*RND(-1)
|
||||||
|
3780 GOTO 4710
|
||||||
|
3790 PRINT "OX WANDERS OFF--SPEND TIME LOOKING FOR IT"
|
||||||
|
3800 totalMileageWholeTrip=totalMileageWholeTrip-17
|
||||||
|
3810 GOTO 4710
|
||||||
|
3820 PRINT "YOUR SON GETS LOST---SPEND HALF THE DAY LOOKING FOR HIM"
|
||||||
|
3830 totalMileageWholeTrip=totalMileageWholeTrip-10
|
||||||
|
3840 GOTO 4710
|
||||||
|
3850 PRINT "UNSAFE WATER--LOSE TIME LOOKING FOR CLEAN SPRING"
|
||||||
|
3860 LET totalMileageWholeTrip=totalMileageWholeTrip-10*RND(-1)-2
|
||||||
|
3870 GOTO 4710
|
||||||
|
3880 IF totalMileageWholeTrip>950 THEN 4490
|
||||||
|
3890 PRINT "HEAVY RAINS---TIME AND SUPPLIES LOST"
|
||||||
|
3910 amountSpentOnFood=amountSpentOnFood-10
|
||||||
|
3920 amountSpentOnAmmunition=amountSpentOnAmmunition-500
|
||||||
|
3930 amountSpentOnMiscellaneousSupplies=amountSpentOnMiscellaneousSupplies-15
|
||||||
|
3940 totalMileageWholeTrip=totalMileageWholeTrip-10*RND(-1)-5
|
||||||
|
3950 GOTO 4710
|
||||||
|
3960 PRINT "BANDITS ATTACK"
|
||||||
|
3970 GOSUB 6140
|
||||||
|
3980 amountSpentOnAmmunition=amountSpentOnAmmunition-20*actualResponseTimeForBang
|
||||||
|
3990 IF amountSpentOnAmmunition >= 0 THEN 4030
|
||||||
|
4000 PRINT "YOU RAN OUT OF BULLETS---THEY GET LOTS OF CASH"
|
||||||
|
4010 cashLeftAfterInitialPurchases =cashLeftAfterInitialPurchases /3
|
||||||
|
4020 GOTO 4040
|
||||||
|
4030 IF actualResponseTimeForBang <= 1 THEN 4100
|
||||||
|
4040 PRINT "YOU GOT SHOT IN THE LEG AND THEY TOOK ONE OF YOUR OXEN"
|
||||||
|
4050 injuryFlag=1
|
||||||
|
4060 PRINT "BETTER HAVE A DOC LOOK AT YOUR WOUND"
|
||||||
|
4070 amountSpentOnMiscellaneousSupplies=amountSpentOnMiscellaneousSupplies-5
|
||||||
|
4080 amountSpentOnAnimals=amountSpentOnAnimals-20
|
||||||
|
4090 GOTO 4710
|
||||||
|
4100 PRINT "QUICKEST DRAW OUTSIDE OF DODGE CITY!!!"
|
||||||
|
4110 PRINT "YOU GOT 'EM!"
|
||||||
|
4120 GOTO 4710
|
||||||
|
4130 PRINT "THERE WAS A FIRE IN YOUR WAGON--FOOD AND SUPPLIES DAMAGE!"
|
||||||
|
4140 amountSpentOnFood=amountSpentOnFood-40
|
||||||
|
4150 amountSpentOnAmmunition=amountSpentOnAmmunition-400
|
||||||
|
4160 LET amountSpentOnMiscellaneousSupplies=amountSpentOnMiscellaneousSupplies-RND(-1)*8-3
|
||||||
|
4170 totalMileageWholeTrip=totalMileageWholeTrip-15
|
||||||
|
4180 GOTO 4710
|
||||||
|
4190 PRINT "LOSE YOUR WAY IN HEAVY FOG---TIME IS LOST"
|
||||||
|
4200 totalMileageWholeTrip=totalMileageWholeTrip-10-5*RND(-1)
|
||||||
|
4210 GOTO 4710
|
||||||
|
4220 PRINT "YOU KILLED A POISONOUS SNAKE AFTER IT BIT YOU"
|
||||||
|
4230 amountSpentOnAmmunition=amountSpentOnAmmunition-10
|
||||||
|
4240 amountSpentOnMiscellaneousSupplies=amountSpentOnMiscellaneousSupplies-5
|
||||||
|
4250 IF amountSpentOnMiscellaneousSupplies >= 0 THEN 4280
|
||||||
|
4260 PRINT "YOU DIE OF SNAKEBITE SINCE YOU HAVE NO MEDICINE"
|
||||||
|
4270 GOTO 5170
|
||||||
|
4280 GOTO 4710
|
||||||
|
4290 PRINT "WAGON GETSE SWAMPED FORDING RIVER--LOSE FOOD AND CLOTHES"
|
||||||
|
4300 amountSpentOnFood=amountSpentOnFood-30
|
||||||
|
4310 amountSpentOnClothing=amountSpentOnClothing-20
|
||||||
|
4320 totalMileageWholeTrip=totalMileageWholeTrip-20-20*RND(-1)
|
||||||
|
4330 GOTO 4710
|
||||||
|
4340 PRINT "WILD ANIMALS ATTACK!"
|
||||||
|
4350 GOSUB 6140
|
||||||
|
4360 IF amountSpentOnAmmunition>39 THEN 4410
|
||||||
|
4370 PRINT "YOU WERE TOO LOW ON BULLETS--"
|
||||||
|
4380 PRINT "THE WOLVES OVERPOWERED YOU"
|
||||||
|
4390 injuryFlag=1
|
||||||
|
4400 GOTO 5120
|
||||||
|
4410 IF actualResponseTimeForBang>2 THEN 4440
|
||||||
|
4420 PRINT "NICE SHOOTIN' PARDNER---THEY DIDN'T GET MUCH"
|
||||||
|
4430 GOTO 4450
|
||||||
|
4440 PRINT "SLOW ON THE DRAW---THEY GOT AT YOUR FOOD AND CLOTHES"
|
||||||
|
4450 amountSpentOnAmmunition=amountSpentOnAmmunition-20*actualResponseTimeForBang
|
||||||
|
4460 amountSpentOnClothing=amountSpentOnClothing-actualResponseTimeForBang*4
|
||||||
|
4470 amountSpentOnFood=amountSpentOnFood-actualResponseTimeForBang*8
|
||||||
|
4480 GOTO 4710
|
||||||
|
4490 PRINT "COLD WEATHER---BRRRRRRR!---YOU ";
|
||||||
|
4500 IF amountSpentOnClothing>22+4*RND(-1) THEN 4530
|
||||||
|
4510 PRINT "DON'T ";
|
||||||
|
4520 insufficientClothingFlag=1
|
||||||
|
4530 PRINT "HAVE ENOUGH CLOTHING TO KEEP YOU WARM"
|
||||||
|
4540 IF insufficientClothingFlag=0 THEN 4710
|
||||||
|
4550 GOTO 6300
|
||||||
|
4560 PRINT "HAIL STORM---SUPPLIES DAMAGED"
|
||||||
|
4570 totalMileageWholeTrip=totalMileageWholeTrip-5-RND(-1)*10
|
||||||
|
4580 amountSpentOnAmmunition=amountSpentOnAmmunition-200
|
||||||
|
4590 amountSpentOnMiscellaneousSupplies=amountSpentOnMiscellaneousSupplies-4-RND(-1)*3
|
||||||
|
4600 GOTO 4710
|
||||||
|
4610 IF eatingChoice=1 THEN 6300
|
||||||
|
4620 IF eatingChoice=3 THEN 4650
|
||||||
|
4630 IF RND(-1)>.25 THEN 6300
|
||||||
|
4640 GOTO 4710
|
||||||
|
4650 IF RND(-1)<.5 THEN 6300
|
||||||
|
4660 GOTO 4710
|
||||||
|
4670 PRINT "HELPFUL INDIANS SHOW YOU WERE TO FIND MORE FOOD"
|
||||||
|
4680 amountSpentOnFood=amountSpentOnFood+I4
|
||||||
|
4690 GOTO 4710
|
||||||
|
|
||||||
|
4700 REM ***MOUNTAINS***
|
||||||
|
4710 IF H <= 950 THEN 1230
|
||||||
|
4720 IF RND(-1)*10>9-((totalMileageWholeTrip/100-15)^2+72)/((totalMileageWholeTrip/100-15)^2+12) THEN 4860
|
||||||
|
4730 PRINT "RUGGED MOUNTAINS"
|
||||||
|
4740 IF RND(-1)>.1 THEN 4780
|
||||||
|
4750 PRINT "YOU GOT LOST---LOSE VALUABLE TIME TRYING TO FIND TRAIL!"
|
||||||
|
4760 totalMileageWholeTrip=totalMileageWholeTrip-60
|
||||||
|
4770 GOTO 4860
|
||||||
|
4780 IF RND(-1)>.11 THEN 4840
|
||||||
|
4790 PRINT "WAGON DAMAGED!—LOSE TIME AND SUPPLIES"
|
||||||
|
4800 amountSpentOnMiscellaneousSupplies=amountSpentOnMiscellaneousSupplies-5
|
||||||
|
4810 amountSpentOnAmmunition=amountSpentOnAmmunition-200
|
||||||
|
4820 totalMileageWholeTrip=totalMileageWholeTrip-20-30*RND(-1)
|
||||||
|
4830 GOTO 4860
|
||||||
|
4840 PRINT "THE GOING GETS SLOW"
|
||||||
|
4850 totalMileageWholeTrip=totalMileageWholeTrip-45-RND(-1)/.02
|
||||||
|
4860 IF clearSouthPassFlag=1 THEN 4900
|
||||||
|
4870 clearSouthPassFlag=1
|
||||||
|
4880 IF RND(-1)<.8 THEN 4970
|
||||||
|
4890 PRINT "YOU MADE IT SAFELY THROUGH SOUTH PASS--NO SNOW"
|
||||||
|
4900 IF totalMileageWholeTrip<1700 THEN 4940
|
||||||
|
4910 IF clearBlueMountainsFlag=1 THEN 4940
|
||||||
|
4920 clearBlueMountainsFlag=1
|
||||||
|
4930 IF RND(-1)<.7 THEN 4970
|
||||||
|
4940 IF totalMileageWholeTrip>950 THEN 1230
|
||||||
|
4950 clearSouthPassMileageFlag =1
|
||||||
|
4960 GOTO 1230
|
||||||
|
4970 PRINT "BLIZZARD IN MOUNTAIN PASS--TIME AND SUPPLIES LOST"
|
||||||
|
4980 blizzardFlag=1
|
||||||
|
4990 amountSpentOnFood=amountSpentOnFood-25
|
||||||
|
5000 amountSpentOnMiscellaneousSupplies=amountSpentOnMiscellaneousSupplies-10
|
||||||
|
5010 amountSpentOnAmmunition=amountSpentOnAmmunition-300
|
||||||
|
5020 totalMileageWholeTrip=totalMileageWholeTrip-30-40*RND(-1)
|
||||||
|
5030 IF amountSpentOnClothing<18+2*RND(-1) THEN 6300
|
||||||
|
5040 GOTO 4940
|
||||||
|
|
||||||
|
5050 REM ***DYING***
|
||||||
|
5060 PRINT "YOU RAN OUT OF FOOD AND STARVED TO DEATH"
|
||||||
|
5070 GOTO 5170
|
||||||
|
5080 LET cashLeftAfterInitialPurchases =0
|
||||||
|
5090 PRINT "YOU CAN'T AFFORD A DOCTOR"
|
||||||
|
5100 GOTO 5120
|
||||||
|
5110 PRINT "YOU RAN OUT OF MEDICAL SUPPLIES"
|
||||||
|
5120 PRINT "YOU DIED OF ";
|
||||||
|
5130 IF injuryFlag=1 THEN 5160
|
||||||
|
5140 PRINT "PNEUMONIA"
|
||||||
|
5150 GOTO 5170
|
||||||
|
5160 PRINT "INJURIES"
|
||||||
|
5170 PRINT
|
||||||
|
5180 PRINT "DUE TO YOUR UNFORTUNATE SITUATION, THERE ARE A FEW"
|
||||||
|
5190 PRINT "FORMALITIES WE MUST GO THROUGH"
|
||||||
|
5200 PRINT
|
||||||
|
5210 PRINT "WOULD YOU LIKE A MINISTER?"
|
||||||
|
5220 INPUT yesNoResponseToQuestions
|
||||||
|
5230 PRINT "WOULD YOU LIKE A FANCY FUNERAL?"
|
||||||
|
5240 INPUT yesNoResponseToQuestions
|
||||||
|
5250 PRINT "WOULD YOU LIKE US TO INFORM YOUR NEXT OF KIN?"
|
||||||
|
5260 INPUT yesNoResponseToQuestions
|
||||||
|
5270 IF yesNoResponseToQuestions="YES" THEN GOTO 5310
|
||||||
|
5280 PRINT "BUT YOUR AUNT SADIE IN ST. LOUIS IS REALLY WORRIED ABOUT YOU"
|
||||||
|
8290 PRINT
|
||||||
|
8300 GOTO 5330
|
||||||
|
5310 PRINT "THAT WILL BE $4.50 FOR THE TELEGRAPH CHARGE."
|
||||||
|
5320 PRINT
|
||||||
|
5330 PRINT "WE THANK YOU FOR THIS INFORMATION AND WE ARE SORRY YOU"
|
||||||
|
5340 PRINT "DIDN'T MAKE IT TO THE GREAT TERRITORY OF OREGON"
|
||||||
|
5350 PRINT "BETTER LUCK NEXT TIME"
|
||||||
|
5360 PRINT
|
||||||
|
5370 PRINT
|
||||||
|
5380 PRINT TAB(30);"SINCERELY"
|
||||||
|
5390 PRINT
|
||||||
|
5400 PRINT TAB(17);"THE OREGON CITY CHAMBER OF COMMERCE"
|
||||||
|
5410 STOP
|
||||||
|
|
||||||
|
5420 REM ***FINAL TURN***
|
||||||
|
5430 fractionOfTwoWeeksTraveledOnFinalTurn=(2040-totalMileageUpThroughPreviousTurn)/(totalMileageWholeTrip-totalMileageUpThroughPreviousTurn)
|
||||||
|
5440 amountSpentOnFood=amountSpentOnFood+(1-fractionOfTwoWeeksTraveledOnFinalTurn)*(8*5*eatingChoice)
|
||||||
|
5450 PRINT
|
||||||
|
|
||||||
|
5460 REM **BELLS IN LINES 5470, 5480**
|
||||||
|
5470 PRINT "YOU FINALLY ARRIVED AT OREGON CITY"
|
||||||
|
5480 PRINT "AFTER 2040 LONG MILES---HOORAY !!!!!"
|
||||||
|
5490 PRINT "A REAL PIONEER!"
|
||||||
|
5500 PRINT
|
||||||
|
5510 fractionOfTwoWeeksTraveledOnFinalTurn=INT(fractionOfTwoWeeksTraveledOnFinalTurn*14)
|
||||||
|
5520 turnNumberForSettingDate=turnNumberForSettingDate*I4+fractionOfTwoWeeksTraveledOnFinalTurn
|
||||||
|
5530 fractionOfTwoWeeksTraveledOnFinalTurn=fractionOfTwoWeeksTraveledOnFinalTurn+1
|
||||||
|
5540 IF fractionOfTwoWeeksTraveledOnFinalTurn<8 THEN 5560
|
||||||
|
5550 fractionOfTwoWeeksTraveledOnFinalTurn=fractionOfTwoWeeksTraveledOnFinalTurn-7
|
||||||
|
5560 ON fractionOfTwoWeeksTraveledOnFinalTurn GOTO 5570,5590,5630,5650,5670,5690
|
||||||
|
5570 PRINT "MONDAY ";
|
||||||
|
5580 GOTO 5700
|
||||||
|
5590 PRINT "TUESDAY ";
|
||||||
|
5600 GOTO 5700
|
||||||
|
5610 PRINT "WEDNESDAY ";
|
||||||
|
5620 GOTO 5700
|
||||||
|
5630 PRINT "THURSDAY ";
|
||||||
|
5640 GOTO 5700
|
||||||
|
5650 PRINT "FRIDAY ";
|
||||||
|
5660 GOTO 5700
|
||||||
|
5670 PRINT "SATURDAY ";
|
||||||
|
5680 GOTO 5700
|
||||||
|
5690 PRINT "SUNDAY ";
|
||||||
|
5700 IF turnNumberForSettingDate>124 THEN 5740
|
||||||
|
5710 turnNumberForSettingDate=turnNumberForSettingDate-93
|
||||||
|
5720 PRINT "JULY ";turnNumberForSettingDate;" 1847"
|
||||||
|
5730 GOTO 5920
|
||||||
|
5740 IF turnNumberForSettingDate>155 THEN 5780
|
||||||
|
5750 turnNumberForSettingDate=turnNumberForSettingDate-124
|
||||||
|
5760 PRINT "AUGUST ";turnNumberForSettingDate;" 1847"
|
||||||
|
5770 GOTO 5920
|
||||||
|
5780 IF turnNumberForSettingDate>155 THEN 5820
|
||||||
|
5790 turnNumberForSettingDate=turnNumberForSettingDate-155
|
||||||
|
5800 PRINT "SEPTEMBER ";turnNumberForSettingDate;" 1847"
|
||||||
|
5810 GOTO 5920
|
||||||
|
5820 IF turnNumberForSettingDate>216 THEN 5860
|
||||||
|
5830 turnNumberForSettingDate=turnNumberForSettingDate-155
|
||||||
|
5840 PRINT "OCTOBER ";turnNumberForSettingDate;" 1847"
|
||||||
|
5850 GOTO 5920
|
||||||
|
5860 IF turnNumberForSettingDate>246 THEN 5900
|
||||||
|
5870 turnNumberForSettingDate=turnNumberForSettingDate-246
|
||||||
|
5880 PRINT "NOVEMBER ";turnNumberForSettingDate;" 1847"
|
||||||
|
5890 GOTO 5920
|
||||||
|
5900 turnNumberForSettingDate=turnNumberForSettingDate-246
|
||||||
|
5910 PRINT "DECEMBER ";turnNumberForSettingDate;" 1847"
|
||||||
|
5920 PRINT
|
||||||
|
5930 PRINT "FOOD","BULLETS","CLOTHING","MISC. SUPP.","CASH"
|
||||||
|
5940 IF amountSpentOnAmmunition>0 THEN 5960
|
||||||
|
5950 LET amountSpentOnAmmunition=0
|
||||||
|
5960 IF amountSpentOnClothing>0 THEN 5980
|
||||||
|
5970 LET amountSpentOnClothing=0
|
||||||
|
5980 IF amountSpentOnMiscellaneousSupplies>0 THEN 6000
|
||||||
|
5990 LET amountSpentOnMiscellaneousSupplies=0
|
||||||
|
6000 IF cashLeftAfterInitialPurchases >0 THEN 6020
|
||||||
|
6010 LET cashLeftAfterInitialPurchases =0
|
||||||
|
6020 IF amountSpentOnFood>0 THEN 6040
|
||||||
|
6030 LET amountSpentOnFood=0
|
||||||
|
6040 PRINT INT(amountSpentOnFood),INT(amountSpentOnAmmunition),INT(amountSpentOnClothing),INT(amountSpentOnMiscellaneousSupplies),INT(cashLeftAfterInitialPurchases )
|
||||||
|
6050 PRINT
|
||||||
|
6060 PRINT TAB(11); "PRESIDENT JAMES K. POLK SENDS YOU HIS"
|
||||||
|
6070 PRINT TAB(17); "HEARTIEST CONGRATULATIONS"
|
||||||
|
6080 PRINT
|
||||||
|
6090 PRINT TAB(11);"AND WISHES YOU A PROSPEROUS LIFE AHEAD"
|
||||||
|
6100 PRINT
|
||||||
|
6110 PRINT TAB(22);"AT YOUR NEW HOME"
|
||||||
|
6120 STOP
|
||||||
|
|
||||||
|
6130 REM ***SHOOTING SUB-ROUTINE***
|
||||||
|
6131 REM THE METHOD OF TIMING THE SHOOTING
|
||||||
|
6132 REM WILL VARY FROM SYSTEM TO SYSTEM.
|
||||||
|
6133 REM USERS WILL PROBABLY PREFER TO USE
|
||||||
|
6134 REM IF TIMING ON THE USER'S SYSTEM IS HIGHLY SUSCEPTIBLE
|
||||||
|
6135 REM TO SYSTEM RESPONSE TIME, THE FORMULA IN LINE 6240 CAN
|
||||||
|
6136 REM BE TAILORED TO ACCOMODATE THIS BY EITHER INCREASING
|
||||||
|
6137 REM OR DECREASING THE 'SHOOTING' TIME RECORDED BY THE SYSTEM.
|
||||||
|
6140 DIM shootingWordVariations (5) AS STRING
|
||||||
|
6150 shootingWordVariations (1)="BANG"
|
||||||
|
6160 shootingWordVariations (2)="BLAM"
|
||||||
|
6170 shootingWordVariations (3)="P0W"
|
||||||
|
6180 shootingWordVariations (4)="WHAM"
|
||||||
|
6190 shootingWordSelector=INT(RND(-1)*4+1)
|
||||||
|
6200 PRINT "TYPE "; shootingWordVariations (shootingWordSelector)
|
||||||
|
'6210 clockTimeAtStartOfBang = CLK(0)
|
||||||
|
6220 INPUT yesNoResponseToQuestions
|
||||||
|
'6230 actualResponseTimeForBang = CLK(0)
|
||||||
|
6240 actualResponseTimeForBang=((actualResponseTimeForBang-clockTimeAtStartOfBang)*3600)-(shootingExpertiseLevelChoice-1)
|
||||||
|
6250 PRINT
|
||||||
|
6255 IF actualResponseTimeForBang>0 THEN 6260
|
||||||
|
6257 actualResponseTimeForBang=0
|
||||||
|
6260 IF yesNoResponseToQuestions=shootingWordVariations (shootingWordSelector) THEN GOTO 6280
|
||||||
|
6270 actualResponseTimeForBang=9
|
||||||
|
6280 RETURN
|
||||||
|
|
||||||
|
6290 REM ***ILLNESS SUB-ROUTINE***
|
||||||
|
6300 IF 100*RND(-1)<10+35*(eatingChoice-1) THEN GOTO 6370
|
||||||
|
6310 IF 100*RND(-1)<100-(40/4^(eatingChoice-1)) THEN GOTO 6410
|
||||||
|
6320 PRINT "SERIOUS ILLNESS"
|
||||||
|
6330 PRINT "YOU MUST STOP FOR MEDICAL ATTENTION"
|
||||||
|
6340 amountSpentOnMiscellaneousSupplies=amountSpentOnMiscellaneousSupplies-10
|
||||||
|
6350 illnessFlag=1
|
||||||
|
6360 GOTO 6440
|
||||||
|
6370 PRINT "MILD ILLNESS---MEDICINE USED"
|
||||||
|
6380 totalMileageWholeTrip=totalMileageWholeTrip-5
|
||||||
|
6390 amountSpentOnMiscellaneousSupplies=amountSpentOnMiscellaneousSupplies-2
|
||||||
|
6400 GOTO 6440
|
||||||
|
6410 PRINT "BAD ILLNESS---MEDICINE USED"
|
||||||
|
6420 totalMileageWholeTrip=totalMileageWholeTrip-5
|
||||||
|
6430 amountSpentOnMiscellaneousSupplies=amountSpentOnMiscellaneousSupplies-5
|
||||||
|
6440 IF amountSpentOnMiscellaneousSupplies<0 THEN 5110
|
||||||
|
6450 IF blizzardFlag=1 THEN 4940
|
||||||
|
6460 GOTO 4710
|
||||||
|
|
||||||
|
6470 REM ***IDENDIFICATION OF VARIABLES IN THE PROGRAM***
|
||||||
|
6480 REM amountSpentOnAnimals = AMOUNT SPENT ON ANIMALS
|
||||||
|
6490 REM amountSpentOnAmmunition = AMOUNT SPENT ON AMMUNITION
|
||||||
|
6500 REM actualResponseTimeForBang = ACTUAL RESPONSE TIME FOR INPUTTING "BANG"
|
||||||
|
6510 REM clockTimeAtStartOfBang = CLOCK TIME AT START OF INPUTTING "BANG"
|
||||||
|
6520 REM amountSpentOnClothing = AMOUNT SPENT ON CLOTHING
|
||||||
|
6530 REM insufficientClothingFlag = FLAG FOR INSUFFICIENT CLOTHING IN COLD WEATHER
|
||||||
|
6540 REM yesNoResponseToQuestions = YES/NO RESPONSE TO QUESTIONS
|
||||||
|
6550 REM eventCounter = COUNTER IN GENERATING EVENTS
|
||||||
|
6560 REM turnNumberForSettingDate = TURN NUMBER FOR SETTING DATE
|
||||||
|
6570 REM currentDate = CURRENT DATE
|
||||||
|
6580 REM shootingExpertiseLevelChoice = CHOICE OF SHOOTING EXPERTISE LEVEL
|
||||||
|
6590 REM eatingChoice = CHOICE OF EATING
|
||||||
|
6600 REM amountSpentOnFood = AMOUNT SPENT ON FOOD
|
||||||
|
6610 REM clearSouthPassFlag = FLAG FOR CLEARING SOUTH PASS
|
||||||
|
6620 REM clearBlueMountainsFlag = FLAG FOR CLEARING BLUE MOUNTAINS
|
||||||
|
6630 REM fractionOfTwoWeeksTraveledOnFinalTurn = FRACTION OF 2 WEEKS TRAVELED ON FINAL TURN
|
||||||
|
6640 REM injuryFlag = FLAG FOR INJURY
|
||||||
|
6650 REM blizzardFlag = FLAG FOR BLIZZARD
|
||||||
|
6660 REM totalMileageWholeTrip =TOTAL MILEAGE WHOLE TRIP
|
||||||
|
6670 REM amountSpentOnMiscellaneousSupplies = AMOUNT SPENT ON MISCELLANEOUS SUPPLIES
|
||||||
|
6680 REM totalMileageUpThroughPreviousTurn = TOTAL MILEAGE UP THROUGH PREVIOUS TURN
|
||||||
|
6690 REM clearSouthPassMileageFlag = FLAG FOR CLEARING SOUTH PASS IN SETTING MILEAGE
|
||||||
|
6700 REM amountSpentOnItemsAtFort = AMOUNT SPENT ON ITEMS AT FORT
|
||||||
|
6710 REM randomEventNumber = RANDOM NUMBER IN CHOOSING EVENTS
|
||||||
|
6720 REM illnessFlag = FLAG FOR ILLNESS
|
||||||
|
6730 REM hostilityOfRidersFactor = ""HOSTILITY OF RIDERS"" FACTOR
|
||||||
|
6740 REM shootingWordSelector = SHOOTING WORD SELECTOR
|
||||||
|
6750 REM shootingWordVariations = VARIATIONS OF SHOOTING WORD
|
||||||
|
6760 REM cashLeftAfterInitialPurchases = CASH LEFT OVER AFTER INITIAL PURCHASES
|
||||||
|
6770 REM tacticsChoiceWhenAttacked = CHOICE OF TACTICS WHEN ATTACKED
|
||||||
|
6780 REM actionChoiceForEachTurn = CHOICE OF ACTION FOR EACH TURN
|
||||||
|
6790 REM fortOptionFlag = FLAG FOR FORT OPTION
|
||||||
|
END
|
||||||
Loading…
Reference in New Issue