ZXTape! 0Created with BASin Release 13CrazyPaint9 B9 Jincr=1:computer=1:diff=1:areaini=20:90Z Ocounter1=counter1+(atr1i1)-(atr2=i1):counter2=counter2+(atr2i2)-(atr1=i2):area1=(counter1/percenmax):area2=(counter2/percenmax):#0;i1;7;1,6;area1;"% ";i2;1,24;area2;"% ":1;i1;y1,x1;a$(a);i1;ya1,xa1;"";i2;y2,x2;a$(a);i2;ya2,xa2;"":area1areaarea2area80P h=h+1:f(h,1)=y1:f(h,2)=x1:g(h,1)=y2:g(h,2)=x2:a=(a=2)+2*(a=1):xa1=x1:ya1=y1:k$=:ang1=ang1+3-(k$="q")+(k$="w"):ang1=ang1-4*(ang1/4)+1:x1=x1+x(ang1):x1=x1-32 *(x1/32 ):y1=y1+y(ang1):y1=y1-22*(y1/22):xa2=x2:ya2=y2:computer>0(y2+y(ang2),x2+x(ang2))>64@iang=ang2+4:iang=iang-4*(iang/4)+1:iattr=((y2+y(iang),x2+x(iang))<64@):dang=ang2+2:dang=dang-4*(dang/4)+1:dattr=((y2+y(dang),x2+x(dang))<64@):ang2=ang2+3+iattr-dattr+iattr*dattr*(x(ang2)-y(ang2)):502 (+k$=:ang2=ang2+3-(k$="o")+(k$="p") 26ang2=ang2-4*(ang2/4)+1:x2=x2+x(ang2):x2=x2-32 *(x2/32 ):y2=y2+y(ang2):y2=y2-22*(y2/22):atr1=(y1,x1):i1=(i1atr1<64@)+(0atr1>63?):atr2=(y2,x2):i2=(i2atr2<64@)+(0atr2>63?):i1>0i2>020+60<*(k$="r") <*1,-30:#0;0;0,9 ;1;"Paint is drying":counter1=counter1-h*(i1=0)+h*(diff=1i1>0i2=0):counter2=counter2-h*(i2=0)+h*(diff=1i2>0i1=0):i1=i1*(i1>0)+i2*(diff=1i2>0i1=0):i2=i2*(i2>0)+i1*(diff=1i1>0i2=0):i=1h:0;i1;f(i,1),f(i,2);(143);i2;g(i,1),g(i,2);(143):s=30+i/10 :0.005y# >,s:i:#0;0,9 ;0;" " Fi1=1:i2=2:h=0:a=1:x1=(32 *):y1=(22*):ang1=1+(3*):atr1=(y1,x1):xa1=x1:ya1=y1:x2=(32 *):y2=(22*):ang2=1+(3*):atr2=(y2,x2):xa2=x2:ya2=y2:20: P0.05|L,30:0:0::fin=(area+areaincr*(incr>0)>maxarea)k$="r":score1=score1+(area1areaarea2score2)+("both players haved tied"score1=score2)+("Player 2 is the champion"score2>score1):c=i1*((fin*(g$(88)="1")+(fin=0)*(f$(88)="1"))+i2*((fin*(g$(88)="2")+(fin=0)*(f$(88)="2")))):area=area+areaincr*(incr>0):m$=(" but"f$(28)g$(28)k$"r")+(" and"f$(28)=g$(28)k$"r"):i=18:c;i,0,,:i:m$=f$+" won this match"+(m$fin):1;c;7;3+2*(fin=0),16-(m$)/2;m$:m$=(g$+"!!!"fin):1;c;7;4,16-(m$)/2;m$:1;c;7;6,8;("CONGRATULATIONS"fin):7;i1;10 ,12 ;score1;i2;10 ,18;score2:i=50230-10 :0.01z# >,i:i:i=110 -10 *(fin=0c=0):k=12 182:c;k,33!-i-k;" ":k:j=502-20-10 :.001wn,j:j:i:#0;1,4;("Press any key to continue"fin):100d*(fin=0):100d-10 *fin Z^ 0.05|L,30:0:0:7:::a$(2):a$(1)="":a$(2)="":p2=/2:x(4):y(4):max=32 *22:f((max/2),2):g((max/2),2):percenmax=max/100d:x(1)=1:y(1)=0:x(2)=0:y(2)=1:x(3)=-1:y(3)=0:x(4)=0:y(4)=-1:maxarea=90Z:areaincr=10 :score1=0:score2=0:start=0::1:8,0;:" ":" ":" ":" ":" ":" "::502:1:0,0;:" ":" ":" ":"  ":"  ":"  ":" ":" ":"  ":"  ":"  ":"  ":"  ":"  ":" ":" ":"  ":"  ":"  ":" ":" ":" ":0:#0;7;1,6;" EddieTheWild 2007"::90Z:F=65368X65391o:A:F,A:0.005y# >,a/10 :F:6:i=130:0,7;"S - Start";1,8;"P - Paint ";areaini;"%":2,9 ;"I - ";("Increase % "incr>0)+("No increase %"incr<0):3,10 ;"A - vs. "+("computer"computer>0)+("human"computer<0)+" ":4,11 ;"C - ";("No capture paint"diff<0)+("Capture paint "diff>0):5,12 ;"ENTER - Instructions":6,13 ;"Q - Quit":t$=:0.05|L*(t$""),20:areaini=areaini+areaincr*(t$="p"areaini