From 3936b2bf8c2bae7dd3eb3b055944198e8769f54a Mon Sep 17 00:00:00 2001 From: Pecusx Date: Fri, 23 Dec 2022 14:07:22 +0100 Subject: [PATCH] Two sets of "gradient" selectable. --- ai.asm | 57 -------------------------------------------------- constants.asm | 5 +++++ scorch.asm | 11 ++++++++-- scorch.bin | Bin 32768 -> 32768 bytes scorch.xex | Bin 49339 -> 49341 bytes textproc.asm | 17 ++++++++++++++- weapons.asm | 48 ++++++++++++++++++------------------------ 7 files changed, 50 insertions(+), 88 deletions(-) diff --git a/ai.asm b/ai.asm index c607b48..430bf31 100644 --- a/ai.asm +++ b/ai.asm @@ -514,64 +514,7 @@ skipThisPlayer lda tempor2 rts .endp -/* -;---------------------------------------------- -.proc FindBestTarget1 -; find farthest tank neighbour -; X - shooting tank number -; returns target tank number in Y and -; direcion of shoot in A (0 - left, >0 - right) -;---------------------------------------------- - jsr MakeLowResDistances - lda #$00 - sta temp2 ; max possible distance - sta tempor2 ; direction of shoot - ;ldx TankNr - ldy NumberOfPlayers - dey - -loop01 - cpy TankNr - beq skipThisPlayer - lda eXistenZ,y - beq skipThisPlayer - - lda LowResDistances,x - cmp LowResDistances,y - bcs EnemyOnTheLeft - ;enemy on the right - sec - lda LowResDistances,y - sbc LowResDistances,x - cmp temp2 ; bigest - bcc bigestIsBigger - sta temp2 - sty temp2+1 ; number of the farthest tank - inc tempor2 ; set direction to right - bne bigestIsBigger -EnemyOnTheLeft - sec - lda LowResDistances,x - sbc LowResDistances,y - cmp temp2 ; lowest - bcc bigestIsBigger - sta temp2 - sty temp2+1 ; number of the farthest tank - -bigestIsBigger -skipThisPlayer - dey - bpl loop01 - ; now we have number of the farthest tank in temp2+1 - ; and direction (0 - left, >0 - right) in tempor2 - ; let's move them to registers - ; in temp2 we have x distance divided by 8 - ldy temp2+1 - lda tempor2 - rts -.endp -*/ ;---------------------------------------------- .proc TakeAim ; targeting the tank number TargetTankNr (and Y) diff --git a/constants.asm b/constants.asm index d438c99..d1f0fca 100644 --- a/constants.asm +++ b/constants.asm @@ -63,6 +63,11 @@ TankColoursTable .BYTE $58,$2a,$96,$ca,$7a,$ed ;TankStatusColoursTable .BYTE $54,$24,$92,$c4,$74,$e4 ; standard order TankStatusColoursTable .BYTE $74,$c4,$24,$e4,$54,$94 ; Adam's order ;----------- +GradientAddrL + .by dliColorsFore, >dliColorsFore, >(Sintable+40) + pmtableL ; addressess of the P/M memory for 6 tanks .by <(pmgraph+$400) .by <(pmgraph+$500) diff --git a/scorch.asm b/scorch.asm index 9617217..75f7af5 100644 --- a/scorch.asm +++ b/scorch.asm @@ -26,9 +26,11 @@ ;--------------------------------------------------- icl 'definitions.asm' ;--------------------------------------------------- -FirstZpageVariable = $5E +FirstZpageVariable = $5B .zpvar DliColorBack .byte = FirstZpageVariable .zpvar Gradient .byte + .zpvar GradientNr .byte + .zpvar GradientColors .word .zpvar JoystickNumber .byte .zpvar xdraw .word ;= $64 ;variable X for plot .zpvar ydraw .word ;variable Y for plot (like in Atari Basic - Y=0 in upper right corner of the screen) @@ -250,6 +252,11 @@ FirstSTART dey bpl @- + ; initialize one Variable in zero page :) + lda #dliColorsFore + sta GradientColors+1 ; generate linetables mwa #display temp @@ -1196,7 +1203,7 @@ GoGradient ; nop .ENDIF sta COLPF1 - lda dliColorsFore,y ; mountains colors array + lda (GradientColors),y ; mountains colors array ; lda dliColorsFore ; one mauntain color sta COLPF2 inc dliCounter diff --git a/scorch.bin b/scorch.bin index 3e6c8e9b46e491689c11c3e7db1c4b7256049221..08e597f361882a9156827986289399a6045ce1db 100644 GIT binary patch delta 7783 zcmZ`e2|yE9+LD{uG#e?{#P!NM7sLqIwf&Z8}f^VTx63vF{m-xV^6%f8{1oEL6k zwl3ow1?GEXquau`1u2G=s(xiZdV4o2--?E|BjZ-IdncEUb=+cH%+=s+oB}`3QFuF? zcn6x0hAg|#hr5w#2TCG$-JU6*wt*>1Y-{hgMA9}VO9O3_p{MKnl{S>5YujXz(^z`~ zP`r$px`KO%KS65?Kp5AiwTwx}3Up%=nydiX%N5moOK!7vttWr3tR+B)8*vLc&{HJtZB_YT2Y=zqlLv3gKQ9UXi{ zc~}R0f;I?n|82TTn0y})>`HW=h#l%6~1n<1tteL zfng4f&XZ}15b8f9Q=#^YEjX2-0)}l>TJ&l$yA5k$ZkI?-DW*GgWg_P?@}}@@D5>#bpMFfw>9u)hcHNX6C_!=fiZr!A;RhnhFR=mff&itKRq zedCw-pNySaYs4opg;)s%#uPGj2>%$w5mMQ&zYntr1j=ZM<{>-)|0z_Q>Ipkc%O8O&${ zZU+TOY4mdzDo+3pQc@bL6F>SJDQ%Y0R%iZ8&I!;=QI=K8yI+>l$}1wh0Fd(@?Na*2 zIycKYH)Z$GIyV96$a?}1CIGZL@W%lyfPdvdt^*$woE7EBW-Zx+vs%~m^~iWfu-i5K zw^eJp{L`KB+Afri*D*!pgR$PeNo#tX`5(MlU7-us)kz16jS}|x>+9UWH-^UUix!XB zB_2})8qnffV69;6j_B(n%$I9Kvj+Gr6u4GA6|#}H{DY`z=OQ;&Q?g z>ed{n_^PkRiT|Nh)8(^DAFklW;1(eEpz$e-D~-)u417uje9G|koJS?j=TvyTNpj#- z{oJhT%h85I`7!!L0@;z=nz2fkMj$U z%fP3Qc72=9o6Rru!Q0vOg%Z5O;tpWT^>l28^BW<$AIfL85D(<7-k*k>x(=q{=2qS5 zCPA>q=*3A6<@fa<{sF5)|7^gg1W^zr?V?2CmJ*VUo}!MCooEVmmAsDTP!@6<&6lgQ z%|`Mq@+I+se&JiQHNm%{wnmtgQBJMhU7MARF&o|om2KMNYWOq{+%pUwG<=>1*GWy_ zmr<+RRG7dFa^XlYW?x7}8FO_QrLGGfUHm#wShEF3(JKm+3)El^&oYq2{!c7c^WaDrt#iXwB3|JI%KvJ z_LSg~XZMBuZwzQz?S*#!OAVO1=s5Vc#fN+y6dp#chxyy|alwrD23pS9NBaU%LB8EA z!IOW559OXu76eZ(pP$#J9eSGvj!>E5ZQAw>Ge2+OHhUXlhaA?v4bxtjD&?G$IAL#l z7s@c8>qfD+)q~E%K=mL1l>qWCw1YtEIT}{C%6JFJGv{a!1oDoszPuZI#OhP`6RON- z=98a-XHy)B4hg3U$l8#ns3G!v$g`@U%;tlEFC9}dmH8$o%Z@axv+NTrQuFAb_07FUqxMopfxK6k!}yZ zBC6zykZoo75GPPW+J^BNC<+9Q-b4I74G{hVPI^sbuc@De%6}LB<&(lk1U)9?e(!$% zEe-m9lPG@?J}t@`5o6|*mo~WBCg4-t^AMHXAS!9sb6Sw?hC3f$zQ7j9WeOD$cg?=^ z6KIaoyU@c&7Z>?VRD=|c_Wplmc#M|(d(vDgoXiM~Ew3qf3{!ZyTovWQo>mWnC`JuJ z@m21P$0af~1>9?Y1X=z70)-D(VDE24-5Z72zYwDPQi$#ku~EpVTy(HdC*0dD+$N%2h^5d$|e(dNWS znuFZ>_#aFT5MJicV%^oR{2q#1P66M>{tHcVRC?touaJ^I^4xtrHDwwCk1TV z2;~b@a=Z++Z|hffA#*B!1~y`ZiWqg1gz(9uUP&_;Y0D9^D|~`q7}OxEpa!u)4HAW) zhqPO4UCql`o%I`H31^}|-N@PWFDSSu{Vs*Zp6;3zZQ8T7bXQ4+{)oa-ON&vPGYn@u zEtwtR15TPAF-Lk$OBO_U!sPV`L}^K1L^wQuh)9{FT@O|X2Km`u^_o`CZ#AP1voIR>TUd`l?#YxLHsmy4OYVsyC}&D%CSs1gQT z04@YGQ^R3%f!9a@H&s)`!Nq6mG#{@LjqiMTwRM%_7bNYHOK|JI>M-UHJ4new%X(9)v`+!9spB~_3 zUlqRX<>?C@<4aHH$JLWDGbVe$1y+KyaSqPKdBR>x$pk1cS_fx1q=Rn?xlSELC6Q$H5^1oG992)3 z`jwE6)HA48iQCL_xice3H*JfIrmIP{ezcC0JBt37Y51O3L<@>B}0+u9jUXJ5(OE zXThG-vedG~ij0ai74Cce_U2VQSFy7~Uty{^R@qhg*UCGU-&Q`T4Bac+n^rc9gw73# zl2maHQ1*G?4*q+{^DUeYj0VL~0E|BS4T~gIs12^iq++hG=lxo^E-T=Y(1D^G1PVq* z+UJJ2L^mK=6VR3)nn15AGOpHrLwMF^nZc z^PY-<1=*bth)Qq{yBz}54xFdqoZ+Ct?qeHZA00OOQ2>QI$kO@cR2}J`A55(w-_B2p zRwVW--w-+{8V=6DxM3KJFW9*-1NDI{=DRA+e|SW;E>JDzC&A^Z1ukvh(VV;f63xl< zAJ9;LKMouP!1fPlHrsHSW^)WzXg1eygJ$y#19ZP~5Y-TV!5IJ81|X>gw^XSum+3({ z&|0q0gAyQTyoo%129-wU#8306soZd)UwQNLCE9$6hO~T_?1@Kkme=CF%Ku!!jfU+w zJ+>X@4^Ri#j{tSEALU{d_teN}+{h@-K3Y)?hi~DA;m_D-!#J4v0d7bS3a0e;Wi;~+ zQ7>euNP-tGg(tsoe7N})unq@f9)uc=@Hr@a5}bS8mVuK4C)tx1I_kcM%)otBeG;uB z{)_ymvt;HX1iY&jO-)oJGH0ts;!>g|mgfCHfRIjvWCHO8x<1edDblrRH(;&M4U4I= ze?=GA*T_<0um<^`EDH1xRuJQ^KAR zQXE*;n?mZtd7>{!s)*%jJ(WS0Ee@csrnX)%yWEBNJF2P|0`ktq>CzrdJf2pOTZ?PP z#Fv_F5HK&_r!U)R7`oqwo)dGPR6Y|@4s9^#j6px=YHDz!QiitHwrSb1$3q=#lbb^2 zwz#HHDTLb3_nYav)`u{vud)6tzF7azZivWk&^&`%R6jQ#U(rA_&B;E0M`InuJ462v z+14=rHE{ij5}Jt*#SVl}Xu-PB-n&|!3T>B&UK&`ZAeSHLR~IV4taleH~%mB^?Q2fz|sgWwb#@TXxb0Ee*SXs>{33 z1;%xM9n#UvMe=Jxs9*Iy5YnOs+@Oe(0pSfD9d(1LCi9j&HM6c5`d>m_@z5rqxHk>Z z4ud!J&IH?mmKh+`;9x)^uX}`Km>YU%0{5F8B1-b#xZ!#waCbaPLas0Ib^d3A?Uty( z`lY^UBa?mH!{x|LkDv<%C9++?019-|2f7WE(xN(aNY(H{2qBJCF zxu18#0a)awV4cj&1K=6LOBj>A%OjlT9$>M1qgQ$N+6-o%^{|w zpor2kpm-7^aB-BuTWOLDt2*>6{~ZNF$o-@s5cy;n80jiQzMPu;^5R#EMbi>aFI1Y) zcY(W+A)bctBy>HKboQVG!5Lb07fd@_FQAzE{(j{HaD8D0m+oE^LtIk=<;NP(77~@B z3ZB}CUTi`)nlx?N1LtX>eE#}8Z5t0wYMVc5tcP|qN+26jLP8tsAp!N$nn!x=8l*0< z2Gq$1-FPXa1QQg1E!-sHm+B)$FOk2cc+P;LZoAc?PH60Ls8_5TZ=9kBwnI1)5iVj( z6LHKZuz;OP5HS|Y8FlJ-FQ@{9iUl%53j}7XiVyr3x0q~B^>uuy0IJW)Ua#_DJb62nB+%gjMC91%tx7ovfgKraP;{}2!$%T_K{qmQW6(ndq$!ogystuY<0 zLq>?GLv1wU@-md;E!=2uMt+XKxcCW15|rjYHo;D10xBWcLiB^C_sg#^xkTKr4>X6+ z0aB9YM@=TLq%ER~$R}yxsv;fJ^m4yaIH6)VaugAt^aU{>!d~$XouUPKVpYr}y&`UR zxE8KYWlh%6HW_FLRsthAknT&x5-z<4Y&$xGjJwpJKT2!ha%yviqT502nQ5SVH{3`g zw=*U=#5E>#%^@Doj!TB_noj5j7He`E_cnSqebn@yre)2|&CA3HA+LL2RdoCqI&{2C zWNA#$Kw}+$%q8hd;I|5Wsft7T7gSK2>{6j6DaLV39I1GA2K>U&_3Zq>B`Iik3j47k zTLlr-P@sZKuAx}P%r>AGnowI4awNVhr%c<}1o9#Td6XdUtRPPc^58>*fY}C3k*>6| zw*IhbwD0)v=vnbg(Tn7Tl@qA*#I!P8A@&G0g1{S1j4%0grJv8EAkhECX0cs(7|kYh zX2f`qnQX8+b_o5pTF{fo`8e5{%!sM~oh)xeno*A83~VbT5SE3!f|AKQndhh_q-511 zdGZl-k-WDmf`0F?n*Dgt0nX=uw*%~dS52h;mjth#Flu)SvkMxdBzbiNoqWWb{kZUV zs+U$z^myrrnr#KnR=C))y&p3%tudbXwHZ+ zbj4+OZ`E0$HipKq4#I?xE&{U5cE+z6aw^}rZD%z( zZ298ekc)?R*zDw0FVr-?XZ`enlUK;1w6(fdPM+oOxlNpxTXy7h@2z|OQ>JHa#D>nR zpMLSLpMD*ZIfpPQnQJ$LeRce$|8I9)pPIB}Wocz~?E&)E7eD$;U#{7@`|xWQzV@27 zG-X@MpU>a=QbJFNH;nvgX(8R~bE&q@pn^}OXNuZoR3Uj|)5}ho9R7~|x6dlF>^YxN zn>a&@Z&zjK#^=Mg5tKkluOivw0E>+YcQ`&KfIueg+H*gX|KWT$o(4IJyMWY{RAio$dqmyX#egY?9bPUC4k*}U}7G$p8 zgw7=bM>BrSIgU_ZJD2FNO-2xPZAGjnNgzi zTadfXyvD^k0ofmG*1-hf1lHT)#LG}aE_=gDXzA9K<_je3@dfw}%rR84Uj)Ng5LN<` zYDkN}Rb@d|Crc>rf$r79TBuiio;nPBuOS0&P#3k|5+v%WgC%ZGBT;H~lTH-joXcLa z`k;@B(4yy99a9WjsnnSxg?-Sw2B-(k#g)3YlO(Tb*3}!U$x*IGJJ^;nQbwYSc)l`_ z_yMOYHD1oSZ7C`cv$H~ncIC4>86C`R>)`Xs*>-Jf(C0H9fv;7~k97*ke%l4!*RhWm8lPxX1Y3 z_E&lWHsTMd3?dEBaa&3>b``t%5wmjgVbxYJbpwjhqitJY)Qb2-WP`KUKTB0vl{Jdt zR2AKja8rDuDE#4=UBnAGcI-srO}uriH;i8#JKy0^qLyBm2&%k4c7_~e@LdYkc%p0K zxGM@G8C$(Pvwf4eLB@_-&M3I27<&ZDOX1^kMce@63VKkcw;SWpQ%UTZnD(3`!?P~! zo0ANiT{s1EM)0u_2ipx!1=dF+?)M{j&?e>#Y*I?1tLxE1ylsN#qz&sWQr`8Nl%#Hm z7#aX_-tCN(yt&cEywQc~8Q$nZZ@?WB+`|C%Gf!wOcD#b!xV)6v2*e!4=sCm)*4YXF zceOO{{1391W-D(+ym?Ay&z$3@enNcq7FoH|Q4EU*hhia5NmO^DGj8Y11tV@x{N}-bhid{XLXVn~AEb z=%HtAgo$I@%OexEr*E)B$_&zNX#yoV*u(Z*HBr3UB&q1Zt9-}E=WnFjaF*}18GHt) z0(785kMI)rsfK;Bx4>py8NZ<__2%#tSpNgu@9S5>C-aJKH}W${N(X?nCN)RaW}AFC zsy18AX6Lyx1#C{9gn15lm^Kuh)2tW39;09hfX#d|(~gK76U5%yYeNxA?3F3)g#fuA? zbtxv03p>j<$rSpa{3`09n$_pk;YKu-XvZI*NCIP}UlgIlaekW6W$D_0Tj4vx8mVxH zrk?I?6kU)G??Y6xu0>;ZBOgjqjBcdanS99ObAD5%3u>7KwbY&Ud%{y{>n&L|axSyB zUbJOunjpwk6x6JP;6uNFDSwZ(7vnay&<8RsQ+XFIlxg5j8S6-49>%M=Fs7kC28}(2 z_1U||IEyros@7Sr86s-y!Mk33 zmqf8$SNzpPgw1b3IHaFeTPXi`rtLHwI6J6gb$w^}ueETv#iPUAHoIW=fY6YSvSEIK zZ0UAcYuM*!zGNHi_d^S^ZH^45^=J4zx3ci&fZ5aBvzm3o7f9d;mKiUQ)@8JN*5GaS zw#AW`!`ioD+7DAo&N&DZ%m=6<-Lu%+njsl;o3dwbtMeR1DiCvtgyk$U-VPGNB@#G6 zzzNoqcVSOhJZk=nQnNt-3Y<@z#Onh?)eExQUZEO;x)1pUmsn7Z!lLbvI!1kVAHN*9 zT6KTT@k4$uzCzKd*^Lh7?MaN@yazi4&Gm3zd%TINqP{dq8YSIL)W0RXYp>kuc-0xN z4+?S}!QO6fq5yIzsA+so?wMqjIjWgCXYOidy6yR22D|xNj-!lPe*%GhN2;Pz zo6*tDLS$bAxi1!S-($ukB2wTdUvHa#`4nj2?r( z3-N|BkyAq9)@X-fHxE#c8tp(<8);eC;VLHlC>$0#*(Y{0)BsQ=@iJ7gbAakb&58Uu zP|O5{B07rop;PP+CK*kn`3PAqNWajkO==6Gf(1@ut@i_y1zty5Qd0o{C!v`Jbk7l zxJBoH6M_GH{;ODAHpLxmQ9orNP<%4Qn;4IOno>tRhYwASAe!;pQzuIQwH1FoHJAv% zZqwq3B{+RrAh8wihi5HrpXN`T$NV%;HMu=LhW*mjhl2V}QpjH7=dfAfGtg-)4Uh03 zw*zdjjF%3Uv*mqNyqqoT+i#W8K6qs~J?r)DgWJ{YzB~tJAA7*+67Hn=YTuBYIY7U> zy}w$+Rt`BZmFxi#sLrkg_@?dXb$l&6VydK2!=C@Dn#p8e8gR^J!g7GtXX@6FKX1|`l4{_#6&|o@zgA7328=)NqJQ$%I1m?l4QSdi5 zx-Eq^IB-7DvLK{Cqd#54W)3+qnXs~8`CnJHv5KD}eaO|O7|d*7n-rLeYRhd{L5{Oc z4pgq7E;h~dkzW84;CqDW;jD=hxdQemA1ToD zb|xuO#0i(60I1Fg6dl(q0U-+PIon&YyTD}MeFQI3l-ByhM0vL}j(vxfYgir`*9&0eHX7j|YZVDQ2@Qz*EH zN|EmK0i@O%gVC(r0@XdMN`1QE~%A#Z_ z{@&WtnQeHQ0!{ABEp!w>T2Zgf^Zbb-d~lv8vATDcxA!#5~pOwq1`!|acp-VV_VqS#|-k@RsK4i!I9S+eI^j$SvnU!#} z=|JIif?S%w*PjY>3a>*%1u!CCEPr|#@g1h04#=2M2gJ_e>dwG0yzg2R#lHx~{gQ12 zH$7FSg^SaqrXqF|JQSO4V#8P-X&U z7Mle(A32+8xePh+Nohjk17ZZTo6TVMu$fTzXED!dF^cl^no$S(beicH8)X7O$8sA;$MYv-{^c*4qKNUSAt+ISm>j3rTwW}nMK}j)GChnsh!juB4 zr!C);Odgv7)uo(Gx6JGKlFljQ#(=xBj$ zL|1~L8n_Yo65DJ92Qx3g4I8Y2t?rZb1w3yNP1xc6i(>8Vw)R)^eH=cuXgvOIkzMHN zqu_3KrYs1FTH9AU4Z&sB_QBJGr`gke9W@UiFLHM(Por7bcd-}o2A;ndfvok5r^hMc z=r<}x<7b?C7Rh^wQBW6C38@r98?=(3jS{7A)@@>RLN_g_tp6q_hGY)OcNpe`SZX5+LaF&?w`u;+vX&t$OYg~ZQfiHB== zAMROVAd>LPr9LE|*wiO{Ai`>2(GQ8EaA`7e3G+*h?vvN7Bn(~eLl297 z8&@m~EP=KfblRX1#3u$Eqhx4Xb+eA0&=PECol+kxw=Sp;mO?hTd7z!VXL$^xnkvhW z;*0eT?h#S|G~?iQH^4BC3e%d0nCR-d}@=KN2 z%{X*G>|8`0fYU6amsE?Lj++N8t}qLzwkY8>r<(5G&w2!t7Sif0Tzuu-Z?2(Jt5{EG zkp=WRL3iVGF(G~x`_09qQBRt8lSUm0T9|ckPMly|^Zu}&r2Fvy#sqs+><1wY8o&*S zC>apm)RW;i=?c7Xx%=Fld}y2r1=VA#fa1;@p^pY{Xu1h*1HCptYKG(hw#aLqAQ|C? z=9|EMzC%Pw{)!upp}^hoBnkd}xo62Ib=F%p19Ib;2B^5fF7})+Gzoaw&1%wCmyeP> zUWr@`2pVoelUFo5_jskBi^0!jWCq4!PM|}H;$>JyyHyFDuVdh7mf0N-4aq8KdkW24 z=Uj+ezR=CUyJI&%fWHyDT^auZkbb4%*4nb4d4(6=wqhmWkIgIe#1$M)uXeQC8s14VGavF$QA6w_CtnSVYM zZBV@1SH0*%(MJx#(q9T5P0u+92T6DdW6Z1!bBH`>3A756?v*nMH~j6&Y08l!4DAi! z6ywlUUjC=*paKv-7nIDuopOQXJ!U{8+q5c-km94O=D_pns&b+O$HzrF-mNpM;SxdL z!bjtZi1+Z=_&~X451oV~yYfW`6!t3=;zprU zO&X&~h+jg(HAruZS`fCOo!8g6yQvRF93B{;9zuW+W?VAUk0P*Zf?wpRI<)jTt+~nt znjFu#GWnhQ<&SIiS~Tq#I#7>3t%t(s;Jc)7+4#@9q}5;e8NeGIJq+D%=-57+5Ey*) zF!)SAsePj1uSLo|7M~jVkP9z`jM4~&Z37pCy%RlXl#$ykH0BGS2J36AnK7~tw!mUn zBXl`AbW*I2Z?=(x1rX6hgp(K%MI8N4Sk6Wz2%G?w*t|slaZr>9g%u>21_OfI~;*KN&`0r4lW-lP%M3t!Y|2h!crSWBTxuI8KNX~)ej$~)3K1P`}#j|kI3zn{6z#T)j(?<9so6^9JZt2miquL?ycn0)E^ zMsvE#J6GkMufm4aQ;47Oo2#Szq7zU-0(;$ccNJj`8#ljhGi5iw@wT)F9#_Zb}VRiY-sA!24-Et;V0F zdU-qvg3r-+T}gHCfiEG?N_7H?mET zcUTtE5sJeX*Ia@I$Mb6!%i~UDN0>n6EXpU|*Pz}W<4JKKMqj==rv{MLO3$zSW#Ixt}V=|qhA z#}hGH#mUl>ub$-LugoYj@+Y+|Onz)^ETgXv2A?lVZqm=qNwH?ob58ylp-r(aZ_4k6 zX1uwCBB#e^iW}7@e?wJLcZFcF!qrLHgd~XW#weo>$n+ zwR!tabYB1X^E?0Z@E5{d(A&`TZeBRnW4O-K7;(FV?>H`GfH@SEOxw zzW(KR?v9-v6R$sc{_QWm8g>ncGLHUfXuxmfWD;ywVD7)9UBh`DG9nkB-EzcXHOG9< z{^XI0S8VmL-^>{sJiAM~HgDAs3Y$GKw{7C2H2Cqay|E|E>0Y>$O@m+m;FrKC)1}6< U@FS8b0vazS@mAaQV4ExTf2T17-T(jq diff --git a/scorch.xex b/scorch.xex index 7556885e563d826b1e69f75a3599e79cae533e25..d690d2695af49cdbc7e428286ae06d89b44d7b38 100644 GIT binary patch delta 8117 zcmaJm30M?Y($h1;=|GQ)GN8yqLFG{KT3J`4CYqqOi(JMNh8xVNIEV_y89ACu2f?RY zGB^TFXaoc?F(i&?qO3!r+i_QO?8YP>tQa>tCMMBjfBozAAkifMKk#+GSFc`Gy?XVk z>Q%p+BQxj7I=*~``ft})uUwZ+YKY_|rWdM_qDc9ZXsyY@xKl1f# z4Bx}X;_J)f^fx0-0rla$16qHJml~+QBWfitMK>dnd_B@_Kn;<;*Mh%Bj}mOHuh6-0 z^v?)Xu@Zf}ftMJ1X&c;vvcr&?K@S)}KfO}MtYlD81TSGVhKo{GjcT?0FhcahRJ1=5 zrZlzpnWxday=Z)fc||H^u)~T)K}#53VoauuYPv62#vEJT=1g1d(fp0fi_5>^mHa5S zj!9h3+Y>s=@U|68Mt>J>T_bW&y0R5T>_FdbMIYh6uJCku9EpbSMu9q%x&t-f zA6A6wcc(H5VK%;2M{@;jm7%5seM&28&^B!{%V}2A0wM`ACg9Kf6ZSLIoWfHq-=s1B zC(6((MbkE;a*cV7!s>;#R5od#gP4dmrz@7Rf((sF<*r#NHFIo*`E44OyAC#htwc8q zMKH8KLov-MK&yg7~z=clF+AcXRPB;j1HaK!D(0>ET%wXo<~;FhsT6@D)cG!cCZHHJQ|ttqA)+|0Zs`E z8KX~WUF8N7w&iQkw;9|vRs($-Mf^_KA10KqLCHFzUZR~f3X4=22BO5d8B^Sh8KB>< znV<2cY9#5^q3nN~p8gXI7C$n#6fGjPb>^fxDqPv@*)q>h1 zkqypW{d~2X)wRt2@oG2b)rjlj6P9-{G83pcM+HzOJUc1~+VN3Koj#3JGe1QTQBFq9 zk^_mF4-z)2kHuT-QcNz9Le_^f~EXY!*nVCf?=8z!8)X5rvr6- zpW%WOB)%v$ov&YsyrQ`F(6%K}hK-80Wl@IL6udp#PHb+_;C6zMf$GqpIsOP1mCClm zd?}4aZa_apz@AcS3oVTJMoPCyX^WHaFFo%F!%V??i>u&rSxPIfiTDIyFAQ&&($`}Z z=2(TY=W(op03C#p0E7+zEp|dP3=^2wD`7z=Oks<~U#EhrHup-uT5uCvBF?_CJ znJe#RSndkTt5@<*3`dnFx;`9q3JT=sk{xg*JKzI5z>o30sg&|waKOp2!zr;7sQY+t zte0D6GM~#P@osE#y`=PrvecwRU*OZR$nQyfeh(^)MSo1Nso4SKxyG!E1f9s3s#wq^ zyfCF6Ijc1ebSPt5R`Z+DY#Yi< zHhJ*!@+9VfnqOkr=E{c}GF|y|hIynl-?d5G9T&w`b*DtJ)s5QDDp3T}yivTQJn7H1qC0- z*6~M;6*TDw2`WB_t*Z(}yDE{U1`WigHUptbGB)Meu_=RNdu(IV1V^yIUZ8=?5(3A? ztufA~%|oJfR)q{u1$9c!$1eaeTyqs-UV zv^OY?`+e?w=_pWrr433ZB@vFdjETg?q&ZVk5}P!S-==}0zs&eH4TJr+xLe>!ng{W%J?_sZrYPm+@u#7F|2{wdu{vSg#ddr1>s{!#7 zSp28r^eZ?v%}4(W^`0TzLFz-4o}+TVw^(>fjTUbf87yWyMeHFmZM^bQs=_*vZRIoB z?Yx5B0mqHk0Br@^^*sL+s}H}1BuRXyjrFgFdCK5S53XHg5+G_q3Ttcl-3ia(;?)~p zpfYjg#@YHSDbI~;ysUQ%cIG-m27nZkmquvwh0jxDuB7l;zXcuo4G1(on2C+mAf<*x zfR~7mUq*cV6V?QgHU=EMFUc2{=}4%RK&T}-;vQDbJ45(2eJVy=h^M7`H ztWA(1X=b0Y8|6j{CqM)fi#dDwWSKO$V*#hNGEK; zRQh;oHTF#pppN3O^f2l@d?ekE`WjzI_mjG&<9q2o)O75+)l;=EePt+j!)2V(Dnq(# z?u;;pOAMZgM&N~8XL#&O2UvfOAnniPaxWBtc5*HhT4l^(ymu=zd*;^ubQPDE=E&x8 z#a2bIbI9$y0XbXDjNRH>62cV>II;y?u?SQp6#)EpI+}?U+8I-I*&*D?+a+uQ_vV0v zO#~((+=<)iY#i4G{dnlNeNVFqZ9mXt5NotPgHzIfHKpYLn)0r89i_$Y8Cz+{T_8*4 zG@=!?REpGD` z{3&pA6kAM00XBEFCJKE@ZXVC{z&%}6hj4Ka2;w@Vz45#Qt0h~KAV_-?dlQ^{wZeVy zYyiX4GgW%nm^j#&cmRKA184UGYJcJo_}_yRY+!$8K+8tx?Juy-c%-2BstVJtivXAssAhhFv<8U%}kN!*`Bzw21Z z_7&NkN%J@2Jv*l;;hrpEybHc2|QY(l3N)>N(qQ>nnkS;15TekW@wwFAqu=TKYlyzCI_JDiyvC*7Tm zyWiQon0?c z)B+r|`=iB8qPyl@p1Vu69ihRegErKlV^A<0N6-fwXKtd|c(r&W%=t810_TK%1Fgo3 zbT5u{h-Tm6-mt7Iv*S;O+=2DBbQ7t5Y}QSNo$uF8_ZWyWoRzlSjWV2*wtXFC zcu(4PFUs(~wC&$GSnnC`4)=0!py0=}x={00U8wp4-8J2py1Tjux>@>}`fv1xJ#~9J zbRD|ZoUWXAayI7e%sZF!LC)2jyE#vCBzdFrg7RL>WAawz738V&I(3!!u-x-wOXhS}d>EUYrGMC)g)}mzJfEZsF!hJAc$9@23;zJa% z7w+$_;MO}(Wd)hWs4?2(=UiEV)cG(G)#9){uTT-Va*yxInhHQ3CK4Y86E@^uUZ@oI zfhKQo^|MiXE( zkxR5lzy&8*E_Mu#;`E%+vw$JD6Z~Kn8_#VA|G0xqRP#=-dLn&I1<281rJn^*YzID_ zqo;1+dAYvSJ2)~I?H|%yobfWv#T&2DT!NqRI?W{-`{_RA0J@z^R3f*j zr0o)%e5tcD;fmMhje%5Qd)^$X6SwEhjJchg+R~@IarqJrXpk<1=88*b121C_ndhc& zX*P|Ew}A8I;w*DJZZNm9!6Dbdh5lKonUT4_f)cTrk$6G=s8ukgu&vmaQ%prGkZ;5b$$HQ579Lw4T zjv&@#XG#S3r6$`)vB$t?oJj9K)_;sUcA=x}I|yX_oq}WN1m4e%p*-+076Gjf+38^p zVT=d+i~BRrriC#;fJDCnh<)I(plk&t8?&}algesH?XEoEw(HIy;1DY@jsSh8z-Kt& zO!x}l6X&HyURYP)Db{OnZ9#w|5myLAC-LQiP}RvS?gWX*V2LM5q-GPvv$FwDEi9$F zu(@y?-5%L^f$R@ub;$1pw|}=Vn)1R6i;V6S*=<&E$d~Wam#s83UG77Y%UQCAB##Xe$Xo{vAh7Uni57;)V5RVPg`i~Fmh2|(QR78bkjxT)<-6R zWQQ3Qo>&s#bF2CM9G32jTetv79|=LbRg?GS$LVED7_OOZkpoMG5XO~Z|bSDkV<2YD-l zW#F{rrIV;|98@};!Z@ZhKz=fdiN^a%Rnn7LIQ77|+32^YrWMk0hoXJsl+2H%z~=_B zd8VcmP8xZUHhxqZP@9VsQ2YpYVKX|lOP`c$)u^%(-LFE6@i{!&;o$+OyrZA+ zb?g`L@Bjq3URwR^hXpm-mt`4OCLd4;QV1LMkdoH%rFhCg&*j(Py8#Hf9Wtp4^<^^$ z#pbqK?8->BlSiInT6?{f?%xj1OdN0)ouN3!%!BU=HY`HV1I{M;1Rp;*UJnTe$(SIz z)PYa8xCuUY`Bu2mL-~czwpB(zl)MnGen0{B6(R@9$rOE|b&};r>jdHj7yRP&Zm2Ex z)_9A9)lc+A=MFOW@l&_s&`ey8@}SM*h(k(XYSoL0wQWsUeQ2!LmV8a zjF+Fqs6ONq-Dbn62Mpr7!Igp=eRPPqfd3!q$)Z7ilLRtQ$am}@8?{uG!HudxfOuF;)I{4V9tY^>|;E_e=n4Ni8))eX(+&GOKECbwYJ#^^@vO(YeUW9$8#F zzW0CJ+$~P23{|7=@bxN{{m9nNw`vZRfM-=N^!Yg)O^e{J!j~R!I3k- zhdF9QUsWMRHGBm)R6TX(M^)@qKFE;e23bb78-Loc%MHGhyzU0p00fR2)f=_hxg`f` z>PL8v51cXg#bxL|{-JszXw$1EkQQsKYC>>vHM6G*Pp$Fvcoqg5Go?nXx7MJexTGd% zG7vpwwAgo$`eX@cMV$H^nlXfH9GHR2YCQ478pZVApO832*Ca;`My?S;7{@_mL#OcU z!)K_U@q@#Q<);p#DR^FO5IyN|2zM1S^{bFuYzNqm+DTMAK2kf;VOj)pqXr-!0@kU+ zD(-69FIW!7NyEQ|nT;^B5psO4_bNEf1xBBB5qn|hom=|)%<9@ub8Ky>dUNfaTG|)_ zf3Lw`h*90lW-ME_jMY~8!|8~RZq)v9`6_EXbENjS14~v}mo{c}!-oKE_nY`#qyMlW zBj_H5|6?5UYH=-C)lL#!C@=uJ<9k$G+q+Zv2CR<&eE=9R2!w0%5aPIJ5usea%r-QH zj^pawmk>%yLg}{%>EaN;p?qYUDgjOisM+7Y*&wP33p7p^auUFRTYrA?szA14CjM!D(@%Cr( zu>nh0BxmkxHj-bR?T6B^YJiG67y>vW;vbQY{=X6Y%v<|*^w$=9p lIbR8ua_iuOCw%-|XgX7W96ooMW%F{KOZ@{qir~fQ%V_j)9a5}E_0bcrhWs0SoMeByiOxi!E2~g>Br>h% zMcQuK4!0n61X{zOy9}V8jg&Cq49Z`{i&&NRqL@`8wVEG6h#JyRaWpJxYV9%4p!bZW zaW}I>{CGL0SG*iNm*GXa4YW>4_k>88XG%JzCFme6;0WJEL+iuoqP=!66 z6^QXoD)ToAZMPUXY(}XnbF76J}Rqxom!f12~FO3MG?&2*Gp?)!`EvvnN%(g-mx|qdnV^uJ=^TF>$ydW)%MPc~= zBK)cQ*e^1}#c2;up|CvWJ}!^^L<&an8BU6t>WcDsxps>fjs;goO_Rrmi1mXPztxVh zb{e|0-qyY&X~wh#;b1;vtfu2#6XS7jR3a6Jm#lh~(&6$|*Pidp0-nvF>IQ_>==>&l zYepxcksZ!m`D%@q&7;C`V2u|Ox$3&`i!iQ>-cBj7r(!CFahM_)-qRIJT|SLgGWS;z zS>931mI9Fz9rqPus1Dg`S0~Dd{nq<#d>GC5X+y;PQtfkMex7!Q7{Lz2zDIjO z45D5X>&=EpG+M#6hMVRov>9%uR}|WfZoDJgO6>1f;{)4*BS1r@`49{#jctYXVjA_o zj_zaqdf&-8uUkB5$Ge&1-DF(@@or2GzPWyMFig2wDWxUY z>d3_}-OI)UGA{!IM_}M0FmMsO-PpA4F3?|y7sPo}3vq1R{#k;Aoq~i)KvA)`!O*}^ z9Z_UG^Z9zgA_0CIjf?~1qLk>?dOR|I{ObX6{5L>+F%b71x;@2kdpy`34BVcd*Yo?d z%RG25?Q##0+#urzwZ~+7XG0Vy2DHGxNYv;-)F=lv@_rL<%f$RxxUuBQ;L7+3GkasT zK_2`VwgDiXG}~exL9-@)ww(uBzJcGzrtn_u27{>lsH|Ks1M}>QN17{%g4pWHR^eE}4IeURGS# z#k>{|1DBSgLj$hsLSLJh?PD&-5lp(Ti|e|ims!2_qQWlBDxZFrE4sJ12%wr|{y$1=5fNlO9JV`r_k>enII8%89o_wgwwy zAoBB2L71t zFipn6R&PF-prM>zyuPVYkaL983Km(15gGa?{qr|Xr7}%HjBjS0Fmb$p$qitOod{r8&_xX zsrU&UO#vX@v*AT*8$P`u$h$D5<+#i+sq=t5P-8(AjuvH`*k!?27W~VGwO*Fk+5_@3 z5dLV2!Py+HVAbX*oSym@pWCsujk03dExpJf>THzV5Lw;NOKmQfZsT`SC%F&J_L>@H z0J)diIHoPNHO9-_)Wp7J_Bp|Jd_#V-%uSe2dx?4v-$|P)zP1Z{rjLvLPdeA`oi1hD z`EK?tUcq*tur#in{U`b&9rO$l){)=KUKP}ImBeHTTgek_2=DwqhF5e~TK}U2#A~qo z&xPeiT#_zN{*C(SVca3=!<3$)@_l!S^{-0gyIEkch;0|Jhsl_D*`+i$+a$Jy-wr;| z4YHIn?2$1#&X{VG3po?tY-jYeFp!66UFo5n3M54tWF&^2)c@&%r*QGUjCs^@{BFkc z8e{5HGZ~jPULmerduTt9Vq!s=>_36EpvhlFV2r7}`j4RUKY&2LLy6fB8&Tgz5sM5QD59f~^~biHRgxKzWG5`5Q<2d@6)l2%_a0FTJQ$;{|zGa}kLjrj27=c4wr8 z>#1hARG)2}p@DcIVzc35ttFvE0ilFAu#w>BveLnel6YdD-$3S-L-YPm%qGc|9H>~2mn@nP6 zWH@)r-CqW&sv?&=XPv_(hs;7UoUwJLG%*t?uzsr-wH2S*$~^C~wJ+0~D@b={3%C-S zTZn7uoq~QTTf+R1*VR<~j7>k$Y?A2#O(yYSwR~tv=I@r2{(npEsMk>`_~opvG$cTfsB)@s zgQ!Ra3F*68VG}>d0(aVcwlM~jyT;41u1$RLVqrSe3Ql{_nOv^fCSfwLeA|mo_Y`c3 z`9}p#+?E;ta~9K?g?`RL>Dz{0TFDFV&!&U5g~D!=V6mQpG9hLKev5!45&QGD(+71PU==$zX#`~CZ{k2>PvtlN`#4j z^G?FVFyQ_WW*=boB@cuDW5>hw+tG~QlM!^D(C^MBw28Zk#_g-@6hPWFfv=N0YV^0cVc$}5z(7V0QZ(q0fPOyG#9q*4H`+O*d*9tvRO~F3Fao6 zO@t9Y%n5RIHP^h9n&$dxAe3*zaG?6l5F*i^Nc%IbeMGZH$o(JEO)6~5o-`S&Ib$FN zCVGve+Rdg%v^5yiD%%5Wy#>C`prBejcgKWR|C`MnvW5|StAk#Q23L~OZX#rm6nZJ* zyaol2;>?b)3;f%o^>4bS*UVQMTTxQ-zy$Y#2q@LJ)QYwov#Gt`g=wEZ^w^ z!S1D<{?2x3z{V1GzT&9LZBLoI9yjlt<_U$ih)rM<*(5eu*eQl9<&QfXx zo}N30T8ua3hEf)MG&g~Y#?-Eb9x*YHosI$_wDV;kN7SxdcLGupsmK$b+~p&0Pgy!R zHzr2OrL!3z$wtSFNgF2({qN0Xq?vpH`4va3=r#{LA^h`H%Al_IVXdEm%;n ztUysvSP)mRKkpE}pb40@u8?4>g0~n)YwGuo^8{v);_7XPgy`fw}|9JaFeF{!4-y-|vdkX#pekhj&OOxP^Cv(Xb zkyVN#@*OnpPoaBrNkAqE?(h%}mt?sJvGYk0NTWx|C9pfWL^g*@f>@o*?oe_&!T;v4 ziCi}L8{gUvaXNrk@ch7`-pC(cHNpTfm0E?x)Rp-^#VUC3-2tLL%oUH z3TAoU-j~+gBfE9^5)EjOs=SJSEI`xF<-_uaLeE8+UQL90AH~Zekv;64c zw{gR7bM0?@5on`P*D72BA`HEeiK8&Eei6@gD5$ZITDD$--S*heP(4Q|-8GzdwB_S~0`{sB8jH^M@oA-H zzSRX9tI)Y&a*HkQ))3NV9TZwRB+mrSU+>nCu33&cxSIyvtyMzv6mAPCe3+a2E#<(8 zDX|=Y$Nmya3p^4_1Ls>jY_C~Jz*%1+^i^ynLJ#FwiO^ALDiwMz^GhuOfWnqq=E0+; zlo?%Y+9?jCq4P3=6yGa4aV+yUx|mds5~isXB&%aa<0++6`Z5a^TI- z9E46F$*~4)1ebqX2aQ2^{x%Pjq5V<-Tcj0FqWl>-4bX%BBBA$on}96(GkQ>I5_)Y< zqd3|Uw5ul6%6szR=() zi2+FNrj@%5jX=$89aAa>-bjH6z?5au?QejZ?u7DdheF?nWvOC_ zfFG9m;+5LhsA;%K`K4-Ay-3qIM{W06;Hsg^c)_r<@dCnCJw38VaBs;7K4o-+ZVIqG z%&{6B*`YKSyO9=(JDb(6UOHH*R-!}I=(`%Uuoe=a^7m;{dE9-UwvC7GK75sUPz7y# z=sMrP0aG7TK@jVvl}~=VP@=>fi+_c*-_0t9Fk*mqQ3GFwXB_lh-U6Q{K!8n z;z|P~!xk^A{9B>N0bLzF*WPdeQ3^siL%$oeZHOG`we5m`v`w}=v`rwMasF?f@Rriz zXiKy>*#ZRr)OC>g4*%+koQ%W`c^tHRAz^AMFturfl>CXafug|zSvwREmf3A12J~N!231qd3X_gtyq0H$P25PUk>)j4ufVqhCCX^hYr6y8>rf|{ec#m zun;N&rsI%6VWT!e8jlO9*4EQX=n~jmpb&8o z8k|gw`h1zFGU<+Bd7=fWdh_ zvUs%p6gXh)6qZznE74tiqsH6u$0+?c<`^ERnL{Pu7it&Ce~dy?R&iH!30~mGb*Wy^ zTF_;AF-LXiUp2_J7G>b-+Uc`Cu3@k6!P*=zNF{Q;__NwwUQmMV_JV^40!MYq40Z0l z(yAkdXMD#8&3tj;GV~q(xpopXr^g)$qJ^%lk`P>2%jDJIkR!f6Pr|_Pf{q9s+#~2H zE;|xD9*CaOSsdF)i?bB8A}oCx?TaJ9&;2=C@-Q{M6dluXjS#mu4#F9HshCrDj`|Tl zs9PjGRfmG`y!v1|pe~fV((eEpbYQaqmQz2OQsQIvlboikVs0D($YsDfRp-rJN&gMY zMK{^g1}ht3Wg}$NT=y05oiFR;>muKPQq{G&r^g&uA8uY>AFfo@_tm@WUVwk;@b3kk z(#U2lTegf<*93z3$HX+M|1xj2Es@dH|8XL8wQXr*RwsOHP$`Va?}57^Ksf-X4gsOe9!B*46%lJ1M*EN@vU~7J!1Z?+ zcvpk()Xl@QkoXD|L_ie*1^bLr?@!DWEV84kVZd4Q@wG3%eK;Ur9F@3v`|k3ir_TNB z?k@q;=C4=flo(IHcl8mCW=Cbdar}c@gQKP{iOR1!a{l9fYRpUX7q46!pP0I-r0uWf z_ddJ#V8Cng^yeeCgiBfvPBHWB58Tf_=Xl)%UvsywO%C40 z*WBRiz2~y8_t_rboKJXNgKuYF$Kp3bDM$P6a6#LI$#L+3)MV%icKtL&%*DYMQutcB ZK!48gCVXMj&xB5nUZ{;bF16X{{{hGEHg*62 diff --git a/textproc.asm b/textproc.asm index e47fb83..d8866b8 100644 --- a/textproc.asm +++ b/textproc.asm @@ -114,9 +114,24 @@ OptionsNoRight OptionsNoReturn cmp #@kbcode._tab ; Tab key bne OptionsNoTab + bit Gradient + bmi NextGradientNr lda Gradient - eor #$80 +@ eor #$80 sta Gradient +NextGradientNr + ldy GradientNr + iny + cpy #$03 + bne NoGradientLoop + mva #$ff GradientNr + bne @- +NoGradientLoop + sty GradientNr + lda GradientAddrL,y + sta GradientColors + lda GradientAddrH,y + sta GradientColors+1 OptionsNoTab jmp OptionsMainLoop .endp diff --git a/weapons.asm b/weapons.asm index 6382e6c..f925c5e 100644 --- a/weapons.asm +++ b/weapons.asm @@ -76,25 +76,29 @@ CheckNextTankBFG .proc babymissile mva #sfx_baby_missile sfx_effect mva #11 ExplosionRadius +GoXmissile jmp xmissile .endp ; ------------------------ .proc missile ; mva #sfx_baby_missile sfx_effect mva #17 ExplosionRadius - jmp xmissile + bne babymissile.GoXmissile +; jmp xmissile .endp ; ------------------------ .proc babynuke mva #sfx_nuke sfx_effect mva #25 ExplosionRadius - jmp xmissile + bne babymissile.GoXmissile +; jmp xmissile .endp ; ------------------------ .proc nuke mva #sfx_nuke sfx_effect mva #30 ExplosionRadius - jmp xmissile + bne babymissile.GoXmissile +; jmp xmissile .endp ; ------------------------ .proc leapfrog @@ -221,19 +225,13 @@ NoWallsInFunky .proc deathshead mva #30 ExplosionRadius mva #sfx_nuke sfx_effect - SaveDrawXY - jsr xmissile - UnSaveDrawXY + jsr GoXmissileWithSaveXYdraw sbw xdraw #34 mva #sfx_nuke sfx_effect - SaveDrawXY - jsr xmissile - UnSaveDrawXY + jsr GoXmissileWithSaveXYdraw adw xdraw #68 mva #sfx_nuke sfx_effect - SaveDrawXY - jsr xmissile - UnSaveDrawXY + jsr GoXmissileWithSaveXYdraw sbw xdraw #34 ; sbw ydraw #34 @@ -241,28 +239,22 @@ NoWallsInFunky cpw ydraw #screenHeight bcs NoUpperCircle mva #sfx_nuke sfx_effect - SaveDrawXY - jsr xmissile - UnSaveDrawXY + jsr GoXmissileWithSaveXYdraw NoUpperCircle adw ydraw #68 ;jsr CalculateExplosionRange cpw ydraw #screenHeight bcs NoLowerCircle mva #sfx_nuke sfx_effect - SaveDrawXY - jsr xmissile - UnSaveDrawXY + jsr GoXmissileWithSaveXYdraw NoLowerCircle mva #sfx_silencer sfx_effect rts -.endp -.proc SaveDrawXY + +GoXmissileWithSaveXYdraw mwa xdraw tempXROLLER mwa ydraw modify - rts -.endp -.proc UnSaveDrawXY + jsr xmissile mwa tempXROLLER xdraw mwa modify ydraw rts @@ -273,7 +265,7 @@ NoLowerCircle mva #(napalmRadius+4) ExplosionRadius ; real radius + 4 pixels (half characrer width) jsr CalculateExplosionRange mva #0 ExplosionRadius ; in this weapon - flag: 0 - napalm, 1 - hotnapalm - jmp xnapalm + beq xnapalm .endp ; ------------------------ .proc hotnapalm @@ -281,7 +273,7 @@ NoLowerCircle mva #(napalmRadius+4) ExplosionRadius ; real radius + 4 pixels (half characrer width) jsr CalculateExplosionRange mva #1 ExplosionRadius ; in this weapon - flag: 0 - napalm, 1 - hotnapalm - jmp xnapalm +; jmp xnapalm .endp ; ------------------------ .proc xnapalm @@ -420,7 +412,7 @@ EndNurnedCheckLoop mva #0 sandhogflag mva #13 DigLong mva #1 diggery ; how many branches (-1) - jmp xdigger + bne xdigger .endp ; ------------------------ .proc digger ; @@ -428,7 +420,7 @@ EndNurnedCheckLoop mva #0 sandhogflag mva #13 DigLong mva #3 diggery ; how many branches (-1) - jmp xdigger + bne xdigger .endp ; ------------------------ .proc heavydigger @@ -436,7 +428,7 @@ EndNurnedCheckLoop mva #0 sandhogflag mva #13 DigLong mva #7 diggery ; how many branches (-1) - jmp xdigger +; jmp xdigger .endp ; ------------------------ .proc xdigger