EmanueleBonin

Booyan

Mar 8th, 2019
862
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 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)
  2. 10nE:f$="":lr$="":af$=" 1 2":lf$=" 1 2 3":fOi=1to5:w(i,2)=0:nE:goS730:goS830
  3. 20gEk$:an=an+1:ifk$=""gO70
  4. 30ifk$=" "tHgO670:rem fire
  5. 40ifk$="b"tHgO590:rem fire bomb
  6. 50ifk$="{up}"tHdy=-1:gO600:rem su
  7. 60ifk$="{down}"tHdy=1:gO600:rem giu
  8. 70iftb=0gO110
  9. 80pO1024+yy*40+xx,bc:yy=by+b(2,tb):ifyy>23tHtb=0:gO110:rem fine corsa della bomba
  10. 90xx=bx-b(1,tb):bc=pE(1024+40*yy+xx):ifbc<6tHgoS390:rem bomb
  11. 100pO1024+yy*40+xx,90:tb=tb+1
  12. 110iff$=""gO190:rem nessuna freccia da animare
  13. 120p=p+2:ifp>len(f$)tHp=1
  14. 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))
  15. 140t=pE(g(c)+1):pOg(c),31:ift<6tHgO300:rem lupo colpito
  16. 150ifab(c)<6tHt=ab(c):gO300:rem lupo colpito
  17. 160iff(c)>3gO190:rem la freccia non è ancora a fine corsa
  18. 170f$=leF(f$,p-1)+mI(f$,p+2):pOg(c),ab(c):rem : gosub 9830
  19. 180af$=af$+stR(c)
  20. 190ifint(an/2)=an/2gO20
  21. 200iflf$=""gO240:rem tutti i lupi sono in viaggio
  22. 210lx=int(rN(0)*200):iflx<9orlx>27gO240
  23. 220ll$=leF(lf$,2):lf=vA(ll$):lf$=mI(lf$,3):lr$=lr$+ll$
  24. 230w(lf,1)=1064:w(lf,2)=1:w(lf,3)=1064+lx
  25. 240lc=vA(mI(lr$,lp,2))
  26. 250ifw(lc,2)>1tHgoS510:rem caduta
  27. 260ifw(lc,2)=1tHgoS460:rem avanzamento iniziale
  28. 270lp=lp+2:iflp>len(lr$)tHlp=1
  29. 280gO20
  30. 290rem lupo colpito da una freccia
  31. 300pOg(c),32:pOg(c)+1,32
  32. 310ff$=mI(f$,p,2):f$=leF(f$,p-1)+mI(f$,p+2)
  33. 320af$=af$+ff$
  34. 330w(t,2)=0:w(t,3)=0:lt=0
  35. 340lt=lt+1:ifvA(mI(lr$,lt,2))<>tgO340
  36. 350lr$=leF(lr$,lt-1)+mI(lr$,lt+2)
  37. 360lf$=lf$+stR(t):bc=32
  38. 370s=s+100:?"{home}{right*6}";s:gO190
  39. 380rem lupo colpito dalla bomba
  40. 390w(bc,2)=0:w(bc,3)=0:lt=0
  41. 400lt=lt+1:ifvA(mI(lr$,lt,2))<>bcgO400
  42. 410lr$=leF(lr$,lt-1)+mI(lr$,lt+2)
  43. 420lf$=lf$+stR(bc):bc=32
  44. 430s=s+250:?"{home}{right*6}";s
  45. 440reT
  46. 450rem avanza iniziale
  47. 460pOw(lc,1),32:w(lc,1)=w(lc,1)+1
  48. 470ifw(lc,1)<w(lc,3)tHpOw(lc,1),lc:reT
  49. 480w(lc,2)=2:w(lc,1)=w(lc,1)+40:w(lc,3)=pE(w(lc,1)):pOw(lc,1),lc
  50. 490reT
  51. 500rem caduta (prossima posizione)
  52. 510pOw(lc,1),w(lc,3):w(lc,2)=w(lc,2)+1:ifw(lc,2)>23gO550:rem finelupo
  53. 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
  54. 530reT
  55. 540rem il lupo ha raggiunto la fine
  56. 550w(lc,3)=0
  57. 560lr$=leF(lr$,lp-1)+mI(lr$,lp+2):lf$=lf$+stR(lc)
  58. 570fd=fd+1:?"{home}{right*28}";fd:iffd>4tH?"{clear}pts:";s:wA198,1:gO0
  59. 580reT
  60. 590iftb=0tHtb=1:bx=32:by=cy:xx=bx:yy=by:bc=pE(1024+40*by+bx):gO70
  61. 600ny=cy+dy:ifny<3orny>20gO70
  62. 610ifcr=91tHcr=86:gO630
  63. 620cr=91
  64. 630goS800:cy=ny:goS770
  65. 640ifdy=1tHpO1017+cy*40,93
  66. 650pO1097,cr
  67. 660gO70
  68. 670ifaf$=""gO20:rem niente frecce nella faretra
  69. 680ff$=leF(af$,2):af=vA(ff$):f$=f$+ff$:f(af)=32:g(af)=1136+40*cy
  70. 690ab(af)=pE(1136+cy*40)
  71. 700af$=mI(af$,3)
  72. 710gO70
  73. 720rem inizializzazione
  74. 730dy=0:cy=3:c=1:af=1:s=0:fd=0
  75. 740lf=1:lc=0:lp=1:p=-1
  76. 750tb=0:bx=0:by=0:cr=91:rt=0
  77. 760reT
  78. 770pO214,cy:pO211,32:sY58732
  79. 780?"{red}{122}{cyan}UI{down}{left*3}CKB{down}{left*3} {095}B{down}{left*3}CC{189}"
  80. 790reT
  81. 800pO214,cy:pO211,32:sY58732
  82. 810?"   {down}{left*3}   {down}{left*3}   {down}{left*3}   "
  83. 820reT
  84. 830?"{clear}punti: 0         failed:":?
  85. 840fOi=0to3:x$="":fOj=1to28-(i+2):ifrN(0)<0.7tHx$=x$+"{green}A":gO860
  86. 850x$=x$+" "
  87. 860nE:?x$:nE
  88. 870fOi=1to18:x$="":fOj=1to3:ifrN(0)<0.9tHx$=x$+"{orange}{166}":gO890
  89. 880x$=x$+" "
  90. 890nE:?x$:nE
  91. 900?"{green}booyana galattica{183}by eb{183}{183}(b)omb spazio";
  92. 910pO214,1:pO211,33:sY58732
  93. 920?"{red}{123}{down}{left*2}{cyan}FBFFFF"
  94. 930fOj=1to21:pO214,2+j:pO211,35:sY58732:?"{171}{096}{179}":nE
  95. 940goS770:reT
RAW Paste Data