MSXPen

​x
 
1 'ISLAND WAR 1.02 'ZORAN MAJCENIC, 202110 'SET COLOR TABLE COLORS AND THEN MANUALLY CHANGE BORDER TO BLUE10 KEYOFF:COLOR 15,1,1:SCREEN 2,2:VDP(7)=(VDP(7) AND &HFC) OR 4:POKE &HF3EB,4:DEFINT A-Z20 ON STOP GOSUB 65500:STOP ON​110 ' FAKE SCREEN 1 MODE, SET WIDTH 30, 6 LINES SCREEN HEIGHT AND NAME TABLE BEGIN110 ' SCREEN MODE110 POKE &HFCAF,1120 ' LINL32120 POKE &HF3AF,30130 ' LINLEN130 POKE &HF3B0,30140 ' CRTCNT140 POKE &HF3B1,6150 ' SCREEN 2 NAME TABLE BOTTOM THIRD PLUS 2 ROWS150 Y=BASE(10)+512+2*32160 POKE &HF922,Y MOD 256170 POKE &HF3BD,Y MOD 256180 POKE &HF923,Y\256190 POKE &HF9BE,Y\256200 CLS:Y=BASE(10)+512:FOR I=0 TO 63:VPOKE Y+I,32:NEXT210 ' DO FIXES REGARDING CURSOR FOR INPUT COMMAND210 VPOKE BASE(10)+255,254:VPOKE BASE(10)+511,254250 PRINT "WAIT ...";​310 ' COPY CHARACTER SET FROM ROM TO LOWER SCREEN THIRD AND SET COLOR310 ' FONT FROM CHARACTER 32310 X=256*PEEK(5)+PEEK(4)+32*8320 Y=BASE(12)+4096+32*8:Z=BASE(11)+4096+32*8330 FOR I=0 TO 767:VPOKE Y+I,PEEK (X+I):VPOKE Z+I,&H1F:NEXT​410 ' DEFINE CHARACTER 0 - LEFT GRID410 Y=BASE(12)+4096:RESTORE 60340420 FOR I=0 TO 7:READ A: VPOKE Y+I,A:NEXT440 ' DEFINE CHARACTER 31 - RIGHT GRID440 Y=BASE(12)+4096+31*8450 FOR I=0 TO 7:READ A: VPOKE Y+I,A:NEXT470 ' DRAW GRID470 Y=BASE(10)+512480 FOR I=0 TO 7:VPOKE Y+I*32,0:VPOKE Y+I*32+31,31:NEXT500 ' COLOR GRID500 Z=BASE(11)+4096510 FOR I=0 TO 7:VPOKE Z+I,&H1E:VPOKE Z+I+248,&H1E:NEXT​710 ' DEFINE ACTION BUTTONS710 RESTORE 60020720 BN=6:K=255-4*BN:Y=BASE(12)+4096+8*K:Z=BASE(11)+4096+8*K730 FOR I=0 TO BN*32-1:READ A:VPOKE Y+I,A:VPOKE Z+I,&H1E:NEXT750 ' DEFINE CHARACTER 1-4 - UPPER AND LOWER SEPARATORS AND FILLERS750 Y=BASE(12)+4096+8:Z=BASE(11)+4096+8:RESTORE 63000760 FOR I=0 TO 31:READ A: VPOKE Y+I,A:VPOKE Z+I,&H1E:NEXT770 Y=BASE(10)+513780 FOR L=0 TO BN-1:FOR J=0 TO 1:FOR I=0 TO 1790 VPOKE Y+J+I*32,K:K=K+1800 NEXT I:NEXT J810 VPOKE Y+2,1:VPOKE Y+34,2:Y=Y+3:NEXT L820 FOR I=0 TO 29-BN*3:VPOKE Y,3:VPOKE Y+32,4:Y=Y+1:NEXT​900 POKE &HFCAF,2910 LINE (0,0)-(255,127),4,BF920 GOSUB 40000925 POKE &HFCAF,1​930 'HIDE ALL SPRITES930 Y=BASE(13):FOR I=0 TO 31:VPOKE Y+I*4,&HD1:NEXT​950 'LOAD SPRITES950 I=0:RESTORE 60500:GOSUB 53000960 'INIT CITY SIZES AND DRAW960 DIM NC(2,2)990 'INIT MISSILE NUMBER PER PLAYER, WARHEAD NUMBER, SAT NUMBER, MISSILE READY, PLAYER ALIVE, PLAYER TYPE, PLAYER ACTION, SELECTED TARGET, AI RELATION STATUS990 DIM NM(2):DIM NW(2):DIM NS(2):DIM MR(2):DIM PA(2):DIM PT(2):DIM AC(2):DIM ST(2):DIM RS(2,2)1000 'SECONDARY EVENTS, ACTION RESULTS FOR PRIMARY ACTIONS (AC) AND RANDOM EVENTS (BC)1000 DIM BC(2):DIM RZ(2,2):DIM RY(2,2)1010 'DAMAGES, 0=MISSILE, 1=PROPAGANDA, 2=WARHEAD EXPLOSION, 3=RIOTS, 4=EPIDEMIC1010 DIM D(4):D(0)=50:D(1)=3:D(2)=25:D(3)=5:D(4)=10​5000 GOSUB 52000:PRINT5010 VPOKE BASE(11)+1,&HF4:VPOKE BASE(11)+2049,&HF45020 ON INTERVAL=100 GOSUB 41000:INTERVAL ON​5500 'INIT RANDOM SEED AND INITIALIZE VARIABLES5500 PRINT "*******************":PRINT "* ISLAND WAR v1.0 *":PRINT "*******************":PRINT "Any key to start ...";5510 A$=INKEY$:IF A$="" GOTO 55105520 PRINT:R=INT(RND(-TIME))5530 FOR I=0 TO 25540 NM(I)=1:NW(I)=1:NS(I)=1:PA(I)=1:MR(I)=0:PT(I)=0:FOR K=0 TO 2:RS(I,K)=INT(RND(1)*10)-5:NC(I,K)=100:NEXT K5550 NEXT I5560 'SET PLAYER 1 AS LOCAL HUMAN, OTHERS AS COMPUTER (TYPE 0)5560 HP=1:PT(HP)=15570 'DRAW CITIES5570 GOSUB 42000​9999 'PRINT INVENTORY9999 GOTO 2000010000 'MAIN LOOP10000 'CHECK HOW MANY PLAYERS ARE LEFT PLAYING10000 IF PA(0)+PA(1)+PA(2)>1 GOTO 1002010010 IF PA(HP)=1 THEN PRINT "CONGRATULATIONS ! YOU WIN !":GOTO 550010011 FOR J=0 TO 210012 IF PA(J)=1 AND HP<>J THEN PRINT "PLAYER ";CHR$(J+65);" WINS":PRINT "BETTER LUCK NEXT TIME":GOTO 550010013 NEXT J10014 PRINT "NOBODY WINS AND":PRINT "THE WORLD IS DESTROYED !":GOTO 5500​10020 IF PA(HP)=0 GOTO 10200 ELSE PRINT "command: ";10030 A$=INKEY$:IF A$="" GOTO 1003010040 PRINT A$10050 IF A$="A" OR A$="a" GOTO 1500010060 IF A$="M" OR A$="m" GOTO 1600010070 IF A$="D" OR A$="d" GOTO 1700010080 IF A$="L" OR A$="l" GOTO 1800010090 IF A$="P" OR A$="p" GOTO 1900010100 IF A$="I" OR A$="i" GOTO 2000010110 PRINT "unknown command ";A$10120 GOTO 10000​10200 'PROCESS AI PLAYERS10200 IF PT(0)=0 THEN I=0:GOSUB 2010010210 IF PT(2)=0 THEN I=2:GOSUB 2010010600 'PROCESS RESULTS OF SELECTED ACTIONS ON SERVER 10600 FOR I=0 TO 210610 IF PA(I)=0 GOTO 1071010620 ON AC(I) GOTO 10710,10660,10710,1068010630 'AC=0 MANUFACTURE10630 RZ(I,0)=INT(0.3+RND(1)+(NC(I,0)+NC(I,1)+NC(I,2))*RND(1)/100)10640 RZ(I,1)=INT(0.3+RND(1)+(NC(I,0)+NC(I,1)+NC(I,2))*RND(1)/100)10650 RZ(I,2)=INT(RND(1)/2+(NC(I,0)+NC(I,1)+NC(I,2))*RND(1)/200):GOTO 1071010660 'AC=2 LAUNCH MISSILE10660 RZ(I,0)=INT(RND(1)*D(0))10670 GOTO 1071010680 'AC=4 PROPAGANDA10680 FOR J=0 TO 210690 RZ(I,J)=INT(RND(1)*D(1))10700 NEXT J10710 NEXT I ​11000 'GET SECONDARY EVENTS11000 FOR I=0 TO 211010 IF PA(I)=0 THEN BC(I)=0:GOTO 1106011020 'WARHEAD EXPLOSION = 0.5% x NUM WARHEADS11020 IF NW(I)>1 AND RND(1)<0.008*NW(I) THEN L=D(2):GOSUB 54000:BC(I)=1:GOTO 1106011030 'RIOTS = 0.0167% x CITIZEN NUMBER11030 T=NC(I,0)+NC(I,1)+NC(I,2)11040 IF RND(1)<T*0.0003 THEN L=D(3):GOSUB 54000:BC(I)=2:GOTO 1106011050 BC(I)=011060 NEXT I​11940 'FIRST DEPLOY DEFENSE SATELLITES11940 IF AC(0)<>3 GOTO 1196011950 PUT SPRITE 9,(180,0),1,10:PUT SPRITE 22,(180,0),6,1111960 IF AC(1)<>3 GOTO 1198011970 PUT SPRITE 10,(240,34),1,10:PUT SPRITE 21,(240,34),6,1111980 IF AC(2)<>3 GOTO 1200011990 PUT SPRITE 11,(0,75),1,10:PUT SPRITE 20,(0,75),6,11 12000 'EXECUTE ACTIONS AND APPLY RESULTS12000 FOR I=0 TO 212010 IF PA(I)=0 GOTO 1400012020 ON AC(I) GOTO 12230,12300,13000,1301012040 'MANUFACTURE12040 'ANIMATE FACTORY12040 IF I=0 THEN X=152:Y=3:S1=9:S2=22:GOTO 1207012050 IF I=1 THEN X=160:Y=44:S1=10:S2=21:GOTO 1207012060 X=90:Y=85:S1=11:S2=2012070 C=0:K=012075 SOUND 0,255:SOUND 1,14:SOUND 8,9:SOUND 13,10:SOUND 6,245:SOUND 7,18212080 PUT SPRITE S1,(X+C,Y),1,14:PUT SPRITE S2,(X+C,Y),C+14,1512090 TIME=012100 IF TIME<10 GOTO 1210012110 K=K+1:IF K>8 THEN PUT SPRITE S1,(0,209):PUT SPRITE S2,(0,209):GOSUB 43000:GOTO 1213012120 C=(C+1) MOD 2:GOTO 1208012130 'DISPLAY RESULTS FOR HUMAN PLAYER ONLY12130 IF HP<>I GOTO 1219012140 PRINT "You manufacture: ";12150 IF (RZ(I,0)+RZ(I,1)+RZ(I,2))=0 THEN PRINT "nothing." ELSE PRINT12160 IF RZ(I,0)>0 THEN PRINT RZ(I,0);" missile";:IF RZ(I,0)>1 THEN PRINT "s" ELSE PRINT12170 IF RZ(I,1)>0 THEN PRINT RZ(I,1);" warhead";:IF RZ(I,1)>1 THEN PRINT "s" ELSE PRINT12180 IF RZ(I,2)>0 THEN PRINT RZ(I,2);" satellite";:IF RZ(I,2)>1 THEN PRINT "s" ELSE PRINT12190 NM(I)=NM(I)+RZ(I,0):NW(I)=NW(I)+RZ(I,1):NS(I)=NS(I)+RZ(I,2):MR(I)=012200 FOR J=0 TO 2:IF J<>I THEN RS(J,I)=RS(J,I)-512210 NEXT J12220 GOTO 1400012230 'ARM MISSILE12230 IF I=0 THEN X=152:Y=3:S1=9:S2=22:GOTO 1226012240 IF I=1 THEN X=160:Y=44:S1=10:S2=21:GOTO 1226012250 IF I=2 THEN X=90:Y=85:S1=11:S2=2012260 PUT SPRITE S1,(X,Y),15,8:PUT SPRITE S2,(X,Y),1,912270 PLAY "V12T200O4CRCO5CCRRR"12280 IF PLAY(0) THEN 1228012290 MR(I)=1:NM(I)=NM(I)-1:GOTO 1400012300 'LAUNCH MISSILE12300 TP=ST(I)\10:TC=ST(I) MOD 10:GOSUB 3800012420 'TARGET CITY COORDINATES DETERMINED12420 'GET STARTING POSITION12420 IF I=0 THEN X0=152:Y0=3:S1=9:S2=22:GOTO 1245012430 IF I=1 THEN X0=160:Y0=44:S1=10:S2=21:GOTO 1245012440 X0=90:Y0=85:S1=11:S2=2012450 'INITIAL RISE12450 SOUND 6,20:SOUND 7,183:SOUND 8,1012455 FOR K=1 TO 1612460 PUT SPRITE S1,(X0,Y0-K),15,17:PUT SPRITE S2,(X0,Y0-K),1,1612470 NEXT K   12480 'ARCH12480 IF ABS(X0-X1)>ABS(Y0-16-Y1) GOTO 1248512481 J=ABS(Y0-16-Y1):IF Y0-16<Y1 THEN T=18 ELSE T=1612482 GOTO 1249012485 J=ABS(X0-X1):IF X0<X1 THEN T=22 ELSE T=2012490 DX#=CDBL(X1-X0)/J:DY#=CDBL(Y1-Y0+16)/J12500 FOR K=0 TO J STEP 312505 X=X0+INT(K*DX#):Y=Y0-16+INT(K*DY#)12510 PUT SPRITE S1,(X,Y),15,T+1:PUT SPRITE S2,(X,Y),1,T12520 NEXT K12530 'HIDE MISSILE12530 PUT SPRITE S1,(0,209):PUT SPRITE S2,(0,209)12540 MR(I)=0:NW(I)=NW(I)-112550 'CALCULATE DAMAGE12550 IF AC(TP)<>3 GOTO 1258012560 PRINT"Missile shot down!"12565 RS(TP,I)=RS(TP,I)-112570 GOSUB 43000:GOTO 1400012580 T=RZ(I,0)12590 IF T>NC(TP,TC) THEN T=NC(TP,TC)12595 PRINT "Missile hits ";12600 IF T>0 THEN PRINT "killing":PRINT T;"million" ELSE PRINT "but everybody takes shelter!"12610 NC(TP,TC)=NC(TP,TC)-T:RS(TP,I)=RS(TP,I)-T:RS(I,TP)=RS(I,TP)+T12620 GOSUB 38200:GOSUB 42000:GOTO 14000​13000 'DEFEND13000 NS(I)=NS(I)-1:MR(I)=0:GOTO 14000​13010 'PROPAGANDA13010 IF I=0 THEN X=152:Y=3:S1=9:S2=22:GOTO 1304013020 IF I=1 THEN X=160:Y=44:S1=10:S2=21:GOTO 1304013030 X=90:Y=85:S1=11:S2=2013040 C=0:K=013050 SOUND 0,0:SOUND 1,0:SOUND 8,9:SOUND 13,10:SOUND 7,19013060 PUT SPRITE S1,(X,Y),1,12:PUT SPRITE S2,(X,Y),15,1313070 FOR J=200 TO 255:SOUND 0,J:NEXT J13080 FOR J=255 TO 200 STEP -1:SOUND 0,J:NEXT J13090 K=K+1:IF K>6 THEN PUT SPRITE S1,(0,209):PUT SPRITE S2,(0,209):GOSUB 43000:GOTO 1313013100 C=(C+1) MOD 213110 IF C=0 THEN PUT SPRITE S2,(X,Y),15,13 ELSE PUT SPRITE S2,(0,209)13120 GOTO 1307013130 S=0:FOR J=0 TO 213140 IF RZ(I,J)>NC(ST(I),J) THEN T=NC(ST(I),J) ELSE T=RZ(I,J)13150 S=S+T:NC(ST(I),J)=NC(ST(I),J)-T:NEXT J13151 K=32767:FOR J=0 TO 2:IF NC(I,J)<K AND NC(I,J)>0 THEN K=NC(I,J):L=J13152 NEXT J:IF K=32767 THEN S=0 ELSE NC(I,L)=NC(I,L)+S13160 IF ST(I)<>HP GOTO 1320013170 PRINT "Propaganda hits";13180 IF S=0 THEN PRINT " but nobody cares" ELSE PRINT ":":PRINT S;"million leave"13190 GOTO 1323013200 IF I<>HP GOTO 1323013210 PRINT "Your sweet words ";13220 IF S=0 THEN PRINT "are ignored  by everyone" ELSE PRINT "bring:":PRINT S;"million"13230 RS(ST(I),I)=RS(ST(I),I)-S:RS(I,ST(I))=RS(I,ST(I))+S:MR(I)=013240 'REDRAW CITIES13240 GOSUB 42000​14000 NEXT I14010 'HIDE DEFENSE SATELLITES14010 IF AC(0)<>3 GOTO 1403014020 PUT SPRITE 9,(0,209):PUT SPRITE 22,(0,209)14030 IF AC(1)<>3 GOTO 1405014040 PUT SPRITE 10,(0,209):PUT SPRITE 21,(0,209)14050 IF AC(2)<>3 GOTO 1410014060 PUT SPRITE 11,(0,209):PUT SPRITE 20,(0,209) ​14100 'PROCESS SECONDARY EVENTS14100 FOR I=0 TO 214110 IF BC(I)=0 GOTO 1498014130 TP=I:FOR J=0 TO 2:IF RY(I,J)>0 THEN TC=J:T=RY(I,J)14150 NEXT J14160 IF T>NC(I,TC) THEN T=NC(I,TC)14165 IF BC(I)=2 GOTO 1420014170 'WARHEAD EXPLOSION14170 IF I=HP THEN PRINT "Warhead explodes in a":PRINT "warehouse killing";T;"million" ELSE PRINT "Nuclear disaster detected"14180 NC(I,TC)=NC(I,TC)-T:NW(I)=NW(I)-114190 S1=12:GOSUB 38000:GOSUB 38200:GOSUB 42000:GOTO 1498014200 'RIOTS14210 GOSUB 38000:PUT SPRITE 12,(X1+16,Y1-2),1,28:PUT SPRITE 13,(X1+16,Y1-2),15,2914220 PRINT "Riots";:IF HP=I THEN PRINT "!";T;"million dead" ELSE PRINT " detected"14230 NC(I,TC)=NC(I,TC)-T14240 PLAY "O4T200V10F#CF#CF#C"14250 IF PLAY(0)=-1 GOTO 1425014260 PUT SPRITE 12,(0,209):PUT SPRITE 13,(0,209)​14980 NEXT I14990 FOR J=0 TO 2:IF NC(J,0)+NC(J,1)+NC(J,2)=0 THEN PA(J)=0 ELSE PA(J)=114995 NEXT J:GOTO 10000​15000 'ARM MISSILE COMMAND15000 PRINT "-Arm missile-"15010 IF MR(HP)=1 THEN PRINT "Missile already armed":GOTO 1000015020 IF NM(HP)=0 THEN PRINT "No missiles to arm":GOTO 1000015030 GOSUB 3900015040 IF A$="N" GOTO 1000015050 PRINT "Arming missile"15060 AC(HP)=1:GOTO 10200​16000 'MANUFACTURE COMMAND16000 PRINT "-Manufacture weapons-"16010 GOSUB 3910016020 GOSUB 3900016030 IF A$="N" GOTO 1000016040 PRINT "Preparing production"16050 MR(HP)=0:AC(HP)=0:GOTO 10200​17000 'DEFENSE SATELLITE COMMAND17000 PRINT "-Launch defense satellite-"17010 IF NS(HP)=0 THEN PRINT "No defense satellites":GOTO 1000017020 GOSUB 3910017030 GOSUB 3900017040 IF A$="N" GOTO 1000017050 PRINT "Preparing satellite"17060 MR(HP)=0:AC(HP)=3:GOTO 10200​18000 'LAUNCH MISSILE COMMAND18000 PRINT "-Launch missile-"18010 IF MR(HP)=0 THEN PRINT "Arm missile first":GOTO 1000018020 IF NW(HP)=0 THEN PRINT "No warhead to mount":GOTO 1000018030 GOSUB 39500:GOSUB 3970018040 INPUT "Enter target city";A$18050 IF LEN(A$)<>2 GOTO 1804018060 B$=LEFT$(A$,1):C$=RIGHT$(A$,1)18070 IF (B$="A" OR B$="a") AND HP<>0 AND PA(0)=1 THEN TP=0:GOTO 1811018080 IF (B$="B" OR B$="b") AND HP<>1 AND PA(1)=1 THEN TP=1:GOTO 1811018090 IF (B$="C" OR B$="c") AND HP<>2 AND PA(2)=1 THEN TP=2:GOTO 1811018100 GOTO 1804018110 IF C$="1" AND NC(TP,0)>0 THEN TC=0:GOTO 1815018120 IF C$="2" AND NC(TP,1)>0 THEN TC=1:GOTO 1815018130 IF C$="3" AND NC(TP,2)>0 THEN TC=2:GOTO 1815018140 GOTO 1804018150 GOSUB 39600:GOSUB 3980018160 GOSUB 3900018170 IF A$="N" GOTO 1000018180 PRINT "Preparing launch"18190 AC(HP)=2:ST(HP)=TP*10+TC:GOTO 10200​19000 'PROPAGANDA COMMAND19000 PRINT "-Propaganda-"19010 GOSUB 3910019020 GOSUB 3950019030 PRINT "Target player? ";19040 A$=INKEY$:IF A$="" GOTO 1904019050 PRINT A$19060 IF (A$="A" OR A$="a") AND HP<>0 AND PA(0)=1 THEN TP=0:GOTO 1910019070 IF (A$="B" OR A$="b") AND HP<>1 AND PA(1)=1 THEN TP=1:GOTO 1910019080 IF (A$="C" OR A$="c") AND HP<>2 AND PA(2)=1 THEN TP=2:GOTO 1910019090 GOTO 1903019100 GOSUB 3960019110 GOSUB 3900019120 IF A$="N" GOTO 1000019130 PRINT "Preparing propaganda"19140 AC(HP)=4:ST(HP)=TP:MR(HP)=0:GOTO 10200​20000 'INVENTORY COMMAND20000 PRINT "You have:"20010 PRINT NM(HP);"missile";:IF NM(HP)<>1 THEN PRINT "s" ELSE PRINT20020 PRINT NW(HP);"warhead";:IF NW(HP)<>1 THEN PRINT "s" ELSE PRINT20030 PRINT NS(HP);"satellite";:IF NS(HP)<>1 THEN PRINT "s" ELSE PRINT20040 PRINT NC(HP,0)+NC(HP,1)+NC(HP,2);"million people"20050 GOTO 10000​20100 'PROCESS AI MOVES, I=CURRENT AI PLAYER20100 'IF MISSILE ARMED, FIND TARGET20100 IF MR(I)=0 OR NW(I)=0 GOTO 2015020110 'SELECT PLAYER WE HATE MOST20110 K=32767:FOR J=0 TO 2:IF J<>I AND PA(J)=1 AND RS(I,J)<K THEN K=RS(I,J):L=J20115 NEXT J20120 'SELECT LARGEST CITY20120 K=0:FOR J=0 TO 2:IF NC(L,J)>0 AND NC(L,J)>K THEN K=NC(L,J):C=J20125 NEXT J20130 'ENCODE TARGET AND SET ACTION20130 AC(I)=2:ST(I)=L*10+C20140 RETURN20150 'CHECK IF SOMEONE ELSE HAS MISSILE READY TO LAUNCH AND WE CAN DEFEND20150 IF NS(I)=0 GOTO 2019020160 IF I<>0 AND PA(0)=1 AND MR(0)=1 AND RS(I,0)<0 THEN AC(I)=3:MR(I)=0:RETURN20170 IF I<>1 AND PA(1)=1 AND MR(1)=1 AND RS(I,1)<0 THEN AC(I)=3:MR(I)=0:RETURN20180 IF I<>2 AND PA(2)=1 AND MR(2)=1 AND RS(I,2)<0 THEN AC(I)=3:MR(I)=0:RETURN20190 'CHECK IF WE ARE DOWN TO 0 STOCKS OF MISSILES OR WARHEADS, GO FOR MANUFACTURE WITH 50% CHANCE20190 IF (NM(I)=0 OR NW(I)=0) AND RND(1)<0.5 THEN AC(I)=0:MR(I)=0:RETURN20200 '50-50 ARM MISSILE OR PROPAGANDA20200 IF NM(I)>0 AND NW(I)>0 AND RND(1)<0.5 THEN AC(I)=1:RETURN20210 'PROPAGANDA20210 'SELECT PLAYER WE HATE MOST20210 K=32767:FOR J=0 TO 2:IF J<>I AND PA(J)=1 AND RS(I,J)<K THEN K=RS(I,J):L=J20215 NEXT J20220 AC(I)=4:ST(I)=L:MR(I)=0:RETURN​38000 'GET TARGET CITY COORDS, TP=TARGET PLAYER, TC=TARGET CITY38000 IF TP<>0 GOTO 3804038010 IF TC=0 THEN X1=20:Y1=15:RETURN38020 IF TC=1 THEN X1=57:Y1=27:RETURN38030 X1=90:Y1=3:RETURN38040 IF TP<>1 GOTO 3808038050 IF TC=0 THEN X1=97:Y1=56:RETURN38060 IF TC=1 THEN X1=168:Y1=68:RETURN38070 X1=200:Y1=44:RETURN38080 IF TC=0 THEN X1=34:Y1=85:RETURN38090 IF TC=1 THEN X1=72:Y1=109:RETURN38100 X1=120:Y1=97:RETURN​38200 'ANIMATE EXPLOSION, S1, X1, Y138200 SOUND 6,255:SOUND 7,13538210 PUT SPRITE S1,(X1,Y1-4),11,2438220 FOR J=1500 TO 1125 STEP -5:SOUND 8,J/100:NEXT J38230 PUT SPRITE S1,(X1,Y1-4),9,2538240 FOR J=1125 TO 750 STEP -5:SOUND 8,J/100:NEXT J38250 PUT SPRITE S1,(X1,Y1-4),8,2638260 FOR J=750 TO 325 STEP -5:SOUND 8,J/100:NEXT J38270 PUT SPRITE S1,(X1,Y1-4),6,2738280 FOR J=325 TO 0 STEP -5:SOUND 8,J/100:NEXT J38290 PUT SPRITE S1,(0,209):GOTO 43000​39000 'CONFIRM PROMPT (Y/N)39000 PRINT "Confirm action (y/n):";39010 A$=INKEY$:IF A$="" GOTO 3901039020 PRINT A$39030 IF A$="y" THEN A$="Y":RETURN39040 IF A$="n" THEN A$="N":RETURN39050 IF A$="Y" OR A$="N" THEN RETURN39060 GOTO 39000​39100 'SCRAP MISSILE WARNING39100 IF MR(HP)=1 THEN PRINT "This will scrap armed missile"39110 RETURN​39200 'WRITE ISLAND LETTERS39200 OPEN "GRP:" FOR OUTPUT AS #139210 IF HP<>0 AND PA(0)=1 THEN PSET (106,29),10:PRINT#1,"A"39220 IF HP<>1 AND PA(1)=1 THEN PSET (215,67),10:PRINT#1,"B"39230 IF HP<>2 AND PA(2)=1 THEN PSET (20,108),10:PRINT#1,"C"39240 CLOSE #1:POKE &HFCAF,139250 RETURN​39300 'WRITE CITY NUMBERS39300 OPEN "GRP:" FOR OUTPUT AS #139310 IF HP=0 OR PA(0)=0 GOTO 3935039320 IF NC(0,0)>0 THEN PSET(14,22),10:PRINT#1,"1"39330 IF NC(0,1)>0 THEN PSET(51,27),10:PRINT#1,"2"39340 IF NC(0,2)>0 THEN PSET(84,10),10:PRINT#1,"3"39350 IF HP=1 OR PA(1)=0 GOTO 3939039360 IF NC(1,0)>0 THEN PSET(114,63),10:PRINT#1,"1"39370 IF NC(1,1)>0 THEN PSET(162,68),10:PRINT#1,"2"39380 IF NC(1,2)>0 THEN PSET(194,51),10:PRINT#1,"3"39390 IF HP=2 OR PA(2)=0 THEN GOTO 3943039400 IF NC(2,0)>0 THEN PSET(51,92),10:PRINT#1,"1"39410 IF NC(2,1)>0 THEN PSET(66,109),10:PRINT#1,"2"39420 IF NC(2,2)>0 THEN PSET(114,97),10:PRINT#1,"3"39430 CLOSE #1:POKE &HFCAF,1:RETURN​39500 'DISPLAY ISLAND LETTERS39500 POKE &HFCAF,2:COLOR 1:GOTO 39200​39600 'HIDE ISLAND LETTERS39600 POKE &HFCAF,2:COLOR 10:GOTO 39200​39700 'DISPLAY CITY NUMBERS39700 POKE &HFCAF,2:COLOR 13:GOTO 39300​39800 'HIDE CITY NUMBERS39800 POKE &HFCAF,2:COLOR 10:GOTO 39300​40000 ' DRAW TOP ISLAND40000 PRESET (15,12)40020 DRAW "C10 R15U1R4U2R23U1R55D1R8D2R7D1R10D2R17U1R6D1R3D1R3D3L1D2L2D1L19D2L7D1L3D2L1D1L5D1L3D1L1D1L1D1L2D2L1D1L2D1L3D2L16D1L3D1L1D1L5D1L49D1L12U1L3U1L3U2L14U3L2U1L1U3L2U5L1U3R2U2R1U2R2U1R1U2R2U1R4U2"40030 PAINT (16,13),10,1040040 PRESET (9,38)40050 DRAW "C6 R14D2R2BD1BR4BD1R12BU1BR1R48BU1BR1R4BU1BR1U1R3BU1BR1R15BR4BU3R1U1R1BR5BU5R2U1R5BR2BU2R2BU1BR1R6U2R19"40070 ' DRAW MIDDLE ISLAND40070 PRESET (76,69)40080 DRAW "C10 R2U4R3U1R1U1R4U1R7U1R1U1R3U1R3U1R1U1R1U1R15U1R3U1R1U1R5U1R5U1R1U1R5U1R82D1R1D2R2D1R6D2R17D1R3D1R1D2R2D1R1D3R3D5L1D4L2D2L1D1L4D1L19U1L22D2L5D1L6D1L1D1L7D1L21U2L6U1L1U1L15D1L3D1L1D2L13U1L1U1L16U1L11U2L4U1L11U1L5U2L3U1L1U1L1"40090 PAINT (82,67),10,1040100 PRESET (79,74)40110 DRAW "C6 R4BR1BD1R10BR1BD1R3BR1BD2R10BR1BD1R15BR1BD1R1D1R13BR20BU2R5BR1BD2R21BR1BU1R6BR2BU2R5U1R5BR1BU2R21D1R19BR1BU1R3"40130 ' DRAW BOTTOM ISLAND40130 PRESET (7,95)40140 DRAW "C10 R9U1R6U1R4U1R4U1R4U2R8U1R8D1R28D1R15U1R6F2R13F2R4F1R9F1R6F1R9D3R1F1D2R1G1L2D7G1L5D1L7D1L2D1L5D1L9U1L4U2L7D1L2D1L3D1G1D1L2D1L2D1L3D1L2D1L5D1L16U1L5U1L8U1L18U1L4U1L2U1L20G1L8H2U4E1U1E1R2U1E1U3L1U2L1U2L1U1E1U1"40150 PAINT (9,97),10,1040160 PRESET (5,117)40170 DRAW "C6 R8E1R19BR3BD2R3F1R17F1R7F1R5D1R16E1R4BR4BU2R1BR7BU5R1BR3BU2R5BR5BD3R9E1R4BR3BU2R6E1R4"40990 RETURN​41000 ' ON INTERVAL ROUTINE41000 R=INT(RND(1)*256):VPOKE BASE(12)+1,R:VPOKE BASE(12)+2049,R41990 RETURN​42000 ' DRAW CITIES BASED ON NUMBER OF PEOPLE42000 IF NC(0,0)=0 THEN T=6 ELSE IF NC(0,0)<10 THEN T=4 ELSE IF NC(0,0)<50 THEN T=2 ELSE T=042010 PUT SPRITE 0,(20,15),1,T:PUT SPRITE 30,(20,15),15,T+142020 IF NC(0,1)=0 THEN T=6 ELSE IF NC(0,1)<10 THEN T=4 ELSE IF NC(0,1)<50 THEN T=2 ELSE T=042030 PUT SPRITE 1,(57,27),1,T:PUT SPRITE 31,(57,27),15,T+142040 IF NC(0,2)=0 THEN T=6 ELSE IF NC(0,2)<10 THEN T=4 ELSE IF NC(0,2)<50 THEN T=2 ELSE T=042050 PUT SPRITE 2,(90,3),1,T:PUT SPRITE 29,(90,3),15,T+142060 IF NC(1,0)=0 THEN T=6 ELSE IF NC(1,0)<10 THEN T=4 ELSE IF NC(1,0)<50 THEN T=2 ELSE T=042070 PUT SPRITE 4,(97,56),1,T:PUT SPRITE 27,(97,56),7,T+142080 IF NC(1,1)=0 THEN T=6 ELSE IF NC(1,1)<10 THEN T=4 ELSE IF NC(1,1)<50 THEN T=2 ELSE T=042090 PUT SPRITE 3,(168,68),1,T:PUT SPRITE 28,(168,68),7,T+142100 IF NC(1,2)=0 THEN T=6 ELSE IF NC(1,2)<10 THEN T=4 ELSE IF NC(1,2)<50 THEN T=2 ELSE T=042110 PUT SPRITE 5,(200,44),1,T:PUT SPRITE 26,(200,44),7,T+142120 IF NC(2,0)=0 THEN T=6 ELSE IF NC(2,0)<10 THEN T=4 ELSE IF NC(2,0)<50 THEN T=2 ELSE T=042130 PUT SPRITE 8,(34,85),1,T:PUT SPRITE 23,(34,85),13,T+142140 IF NC(2,1)=0 THEN T=6 ELSE IF NC(2,1)<10 THEN T=4 ELSE IF NC(2,1)<50 THEN T=2 ELSE T=042150 PUT SPRITE 6,(72,109),1,T:PUT SPRITE 25,(72,109),13,T+142160 IF NC(2,2)=0 THEN T=6 ELSE IF NC(2,2)<10 THEN T=4 ELSE IF NC(2,2)<50 THEN T=2 ELSE T=042170 PUT SPRITE 7,(120,97),1,T:PUT SPRITE 24,(120,97),13,T+142990 RETURN​43000 'SILENCE43000 DEFUSR=&H90:A=USR(0):RETURN​52000 ' SEA TILES52000 RESTORE 5210052020 X=BASE(10)52030 READ A:IF A=-1 THEN RETURN52040 VPOKE X+A,052050 GOTO 5203052100 DATA 8,17,26,62,88,115,122,144,150,156,161,175,184,196,204,226,23152110 DATA 263,290,296,325,334,339,348,373,381,407,411,435,440,447,469,477,493,500,507,-1​53000 'LOAD SPRITE DEFINITIONS, I=BEGIN SPRITE53000 S=BASE(9)+I*3253020 READ A53030 IF A=-1 THEN RETURN53040 VPOKE S,A53050 S=S+153060 IF (S MOD 32)=0 THEN PRINT ".";53070 GOTO 53020​54000 'bonus events shared code, I=current player, L=max damage54000 K=0:FOR J=0 TO 2:RY(I,J)=0:IF NC(I,J)>K THEN K=NC(I,J):C=J54010 NEXT J54020 T=INT(RND(1)*L)+154030 IF T>K THEN T=K54040 RY(I,C)=T54050 RETURN​60020 ' --- factory60020 DATA 255,0,48,48,49,51,63,63,50,53,55,55,63,0,255,0,255,0,0,0,36,108,252,252,124,124,124,124,252,0,255,060060 ' --- rocket60060 DATA 255,0,0,0,0,1,3,7,31,39,10,18,4,0,255,0,255,0,0,112,240,176,96,192,128,28,20,28,20,0,255,060100 ' --- Launch60100 DATA 255,0,7,8,19,39,47,47,47,39,19,8,7,0,255,0,255,0,192,32,144,200,232,232,232,200,148,36,198,0,255,060140 ' --- satellite60140 DATA 255,0,0,0,0,0,0,1,5,14,27,54,28,8,255,0,255,0,16,56,108,216,112,160,128,12,10,10,12,0,255,060200 ' --- propaganda60200 DATA 255,9,37,16,9,67,55,3,49,69,9,17,3,3,255,0,255,32,72,16,32,132,216,128,16,70,37,6,132,128,255,060240 ' info60250 DATA 255,0,63,0,47,0,57,0,55,0,47,0,43,0,255,0,255,0,240,0,240,0,240,0,48,7,242,2,247,0,255,0​60340 ' --- grid60340 DATA 254,130,162,130,130,130,138,130,127,65,81,65,65,65,69,65​60500 'city sprites60500 ' --- city large60500 ' color 160500 DATA 252,252,181,253,173,253,181,253,213,253,253,253,0,0,0,0,15,11,239,235,109,239,171,239,237,239,239,239,0,0,0,060570 ' color 760570 DATA 0,0,72,0,80,0,72,0,40,0,0,0,0,0,0,0,0,4,0,4,130,0,68,0,2,0,0,0,0,0,0,060620 ' --- city medium60620 ' color 160620 DATA 0,1,2,7,3,18,58,84,254,124,76,76,0,0,0,0,128,192,160,240,224,104,92,62,107,62,38,38,0,0,0,060680 ' color 1560680 DATA 0,0,1,0,0,1,1,40,0,0,48,48,0,0,0,0,0,0,64,0,0,128,128,0,20,0,24,24,0,0,0,060730 ' --- city small60730 ' color 160730 DATA 0,0,0,16,56,108,198,0,9,28,54,99,0,0,0,0,8,28,54,99,0,32,112,216,140,0,0,0,0,0,0,060790 ' color 1560790 DATA 0,0,0,0,0,16,56,0,0,0,8,28,0,0,0,0,0,0,8,28,0,0,0,32,112,0,0,0,0,0,0,060840 ' --- city rubble60840 ' color 160840 DATA 0,0,0,0,0,1,62,105,50,31,0,0,0,0,0,0,0,0,0,0,0,224,220,43,254,128,0,0,0,0,0,060900 ' color 960900 DATA 0,0,0,0,0,0,0,6,13,0,0,0,0,0,0,0,0,0,0,0,0,0,0,212,0,0,0,0,0,0,0,060950 ' --- missile60950 ' color 160950 DATA 0,1,1,9,9,9,9,9,9,9,10,31,0,0,0,0,128,192,192,64,192,192,64,64,220,220,180,252,0,0,0,061010 ' color 1561010 DATA 0,0,0,0,6,0,0,0,0,0,1,0,0,0,0,0,0,0,0,128,0,0,128,128,0,8,72,0,0,0,0,061060 ' --- defense satellite61060 ' color 161060 DATA 28,22,27,14,5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,128,160,112,216,104,56,0,0,0,0,0,061120 ' color 661120 DATA 0,8,4,0,0,0,2,4,8,16,32,64,0,0,0,0,8,16,32,64,0,0,0,32,16,0,0,0,0,0,0,061170 ' --- propaganda active61170 ' color 161170 DATA 0,0,0,0,0,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,061230 ' color 1561230 DATA 7,8,19,36,43,42,20,8,6,0,0,0,0,0,0,0,192,32,144,72,168,168,80,32,192,0,0,0,0,0,0,061280 ' --- factory active61280 ' color 161280 DATA 0,48,48,49,51,63,51,51,63,63,63,63,0,0,0,0,0,0,0,36,108,252,108,252,252,252,252,252,0,0,0,061340 ' color 1461340 DATA 56,1,1,0,0,0,12,12,0,0,0,0,0,0,0,0,219,182,36,0,0,0,144,0,0,0,0,0,0,0,0,061390 ' --- missile up61390 ' color 161390 DATA 0,1,2,2,2,2,2,2,2,2,2,5,11,4,0,0,128,64,32,32,160,160,32,32,32,32,160,80,104,144,0,061450 ' color 1561450 DATA 0,0,1,1,1,1,1,1,1,1,1,2,4,0,0,0,0,128,192,192,64,64,192,192,192,192,64,160,144,0,0,061500 ' --- missile down61500 ' color 161500 DATA 4,11,5,2,2,2,2,2,2,2,2,2,1,0,0,0,144,104,80,160,32,32,32,32,160,160,32,32,64,128,0,061560 ' color 1561560 DATA 0,4,2,1,1,1,1,1,1,1,1,1,0,0,0,0,0,144,160,64,192,192,192,192,64,64,192,192,128,0,0,061610 ' --- missile left61610 ' color 161610 DATA 0,0,0,0,0,0,31,32,70,32,31,0,0,0,0,0,0,0,0,0,4,10,244,12,18,12,244,10,4,0,0,061670 ' color 1561670 DATA 0,0,0,0,0,0,0,31,57,31,0,0,0,0,0,0,0,0,0,0,0,4,8,240,236,240,8,4,0,0,0,061720 ' --- missile right61720 ' color 161720 DATA 0,0,0,0,32,80,47,48,72,48,47,80,32,0,0,0,0,0,0,0,0,0,248,4,98,4,248,0,0,0,0,061780 ' color 1561780 DATA 0,0,0,0,0,32,16,15,55,15,16,32,0,0,0,0,0,0,0,0,0,0,0,248,156,248,0,0,0,0,0,061830 ' --- explosion 161830 ' color 661830 DATA 0,0,0,0,0,0,0,0,0,0,0,0,3,7,7,3,0,0,0,0,0,0,0,0,0,0,0,0,224,240,240,22461890 ' --- explosion 261890 ' color 661890 DATA 0,0,0,0,0,0,0,0,1,3,7,12,11,7,31,31,0,0,0,0,0,0,0,0,192,224,240,152,232,240,252,25261950 ' --- explosion 361950 ' color 661950 DATA 0,0,0,0,7,15,31,26,13,7,7,12,9,1,15,127,0,0,0,0,248,252,254,242,206,248,240,152,200,192,248,25462010 ' --- explosion 462010 ' color 662010 DATA 0,15,31,127,127,255,255,127,31,7,4,12,9,1,15,255,0,248,254,254,255,255,255,255,255,250,144,152,200,192,248,25562020 ' --- riots62020 ' color 162020 DATA 13,18,114,142,129,128,136,71,64,64,32,16,16,8,15,0,176,76,74,73,73,201,183,1,1,1,2,2,2,4,252,062030 ' color 1562030 DATA 0,13,13,113,126,127,119,56,63,63,31,15,15,7,0,0,0,176,180,182,182,54,72,254,254,254,252,252,252,248,0,062070 DATA -1​63000 ' action separator63000 DATA 255,16,16,16,16,16,16,1663020 DATA 16,16,16,16,16,16,255,063030 ' action filler63030 DATA 255,0,0,0,0,0,0,0,0,0,0,0,0,0,255,0​65500 POKE &HF3B1,24:SCREEN 0:COLOR 15,4,4:WIDTH 40
Drive A: PenDisk
Drive A
Drive B
Hard Drive
Cartridge 1
Cartridge 2
Cassette
CAPS
Swipe up/down on the Screen
to hide the browser bars!
or press Ctrl + Alt + R
Hello World?