gitea-mirror/basic-computer-games
1
0
Fork 0
mirror of https://github.com/coding-horror/basic-computer-games.git synced 2026-02-04 19:12:07 -08:00
Code Issues Packages Projects Releases Wiki Activity

Changed in error

Browse Source
This commit is contained in:
Andrew Regan
2022-01-15 23:52:09 +00:00
parent 416033b8e0
commit 7fc9a1d8dc
1 changed files with 8 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
27_Civil_War/civilwar.bas
View File

@@ -172,47 +172,23 @@
1840 PRINT
1850 REM - CHOOSE STRATEGIES
1860 IF B$ <> "YES" THEN 1910
== 2
1890 PRINT "CONFEDERATE STRATEGY ";
1920 INPUT Y
1930 IF ABS(Y-3)<3 THEN 1960
1940 PRINT "STRATEGY";Y;"NOT ALLOWED."
1950 GOTO 1910
2010 LET Y1=Y
2020 PRINT "UNION STRATEGY ";
1920 INPUT Y
1930 IF ABS(Y-3)<3 THEN 1960
1940 PRINT "STRATEGY";Y;"NOT ALLOWED."
1950 GOTO 1910
== 1
1870 FOR I=1 TO 2
1880 ON I GOTO 1890,1920
1890 PRINT "CONFEDERATE STRATEGY ";
1900 GOTO 1920
1910 PRINT "YOUR STRATEGY ";
1920 INPUT Y
1930 IF ABS(Y-3)<3 THEN 1960
1940 PRINT "STRATEGY";Y;"NOT ALLOWED."
1950 GOTO 1910
1960 IF B$="YES" THEN 2000
1970 IF Y=5 THEN 2830
1980 GOSUB 3110
1990 GOTO 2170
2000 IF I=2 THEN 2040
2010 LET Y1=Y
# 2020 PRINT "UNION STRATEGY ";
# 1920 INPUT Y
# 1930 IF ABS(Y-3)<3 THEN 1960
# 1940 PRINT "STRATEGY";Y;"NOT ALLOWED."
# 1950 GOTO 1910
# 1970 IF Y=5 THEN 2830
# 1980 GOSUB 3110
# 1990 GOTO 2170
2020 PRINT "UNION STRATEGY ";
2030 NEXT I
2040 LET Y2=Y
2050 LET Y=Y1
2060 IF Y2=5 THEN 2020
@@ -322,7 +298,6 @@
3080 PRINT S(1);S(2);S(3);S(4)
3090 REM---------------------------------
3100 STOP
3110 REM - UNION STRATEGY IS COMPUTER CHOSEN
3120 PRINT "UNION STRATEGY IS ";
3130 IF A <> 0 THEN 3180
@@ -343,9 +318,6 @@
3270 LET Y2=I
3280 PRINT Y2
3290 RETURN
3300 REM LEARN PRESENT STRATEGY, START FORGETTING OLD ONES
3310 REM - PRESENT STRATEGY OF SOUTH GAINS 3*S, OTHERS LOSE S
3320 REM PROBABILITY POINTS, UNLESS A STRATEGY FALLS BELOW 5%.