From c1aa1777678f160b7b9612deabe390eacb9059c2 Mon Sep 17 00:00:00 2001 From: pkali Date: Sat, 11 Jun 2022 05:51:13 -0400 Subject: [PATCH] WIP: press I for inventory #26 --- constants.asm | 6 +++--- definitions.asm | 12 ++++++------ display.asm | 2 +- grafproc.asm | 10 ++++++++++ scorch.asm | 10 +--------- scorch.xex | Bin 38926 -> 38956 bytes textproc.asm | 37 +++++++++++++++++++------------------ weapons.asm | 11 +++++++++-- 8 files changed, 49 insertions(+), 39 deletions(-) diff --git a/constants.asm b/constants.asm index a99b73b..dedfab1 100644 --- a/constants.asm +++ b/constants.asm @@ -14,9 +14,9 @@ dliColorsFore TextBackgroundColor = $02 ; REAL constans - use: LDA #TextBackgroundColor TextForegroundColor = $0c CashOptionL ;(one zero less than on the screen) - .by 0,<200,<500,<800,<1000 + .by 0,<200,<800,<1200,<2000 CashOptionH - .by 0,>200,>500,>800,>1000 + .by 0,>200,>800,>1200,>2000 GravityTable .by 10,20,25,30,40 MaxWindTable .by 5,20,40,70,99 RoundsTable .by 10,20,30,40,50 @@ -863,7 +863,7 @@ NamesOfWeapons ;the comment is an index in the tables dta d"----------------" ; 44 dta d"----------------" ; 45 dta d"----------------" ; 46 - dta d" " ; 47 ; special (no weapon) name for simplify display + dta d" " ; 47 ; special (no weapon) name to simplify display dta d"Heat Guidance " ; 48 ($30) dta d"Bal Guidance " ; 49 diff --git a/definitions.asm b/definitions.asm index bd744ad..5fa66ac 100644 --- a/definitions.asm +++ b/definitions.asm @@ -64,14 +64,14 @@ price_Bal_Guidance___ = $ffff ;_49 price_Horz_Guidance__ = $ffff ;_50 price_Vert_Guidance__ = $ffff ;_51 price_Lazy_Boy_______ = $ffff ;_52 -price_Parachute______ = 1100 ;_53 +price_Parachute______ = 800 ;_53 price_Battery________ = $ffff ;_54 -price_Mag_Deflector__ = $ffff ;_55 -price_Shield_________ = $ffff ;_56 -price_Force_Shield___ = $ffff ;_57 +price_Mag_Deflector__ = 1200 ;_55 +price_Shield_________ = 500 ;_56 +price_Force_Shield___ = 2100 ;_57 price_Heavy_Shield___ = $ffff ;_58 -price_Super_Mag______ = $ffff ;_59 -price_Auto_Defense___ = $ffff ;_60 +price_Super_Mag______ = 1600 ;_59 +price_Auto_Defense___ = 3000 ;_60 price_Fuel_Tank______ = $ffff ;_61 price_Contact_Trigger = $ffff ;_62 price_White_Flag_____ = $0 ;_63 diff --git a/display.asm b/display.asm index c5366f5..0a0e909 100644 --- a/display.asm +++ b/display.asm @@ -104,7 +104,7 @@ OptionsScreen OptionsHere ; 0123456789012345678901234567890123456789 dta d"Players : 2 3 4 5 6 " - dta d"Cash : none 2K 5K 8K 10K " + dta d"Cash : none 2K 8K 12K 20K " dta d"Gravity : 0.2G 0.5G 1G 2G 4G " dta d"Wind : 1B 3B 5B 7B 9B " dta d"Rounds : 10 20 30 40 50 " diff --git a/grafproc.asm b/grafproc.asm index 06a7b68..fb37969 100644 --- a/grafproc.asm +++ b/grafproc.asm @@ -1567,4 +1567,14 @@ EndPut4x4 rts .endp +.proc SetMainScreen + VDLI DLIinterruptGraph ; jsr SetDLI for graphics (game) screen + mwa #dl dlptrs ; issue #72 (glitches when switches) + lda dmactls + and #$fc + ora #$02 ; 2=normal, 3 = wide screen width + sta dmactls + rts +.endp + .endif \ No newline at end of file diff --git a/scorch.asm b/scorch.asm index 876b6d2..e2579ba 100644 --- a/scorch.asm +++ b/scorch.asm @@ -139,8 +139,6 @@ START bpl @- ; mag deflector activated! (test) MainGameLoop - VDLI DLIinterruptText ; jsr SetDLI for text (purchase) screen - jsr CallPurchaseForEveryTank ; issue #72 (glitches when switches) @@ -309,13 +307,7 @@ SettingEnergies jsr calculatemountains ;let mountains be easy for the eye ;jsr calculatemountains0 ;only for tests - makes mountains flat and 0 height - VDLI DLIinterruptGraph ; jsr SetDLI for graphics (game) screen - mwa #dl dlptrs ; issue #72 (glitches when switches) - lda dmactls - and #$fc - ora #$02 ; 2=normal, 3 = wide screen width - sta dmactls - + jsr SetMainScreen jsr drawmountains ;draw them jsr drawtanks ;finally draw tanks diff --git a/scorch.xex b/scorch.xex index 5c5991fdacdb9be5a95aec3cb6f845894fe6df04..67fac3f8a097c65d1f38b81eed802c92c7cef131 100644 GIT binary patch delta 13584 zcmb_@349b)ws$Ytfuuo}21E)R7Z4$iD6O(2vIS_6b%21-fdGk`xXp-z!OGGV0!fAL z6ky$gZev4*R9*@@f{tPAH#qOHbROZAiW+7{L7&MaYBG(=5XKSS|5kSv5a;vzejkuj z)w$=Kd+xdCo_o$cmvXJ~^_^`4_*gXLSMFheo$hO_Df)0ltq6HLs`nM~kO zX4rH}@q5LMUZ}|rbu?*qly7kcx|v8QFn?V zv;9ZJ?I0hs_B@Hh@N*v&q+~f^)!o$ z+4GgCtnr)^6{F|8$cVE&7s0!Mj$r2#>;z1FRbqNh=GsGQiCF1lC?1mr|z7zAYgJKO%$%&M}$c9AQs z2^Zmjb!$2VJ^*P#y`cplcUDJAG}qIXGUj3;US~LUNfCJ zk;bGh34eBQBJ<{2pjMTBdPHPyU8W|I&@yy5U*Z=?%wN(Dl(P7G#moGCQ*9K{Vya3- zPp2rCatFI6O+Lt#0_85EE|5ZIM*FqiNGG;&Sxc#0+E^lL-%+Fk6iw&ki-zb>Bp*#G z;}nDSiQH)7GF!6~O0@6jJJhP;cQcgvk-`qfz;zv+6hqMgXzmu+RZE#%Mma~pgv#v0 zrejXZGrZ7Kj{-Z^dzBc_stNB0A9P&_KIgy0JG`|SUPvAuP=*(>3Qm~d^RmE|(x!-n zhcdj@KoZH0;_}(RAd+q13T%Plq%DdoM2AKESi;{!!b(z7_`3;Mjv?r1%*bGW|K;lX zQzgu|XF>pw<<{YDT6sQ)n4KOBXpz)aKif%t9T1+ssBjS#=rrx1i34pr2;=E9fie(E z9v;Q6kUXN~X_7qFy`B|&J>uR5&7`ci{1tLlD@B}J5xEM{?QU^vrj`o1BIwnkWOq>1 zzJer9uM)*`Uga7;P2!WO9y7VWtlM@rFeFl&x`E+KC*$1?mEc@CoXph_V z9xpq52CCp#*suTZ0QP(oyAQa}Z5KoBC6>-sv=l>Wvb(WFm^67LTjV{yON&+uy~hQA zi^_$+ocMAz$pV~^ybDe!@Rj(e~{6a9VhL=&KBb1-?&!9XsG*6ei7tzM?j zO55(55>AI%tvbe%$ zC>8=Ah@YGlL!(?HId|YJ#gN^evm*6W?!XQagTeO>u|;V8qC$IL7PJNj9Fdyze(+jo zVDNIt0#7w&8hq6VpRpW!!(jDA)0m`SQYfan{#=O`tFlg$_MXz$XDxSPBp{{ujtG`^ zS#_F1-{|bLuN*yV67#OFRgAk+OsEN5OG^t}O-pm6%vmyLw?F_JF#0MF^Q;kM;OVxfEL@+k21H=$4Yj zl`c3;a^E28V-jCSuw0y?O;t!+G_Mf9`AiLA4lbt--JvAWj&574iwD*^!~aWuY%hiu zrC%?G7`Fpz2{(pC z%hb{fDqNm+XB4FpMx_jAb#i?taOjMwt=NCLuuBt>SK3|Vwaaq)>o_B*wqRQQ7b*iG z3ItrOYq1|ciE7|MVo$c;q{ZCT!v2UTHryoV^S>l=0e?S{3;BseF5({`haMzyzQ+cz zCk0?n8o-`~)Xy^3`E;z<4(V9cNyM6MN=OLH2C5xnjM_k3z=jPH|5-|J!*vG_jZX00D?l2A*QbArp zXW)n(E`{!JY1rYwfGgUO1_`rj8Z4imnM5F7ve~}HPPNV=j)Jd^v1UJ*vzl-vazW6D z?I%C@u>Ujrj2D#wR6lVyQ|gafx|I6kmgulf>7@3JOxPEX(XYYmb)Q}9J={1Y()QjW zr9Z^zWp?&p52y5t9&}O^i{;3wOIG&)ihH1ZB_y23`Z&)ja05=6>`Ojp^Y_g z+kjmpV!jtjnD0dr=6kV(`CcN)PJXE*bNn(%F6MtF$=mql61Fp#?0Y#N>LltyiOW|P zNnC-tSmFxRB@$PpE|oZ^x=i9Y^;Z&CtS*<(Ll+UvxsvN|K0|pYX)WIvX^DWp0e&Y@@}aq| zfc+(?*_v(E)oevX$U)7vHWO7dw+#mPUQSkxx`Aj*)J)3RKTn-2+4{C;g2^2fq%LrI|1-XnfX zA>ybaj6=rDiJ}vQ-Gk9SbLf_Y@%I{Qctl!wM2_Li?TeH|aHQ+GiQ6p~WbftnR2u4b z^Y;m%8TbG4Iv7{zEDFtQypM!Tt{FD|KGJ673d_2btKG*mzMv)x%Vv(9w_qVGY!me; zS=6IsQ;+fl43*303Y3%Ku$f|S!s1o4uz1yMEMD~qEMDqR>GntWkxGNoBs9z%_HZS! z#HmL~ypcbOXb+(wnBGU^J;A+LzPp1>p~3QQ41dpw-F3SmpJwnQxT6tdlW^Ot!RtIa zmNmq*0IOwB7fydQnOI_BuE|7;*4a`(ykfNG93=qKP`Z=Y|GY@KC9L#Lc*L6w%g8?t zWm(zU$90Eh48@nNA+WsKHKZjU9Tt>me?3ts7b3X%MaSa=|J26`zlJPWgH3T0XFwVSEMfu2`Tg{~y(3W~oHTEp!1nz(zrW{&g%hGAS`c-AI$%^Kz@eRi@j zSty-7GNXHv>vnU6ArlqVy&L+&`tWa7(}`w2vx=NaC+aE^G$80q#{(w$++qh@&W$0a z9$bb4&2Z9*I8(R??I0xkJ{;j?Bf{H2Bep;E%0|ySg8j5ariz{rtn<=LdBbzTa-_5= zOM^S{`1R6YEgr^Yhzk=#slgmc-OM|2E7``kx4v$Zk+Sw&tVPkA{ zJ$tUi-mnCLp^k#Ks?w|HkTPFAPxn#h4Y9JzY)@Sh4wS=V!6ycL4pDLfLTJ}%klBYW z)hUrJBd9(n2Cr%TK0Pm5ki;Us1{P={2)4jER&3KLDPv$I|CzQL(J{y`iipEO9vca> zg9kzsO-aWQLJu0^a-abz9GVALg^}b4(h!~3)lLzyZ7>-IZ9s00cSc(q`kXnzrhyas z>J%-}%7mV#uMs_?g>H<&2mM!&6eHA(_&*fupJo?hE*D@2om9Y+=vq4d@2yKzUTJG zBQn!1(1BK1`$6g>6zU^t;3KeB6R|p}<3jhjgnydw&k#s^RSZ55iV8lYnLG6FUgV|j;D$G z3OE|@^_t(ET$4Y!*O*>3F`31R%rkwEVqwlJXIzUOg8^IO%-@QfeG-ndKRG) zBy&Y{(mjOt68=>JL!g@qSI8A5zCp$xCWq=s`D2o0kZnhsjMIknW_JxWO}cYvEEWZx zfy|frw}}d4ev_z&3I7%~;@=TpT<+V%b*oihDMnx_Xt2f0K-V zi;VvrY0y3ZO(ju}k`ROQ4;>#*9UV^{8_!AtBw)Tqcpu@}{X|K(wbzlFpCJNBUeiSY zp-&fKKjHV^D8d13A=RWEI7oFA(heMCI5njG08Mgis*kkC==A#$hO?ko576xE0I~E9 z>zg{z*H&3oSs$xRl}*Qrl<6SJf%pfBRrQdZSY07rl7o{UDCAX=gQK5UiCRf=aP|X5 z)Y4_D(q;NOU8a64Q@V7Wbm?+*=@zRsnE!2vjC#-Kb@Ti&(c;ujf>7uJP0F-iVj%jC zqmW?G6^$>;gOurw{y+tx8S#Yu(-o?NHfK;d)=@du(~zR^1zF#>+5d-lq*fxK*pf1d z*dJJhiA2H)!OZqQrCaE)ng;4~CWp2JCuzUYS63A82(K`@#pqAeSx|JH1E7&{I+Sa+ zc0K10=l}XD)Wb*SwqMf-65aqoB#s7oR?mnrr7#UJpp%?IXV?Z^>E{Gc7mNeRG2Q&_ zZ!L$3{G_YzB;f=b&I63FticHG2Ihw@YY6rKm@A|rv>W(#xPKNsDKr}a5++mcsxlLu zeM~#^MZpL?&r%EYyg*4jFAJQY{f*7v+CF;um`vv>L)ji+ns%w{yBwkPqT{90`1MCa> zP7gY|(^ndRi@kpI&4|GkbkNAc)%bV49N{)Z4mu%?9dt=3&pNk_CMC`yX6YQz-$2Le zOmXbHi}<3b!lO}TNv3^-{lmX<58#G=Zx)*OKAO8pB?Lu~aJ=F(u(V(?k0yEZv0jcB zU=otZ@qE9{njKdSNVWkm(|_i>?!rPkUg%=lqK+5(hqaa`k_JfVpz(hO&3)FW<1jx~(-}7WG{Ya8x_%^PmGg7vO8j^TkTXx>ClGal zZbRyL5}f8rP^O^?%Xk8@$@%R-90$a9Al^&Vdy%@qB*zhau<97ncrOY^>fNMq9C7tk z0lu5!(1OW5q;Udm8%r9;6MtXu#%V1&LUDyA8i-`yUCT!i2MuWBkuXPNs@-oms?o-5 z<=zO~xs^Ly_l5(pRxl=%cxaob_Bq?w=WOWv2JMnVd5BLo31v$y>;#`%@nt_=W3S}w&=MonO}Nb*x#PaTWX zzMHFr(-2f#`56*QvHVO)+0FTtRIZL$xksJk zu}F)lN6ogW$Pb{<@T*bFN}QEZZl_gtW)I=~GM8=O>Oce5Ox>m`H-!)HhBp<_F2y2r ziLPXK8Vm)HEKbKWcHuE~Ldx=iGyjP1ifkuWR~b|1cRNoV8?0UadYYsSR8u4^UY#sq zsCLtObqamiaUt2?r*^VLqNI+=Xs(?ik#SPT6oD+iEos6!b*j{uD*4TPs-#Y?SaGZH z`SKCQDHSUoVn54_7*-V0EQg+$uFQlz7-3PUbR>ly)^k=aQ_o}-t*4M8z6~UG< z;a9{Wm~(wo(NM97yL&fXnr^x@E39?y-&&n+cQDfxrL1?m%ce;mq7t$%WSW2!JH{r0r$4Vz z*1Ap1cp*Q1;QY~ID4tAA(GC0?B_FS4k4oMC!gt3fZ6)E2WJDlw`=LiA%`|432lz@p zeqV?Soh^S4`%&O@ zR2qHQClY5|$28Q<^z#T)op6?PXQi>5($asxEdvJ)9%3Cj%utU+*jzxAUGgqHy%rGs3?Wak^+*(+m5x~uw0F6z1n}^e6wu3w|2W%-A1{TfJ>blhlJxPj~$>^ zODSy`XtBAz!g|5MiiYeceuo!HL#el8yVrgp3ulAeYjOeSlMA^6s7CGdsyn@WnU^s< zg%>N(cY2j#ew$a>%9nT%@a>?&mv&+OIjb8hLf7^r%sY4wj+%@(i__@-jU%}SPNXSj zPS!i1@_3cqKZB<*X-zVFQ;9bJ4C*c!+n(&{`seiOJt1o!o!B2T+s|jq2T*sAU*qy+ zA6MW|EcDb!7k>uy5*cwXO{sRNaiti#7h8w26}~{!eSz|8Dy?{P{e?y=S^r`%3Txzd ziZ?2GNO*Eg5JFk`FQ{)yhf)LRXfdMPOpR{9OJ&TqQr8AuHI9(ac+IDuc%C_bCV&d@Hg zEWDc<2k)lhw$1qr+ar)-T~D)JqGB!Y2Ef7eglMsm5RFzfG6}yySiElD?6rv43!96% zYPqO+8>iT3=c1JYi<=7p+}2#gDRRMaj#f#JJ6%?FEj{6+2>H!UPL>OrIj+k7qVUDK z+sD72D_6r0DeyxwXsbZ^8c=*(6{U&-l`KbBMOQ~Fi1|#y1M44ShdynUYd0L?YGrl9 z>zoR_F;Utr@?Ol>K6qj;C&;gIyX@1S21o#C7eH=+Dk!E=vsh(e1JX@-*9O!g?VFyq z$)s7px756gE220iisRn!3KoCG29YbUmjdS%IQx8AY_4Frf^kKnC7~k|M>-v}TDNck z&XW4!$j6NO4b55~k&BWig{z0!1f)SU+tjOMNMGf`_uQ^wJ&Bo~d?Gh1TOU68v9~`B zE-iae0@^3``!kI9nVTiA z4lAG=c4Du|Li&l_CYx+Hz!maO5>(>=DB_=@r7RoZ&42^g2A~evM4H2NfD}-5JxLtE zc#595iJNu42d?A0^C$QMegoeyT@T-Gw!-lZPqRtHGl<|!yTS4utko#-ChEq_65Jsz z@5ff3#$Bp!5DIAR2nDoOt7??CX5<5tB+ zIB>ZJ7otjW%-w>#Our_D`zth`eOII#tH+?(?|7cNhJIm(K)r$ez;m`Xxw@V@0$_F@ z?jwswC=g92V1_Vh)9o<_wxR&72#!s^cm&6gw$Om!L!rdr!=VHmNhSm*g>bmbR6g&( z56%J|$^dS^o*g6VHgfy13DPqGDT!oA}w433n-#m(?=v?ic5!4dA|>U6PD)Ak2Xg<|!ypn9LgO;TegR*Mt?XHqgACo)GN3TBBlAo zZ(3-{_mtM!8*~u9pgMf_F)XxP(0C83&vJg_SmOF!=*^xk+5bbIM*jDxp4A-;p7c*B z`#ml5xDO)8{A#nt=p#n$7R_$1u+B}}++}(>S1-0i1PBYGSE#QOLkS&Je@|F==~=(g zSw*fM=vuYWLSdZ0)0&ON&R?a*{)2uA>wCTUZHC>`MQG#=5`8Asw6?aEUn9(v=fd98 zuY1orxvttt%s;bqPV z@)DNgxbj0+2M?doFwF=(C?|S>=hzAXK_!=om(C0SnoE{X_1&?Q^b?R&01AL`p0dt@8HlIBvVk)Y8?~1QQ__Xxj|}U9VBO z(AE}PqpP!PRH4iTO(gdMS#XZzenuAjiR6Ax7W|py{trtQ{DtIxK^A;Ma+}G5Pf2bI zS#X}@{*~BrTS;z+ z5XR-+idp`#X3RHeX5vq1=BE|Vpq-8kYuqbdi@Dd>!r$Ek6i((Q8e;_aq*1J+GP)j5YO@CxJ8HL$waU|35VJBMvlO+0#!j;A+Pi&QYSMK)S$9I^it&O-)PU7KkgY)Rn5k)rrGLc(Ua*#b<6XF z7qPnM1#izuRV7nW=MH_3|LoC;%f&BmQLb@9RcURBSn{8xq3QKF!=D-$Mb3>P{t>qN zQRIhF1edVy!T%lDh1UByKzn|+Da^MLC~N9{|_PFf2p?E zYyIu5c~slKLwRYAw7ggH{Js7T~9alR;Tq@cW^zX z1gCWl?9;n(f&{UR5If0#iJ6;sVz<^I#5{Y8ajr1z*)eg9Uo#lYQL)0jXYWZ^AvRf8 zh>|4jJ)HmS{+KxPwJ2lUwU|D_Julkgm}~y;CSFT<`|y)5PD*6&U$gF+t&I2{4ojWAU`ZysZKwS9A5L5_Br>TBpWE_sVR7l}?|yh?@VzOE9^XWAVg|6g@a4i0zyK&HE^-h1`x z)vH(UC>#8i3ctm_eO&)R*PBcxJAM*v*PCA2HSUvG^VF9fOKvf<^Jg&wUFr;<_9OGc za{BCKs%AH?5?hp8yeCEFVef9S#rDtY1vRskH_J_y3bTcef1i2wA;rX--dAt1jQtmX zgN1oxCiC9yOhy_d(4d&OGG?$hW!0`dqnkSGB2lo<7q(V#s``#dhXRi{Bn@&>}E(mpapD&wD}iz972Pm165u zvC;+}SBlD2;F0;j?R;itZFyj|$d%Oxc8QwRIe!MEd7K1Z%;gVSs04>Id7GGP(wXEn z%-h*&>=8D2wHC`<=f(nr%r57#H0H;2=FvsQXV*%RIkFV6wPh!EiOj8ct06ITH%7cc z;*%uivW&fD_}J)U{jb znOxS&t`fB$C{!=0nn>^tVe(&z)iH|6zAEP{vC?XH$CYS5(07Pd#qYZi=!eQ+Ok5X{ zB8DOZ5Zpj$U0b##y1JK( zE2=F6(>lvs0r&;CX6F8p8P2n5V6L@O^#8$qjUo0YoK-l?;HC3mf{P4o;-q`EO|Fc-hGnytmK{ijCa#BEt*An*!C6ps#BJ8 z9!2D;M31MBqlo zQIhx{EHx2|&AXT2=UIX&HxlKXS0OF74&`+|TKIYLXm-#nwIP>()1s=m{96{aF_(Ya zqP~#J|IMQMb14}UAMrjmwHaF1Vmn)7D#Z?KKN+R{gdt%DLj3$aU}A+>W2*KmCdO1# zy%csWidpidD_u6diG)%u8MTs0;t-)QKs|9{cg`?1xt*K=&O80svs{nU=0 ztq_{*XyaRS9&?#&UsDxiKC+Js4}7Z z6a0dA)?mKI6o7SlMQs0;Zfm+Pw^r4dwhDn)#7|!pLnA7ObDqGf6hiiRUlpmP@&wk1 zm<+zxh;2gqmsQ#kSI(|<-s!{8!Xk>=`dA8Ys?imDh8_?EMpUb38ARE z=KUpFw8|D+w0|i5YU~v&FcY9scvl!oJEIm`Lf`A;v~OI!dlKue?^VqExENO-n2?bk z_)|u@>yeDYjGY;E8T&Kx=4_lZV{T4HPR0@Z9-Vt)ZpYmAdB4p2VXnn#bB=S)a4wsd zJ8#!K)<5r!dGF1OpMQKF1!m^Elt}1HSCXV$#*deng-e|o3woLodz&J{P*+~uG`zQ| zn^qW+$ym^9F6Aes1%mCeLUgEQq$83qBYx}Qa>BfG zFSX|`C4mk!WvR{{Nb3aukM!6+1Z_(HJ_Ipu7sO!5LoFfvD@5H+_*Y4onb(L~PC88d z>x2qxkb!ye1kdLO+p^b1z)Tf3l7E@nhh}PL`5p9iCw-kWc6g;F;~W)$iQh)}Qlh>> z_!6SNO8D(WeT_gE>g$9rHv|NcV5z87`s>m#7B6GL;g^Z_94IssIu|9pGB8d!bu$(? zoCD^KjpjTKw4L%8FrY^nc^YGZBF?>$1n1s3!m)** zz!jCIgT<`+7TXtxuO#3v$?8;`hS;gmjk3EZW#2})61gB~#_Hq;C;LBl&e@<0phAtg zP^eUL7x#3_^t>KcUx`RVsB~5Pg;#8#zJ7zx`|7p=M&Gn>pJ}0z2sZjCqw}Xbdz!kT z&@_ZH`x`%%>i;z2e0m{l9eY%)qyEdrIR#v?;lOazf%$n(A-7dAb(pwqfL<F7R z-V-IPcd~@_zFCrs`AL$@@wZ6wR^B1W+xS~09CFa;kFtSuoTxWRT)sL{;tJGci7QlZ zmbfBylEf9Ow@4hPIwWo@tKKSMh;A%;s{aA3^O64GQ0F6sM`ABxknybt^C6KT57Nya zS)IvDnd!o2Nhj3hxbo4ibb|lXbkaIrs{F3TRB@cNSEPq~!p+|U{y0(cA-QfZelw(O zcUyHS+uWl_F}{y1>w1C5|q8FZ*qU@UDt5 z4;e29iw+j{Oh)_MrK=65-)FAIj5K3Lt|83AJC%4)r2Bavw^J@~Kf~>+HZ|?!2MTY^ zn0V89ZCqh-QD|=KKoYW4&T#MpNr#y$Ebo@Bb|Z82Np*lQX6CrLd3Qj=GN?tFLoLc& zYEhg}R4$(@P~J71X$qZz&8yDA=2hnsXp|Fsmzr66DALoV+NA6go|$>oM4#y1AnPSWv`?28gcu9NiQi5<{tjSb_ zQ;0g5!cT#muwIu~DsoX9S73mZ~@~(slfz%JbG6!3XjISg3)+SwE_R&QyoOZ!U{+|*4!mA8Nzq(5tWV8fbyOn78 zRPd;@ewYnj18<4=Lf0+=zWR7q%9UWHK_KDd1)i3EzQETCA29H@=m`UdtJ-9TJIKPI zc+~9#7NrW_=|4RFSU6$2lDW_gh2Bm#ei_~P<=FVxfFZ=R)EZ&_o^6R0qMGvs0#_2uBtYx3-A(3tSy5brteW&r18Fx#9F|K-WIZgGj*ZR zHfK0{TGSFC11*mBL}1;v+^gpfVi5W0xdR&XQvbpeOfi5gIuJwv7q@VoK5}SCZJCnH zmFUMu3|H72$1`w9Xnv)(Z2kgL84CbR*88hSzY;MJE8_FCs1M~mV>CN}-VttvlXOP> zL&K@v-Ks63Zog?SGR z1^6n0b>}PeDB&rBU~M^FX_oN$gfAdieR@1_gw(t^Bp}|iRbtmCPs=0*J#NYbSsNx8#Zly0< ziLIX@Z)!E)xZkdB)91R43Y*RqA<=e{4feMayULPmBz7Q>e3FgK4g^v_vXR;;AZj7W zMs5d!sGxiEDY`d3bZ=H+Z_@o*O!q5C_v===U$?Pvar&<3dF$Lvv>5d`fm8D<4Z5_O zfTEuyWh5A^jKr615+!<}5m13>g=gUW0Ed}77_s^7_&OhEVj{~`W9+vriL~JZ_%F6_i+S&d)UUMQKus$j*mNHyT$>& zItHMNMW~%d#-|b6G&|bd*PyM^+LcC}os0Db3Zyq+60NCbEecSrDQ17XPJ)8#6wn%; zr%O5K=+t9+Bfi&nq3#GW*E~*rL0AL0gGl|+fR`<$OA6Hh0lLU(^wR-Z>3IN%3(A4u zmmccQqxV8Ze%HPqCq@7b;{ih0)*u9P1NFm@<%Al2tQBGkIt&cDNgs$UBM2)D9o2`b z&ctBNbg-HTD4}-|)j;ok6vg`hf$DjeQN8o7q)O*qLp9F37DITSL@amMjxKj5pG7+{ zLN@Kja~-CXPdYMrH|@YUIkW@M$5?O$ltcWgFv=rgl*bK}L;UJ6%A;YFC#cN{CvBB* zf~e+P#b(mAnW&pdFp`=Teluy@Otf47<7Q;r`|if>%?N!DJPEybj(N}?SVZzxQaJ?f zBYA76C;|_VytPyse`qIynLNU8p+*31YChhQ`eB#pk#P#oZlUCGz(j(4Fr_jQ5P3ue z&_FGEd>&wJ6Y;Q3fO^M0c)ssVyHQ`Dwid_;pdX;VIKLfW-kn@>0kk3p_|9dkOwKpAVxC{(_E39R{5fO0&u1py5Sv5mS@_ z{EP8eG@7A1H4#+cktm`h(J^}L!|$30P{X*Fa=H7a-Y!w;K#{|6QjiSYBeJ2nG+dj9 z{c@lHi*Q;zkneZc-7$4&ahuR)c_+W}T5O~Pg_TT4#DPNpRqYiau>~C7PW}2c%Ha$e z8qFjwJ+E5tGKj^1m;)I3{&u_Db{@Tt40>8e1Pg*KzfbUDRo7Eqb~!(Lyu{nUK=z*` zK9Q)2x(=x}5}aNcr%Xo|ws9hH$oZWBj0a#R027FsfFKMi8BgfPWn@)r0)b77BdzhI zvY(3PI0{1xBK=8gBJJx(T5ZJN544eu#Xu;Y&;SDN>xrd&8`8P(Vq+2dMq;TwFS_c` zXUXGU48-JdFEzdBqSe5tP<*3Xc;K#)?1Sgk8^K7H$eec3GNE4JLhLZ0D@#AOny&0qZpcpX)ilzJ*2~|}7T1naI;QUG|*TgJcsf^}|m0LIt znUG;p#c-*DkpgFnAcz|u-dom;qU)w2EvgwM*L_8PGzx#cXM}l`@cBIh*|S9;$h@|) z)?=58-9tFP%(+cmQ(zx$4{R#JK%g&s(y{Dl$>MZ4b2prhiTPGlTcbQ+hvb? zFS@JT#avT$RFmIReCW-=+L>=hNZRG)qQy;?}TZz$W5*{e!4)O;ut z%WsAPp-hnwnyg2me5M|g@|l{3;Y0loGm>p6OXHPg7!A=E4p%15w|m7S(FFci+xvR zZ}MzBTjcQsGbSNb}x7#nwfqnxq_n z0!`((Mn)+9^9@TFDHPuq3aKa7Q`}9banwcK$V2u|MjkRgxkjj-4uOOsYCfo*R1uq8 z9+!*-r>%~T#H85PQ9{DvQSABm5a@=fH+BINqPG`9W>@!C`O1Y|rtcX_m3mL8D#C$M4CQ(EAnFNY0yA=$7PH;p4?uvDZi;bBo@M(QZ!hPD(LAx<*Ut zXek)0`yitw@B_TVdLz^-1{@nr07BjopTXG5SbR7-V*B0eRw zYn)VVZN5(O_)+q7Rhy~ojnsMai}0D(@%L2NSaSoaaFR1pX!sV_-Pap`B-Xe z_6eUY8P4A33rwiur~3lcReXvM8!OePPWK^|k>ca38d81KF=6-(J~h=B7iZ6&>f`bi zQ}#3;;*{HbTp{D$*p=!tIA~4vX@5f&vwXF$VYN?nQ!1-KrOAWp=LAY)4Y1X0ikkym z9K0J@A1K(-;f~$n8ZfX{}FP>*I5LOw<~@*a5!Q zr)2SNpOVL~^1&HgLz&O+hWb3K2P%yB-D+rZ@OtE)%seWu^lYEuV{ZO2U9obqJ^y@2G=&=FEmn_^KT}jux5U(c%hJo z8jE8A6Uvl-gMCRnM+e2DC5MW2xG=%(1e?1W*ZF95y{rcVHxI1dG*M>hQD4`zbL{kX zd>%R(qx};n_6ziw$I{}IcZTPQL;fn>iK|Tf9U@$XJ4Ge!-%Pt_9K29<8@lH3Iv)a& zwLXJA=e?_q9#$E8@dTZpXCb9`ky6s;@t16_E&I!Hv3XT7KOhyRTF-RS30xj_P~cwB zR&3)7J%xJV6W37lN#U%EVe2`M?ln|ZCp3A;%2XH`+`FN4l6vSsCO4(>6I1!*RQ_f< z)=4om6drxZPT^wEsZ8tzjx}HqL&KLrjx;Pz!)F5WQ88(V!t$xOOvc}qlBz6r{EGDH z7^$xLn>?;W8|>(i^{+~NDO>p4C>(&N_l%%+U{dPWuwE+e*BpDuF$G*K>+PN(QMT^w zX@FVj_3fg=z8$St%p&}3!MSYi;8ghVg{QW1b#l?EZJgqqmqW)C)MZ1^1@Dsf=btL( zWVzrJ$JIKw2q%_}n(#`FTn9U&z|P1(t>qMKDjA!qRs~iBuw*&1HnJ{Kfs+&?-0<*% z#Nm(F<%Z>rT!XAGe}PlgRN<+I2eTQE$j@+syqnu0!|ut?Vq&Q@)oQcL!g55G@{Z*w zAUd-jameJ9fN$y44rH1DW1%pfpt zu-!2qS)=|)?pRTCq4DVyxhUzD{zk=5y8#goEc=a_1FsH8U3z4Rz^i}A)>B+1DrvC8CeEv-3k{h=uG;%(+f#Pg>yF{P@}5w? zq&UYZFD{Plac&nr&%A9zi_}4MqHX zT1;}F{S?~K*nvj9C4-zY@X%5~CqIuy?DJ`&%(q@AySJNcx=#10-=T~43+Nh%m!K>B zb@?MmeS6P{$VIo58=P0siIQ^rivEWqwC(o9jEVcAZwjCkhONZ`adKuEgz8N zG;aKLeM!_W2{|Kn0p%2-SBef8m!pQ;^FW)z{B}mvv)Kvw@>@@w5fKxQ{S6<8xL8p; z>e4H*H0ai@G@|AKxTNr_h=RuFl$lQne*$@>PhGh5f{RLJNKdyRl+v#+;a&-iL-&aE z(DRx!=k<@#4cy<@wRFom>(^n&)-}`Z3dp`C2OQIpbOGiFH?ABNwKWeV;4)$H%4=YH z*p>E?wU4=&+Q*Qvb14J3J$eWW@7c`l!D&R3`HV;SY~|2caM<%TD*FQZAP;EN&SRm} zhmX^J+F>M#m2Q?#OU8LV8P=Xt~)#pj9`@4tgieYg z33sj<%$}s0`WdYnLtp96u|jF-)69RNKNITP+uJKXCrsKp-Hss|rX~6&xv<*g@vC2u z&`5{+8R>+!gUm_Nd4ljK=}R!le=S1zFNkx?lXgI4cSB_NK!}wSB5~>N3)qZq+3Dq~ z{9sBb=J4l4D|4Ej46nF8xN!OE5hLJ?;93sd`aj`PrMSKxH1cLgfnF3ayD~@R4tQBs2_c9NSB@!QkZB zvo@l|gPUWG$U+4aLKGo-%{caBA{Wo%R?V4H7amw2HauudQ?WjxtEpHYjJn%>C-6I{ zfS#EDz{Gqiry}K$<5VI42`!>KZ`}|k)D!%&ZQS8cP?2=WCERv^mqu+LQ#vO6&n|Cw zM{wKaQuhw7v^u(Jd&W7^g7b+SAtkocv^R#^jxf8sZyz*=yiNNq;PZSz%Y}}P=z3ks z0hS6Gvkhg=-$!!ZCiC}`oWGIze<3;Vkof_UbAZf$gXA0}^Z!b6-X-(jBsqu3{I^I> zkT`N$NX`+G^LLVSl;pfea^5F7tt96Il5?2kd`NQsi{yMnax{|j-z4WBBI+#M0;C^_XsTU8Mej*8Sf+0S_l$3czv5pJA&7e9tpK^?eJQUyVQ-o5WSGG(Wh?k zp(ty?`+E95#}FJ9N3kv}0m3rXSev$wU+=R;jKiPU1Pq9K!bgY_@=_^z-^TTb?QVu+ zb@{c}j{Zl9S;G?R7FhD{3G8p6&RJKATmaGHcA)Xt;Rd5t`_b(2XcW3j*MCA@Xlg53^eF{TwSzB?- zn)zThJ?_|9zM)Rv(EEI$(ScbA7$cLSf{QCHN-fYF0jIAc64x67_xU>LO$TQ(z2St& zpT^UuW7AuVo?x{)MyAk_v3c*lV%$WJ)nsl3)93%JI(0oS%qRUre{J52N0qN=sS%;SaOYwh@T ztQ{Nk1JiCYnXOjAz4rRJ$(#0_oxDlHpO<`V_e8}+oHPCi85uCv1I?b7_G}v; PX-yL|Upi90__F^GX-gl% diff --git a/textproc.asm b/textproc.asm index becc463..6b5960c 100644 --- a/textproc.asm +++ b/textproc.asm @@ -201,12 +201,6 @@ OptionsYLoop ;------------------------------------------- ; call of the purchase screens for each tank .proc CallPurchaseForEveryTank - jsr PMoutofScreen - mwa #PurchaseDL dlptrs - lda dmactls - and #$fc - ora #$02 ; normal screen width - sta dmactls mva #0 TankNr @ @@ -236,12 +230,22 @@ AfterManualPurchase ; Rest of the data is taken from appropriate tables ; and during the purchase these tables are modified. + VDLI DLIinterruptText ; jsr SetDLI for text (purchase) screen + jsr PMoutofScreen + mwa #PurchaseDL dlptrs + lda dmactls + and #$fc + ora #$02 ; normal screen width + sta dmactls + mwa #ListOfWeapons WeaponsListDL ;switch to the list of offensive weapons ldx tankNr lda TankStatusColoursTable,x - sta colpf2s - + sta colpf2s + lda activeWeapon,x + sta PositionOnTheList + ; we are clearing list of the weapons mva #$ff LastWeapon mva #$00 WhichList @@ -280,7 +284,6 @@ AfterPurchase ldx #$00 ; number of the checked weapon stx HowManyOnTheList1 ; amounts of weapons (shells, bullets) in both lists stx HowManyOnTheList2 - stx PositionOnTheList ; Creating full list of the available weapons for displaying ; in X there is a number of the weapon to be checked, @@ -559,7 +562,10 @@ ChoosingItemForPurchase jsr PutLitteChar ; Places pointer at the right position jsr getkey ldx escFlag - seq:rts + beq @+ + jsr WaitForKeyRelease + rts +@ cmp #$2c ; Tab jeq ListChange cmp #$0c ; Return @@ -717,22 +723,17 @@ LessThan100 .endp .proc PutLitteChar - ; first let's cleat both lists from little chars + ; first let's clear both lists from little chars mwa #ListOfWeapons xbyte ldx #52 ; there are 52 lines total ldy #$00 EraseLoop lda #$00 sta (xbyte),y - clc - lda xbyte - adc #40 - sta xbyte - bcc ominx02 - inc xbyte+1 -ominx02 + adw xbyte #40 xbyte dex bpl EraseLoop + ; now let's check which list is active now lda WhichList beq CharToList1 diff --git a/weapons.asm b/weapons.asm index bcad5ac..91ccf4a 100644 --- a/weapons.asm +++ b/weapons.asm @@ -1040,9 +1040,9 @@ notpressed beq notpressed lda SKSTAT cmp #$ff - beq checkJoy + jeq checkJoy cmp #$f7 ; SHIFT - beq checkJoy + jeq checkJoy lda kbcode and #%10111111 ; SHIFT elimination @@ -1055,6 +1055,13 @@ notpressed ;---esc pressed-quit game--- rts +@ + cmp #$0d ; I + bne @+ + jsr Purchase + mva #0 escFlag + jsr SetMainScreen + jsr DrawTanks @ cmp #$8e jeq CTRLPressedUp