mirror of
https://github.com/rfivet/BCG101.git
synced 2024-12-29 21:46:32 -05:00
124 lines
3.1 KiB
QBasic
124 lines
3.1 KiB
QBasic
1 REM BOB DORES/WAR
|
|
2 PRINT "I AM AT WAR WITH YOU."
|
|
4 PRINT "WE HAVE 72000 SOLDIERS A PIECE."
|
|
5 PRINT "DISTRIBUTE YOUR FORCES."
|
|
6 PRINT " ","ME","YOU"
|
|
7 PRINT"ARMY",30000,
|
|
8 INPUT A
|
|
9 PRINT"NAVY",20000,
|
|
10 INPUT B
|
|
11 PRINT"A.F.",22000,
|
|
12 INPUT C
|
|
13 IF A+B+C>72000 THEN 5
|
|
14 D=30000
|
|
15 E=20000
|
|
16 F=22000
|
|
17 PRINT "YOU ATTACK FIRST. TYPE 1 FOR ARMY 2 FOR NAVY"
|
|
18 PRINT "AND 3 FOR AIR FORCE."
|
|
19 INPUT Y
|
|
20 PRINT "HOW MANY MEN"
|
|
21 INPUT X
|
|
22 IF X<0 THEN 20
|
|
23 ON Y GOTO 100,200,300
|
|
100 IF X>A THEN 20
|
|
105 IF X<A/3 THEN 120
|
|
110 IF X<2*A/3 THEN 150
|
|
115 GOTO 270
|
|
120 PRINT "YOU LOST "X" MEN FROM YOUR ARMY."
|
|
125 A=INT(A-X)
|
|
130 GOTO 500
|
|
150 PRINT"YOU LOST "INT(X/3)" MEN, BUT I LOST "INT(2*D/3)
|
|
155 A=INT(A-X/3)
|
|
160 D=0
|
|
165 GOTO 500
|
|
200 IF X>B THEN 20
|
|
210 IF X<E/3 THEN 230
|
|
215 IF X<2*E/3 THEN 250
|
|
220 GOTO 270
|
|
230 PRINT "YOUR ATTACK WAS STOPPED!"
|
|
232 B=INT(B-X)
|
|
235 GOTO 500
|
|
250 PRINT "YOU DESTROYED "INT(2*E/3)" OF MY ARMY."
|
|
255 E=INT(E/3)
|
|
260 GOTO 500
|
|
270 PRINT"YOU SUNK 1 OF MY PATROL BOATS, BUT I WIPED OUT 2"
|
|
275 PRINT"OF YOUR A.F. BASES, AND 3 ARMY BASES."
|
|
280 A=INT(A/3)
|
|
285 C=INT(C/3)
|
|
290 E=INT(2*E/3)
|
|
293 GOTO 500
|
|
300 IF X>C THEN 20
|
|
310 IF X<C/3 THEN 350
|
|
320 IF X<2*C/3 THEN 370
|
|
330 GOTO 380
|
|
350 PRINT "YOUR ATTACK WAS WIPED OUT."
|
|
355 C=INT(C-X)
|
|
360 GOTO 500
|
|
370 PRINT "WE HAD A DOGFIGHT- YOU WON - AND FINISHED YOUR MISSION."
|
|
375 D=INT(2*D/3)
|
|
377 E=INT(E/3)
|
|
378 F=INT(F/3)
|
|
379 GOTO500
|
|
380 PRINT "YOU WIPED OUT ONE OF MY ARMY PATROLS, BUT I"
|
|
381 PRINT "DESTROYED 2 NAVY BASES, AND BOMBED 3 ARMY BASES."
|
|
385 A=INT(A/4)
|
|
387 B=INT(B/3)
|
|
390 D=INT(2*D/3)
|
|
500 PRINT
|
|
501 PRINT" ","YOU","ME"
|
|
510 PRINT"ARMY",A,D
|
|
520 PRINT"NAVY",B,E
|
|
530 PRINT"A.F.",C,F
|
|
1000 PRINT "WHAT IS YOUR NEXT MOVE?"
|
|
1010 PRINT "ARMY=1 NAVY=2 AIR FORCE=3"
|
|
1020 INPUT G
|
|
1030 PRINT "HOW MANY MEN"
|
|
1040 INPUT T
|
|
1045 IF T<0 THEN 1030
|
|
1050 ON G GOTO 1600,1700,1800
|
|
1600 IF T>A THEN 1030
|
|
1610 IF T<D/2 THEN 1630
|
|
1615 PRINT"YOU DESTROYED MY ARMY!"
|
|
1616 D=0
|
|
1617 GOTO 2000
|
|
1630 PRINT "I WIPED OUT YOUR ATTACK"
|
|
1635 A=A-T
|
|
1640 GOTO 2000
|
|
1700 IF T>B THEN 1030
|
|
1710 IF T<E/2 THEN 1750
|
|
1720 GOTO 1770
|
|
1750 PRINT "I SUNK 2 OF YOUR BATTLESHIPS, AND MY AIR FORCE"
|
|
1751 PRINT "WIPED OUT YOUR UNGUARDED CAPITOL."
|
|
1755 A=A/4
|
|
1760 B=B/2
|
|
1765 GOTO 2000
|
|
1770 PRINT "YOUR NAVY SHOT DOWN 3 OF MY XIII PLANES ,"
|
|
1771 PRINT"AND SUNK 3 BATTLESHIPS."
|
|
1775 F=2*F/3
|
|
1780 E=(E/2)
|
|
1790 GOTO2000
|
|
1800 IF T>C THEN 1030
|
|
1810 IF T>F/2 THEN 1830
|
|
1820 GOTO 1850
|
|
1830 PRINT "MY NAVY AND AIR FORCE IN A COMBINED ATTACK LEFT"
|
|
1831 PRINT "YOUR COUNTRY IN SHAMBLES."
|
|
1835 A=A/3
|
|
1837 B=B/3
|
|
1840 C=C/3
|
|
1845 GOTO 2000
|
|
1850 PRINT"ONE OF YOUR PLANES CRASHED INTO MY HOUSE. I AM DEAD."
|
|
1851 PRINT"MY COUNTRY FELL APART."
|
|
1860 GOTO 2010
|
|
2000 PRINT
|
|
2001 PRINT "FROM THE RESULTS OF BOTH OF YOUR ATTACKS,"
|
|
2002 IF A+B+C>3/2*(D+E+F) THEN 2010
|
|
2005 IF A+B+C<2/3*(D+E+F) THEN 2015
|
|
2006 PRINT"THE TREATY OF PARIS CONCLUDED THAT WE TAKE OUR"
|
|
2007 PRINT"RESPECTIVE COUNTRIES, AND LIVE IN PEACE."
|
|
2008 GOTO2020
|
|
2010 PRINT "YOU WON, OH! SHUCKS!!!!!"
|
|
2012 GOTO 2020
|
|
2015 PRINT "YOU LOST-I CONQUERED YOUR COUNTRY. IT SERVES YOU"
|
|
2016 PRINT "RIGHT FOR PLAYING THIS STUPID GAME!!!"
|
|
2020 END
|