Booyan

0dIw(5,4):dIb(2,56):fOj=0to55:tx=j*0.02:b(1,j+1)=(j+1)/2:b(2,j+1)=int(20*tx*tx)
10nE:f$="":lr$="":af$=" 1 2":lf$=" 1 2 3":fOi=1to5:w(i,2)=0:nE:goS730:goS830
20gEk$:an=an+1:ifk$=""gO70
30ifk$=" "tHgO670:rem fire
40ifk$="b"tHgO590:rem fire bomb
50ifk$="{up}"tHdy=-1:gO600:rem su
60ifk$="{down}"tHdy=1:gO600:rem giu
70iftb=0gO110
80pO1024+yy*40+xx,bc:yy=by+b(2,tb):ifyy>23tHtb=0:gO110:rem fine corsa della bomba
90xx=bx-b(1,tb):bc=pE(1024+40*yy+xx):ifbc<6tHgoS390:rem bomb
100pO1024+yy*40+xx,90:tb=tb+1
110iff$=""gO190:rem nessuna freccia da animare
120p=p+2:ifp>len(f$)tHp=1
130c=vA(mI(f$,p,2)):pOg(c),ab(c):f(c)=f(c)-2:g(c)=g(c)-2:ab(c)=pE(g(c))
140t=pE(g(c)+1):pOg(c),31:ift<6tHgO300:rem lupo colpito
150ifab(c)<6tHt=ab(c):gO300:rem lupo colpito
160iff(c)>3gO190:rem la freccia non è ancora a fine corsa
170f$=leF(f$,p-1)+mI(f$,p+2):pOg(c),ab(c):rem : gosub 9830
180af$=af$+stR(c)
190ifint(an/2)=an/2gO20
200iflf$=""gO240:rem tutti i lupi sono in viaggio
210lx=int(rN(0)*200):iflx<9orlx>27gO240
220ll$=leF(lf$,2):lf=vA(ll$):lf$=mI(lf$,3):lr$=lr$+ll$
230w(lf,1)=1064:w(lf,2)=1:w(lf,3)=1064+lx
240lc=vA(mI(lr$,lp,2))
250ifw(lc,2)>1tHgoS510:rem caduta
260ifw(lc,2)=1tHgoS460:rem avanzamento iniziale
270lp=lp+2:iflp>len(lr$)tHlp=1
280gO20
290rem lupo colpito da una freccia
300pOg(c),32:pOg(c)+1,32
310ff$=mI(f$,p,2):f$=leF(f$,p-1)+mI(f$,p+2)
320af$=af$+ff$
330w(t,2)=0:w(t,3)=0:lt=0
340lt=lt+1:ifvA(mI(lr$,lt,2))<>tgO340
350lr$=leF(lr$,lt-1)+mI(lr$,lt+2)
360lf$=lf$+stR(t):bc=32
370s=s+100:?"{home}{right*6}";s:gO190
380rem lupo colpito dalla bomba
390w(bc,2)=0:w(bc,3)=0:lt=0
400lt=lt+1:ifvA(mI(lr$,lt,2))<>bcgO400
410lr$=leF(lr$,lt-1)+mI(lr$,lt+2)
420lf$=lf$+stR(bc):bc=32
430s=s+250:?"{home}{right*6}";s
440reT
450rem avanza iniziale
460pOw(lc,1),32:w(lc,1)=w(lc,1)+1
470ifw(lc,1)<w(lc,3)tHpOw(lc,1),lc:reT
480w(lc,2)=2:w(lc,1)=w(lc,1)+40:w(lc,3)=pE(w(lc,1)):pOw(lc,1),lc
490reT
500rem caduta (prossima posizione)
510pOw(lc,1),w(lc,3):w(lc,2)=w(lc,2)+1:ifw(lc,2)>23gO550:rem finelupo
520w(lc,1)=w(lc,1)+40:w(lc,3)=pE(w(lc,1)):pOw(lc,1),lc:ifw(lc,3)=31tHw(lc,3)=32
530reT
540rem il lupo ha raggiunto la fine
550w(lc,3)=0
560lr$=leF(lr$,lp-1)+mI(lr$,lp+2):lf$=lf$+stR(lc)
570fd=fd+1:?"{home}{right*28}";fd:iffd>4tH?"{clear}pts:";s:wA198,1:gO0
580reT
590iftb=0tHtb=1:bx=32:by=cy:xx=bx:yy=by:bc=pE(1024+40*by+bx):gO70
600ny=cy+dy:ifny<3orny>20gO70
610ifcr=91tHcr=86:gO630
620cr=91
630goS800:cy=ny:goS770
640ifdy=1tHpO1017+cy*40,93
650pO1097,cr
660gO70
670ifaf$=""gO20:rem niente frecce nella faretra
680ff$=leF(af$,2):af=vA(ff$):f$=f$+ff$:f(af)=32:g(af)=1136+40*cy
690ab(af)=pE(1136+cy*40)
700af$=mI(af$,3)
710gO70
720rem inizializzazione
730dy=0:cy=3:c=1:af=1:s=0:fd=0
740lf=1:lc=0:lp=1:p=-1
750tb=0:bx=0:by=0:cr=91:rt=0
760reT
770pO214,cy:pO211,32:sY58732
780?"{red}{122}{cyan}UI{down}{left*3}CKB{down}{left*3} {095}B{down}{left*3}CC{189}"
790reT
800pO214,cy:pO211,32:sY58732
810?"   {down}{left*3}   {down}{left*3}   {down}{left*3}   "
820reT
830?"{clear}punti: 0         failed:":?
840fOi=0to3:x$="":fOj=1to28-(i+2):ifrN(0)<0.7tHx$=x$+"{green}A":gO860
850x$=x$+" "
860nE:?x$:nE
870fOi=1to18:x$="":fOj=1to3:ifrN(0)<0.9tHx$=x$+"{orange}{166}":gO890
880x$=x$+" "
890nE:?x$:nE
900?"{green}booyana galattica{183}by eb{183}{183}(b)omb spazio";
910pO214,1:pO211,33:sY58732
920?"{red}{123}{down}{left*2}{cyan}FBFFFF"
930fOj=1to21:pO214,2+j:pO211,35:sY58732:?"{171}{096}{179}":nE
940goS770:reT