Flash Attack Source

[Blacklord]

Original post by Larry Anderson

Since Im really busy and won't get to redoing my site for a month or more, and this looks like the place to be, here is the additions I plan to put on the Flash Attack pages, for those who were interested - in ASCII

Code Select Expand

3 L=9500: D=256:IF L <> PEEK(135) * D + PEEK(134) THEN G=136: W=L: GOSUB800: RUN
5 N=2656: N=-1: DIM S$(80), V(80)
10 B = D * PEEK(125)+PEEK(124)-4: F = 89: G=F+1: T=6764 : P=T
20 DEF FNK(X) = X < 128 AND ( X < 65 OR X > 90 ) OR X > 169 AND X< I75 OR X > 176 AND X < 180

100 GOSUB 900:IF S>0 THEN 140
120 IF TI$="" THEM PRINT " BC "CHR$(34)CHR$(X);:GOTO130
125 B=B-LEN(T$)+1 :PRINT " UR "CHR$(34)T$;
130 PRINT CHR$(34)",";: E=1: GOTO 100
140 IF S<228 THEN GOSUB 700: GOTO 100
150 ON S-227 GOSUB 170, 180, 165, 250, 280, 300 ,120 ,350, 400: GOTO 100

165 S=226: GOSUB 700: H=T: T=T-2: RETURN

170 IF G>F THEN PRINT " IWE,";: E=1: RETURN
175 GOSUB 700: R=D*PEEK(G+1)+PEEK(G): G=G+2: GOT0 400

180 B=B-1: X=PEEK(B): IF X<>34 AND X>0 THEN R=R+1: GOTO 180
200 IF R>0 THEN FOR I=1 TO R: S=PEEK(I+B):GOSUB 700: NEXT
210 S=229: GOSUB 700: GOTO 400

250 IF G>F THEN PRINT " 1WE,";: E=1: RETURN
260 S=226: GOSUB 175: W=T+3: GOTO 800

280 W=T: GOTO 800

300 B=B-1: X=FEEK(B): GOSUB 925: IF T$=~"" THEN 330
320 GOSUB 750: N=N+1: S$(N)=T$: V(N)=T: B=B-LEN(T$)+LEN(X$)-(X$=""): RETURN
330 IF S<236 THEN B=B+1: T=Q: RETURN
340 Q=T: T=R: RETURN

350 GOSUB 900: IF S=236 THEN Z=R: GOSUB 650: GOTO 350
360 IF S=234 THEN RETURN
370 IF S<>203 THEN 120
380 GOSUB 900: IF S<236 THEN 120
390 IF R>1 THEN GOSUB 650: R=R-1: GOTO 390
395 GOTO 350

400 IF R<128 THEN S=R: GOTO 700
410 IF R<16384 THEN X=INT(R/D): S=R-D*X GOSUB 700: S=X+128: GOTO 700
420 X=INT(R/D): S=P-D*X: GOSUB 700: S=X: GOSUB 700: S=230: GOTO 700

650 S=INT(Z/D): GOSUB 700: S~Z-S*D: GOTO 700

700 T=T-1: POKE T+(9000 AND (T)M),S: RETURN

750 IF H>0 THEN R=T: T=H: GOSUB 400: T=R: H=0
760 RETURN

800 G=G-1: Y=INT(W/D): POKE G,Y: G=G-1: POKE G,W-D*Y: RETURN

900 B=B-1: X=PEEK(B): IF X=32 OR X=44 THEN 900
905 IF X>16 THEN 925
910 Y=X+D+PEEK(B-l):IF E THEN PP1NT "{C-LT} IN LINE"Y: E=0
912 IF Y>1000 THEN B=B-4: GOTO 900
915 IF G
917 PRINT "NEW{C-DN C-DN}": PRINT "FOR I=6764 TO "T" STEP -1: V=PEEK(I+9000):POKE I,U: NEXT {C-UP*7}"
920 G=8192: W=T-1: GOSUB 800: GOSUB 750: END

925 T$=~"": Y=X: S=236: R=0: IF FNK(X) THEN 950
930 T$=CHR$(Y)+T$: X$=T$: B=B-l: Y=PEEK(B) :IF NOT FNK(Y) THEN 930
940 B=B+1: F0R I=0 TO N: IF S$(1)=X$ THEN R=V(I): RETURN
945 NEXT: X$=MID$(X$,2,LEN(X$)-1): IF X$>"" THEN 940
950 FOR I=M TO M+43: IF X=PEEK(I) THEN S=I-M+192: RETURN
955 NEXT: W=1: IF X<48 OR X>57 THEN S=0: RETURN
960 R=R+(X-48)*W: X=PEEK(B-1): IF X>47 AND X<58 THEN B=B-1: W=W*10: GOTO 960
965 1F X=171 THEN R=65536-R:B=B-1
970 RETURN

999 STOPSTR$CHR$PRINTPEEKPOKE@!GET+-*/\>=
  (")
1000 ,700@1FSTOPEND13"{HOME,C-DN*3,CRT*12}FLRSH ATTACK"1+PRINT
1010 ,13"{C-DN*1,C-RT*9}COFYRIGHT (C) 1980 BY "1+PRINT
1015 "TIMOTHY STRYKER AND KENNETH WASSEPMAN"PRINT
1020 ,6840SYS6938SYS59471PEEK16AND1FNOGENGOTOENDBT BDFOR32{PI}POKENEXT

1150 ,20RND\25+1FOR2008D BT--RND\BD+6RND\0FOR#{PI}40*+3RND\1+#3+%3-FOR88;{PI}+POKE
1160 NEXT_NEXT_NEXT

1200 ,15RND\20+0FORBDBT-RND\BD+4RHPOKE4RV POKE20RND\4+0FORRND1ANDIF1RHPEEK#
1210 .10RND\>lF-RHPOKE1%-THEN+RHROKE1+ENDTHEN1RVPEEK#10RND\>IF-RVPOKE40%-THEN
1220 +RVPOKE40+ENDEND#BD>IF_BDEND#BT

1300 BD39+BDFOR102{PI}POKENEXTBT39BT-FOR102{PI}P0KENEXT

1320 ,40BD BT-/1FOR102{PI}40*BD+1;-,102%POKEPOKENEXT

1400 RNX&#TXPOKERNY&#TYPOKE
     LOOP:RNX&RNYY&;;5^-#*%6^-#*+101>IF__.ENDTY2+POKETX2+
1420 POKE__1,0FOR{PI*2}+#TY+PEEK40*;TX+PEEK~BD+123%-%FORTPOS+!NEXT
1470 ,1,0FOR{PI*2}+FORTPOS+@123+90;PDKE224,40,3^-POKE
1480 ,224,1,3^-POKE224;1+POKE224;40+POKE_NEXT
1490 ,223,221FOR{PI}PEEKSND&NEXT
1500 BT BDFOR{PI}PEEKSND&NEXTFORTPOS#2+PEEKSND+PEEKSND&#PEEKSMD&1+PEEKSND&
1518 TX2+PEEKSND&TY2+PEEKSND&TXPEEKSND&TYPEEKSND&0USRPOKEEXITGOTO

1600 NOGEN:223,221FORRCV&{PI}POKENEXTBT,BD FORRCV&{PI}POKENEXTFORTPOS3+

1610 FORTPOSFORRCV&{PI}POKENEXTTX3+TX%FORRCV&{PI}POKENEXT2USRPOKE

1710 EXIT:"{CLR}"PRINTUB,WHBX!7,7,32815DRBOX&7,7,32832DRBOX&
1715 BX,WHBX!1,5,33175DRBOX&2,1,33180DRBOX&2,1,33300DRBOX&3,1,33454DRBOX&
1720 ,3,1,33614DRBOX&1,3,33501DRBOX&1,8,33350DRBOX&
1725 ,2,9,33354DRBOX&5,2,33520DRBOX&3,1,33361DRBOX&2,1,33203DRBOX&
1730 ,2,1,33083DRBOX&17,2POSCUR&"{C-UP}MACH 2{C-DN*2,C-LT*6}F{C-DN,LT}L{C-DN,LT]ATTACK{C-DN,CLT*6}S{C-DN,LT}V1.O"
1733 PRINT15FFPOKE
1735 ,6,11POSCUR&"{C-UP}T{C-DN,LT}A{C-DN,LT}N{C-DN,LT}K{C-DN,LT}S"PRINT11,11POSCUR&"{C-UP}X{C-DN*3,C-LT}Y"PRINT6,20POSCUR&
1740 "{C-UP}ANGLE"PRINT6,24POSCUR&"{C-UP}RANGE"PRINT12,18POSCUR&"{C-UP}I{C-DN,LT}C{C-DN,LT}B{C-DN,LT}M{C-DN,LT}S"
1745 PRINT,24,13POSCUR&"{C-UP}CONDITION"PR1NT25,16POSCUR&"{C-UP}M{C-DN,LT}I{C-DN,LT}N{C-DN,LT}E{C-DN,LT}S"PRINT
1750 ,30,16POSCUR&"{C-UP}S{C-DN,LT}H{C-DN,LT}E{C-DN,LT}L{C-DN,LT}L{C-DN,LT}S"PRINT33,22POSCUR&"{C-UP}WALLS"PRINT
1755 ,34,17POSCUR&"{C-UP}GAS"PRINT35,4POSCUR&"{C-UP}F"FRINT4,4POSCUR&"{C-UP}F"PRINT
1760 ,34 8POSCUR&"{C-UP}X{C-DN*3+LT}Y" PRINT1,5,33216POBOX& 1,3,33542POBOX&
1780 ,0ANG;;2+!!0RNG;;2+!!DISPA&DISPR&8,11POSCUR&"{C-UP,CIRCLE}"PRINT

1790 TXPEEK#STR$2,13,11RJPR&FXPOKETYPEEK#STR$2, 13, 14RJP&FYPDKE

1800 ,3MSL;;2+!!5TCT;;2+!!0RENEW&2RENEW&6CTAPOKE3DCPOKE34,6849POKE


2500 RUN:CLARSYSUSRPEEKIFRCV&THENGET#SND&END
2520 #IF#" "_=IF1FSET&THEN#"]"_=IF2FSET&
2540 THEN#"M"_=IF0FSET&MLUSRPEEK+#@IFUSRPEEKIF96THEN43ENDRSTUSRFEEK+POKE
2550 ,1;@-%!THEN_ENDDISPML&
2560 THEN#"W"_=IF0FSET&MLUSRPEEK+#@IF16ORSTUSRPEEK+POKE1;@-%THEN_ENDDISPWL&
2570 THEN#47<;58>ANDIFFFUSRPEEK+PEEK#3AND3^48
2575 IFSHLUSRPEEK+#@CONDU5RPEEK+@0
2580 IF1;@-%!DCPOKEFIRE&3DCPOKEDISPSH&THEN_ENDTHENFIRE&END0FSET&
2585 THEN12ANDIFDG&THEN#48
2590 THEN#"{C-HOME}"_=TANKPOSUSRPEEK+@FORTPOSUSRPEEK+@=ANDIFUSRPEEKRENEW&
2600 THEN#"_"_=IF"{C-UP}STOPPED"PBGOTO
2610 THEN#"A"_=IF4FSET&0ANGUSRPEEK+!DISPA&
2620 THEN#"R"_=IF8FSET&0RNGUSRPEEK+!DISPR&
2630 THEN#"I"_=IF0FSET&MSLUSRPEEK+#@IF1;@-%!MIS&DISPMS&THEN_END
2640 THEN#"{REV-OFF}"_=IF32644TANKPOSUSRPEEK+32;@123+POKE!
2690 THEN0FSET&END
2700 ENDENDENDENDENDENDENDENDENDENDEND
2710 _USRPEEKIF0THEN2ENDUSRPOKE
2720 TCT@0=IFTCT2+@0=IFMSL@0=MSL2+@0=ANDIF"{C-UP} ALIVE "PBGOTOENDENDEND
2730 CONDPEEK2>IF514PEEK64AND#TMPEEK=NOTIF#TMPOKE
2740 ,42,6849POKEDISPCD&34,6849POKEEND_END.

2750 CLAR:[43112 41576 39678 38984 24648]

2770 MIS:16,59467POKE17,59466POKE80
     REPT:64;/#1FOR3,3^/59464POKE#50/1
2780 FOR#_NEXT%1+%NEXT%#700>IF%_.END__0,59467POKE
2800 ANGUSRPEEK+@#270
2810 -THEN90;-ENDENDENDDIST&40*%DIST&+FORTPOS USRPEEK+&123++#BD40+>;40BT-
2830 _RETURNEND8,0FORBT{PI*2}++@;+RNDCTAPOKEPOW&NEXT_6CTAPOKESHOWGOTO

2840 DIST:SIN&5%/RNGUSRPEEK+@*200%/RETURN

2850 SIN:157*9%/#10%/##*150%/;*40%/10;/3^*250%/3$*80%/31+-RETURN

2860 DG:#48%-FFUSRPEEK+PEEK4ANDIFRNGUSRPEEK+@10*+#35
2870 DISPA&THENRNGUSRPEEK+@10*+#14

3000 FIRE:DIR&FORTPOSTBPEEK+USRPEEK+@123+TBPEEK0=IFXOFF@0=
3005 YOFF@0=ORIF;+ENDEND3,1FOR;+#PEEK#32=;43=OR%96=OR
3810 IFNEXTTHENCLRENDBANG&RETURN

3010 MOVE:FLUSRPEEK+@CONDUSRPEEK+@O
3100 IFDlR&#TANKPOSUSRPEEK+@123++#PEEK#43=;96=ORIF
3110 _;MOVTK&_127CTAPOKE2DCPOKEBANG%3DCPOKE6CTAPOKE32RSTUSRPEEK+!
3115 THEN#102=;160=OR;224=OR;90=ORNOT
3120 CONDUSRPEEK+@1

3190 BANG:POW&
     SHOW:42,6849POKEDISPCD&DISPT&34,6849POKERETURN

3200 POW:16,59467POKE15,59466POKE30CTRPOKE3,0FOREXCH&NEXT
3220 ,0,59467POKE#PEEK#102=IF102THEN32END3^POKE#90=IF;TANKPOS@123+=
3225 IF0THEN2ENDDCPEEK;COND+@-#3^COND+!1>IF
3230 ,1;TCT+@-#3^TCT+!0
3240 THEN0;ACTTAB4++!7,7,32873POBOX&32ENDIHEN90END;TANKPOS+@123+POKE__
3245 THEN224=IFFORTPOS@123+-#-40=;-1=OR;1=OR;40=OR
3250 IF"{C-UP}DEFUNCT"THEN"{C-UP}SUPREME"END
3255 PBGOTOENDEND_RETURN

3257 EXCH:8,0FOR#BTABA{PI*2}++@+#PEEKBTABB{PI*2}++@4^POKEPOKE_
3258 CTRPEEK#59464POKECTAPEEK+CTRPOKENEXTRETURN

3260 BTABA:[0 1 -1 40 -40 39 -39 41 -41]

3270 BTABB:[42 64 64 93 93 78 78 77 77]

3280 RENEW:18;SHL+;!8;ML+!10;WL+!200;FL+!3;COND+!32;RST+POKE
3282 FORTPOS;+@;TANKPOS+!
3285 ,#0=IFFXPEEKTXPOKEFYPEEKTYPOKE
3290 ,1,8,33391POBOX&2,9,33395POBOX&5,2,33561POBOX&USRPEEK0
3295 USRPOKE0FSET&USRPOKEDISPCD&DISPXYF&END0;FF+!_RETURN

3310 POBOX:;1FOR#4^1FOR81;POKE1+NEXT_40+NEXT___RETURN

3339 DISPXYF:34,15POSCUR&TXPEEKSTR$2RJ&_"{C-UP*3,C-LT*2}"_TYPEEKSTR$2RJ&_"{C-UP*4,C-LT}"_FLPEEK
3335 STR$3RJ&_145,18,42,6849POKEPRINT34,6849POKERETURN

3337 DISPWL:USRPEEKIFRETUNENDWLPEEK#4

3345 DISPSH:SHLPEEK#18=USRPEEKORIF_RETURNEND#8

3347 DISPML:USRPEEKIFRETURNEND23MLPEEK22-KILLGOTO

3352 DISPMS:USRPEEKIFRETURNEND14,MSLPEEK21-KILLGOTO

3355 D1SPT:8,TCTPEEK#0=0-+16-

3358 KILL:POSCUR&"{C-UP,CIRCLE}"PRINTRETURN

3370 DISPA:ANG@STR$3,7,18RJPGOTO

3370 DISPR:RNG@STR$3,7,22RJPGOTO

3380 FSET:USRPEEK#IFFF+POKETHENFF+PEEK;;;OR3$3$ANDNOTANDl,3,0FOR;;ANDIF{PI*2}+
3382 TABC+#PEEK%1+PEEKPOSCUR&3^;ANDIF"{C-UP,FILL-CIRCLE}"THEN"{C-UP,CIRCLE}"ENDPRINTEND#+NEXT__FF
3385 POKEENDRETURN
     TABC:[1315 1284 4613 5637]

3390 RJP:POSCUR&RJ&1+145%PRINTRETURN
     RJ:;%-#O

3400 MOVTK:RSTUSRPEEK+PEEKTANKPOSUSRPEEK+@123+POKE
3410 TRNKPOSUSRPEEK+@;+#TANKPOSUSRPEEK+!123+#PEEKRSTUSRPEEK+POKE90%POKE
3420 TXUSRPEEK+#PEEKXOFF@+%POKE
3430 TYUSRPEEK+#PEEKYOFF@+%POKERETURN

3435 DIR:0YOFF!0FOFF!#54IF1YOFF!40FOFF!ENDEND
3440 ,3%\#IF-2+THEN_1END
3450 #XOFF!FOFF@+RETURN
     XOFF:##YOFF:##FOFF:##

3490 PB:7025SYS42,6849POKE3CONDPOKEDISPCD&25,11POSCUR&PRINT
3500 ,0,22POSCUR&"{C-DN}"PRINTINPUT40BDBT-/0FOR8D{PI}40*+39,0FOR#
3510 {PI}+PEEK#96=IF_42END{PI}33728+POKENEXT_GETIF
     PAUSE:GET0=IF.ENDEND
3520 "{C-DN}"PRINTNEXT QA:13,1PRINT"PLRY AGAIN? "PRINTINPUT_#"Y"_=IF
3525 ,7038SYSTHEN"N"_=IFSTOPENDEND.

3530 DISPCD:24,10POSCUR&COND@#1<514PEEK64ANDORIF"{C-UP,SH-0,SH-@*7,SH-.,C-DN,C-LT,SH-],CLT*8,SH-]} "PRINT
3532 #1>IF_"LOUSY"THEN#1=IF_" RED "THEN2=IF"AMBER"THEN"GREEN"ENDENDENDPRINT
3534 " {C-DN,C-LT*8,SH--,SH-@*7,SH-=}"THEN"{C-UP,SH-,,SH-''*7,SH-;,C-DN,C-LT,SH-!,CLT*8,RVS-ON,SH-!} "PRINT
3536 ,1=IF" RED "THEN"LOUSY"ENDPRINT" {C-DN,C-LT*8,RVS-OFF,SH-<,RVS-ON,SH-''*7,RVS-OFF,SH->}"ENDPRINTRETURN

3550 POSCUR:1+245POKE226POKERETURN

4000 SND:180POKE6764SYSRETURN
     RCV:6802SYS180PEEKRETURN

4040 RNX:36RND\2+PETURN
     RNY:3,40BD BT-/-RHD\2+RETURN

4060 DRBOX:0BC&;POKE#4^1FOR1+2BC&;POKENEXT1+4BC&;POKE3^1FOR40~6BC&;POKENEXT_
4070 ,;1FOR40+8BC&;POKENEXT40+10BC&;POKE3^1FOR1+12BC&;POKENEXT1+14BC&%POKE
4088 __RETURN
     BC:WHBX@+@REIURN

4092 UB:[236 226 251 225 97 252 98 254]

4094 BX:[112 64 110 93 93 109 64 125]

4100 :ACTTAB:34::FORTPOS:50:TANKPOS:54:
4105 :RH:#RV:#FF:####TB:##MSL:###ANG:####RNG:####
4110 SHL:####ML:####WL:####FL:####
4115 COND:####TCT:####RST:####
4120 TX:#TY:###USR:#FX:#FY:#CTR:#CTR:#DC:#WHBX:##TM:#697::BD:738::BT:3057: