SHARE
TWEET

Booyan

EmanueleBonin Mar 8th, 2019 (edited) 244 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
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top