-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0|767|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-

Page : 1 Prev 2

// Naughty Nabber // by Jayenkai // Created 2023/4/1 // GotoJSE.com/7QfrPwzs.BAS Symbol 0,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0?5@0_0_0!3@0_0_0!3@0_0_0!3@0_0_0!3@0_0_0!5@"; Symbol 1,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0?550_0_0_0053350_0_0_53350_0_0@55335?0_0_0!3@50_0_0?3?5,0_0_0!3@50_0_0?3?5,0_0_0?553/50_0_0!5/"; Symbol 2,"1__0,660!660?64460.64460,6433460064334606434.66434.664_4?664_4?664_4?6064_4,60064_4,60,64_460.64_460?64@60/64!60_64.60_0064460_0.66"; Symbol 3,"1__0!A.0_0A.EA,0/A_A0?A,EAAEAAEAA0,AEA@EA,00A,EEA,EA?0A_AAEAEA?EA,EA?EAEAEA/EAAEA.EA.EAAEA.EA0AAEEA!EEAA00A,EAEA?EAA0,A?EAEA.0?A_A0/AAEEA.0_0A."; Symbol 4,"1__0!A.0_0A@0/AAEA,EEAA0?AEA,EA!0,A!EA.EAA00EA,EA?EA,0A_A_AEAEAEAEA,EA_EA?EA,EAEEA!EA.0A,EA,EEA.E00A?EA.EA,0,AAEA,EA?0?A/EAA0/AAEEA.0_0A."; Symbol 5,"1__0!A.0_0A?EAA0/AEAAEA?0?A_AEA0,AAEAEAAEEAEEAA00A?EA@0AAEA!EA,EAEA?EA_AEAAEA,EAAEEA,EA?EAAEA/0A_A,EA00AEAEAAEAAEA.0,A?EA.EA0?A!EA,0/AAEA?0_0A."; Symbol 6,"1__0!A.0_0A@0/A,EAAEA,0?AEA_A0,A?EA@00AAEA.EAEAAEA0A.EA,EA@EA_AEA@EA.EA,EA,EEA_AEA0A?EAEA!00AAEA/EA,0,A,EA.EA,0?A_A0/A,EA.0_0A."; Symbol 7,"0__40!404044040,40040,404404004044040,40040,404404040!4"; Symbol 8,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0.;;0_0_0_0,;;"; Tune$="[0][L][D1z3D1z1D1z1F1z3F1z1F1z1A1z3A1z1A1z181z381z3][D1z1F1z1H1z1I1z1K1z7I1z7F1z7][H][D6z2F6z2I6z2K6z2][D6z2B6z266z286z2][B][D1z3P1z3F1z3R1z3A1z3M1z381z3K1z3][D1z3D1z1P1z1F1z3F1z1R1z1A1z381z1M1z181z381z1K1z1][D][11z711z711z711z7][11z331z311z331z311z331z131z111z331z3][11z131z121z121z111z131z121z311z321z121z111z131z121z131z1][11z331z321z331z311z331z321z331z121z1]" Dim Arm(512,5) Dim Obj(10,5) Graphics 400,300,2 GameHandler("Naughty Nabber") .StartGame // Reset your variables, set up your level and such, here. // Chosen Menu Option = GameMode Lives=3 Score=0 Combo=0 AL=0 go=0 px=jscrw/2 py=jscrh/2 for m=0 to 512 Arm(m,1)=px:Arm(m,2)=py Arm(m,5)=0 next Level=1 Gosub Layout Return .Layout fail=0 go=0 paws=0 px=jscrw/2 py=jscrh/2 ang=0 tries=0 for m=0 to 10 repeat x=Rand(48,jscrw-48) y=Rand(32,jscrh-32) if Pyth(x-px,y-py)<64 then x=-100 if m>0 for q=0 to m-1 if Pyth(x-Obj(q,1),y-Obj(q,2))<64 then x=-100 next endif tries=tries+1 if tries>100 and x<0 then x=100;fail=1 until x>-100 Obj(m,1)=x:Obj(m,2)=y Obj(m,0)=Rand(3,6) Obj(m,5)=Rand(0,360) next if fail==1 then goto Layout JMTrackr Rand(0,3)*5+110,"Classic",Tune$ Return .InGame // One single frame of your game. CLS:ResetDraw SetSize 0.25 Starfield 0-1,0,8 ResetDraw s=0 c=4 if go==2 or go>49 then c=0:Combo=0 // Hurt if go==3 then c=2:Combo=0 // Screen Edge if go==4 then c=3 // Gets SetSize 2 for m=0 to 512 if go>49 then Arm(m,1)=Arm(m,1)+Sin(Arm(m,5)+m*2)*6:Arm(m,2)=Arm(m,2)-Cos(Arm(m,5)+m*2)*6 if m<AL and m%2==0 SetRot Arm(m,5) DrawImg Arm(m,1),Arm(m,2),0,c if Pyth(Arm(m,1)-px,Arm(m,2)-py)<7 and m<AL-2 and go==1 then go=2:PlaySFX("Hurt_4") endif next if px<0 or py<0 or px>jscrw or py>jscrh then go=3:PlaySFX("Sonniss_Clicks",1.3) SetRot Arm(AL,5) if go>1 and go<10 then SetSize 4 if go==0 then SetRot(-90) DrawImg Arm(AL,1),Arm(AL,2),1,c if GamePad(ButtonLeft)<0.5 and GamePad(ButtonRight)<0.5 and GamePad(ButtonDown)<0.5 and GamePad(ButtonUp)<0.5 and go==10 then go=0 if go==0 if GamePad(ButtonLeft)>0.5 then go=1:ang=270:Arm(AL,1)=px:Arm(AL,2)=py:Arm(AL,5)=ang-90:ango=ang if GamePad(ButtonUp)>0.5 then go=1:ang=0:Arm(AL,1)=px:Arm(AL,2)=py:Arm(AL,5)=ang-90:ango=ang if GamePad(ButtonDown)>0.5 then go=1:ang=180:Arm(AL,1)=px:Arm(AL,2)=py:Arm(AL,5)=ang-90:ango=ang if GamePad(ButtonRight)>0.5 then go=1:ang=90:Arm(AL,1)=px:Arm(AL,2)=py:Arm(AL,5)=ang-90:ango=ang if go==1 then PlaySFX("Beeper_Rise",1.5) endif spd=6 if go==1 px=px+Sin(ang)*spd:py=py-Cos(ang)*spd AL=AL+1:Arm(AL,1)=px:Arm(AL,2)=py:Arm(AL,5)=ang-90 dx=GamePad(ButtonRight)-GamePad(ButtonLeft) dy=GamePad(ButtonUp)-GamePad(ButtonDown) if Pyth(dx,dy)>0.25 then ango=ATan(dx,dy) d=WhichWayDoIGo(ang,ango) ang=ang+Limit(d,-8,8) if Abs(d)>0 then PlaySFX("Noise_Tap",1+Abs(d*0.01)) if AL==510 then go=3:PlaySFX("Sonniss_Clicks",0.7) endif ResetDraw if Lives<1 and go==2 then go=50 if go>1 if go<50 AL=AL-3 if AL mod 4==0 then PlaySFX("Sonniss_Clunk",3-AL*0.008,0.5) endif px=jscrw/2 py=jscrh/2 ang=0 if AL<1 AL=0 if go==2 Lives=Lives-1 if Lives>-1 then go=10 if Lives<0 then go=99:EndGame endif if go==3 then go=10 if go==4 then go=10 endif endif if go>49 then go=go+1 v=(100-go)/100:if v<0 then v=0 if go>49 and go mod 6==0 and v>0.2 then PlaySFX("Hurt_4",0.5+v,v) if go>100 then EndGame() ResetDraw:SetSize 0.15 If Lives==1 DrawImg jscrw/2,jscrh/2,2 endif If Lives==2 DrawImg jscrw/2-2,jscrh/2-2,2 DrawImg jscrw/2+2,jscrh/2+2,2 endif If Lives==3 DrawImg jscrw/2-3,jscrh/2-2,2 DrawImg jscrw/2+3,jscrh/2-2,2 DrawImg jscrw/2,jscrh/2+2,2 endif ResetDraw SetSize(0.5) l=7-Level if l<2 then l=2 c=0 for m=0 to 10 SetRot(Obj(m,5)) if Obj(m,0)>-1 if m<=l c=c+1 DrawImg(Obj(m,1),Obj(m,2),Obj(m,0)) if go==1 and Pyth(px-Obj(m,1),py-Obj(m,2))<16 then Obj(m,0)=-1:PlaySFX("Beeper_Fruit_Extra"):go=4:Combo=Combo+1:Gimme(Combo*5,px,py) endif if m>l DrawImg(Obj(m,1),Obj(m,2),7) if go==1 and Pyth(px-Obj(m,1),py-Obj(m,2))<12 then go=2:PlaySFX("Hurt_4") endif endif next ResetDraw if go>49 then MusicStop() if c==0 and go==0 then go=-1:MusicStop() if go==-1 paws=paws+1 if paws>60 then Level=Level+1:PlaySFX("Beeper_Rise"):Gosub Layout endif ResetDraw;SetFontSize(8);TextScore jscrw/2,8,1 Return

// Orion Overdrive // by Jayenkai // Created 2023/4/5 // GotoJSE.com/ZWPw9m7V.BAS Symbol 0,"12_0/220_0?220_0?440_0.2AA20_0,4VV40/20.4AA40.20040.4AA40.40240,42AA240,42240042AXXA240042454422AXXA224454452,AXVVXA2,54,88VAV.AV884,8V,AV00VAV,840V0VA0e00e0AV0V0?A0e00e0A"; Symbol 1,"0__0_0x;x;0.;x;x0.x;x;0.;x;x0.x;x;0.;x;x"; Symbol 2,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0@;;0_0_0_0_0_0_0!;0;;0;0_0_0@;0;;0;0_0_0_0_0_0_0!;;"; Symbol 3,"2__0/1_1_0_002_2_2!0/1_1_1@0?D_D_D_D0,D_D_D_D,0D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_DD0D_D_D_D,0,D_D_D_D0?1_1_1@0/2_2_2!0_001_1_"; Symbol 4,"0__0_0060_0@40_0,1"; Symbol 5,"0__0_330@330@33"; Symbol 8,"2__0/1_1_0_002_2_2!0/1_1_1@0?6_6_6_60,6_6_6_6,06_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6606_6_6_6,0,6_6_6_60?1_1_1@0/2_2_2!0_001_1_"; Symbol 9,"2__0_0.1!0_0_0/12!10_0_0?121!210_0_0.216!120_0_0.16@10_0_006_6?0_0/6_6_0_006_6_6!0/6_6_6@0?6_6_6_60,6_6_6_6,006_6_6_6,06_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6_6.06_6_6_6,006_6_6_6,0,6_6_6_60?6_6_6@0/6_6_6!0_006_6_0_0/6_6?0_0_0016@10_0_0.216!120_0_0.121!210_0_0?12!10_0_0/1!"; Symbol 10,"2__0/1_1_0_002_2_2!0/1_1_1@0?4_4_4_40,5_5_5_5,06_6_6_6?0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_06_6_6_6?05_5_5_5,0,4_4_4_40?1_1_1@0/2_2_2!0_001_1_"; Symbol 11,"2__0_0!440_0_0_0042240_0_0_042240_0_0_00440_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0!440_0_0_0042240_0_0_042240_0_0_0044"; Tune$="[0][L][D3z1F1H1K3z1K1M1K1I1H1I1K3H3D2z8][H3z1F1D1H3z1D1F1H1F1D1H1D1z2H1z2D1z9][K1z1K1M1K2H2z2D1F1H1I1K1z3K1M1K2z4P1z1O1M1I1z1][D2z1F2z1H2K3z1H3zH][K2z2K1z1H1z1D2z4K2z2K2z2H1z1D2z6][H][zOP1z2P1z2P1z1][z2D1z1K1z1D1z1H1z2H1z2H1z3D1D1K1z1M1z1D1z7][H2z2H2z2K2z2K2z2H2z2H2z2K2z6][z2H1z3H1z3K1z3K1z3H1z3H1z3K1z5][zGD2F2H2K4z2H3z1][zGD2z1F2z1H2K3z1H3z1][B][D2z1D181z1D2z1D181z1D2z2D2z1D181z1D2z1D181z1D2z2][D1z1D1z1D1z3D1z1D1z1D1z3D1z1D1z1D1z3D1z1D1z1D1z3][z1D1z2D1z4D1z2D1z481z281z481z281z3][z3D1z3D1z3K1z3H1z3D1z3D1z3K1z3H1][D1z1D1P1z2K1z1D1z2D1z2P1z1D1z1P1z1K1z1D1z1D1z3P1z3][D][11z311z311z311z311z311z311z311z3][11z131z121z1313111z131z121z1213111z131z121z1313131z111z121z13121][11z13111z13111z121z1111131z121z111113111z13111z12131311121z13121]" Racers=0 // I was originally aiming to have multiple racers that would smash into each other, // but the JSE engine couldn't keep up with all the multiple loops. JSE's bad at multi-layers of loops! // So in the end it's only you I'm afraid. TrackLong=250 Dim Orion(4,20) Dim Track(TrackLong,10) Graphics 1024,800,2 GameHandler("Orion Overdrive","Calendar") .StartGame Started=4*45 Won=0 Lost=0 beep=5 SeedRnd ThisLevel MusicStyle$="Classic" if Rnd(0,100)<50 then MusicStyle="Retro" TrackType=Rand(8,11) SetBuffer BG CLS;ResetDraw LevHue=Rand(360) SetRot 45 t=Rand(0,3) if t==3 then SetRot 0 Shape=Rand(4,6) g=Rand(32,96) for n=0 to g InkRot (LevHue +120)%360,0.8,Rnd(0.3,0.7);SetAlpha 0.5 Oval Rand(0,31)*32+16,Rand(0,31)*32+16,32,32,Shape InkRot (LevHue)%360,0.8,Rnd(0.3,0.7);SetAlpha 0.5 Oval Rand(0,31)*32+16,Rand(0,31)*32+16,32,32, Shape InkRot (LevHue +240)%360,0.8,Rnd(0.3,0.7);SetAlpha 0.5 Oval Rand(0,31)*32+16,Rand(0,31)*32+16,32,32, Shape next ResetDraw() SetAlpha 0.4 InkRot LevHue,0.8,0.75 if t<3 for x=0 to 31 SetWidth 2 if t==0 or t==1 then Line 0-8,x*32,1032,x*32 if t==0 or t==2 then Line x*32,0-8,x*32,1032 SetWidth 1 if t==0 or t==2 then Line 0-8,x*32,1032,x*32 if t==0 or t==1 then Line x*32,0-8,x*32,1032 next endif if t==3 for x=0-32 to 64 SetWidth 2 Line 0-8,x*32,1032,((x+32)*32)+16 Line 1032,x*32,0-8,((x+32)*32)+16 SetWidth 1 Line 0-8,x*32,1032,((x+32)*32)+16 Line 1032,x*32,0-8,((x+32)*32)+16 next endif SetBuffer FG scrx=0 scry=0 for n=0 to 20 Orion(n,1)=0 Orion(n,2)=0 Orion(n,3)=0 Orion(n,4)=0 Orion(n,5)=90 Orion(n,9)=1 Orion(n,18)=0 next aimx=Orion(0,1)-jscrw()/2 aimy=Orion(0,2)-jscrh()/2 scrx=aimx scry=aimy x=0 y=0 d=90 c=0 c2=0 MTurn=Rand(6,12) FTurn=Rnd(6,10) STurn=Rand(2,5) twist=4 bend=0 chic=0 for n=0 to TrackLong Track(n,1)=x Track(n,2)=y Track(n,5)=d-90 x=x+Sin(d)*72 y=y-Cos(d)*72 d=d+c c=SmoothTo(c,c2,STurn) t=Rand(0,1) if bend>0 bend=bend-1 if bend==0 then c2=Rnd(0-MTurn*0.5,MTurn*0.5) endif if Rnd(0,FTurn)<4 and bend==0 if t==0 or Abs(c2)<=MTurn*0.6 then c2=Rnd(0-MTurn, MTurn) if t==1 and Abs(c2)>MTurn*0.6 then bend=Rand(6,10) endif next Score=9999 bumpx=0:bumpy=0 bumpxaim=0:bumpyaim=0 Health=100 Return .Ingame CLS ResetDraw;AA False InkRot LevHut+180,1,0.1 Rect jscrw()*0.5,jscrh()*0.5,jscrw()*1.5,jscrh()*1.5,1 ResetDraw aimx=Orion(0,1)-jscrw()/2 aimy=Orion(0,2)-jscrh()/2 bumpxaim=Sin(Orion(0,5))*64 bumpyaim=0-Cos(Orion(0,5))*64 bumpx=SmoothTo(bumpx,bumpxaim,32) bumpy=SmoothTo(bumpy,bumpyaim,32) aimx=aimx+bumpx aimy=aimy+bumpy dx=((scrx-aimx)/4) dy=((scry-aimy)/4) scrx=scrx-dx scry=scry-dy Starfield dx,dy,2 ScrollParticles dx*1.5,dy*1.5 ResetDraw // Parallax Ground SetAlpha 0.5 for z=0.5 to 1 step 0.2 SetSize z WrapBG 0-scrx*z*0.5,0-scry*z*0.5 next ResetDraw // Track sw=(scrx)+(jscrw()/2) sh=(scry)+(jscrh()/2) SetSize 4 m=0 a=Orion(0,18) q=12 a=a-q if a<0 then a=0 if a>TrackLong-q*2 then a=TrackLong-q*2 b=a+q*2 for n=a to b SetRot Track(n,5) c=Floor((n*0.2)+LevHue)%8 DrawImg Track(n,1)-scrx,Track(n,2)-scry,TrackType,c if n==TrackLong then DrawImg Track(n,1)-scrx,Track(n,2)-scry,1 if Pyth(Track(n,1)-Orion(m,1),Track(n,2)-Orion(m,2))<Orion(m,7) Orion(m,7)=Pyth(Track(n,1)-Orion(m,1),Track(n,2)-Orion(m,2)) Orion(m,8)=n Orion(m,18)=n endif next Orion(0,5)=Orion(0,5)+(GamePad(ButtonRight)-GamePad(ButtonLeft))*3 wang=ATan2(Orion(0,3),-Orion(0,4)) ang=Orion(0,5) spd=Pyth(dx,dy) slow=0.98 n=0 spd=1.5 // Player Control if Won==0 boop=0 d=WhichWayDoIGo(ang,wang) if Started<45 and GamePad(ButtonA)>0.5 boop=Abs(d*0.02)+0.3 Orion(0,3)=Orion(0,3)+Sin(Orion(n,5))*spd Orion(0,4)=Orion(0,4)-Cos(Orion(n,5))*spd endif if Started<45 and (GamePad(ButtonL1)>0.5 or GamePad(ButtonL2)>0.5) boop=0.3 Orion(0,3)=Orion(0,3)+Sin(Orion(n,5)-80)*spd*0.4 Orion(0,4)=Orion(0,4)-Cos(Orion(n,5)-80)*spd*0.4 endif if Started<45 and (GamePad(ButtonR1)>0.5 or GamePad(ButtonR2)>0.5) boop=0.3 Orion(0,3)=Orion(0,3)+Sin(Orion(n,5)+80)*spd*0.4 Orion(0,4)=Orion(0,4)-Cos(Orion(n,5)+80)*spd*0.4 endif booptick=booptick+1 if booptick>10 then booptick=0 if boop==0 then booptick=0 if boop>0 if boop>1 then boop=1 if booptick==0 then PlaySFX("Noise_Spray_2",Rnd(0.7,1.3),0.2*boop) endif endif if d>20 then slow=0.986 if d>40 then slow=0.983 if d>60 then slow=0.978 if GamePad(ButtonA)<0.5 then slow=0.97 //if GamePad(ButtonB)>0.5 or GamePad(ButtonY)>0.5 then slow=0.95 if Won>0 then slow=0.95 ResetDraw // Draw Racers SetSize 0.5 n=0 Orion(n,1)=Orion(n,1)+Orion(n,3)*0.14 Orion(n,2)=Orion(n,2)+Orion(n,4)*0.14 Orion(n,3)=Orion(n,3)*slow Orion(n,4)=Orion(n,4)*slow SetRot Orion(n,5) if Health>0 then DrawImg Orion(n,1)-scrx,Orion(n,2)-scry,0,n m=Orion(n,8) a=Atan2(Orion(n,1)-Track(m,1),Track(m,2)-Orion(n,2))+180 d=Pyth(Orion(n,1)-Track(m,1),Track(m,2)-Orion(n,2)) if d>64 Orion(n,3)=Orion(n,3)+Sin(a)*8:Orion(n,4)=Orion(n,4)-Cos(a)*8 if Won==0 PlaySFX("Noise_Thud_"+Rand(1,4)) for q=0 to 1 ThrowParticle(Orion(n,1)-scrx,Orion(n,2)-scry,4,Orion(n,5)+Rand(-10,10),Rnd(0.2,0.4),4 ThrowParticle(Orion(n,1)-scrx,Orion(n,2)-scry,4,Orion(n,5)+Rand(170,190),Rnd(0.2,0.4),4 ThrowParticle(Orion(n,1)-scrx,Orion(n,2)-scry,4,a+Rand(0-15,15),Rnd(0.5,0.8),4 next endif Bump=10 endif if Orion(n,8)==TrackLong and Won==0 Won=1 MusicStop() PlaySFX("Beeper_Fruit_Bonus") endif Orion(n,7)=1000;Orion(n,8)=0;Orion(n,9)=0 if Started==0 and Won==0 then Score=Score-1 ResetDraw SetFontSize 24 if Bump>0 Bump=Bump-1 if Won==0 then Score=Score-15:Health=Health-0.3 SetCol 255,180,180 endif if Bump<1 then Bump=0 if Score<0 then Score=0 SetCol 180,255,180 if Score<Highscore SetCol 255,40,40 if Lost==0 then Lost=1;PlaySFX("Beeper_Tada_Lose") endif Text jscrw()*0.95,24,Right$("0000"+Score,4),2 SetCol 100,150,200 if Highscore>0 then Text jscrw()*0.95,52,"Best > "+Right$("0000"+Highscore,4),2 SetCol 100,255,100 if Health<0.3 Health=0 if Won==0 Won=1 PlaySFX("Explode_High_4") for q=0 to 100 ThrowParticle(Orion(n,1)-scrx,Orion(n,2)-scry,4,Rnd(360),Rnd(0,2),5,Rand(0,7) next Score=0 endif endif SetCol 255,50+Health*2,50 Rect jscrw()*0.95-Health,80,Health,8 SetCol 255,255,255 if Started>0 s=Ceil(Started/45)-1 if s<beep beep=s if s>0 then PlaySFX("Beep_4",1) if s==0 then PlaySFX("Beep_1",1):JMTrackr 90+Rand(0,2)*5,MusicStyle,Tune$,ThisLevel endif Started=Started-1 if Started<45 then s="GO" if Started<1 then Started=0 SetFontSize 96 Text jscrw()*0.5,jscrh()*0.5,s,1 endif if Won>0 then Won=Won+1 if Won==60 if Health>0 if Score>Highscore PlaySFX("Beeper_Rise") EndGame "Highscore" WinLevel ThisLevel endif if Score<=Highscore PlaySFX("Beeper_Tada") EndGame "Complete" endif endif if Health<=0 PlaySFX("Beeper_Fall") EndGame "Too Bad" endif endif if GameOver>0 then MusicStop() SetParticleSize 16 Return

// Painted Pathways // by Jayenkai // Created 2023/4/18 // GotoJSE.com/7xDtfzDf.BAS Symbol 0,"13_z/yz/yzy/zy/zy/zy_y_y?z,yz/yz.y.zy/zy/zy/zy_y_yz/yz/yzy/zy/zy/zy_y_y?z,yz/yz.y.zy/zy/zy/zy_y_y"; Symbol 1,"1__2/42/424/24/24/24_4_4?2,42/42.4.24/24/24/24_4_42/42/424/24/24/24_4_4?2,42/42.4.24/24/24/24_4_4"; Symbol 2,"1__0?A@0/A_A0!PQ@AA0.P_QAA0.PPccPPccPQ,0.PPccPPccP.0.P_P,0?P_P0_P.0_C,Q.0_CPW?0_C00W.0_CW@0/CW@0/CWW0.WW0.C.WW0.WW"; Symbol 3,"1__0?A@0/A_A0!PQ@AA0.P_QAA0.PPccPPccPQ,0.PPccPPccP.0.P_P,0?P_P0_P.0_C,Q.0_CPW?0_C00W.0_C00W/0!C00W@0?C00WW0.W,0C.0,WW0.WW"; Symbol 4,"1__0_0_0_0_0_0_0_0_0_0_0_0_0_0_003450_0.3450_0.3450_0.3450_0.3450_0.3450_0.345"; Symbol 5,"2__y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y?6?5?4/3!2?y.6?5?4/3!2?y.6?5?4/3!2?y.6?5?4/3!2?y.6?5?4/3!2?y.6?5?4/3!2?y.6?5?4/3!2?y.6?5?4/3!2?y.6?5?4/3!2?y.6?5?4/3!2?y.6?5?4/3!2?y.6?5?4/3!2?y.6?5?4/3!2?y.6?5?4/3!2?y.6?5?4/3!2?y.6?5?4/3!2?y.6?5?4/3!2?y.6?5?4/3!2?y.6?5?4/3!2?y.6?5?4/3!2?y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y?"; Symbol 6,"2__0_0_0_0_0_0_0_0_0_0_0_0_0,440_0_0_0,4,0_0_0_004.0_0_0_4?0_0_0_4?0_0_0@44334,0_0_0!44334?0_0_0?4434!0_0_0?334/0_0_0.4334!50_0_0.434/50_0_0.434/550_0_0,434/550_0_0,4@5,0_0_0,4@5,0_0_0,4@5,0_0_0,4@5,0_0_0,54!5.0_0_0,54?5.0_0_0?54,5?0_0_0?5@0_0_0/5?"; Symbol 7,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_;,0_0_0_0;;3;AA0_0_0/;?A,0_0_0!;.0_0_0_;.0_0_0_0;.0_0_0_0;,0_0_0_00;,0_0_0_00;,0_0_0_0;.0_0_00;,0;@0_0_0;_;.0_0_00;_;;0_0_0.;_;0_0_0?;_0_0_0!;@0_0_0/;!0_0_0_A00A0_0_0_0A00A0_0_0_0A!"; Symbol 8,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_;,0_0_0_0;;3;AA0_0_0/;?A,0_0_0!;.0_0_0_;.0_0_0_0;.0_0_0_0;,0_0_0_00;,0_0_0_00;,0_0_0_0;.0_0_00;,0;@0_0_0;_;.0_0_00;_;;0_0_0.;_;0_0_0?;_0_0_0!;@0_0_0/;!0_0_0_A00A0A0_0_0@A00AA0_0_0_A,"; Symbol 9,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_;,0_0_0_0;;3;AA0_0_0/;?A,0_0_0!;.0_0_0_;.0_0_0_0;.0_0_0_0;,0_0_0_00;,0_0_0_00;,0_0_0_0;.0_0_00;,0;@0_0_0;_;.0_0_00;_;;0_0_0.;_;0_0_0?;_0_0_0!;@0_0_0/;!0_0_0@AA00A0_0_0@A0.A0_0_0_A0,A,"; Symbol 10,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_;,0A0_0_0@;;3;A0_0_0@;?0_0_0_;.0A0_0_0/;.0,A0_0_0!;.0_0_0_0;,0_0_0_00;,0_0_0_00;,0_0_0_0;.0_0_00;,0;@0_0_0;_;.0_0_00;_;;0_0_0.;_;0_0_0?;_0_0_0!;@0_0_0/;!0_0_0_A00A0_0_0_0A00A0_0_0_0A!"; Symbol 11,"2__0_0_0_0_0_0_0_0_0_0_0;,0_0_0_;;zz;0_0_0@;z;,0_0_0@;;z;;0_0_0@;z;,0_0_0@;;z;;0_0_0_z;,0_0_0_;z;;0_0_0_0;,0_0_0_0;z;0_0_0_00zz0_0_0_00zz0_0_0_00zz"; Symbol 12,"1__0_0_0_0/4.0.4.0,4422440044224400424/24.004_4?004_4?0,4_4,0.4_4,0?4_40/4@0_4!0_004.0_0.44"; Symbol 13,"22_0P_P0_0P@0,PQ_QP_PQ@P00Q_Q_Q_Q,P0Q_Q_Q_Q.PQ_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q?RQ_Q_Q_Q.RRQ,R?Q/R.Q_QQR_R_R?Q/RR0R_R_R_R.0R_R_R_R.00R_R_R_RR0.R@0.R_R!0@DD0_0.DD0,RR0_0DD0_0.DD"; Symbol 14,"22_00P/00P_P@0?PQ/PPQ_Q@PP00PQ_Q_Q_QQ00Q_Q_Q_Q,P0Q_Q_Q_Q.0Q_Q_Q_Q.0Q_Q_Q_Q.0Q_Q_Q_Q.PQ_Q_Q_Q_Q_Q_Q_Q0Q_Q_Q_Q.0Q_Q_Q_Q.0Q_Q_Q_Q,00Q_Q_Q_QQ0,Q_Q_Q_QQ0,Q_Q_Q_QQ0,Q_Q_Q_Q,00Q_Q_Q_Q,0Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q/RRQ?R?Q@RQ@RRQR_R_R?Q?R_R_R_R_R_R_R_R?0R_R_R_R,0.R_0_DD0.R,0@DD0_0.DD0_0!DD0_0.DD0_0!DD0_0.DD"; Symbol 15,"22_0.P.0_0,P@0?P.QQPP0/P?Q!P0?PQ!P_Q_QQP0,PQ_Q_Q_QP00Q_Q_Q_Q,P0Q_Q_Q_Q.PQ_Q_Q_Q?0Q_Q_Q_Q.00Q_Q_Q_Q,00Q_Q_Q_Q,00Q_Q_Q_Q,00Q_Q_Q_Q,00Q_Q_Q_Q,0,Q_Q_Q_QQ0,Q_Q_Q_QQ0,Q_Q_Q_QQ00Q_Q_Q_Q,0Q_Q_Q_Q,00Q_Q_Q_Q,00Q_Q_Q_Q,00Q_Q_Q_Q.0Q_Q_Q_Q.0Q_Q_Q_Q.0RQ_QQR?Q_QQR/Q?R_RRQ?R_R_R_R_RR00R_R_R_R,0,R_R_R_R0!R@0,R,0,DD0_0!DD0_0.DD0_0!DD0_0.DD0_0!DD0_0.DD"; Symbol 16,"0__0_0_0020@1"; Tune$="[0][L][I1z1D1z1F1z1I1z3D1z1F1z1I1z3D1z1F1z1I1z1M1z1P1z1M1z1K1z1][I2z2I1z1I1z1M2z2M2z2P1z1R1z1P1z1N1z1M2z6][z4I1z1I2I1z3D1z1D2D1z3I1z1I1z1K1z1M1z1P1z1M1z1][I1z1I1z1K1z1M1z1K1z1D1z1K1z1I1zH][zGI1z1I1z1K1z1M1z1P1z1M1z1K1z3][I1K1M1z1M1z1I1K1M1z1M1z1I1M1I1zH][H][I4z2I4z2I3z1M4z2M4z2M3z1][I1z1M1z1I1z3I1z1M1z1P1z3I1z1M1z1I1z3I1z1M1z1P1z3][I3z1I1z1I1z1I3z1I1z1I1z1A3z1A1z1A1z1D3z1D1z3][zGI1K1M1z1M1z1I1K1M1z1M1z1I1M1I1z1][zGI1F1D1z1I1z2I1z1F1D1z1I1z3][B][I1z1I1z1I1z1A1z1I1z1I1z1I1z161z1I1z1I1z1I1z1A1z1I1z1I1z1I1z161z1][A1z1I1z1M1z1A1z161z1A1z1D1z161z1A1z1I1z1M1z1A1z161z1A1z1D1z161z1][I3z1I1z3M3z1M1z3I3z1I1z3M3z1M1z3][D][11z131z121z131z111z111z121z131z111z131z121z131z131z111z121z131z1][11z321z311z111z121z311z321z511z121z3][11z131z121z131z111z131z121z131z111z131z121z131z111z131z121z121z1]" Dim Duck(4,10) Dim DuckTrail(4,100) // Woo-ooo SetTilemapSize(32,24) Graphics 992,768,1;Border 30,30,90 GameHandler("Painted Pathways","Path A|Path B|Random") .StartGame keepload=0 Lives=3 Level=0 Dead=0 Extra=5000 ExtraX=0;ExtraY=0;ExtraN=0 Gosub NewLev Return .NewLev Level=Level+1 SeedRnd Level*7+((GameType-1)*37172) if GameType==3 then SeedRnd Goto GetLev .GetLev Gosub Loading fl=100;fr=0 for x=0 to 31 for y=0 to 23 SetTile(x,y,-1) SetTileColour(x,y,0) next next hx=16 hy=11 count=0 Gosub Loading st=Rand(0,2) x=hx y=hy d=Rand(0,3) for n=0 to 190 x2=32-x;y2=y if st==1 then y2=22-y if st==2 then x2=x;y2=22-y if GetTile(x,y)==-1 then count=count+1 if GetTile(x2,y2)==-1 then count=count+1 SetTile(x,y,0) SetTile(x2,y2,0) if d==0 and y>1 then y=y-1 if d==1 and x<30 then x=x+1 if d==2 and y<21 then y=y+1 if d==3 and x>2 then x=x-1 if Rnd(0,10)<3 and (x%2)==0 and (y%2)==1 d=(d+(Rand(1,2)*2)+1)%4 endif if n%25==0 then Gosub Loading if x<fl then fl=x if x>fr then fr=x next fail=0 if fl>2 or fr<29 then fail=1 if count<150 then fail=1 for x=1 to 30 for y=1 to 22 f=0 if GetTile(x,y)==-1 if GetTile(x-1,y)==0 then f=f+1 if GetTile(x+1,y)==0 then f=f+1 if GetTile(x,y-1)==0 then f=f+1 if GetTile(x,y+1)==0 then f=f+1 endif if f==4 then fail=1 next next if fail>0 then goto GetLev repeat Gosub Loading until keepload>60 px=hx py=hy pox=0;poy=0 wm=0 pdir=0 pc=Rand(0,7) if pc==1 then pc=7 if pc==2 then pc=5 if pc==3 then pc=4 paint=50 hdx=(hx)*32-16 hdy=(hy)*32+48 SetTile(hx,hy,5); SetTileColour(hx,hy,pc) Tick=0 r=Rand(0,2) if r==0 then JMTrackr(Rand(0,5)*5+110,"Retro",Tune$) if r==1 then JMTrackr(Rand(0,5)*5+110,"Classic",Tune$) if r==2 then JMTrackr(Rand(0,5)*5+110,"Hedgehog",Tune$) lf=1 lft2=0 fx=-1;fy=-1 wfx=-1 for m=0 to 3 x=-1 repeat x=Rand(1,30) y=Rand(1,23) if GetTile(x,y)<0 then x=-1 if Abs(x-px)<8 then x=-1 until x>-1 Duck(m,0)=0-1:if Rand(0,100)<50 then Duck(m,0)=1 Duck(m,1)=x Duck(m,2)=y Duck(m,3)=0 Duck(m,4)=0 Duck(m,5)=Rand(7,10) Duck(m,6)=Rand(0,3) Duck(m,8)=0 for e=0 to 49 DuckTrail(m,e)=-1 next next pdied=-10 pdiedy=0 for x=0 to 32 for y=0 to 24 if GetTile(x,y)==-1 d=0 if GetTile(x-1,y)>-1 and GetTile(x-1,y)<13 then d=1 if GetTile(x+1,y)>-1 and GetTile(x+1,y)<13 then d=1 if GetTile(x,y-1)>-1 and GetTile(x,y-1)<13 then d=1 if GetTile(x,y+1)>-1 and GetTile(x,y+1)<13 then d=1 if d==1 SetTile(x,y,Rand(13,15)) endif endif next next Return .InGame CLS 48,128,48:ResetDraw DrawTilemap(-16,48) Tick=Tick+1 if Tick==10 Tick=0 lf=0 for x=1 to 30 for y=1 to 22 if GetTile(x,y)==0 then lf=1 next next endif pdx=(px+pox)*32-16 pdy=(py+poy)*32+48+pdiedy if Dead>0 then pdied=pdied+0.4: pdiedy= pdiedy+ pdied:MusicStop() SetRot pdir+Dead*8 if pdir==180 then SetRot 0:SetSize 0-1,1 s=2:if Abs(pox)>=0.5 or Abs(poy)>=0.5 then s=3 DrawImg pdx,pdy-8,s DrawImg pdx,pdy-8,4,pc if GetTile(px,py)==0 and paint>0 SetTile(px,py,1):SetTileColour(px,py,pc):Score=Score+5+Floor(paint/5):paint=paint-1 ThrowParticle pdx,pdy,4,Rnd(360),Rnd(0.1,0.3),16,pc ThrowParticle pdx,pdy,4,Rnd(360),Rnd(0.1,0.3),16,pc ThrowParticle pdx,pdy,4,Rnd(360),Rnd(0.1,0.3),16,pc PlaySFX("Pickup_9",1.2+((50-paint)*0.02)) if paint<11 and paint>0 then PlaySFX("Beeper_Classic",(paint*0.2)+1) if paint==0 then PlaySFX("Hurt_4") endif spd=0.15 if Lives>-1 if pox<0 pox=pox-spd if pox<=0-1 then pox=0:px=px-1 endif if poy<0 poy=poy-spd if poy<=0-1 then poy=0:py=py-1 endif if pox>0 pox=pox+spd if pox>=1 then pox=0:px=px+1 endif if poy>0 poy=poy+spd if poy>=1 then poy=0:py=py+1 endif m=-1 if pox==0 and poy==0 cu=0;cd=0;cl=0;cr=0 if GetTile(px-1,py)>-1 and GetTile(px-1,py)<12 then cl=1 if GetTile(px+1,py)>-1 and GetTile(px+1,py)<12 then cr=1 if GetTile(px,py-1)>-1 and GetTile(px,py-1)<12 then cu=1 if GetTile(px,py+1)>-1 and GetTile(px,py+1)<12 then cd=1 if wm==0 if GamePad(ButtonLeft)>0.5 and cl==1 then m=3 if GamePad(ButtonRight)>0.5 and cr==1 then m=1 if GamePad(ButtonUp)>0.5 and cu==1 then m=0 if GamePad(ButtonDown)>0.5 and cd==1 then m=2 if GamePad(ButtonLeft)>0.5 and GetTile(px-1,py)==0 then m=3 if GamePad(ButtonRight)>0.5 and GetTile(px+1,py)==0 then m=1 if GamePad(ButtonUp)>0.5 and GetTile(px,py-1)==0 then m=0 if GamePad(ButtonDown)>0.5 and GetTile(px,py+1)==0 then m=2 endif if wm==1 if GamePad(ButtonUp)>0.5 and cu==1 then m=0 if GamePad(ButtonDown)>0.5 and cd==1 then m=2 if GamePad(ButtonLeft)>0.5 and cl==1 then m=3 if GamePad(ButtonRight)>0.5 and cr==1 then m=1 if GamePad(ButtonUp)>0.5 and GetTile(px,py-1)==0 then m=0 if GamePad(ButtonDown)>0.5 and GetTile(px,py+1)==0 then m=2 if GamePad(ButtonLeft)>0.5 and GetTile(px-1,py)==0 then m=3 if GamePad(ButtonRight)>0.5 and GetTile(px+1,py)==0 then m=1 endif if m==0 then poy=-spd:wm=1:pdir=90 if m==1 then pox=spd:wm=0:pdir=180 if m==2 then poy=spd:wm=1:pdir=270 if m==3 then pox=-spd:wm=0:pdir=0 endif if px==hx and py==hy and paint<32 then paint=32:PlaySFX("Beeper_Fruit_Extra") ResetDraw if paint<1 SetSize 1+Abs(Sin(Mills()*0.2)*0.3) DrawImg hdx,hdy,5,pc endif if lf>0 then lf2=0 if lf==0 MusicStop() if lf2==0 then PlaySFX("Beeper_Fruit_Win") lf2=lf2+1 if lf2>=60 then keepload=0;Gosub NewLev endif if fx<0 and Rnd(0,100)<3 fx=Rand(3,28) if Abs(fx-wfx)<8 or Abs(fx-px)<4 then fx=-1 fy=-4 if fx>-1 then wfx=fx endif if fx>0 SetSize 2 fdx=(fx)*32-16 fdy=(fy)*32+48 fy=fy+0.05 if fy>24 then fx=-1 DrawImg fdx,fdy,6,pc if Abs(fdx-pdx)<32 and Abs(fdy-pdy)<32 fx=-1:paint=50:PlaySFX("Beeper_Powerup"):Score=Score+50 endif endif endif if Lives<0 then lf=1;Dead=Dead+1 if Dead>90 then EndGame ResetDraw SetCol 100,255,100 TextScore ScreenWidth()/2,16,1 dx=(ScreenWidth()/2)-50*4 for x=0 to 49 if x>=paint then SetCol 30,80,30 Rect dx,28,6,6,1 dx=dx+8 next for m=0 to 3 dsp=0.03+(m*0.005*Level) if dsp>0.1 then dsp=0.1 SetSize(Duck(m,0)*2,2) dx=(Duck(m,1)+Duck(m,3))*32-16 dy=(Duck(m,2)+Duck(m,4))*32+48 DrawImg dx,dy-26,Duck(m,5) if Rnd(0,10)<2 then Duck(m,5)=Rand(7,10) if Duck(m,3)>0 Duck(m,3)=Duck(m,3)+dsp if Duck(m,3)>=1 then Duck(m,3)=0:Duck(m,1)=Duck(m,1)+1 endif if Duck(m,3)<0 Duck(m,3)=Duck(m,3)-dsp if Duck(m,3)<=0-1 then Duck(m,3)=0:Duck(m,1)=Duck(m,1)-1 endif if Duck(m,4)>0 Duck(m,4)=Duck(m,4)+dsp if Duck(m,4)>=1 then Duck(m,4)=0:Duck(m,2)=Duck(m,2)+1 endif if Duck(m,4)<0 Duck(m,4)=Duck(m,4)-dsp if Duck(m,4)<=0-1 then Duck(m,4)=0:Duck(m,2)=Duck(m,2)-1 endif if Duck(m,3)==0 and Duck(m,4)==0 p=-1 Duck(m,8)=(Duck(m,8)+1)%50 cu=0;cl=0;cd=0;cr=0 x=Duck(m,1);y=Duck(m,2) dt=Duck(m,8) DuckTrail(m,dt)=x;DuckTrail(m,dt+50)=y if GetTile(x-1,y)>-1 and GetTile(x-1,y)<12 then cl=1 if GetTile(x+1,y)>-1 and GetTile(x+1,y)<12 then cr=1 if GetTile(x,y-1)>-1 and GetTile(x,y-1)<12 then cu=1 if GetTile(x,y+1)>-1 and GetTile(x,y+1)<12 then cd=1 for e=0 to 49 if x-1==DuckTrail(m,e) and y==DuckTrail(m,e+50) then cl=0 if x+1==DuckTrail(m,e) and y==DuckTrail(m,e+50) then cr=0 if x==DuckTrail(m,e) and y-1==DuckTrail(m,e+50) then cu=0 if x==DuckTrail(m,e) and y+1==DuckTrail(m,e+50) then cd=0 next for q=0 to 1 p=Rand(0,4) if cu==1 and p==0 then Duck(m,6)=0 if cr==1 and p==1 then Duck(m,6)=1 if cd==1 and p==2 then Duck(m,6)=2 if cl==1 and p==3 then Duck(m,6)=3 next if Duck(m,6)<0 then Duck(m,6)=Rand(0,3) if Duck(m,6)==0 and cu==1 then Duck(m,4)=0-dsp if Duck(m,6)==1 and cr==1 then Duck(m,3)=dsp;Duck(m,0)=1 if Duck(m,6)==2 and cd==1 then Duck(m,4)=dsp if Duck(m,6)==3 and cl==1 then Duck(m,3)=0-dsp;Duck(m,0)=-1 endif if Abs(dx-pdx)<24 and Abs(dy-pdy)<24 and Lives>-1 and lf2<1 x=-1 for q=0 to 100 ThrowParticle dx,dy,2,Rnd(0,360),Rnd(1,2),11 next Paint=0 Lives=Lives-1 PlaySFX("Beeper_Jingle_Down") PlaySFX("Animal_Quack") if Lives<0 then PlaySFX("Beeper_Fall") if Lives==0 then PlaySFX("Beeper_Fruit_Win",0.8) repeat x=Rand(1,30) y=Rand(1,23) if GetTile(x,y)<0 then x=-1 if Abs(x-px)<8 then x=-1 until x>-1 Duck(m,0)=0-1:if Rand(0,100)<50 then Duck(m,0)=1 Duck(m,1)=x Duck(m,2)=y Duck(m,3)=0 Duck(m,4)=0 Duck(m,5)=Rand(7,10) Duck(m,6)=Rand(0,3) endif next ResetDraw();SetSize 0.75 if Lives>0 for n=1 to Lives DrawImg (ScreenWidth()/2)+96+n*24,14,12 next endif SetParticleGravity 0.5 SetParticleSize 32 if Score>=Extra PlaySFX("Beeper_Rise") Lives=Lives+1 if Lives>5 then Lives=5 Extra=Extra+5000 ExtraX=pdx;ExtraY=pdy;ExtraN=90 endif ResetDraw if ExtraN>0 SetAlpha ExtraN/90 ExtraN=ExtraN-0.5 ExtraY=ExtraY-1 Text ExtraX,ExtraY,"1Up",1 endif If GamePad(ButtonY)<1 then kdis=0 if GamePad(ButtonY)>0 and kdis==0 then kdis=1:Gosub NewLev Return .Loading keepload=keepload+1 cx=ScreenWidth()*0.5;cy=ScreenHeight()*0.5 CLS 0,0,0:ResetDraw;SetFontSize 32 fq=(Sin(Cos(Mills()*0.15)*45)*0.6)+0.7 For fm=0 to 128 step 4 SetRot ((fm*fq)+Mills()*0.085) SetCol fm*1.6,fm*0.8,0 If fm==128 then SetCol 255,255,128 Text cx,cy,"Loading...",1 Next Flip return

// Quiver Quash // by Jayenkai // Created 2023/4/28 // GotoJSE.com/j7KHb3h3.BAS Symbol 0,"21_0_0_0_0_0_;;0_0_0_0,;,0_0_0_0;?0_0_0_;!0_0_0/;/0_0_0!;.:;,0_0_0!;:z:,;z;0_0_0.;z,:yyz,0_0_0,;:zzy,z.;0_0_00z,y?zz:z;0_0_:zzy.xyyz:zyz0_0/:zyzy.xyyz:zyz0_0/y?xxyxyyz:zyyz0_0!y?x.y.:zyz0_0?y?x/yzy:yz0_0?y.x,yxyxy@0_0.yyxyx,yxyx,y/0_00yx_x!y?0_00yx_x!y!0_0x_x.yx,yyxyy0_x@w.xxyx.yxxy0_x,wwx,w.xxyx!yxx0@xw.xxw?x!yxxywwx0!xw,x,w.vwx_wxwx0!w.xwwv!wwxxwxwxxw.x0?w?v,wv?wx,wwvw,xww0.w,xwv_vvwxxwwvvwxw,x0,w,v_v?wvvwwv,xw,0,v_v_v_wwx00v_v_wv,wv,xvww0wv_v_v?wv?ww"; Symbol 1,"1__0_0_0_0_0,DD0_0?9DD0_0.99D0_0.99D0_0?Q0_0!Q0_0!Q0_0!Q0_0?R,0_0.R0R0_0.R0R0_0.R0R0_0.D0D"; Symbol 2,"1__0_0_0_0_0,DD0_0?9DD0_0.99D0_0.99D0_0?Q0_0!Q0_0!Q0_0!Q0_0.R.0_0,R00R0_0.R0R0_0?DR0_0!D"; Symbol 3,"1__0_0_0_0_0,DD0_0?9DD0_0.99D0_0.99D0_0?Q0_0!Q0_0!Q0_0!Q0_0?R,0_0.R0R,D0_0R0_0!R0_0!D"; Symbol 4,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_BB0_0_0_0,BB0_0_0_0BB0_0_0_0,BB0_0_0_0,BB0_0_0_0,BB0_0_0_0,BBQ@0_0_0.BBQ@0_0_0.BB0_0_0_0,BB0_0_0_0?BB0_0_0_0,BB"; Symbol 5,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0@;@0_0.;,0/;_;0_00;@00;_;,0_;_;_;?0_;_;_;!0@;_;_;!0@;_;_;!0@;_;_;?0_;_;_;.0_00;@0!;.0_0!;."; Symbol 6,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0?;,0_0_0@;@0_0_0.;_;,0_0_;_;_;0_0,;_;_;,0_0;_;_;!0@;_;_;!0@;_;_;?0_0;_;_;;0_0.;_;;"; Symbol 7,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_00;.0_0_;;0.;_;.0_0,;_;_;.0_0;_;_;?0@;_;_;/0/;_;_;/0!;_;_;@0/;_;_;!0_;_;_;;"; Symbol 8,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0?3A03A0_0_0@3A03A0!;;zxx0_0!3A03A0!;zzD_D_D?0/;;zxx0_0!3A03A0_0_0_03A03A0_0_0_03A03A"; Symbol 9,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0,;zzx0_0_0_;zzx0_0_0_;zzx0_0@3A03A0?;zzD_D_3AD3A0/;zzx0_0@3A03A0/;zzx0_0_0_00;zzx"; Symbol 10,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0v,0_0_0_0v,0_0_0?vv0,v?0_0_00AAv_v.0_0_0.v@"; Symbol 11,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0/v,0_0_0,vv0.v.0_0_00AAv_v.0_0_0.v@"; Symbol 12,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0.vv0_0_0_0AAv_v.0_0_0.v@0_0_0@v.0_0_0_0,v,"; Symbol 13,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0.vv0.v.0_0_00AAv_v.0_0_0.v@"; Tune$="[0][L][D1D1z1D1z1D1D1z1D1z1D1D1D1z1D1z1K1K1z1K1z1K1K1z1K1z1K1K1K1z1K1z1][K1z1K1z1I1z1G1z1D1z1D1z1G1z1I1z1K1z1K1z1I1z1G1z1D1z7][z2K1z3I1z3G1z3D1zH][zIK1z3I1z3G1z3D1z1][H][z2K1z1K1z3K1z1K1z3K1z3D1z1D1z3D1z1D1z3D1z1][z2D1z1D1z1K1z181z1D1z1D1z1K1z3D1z1D1z1K1z181z1D1z1D1z1D1z1][D1z1D1z1G1z1I1z1K1z5D1z3D1z1G1z1I1z1K1z3I1z3][B][D1z1D1z1D1z1D1z181z181z181z181z1D1z1D1z1D1z1D1z181z381z3][z2D1D1D1z1D1z3D1D1D1z1D1z3D1D1D1z1D1z3D1D181z181z1][D1z1D1z1K1z1I1G1D181D1I1K1z3D1z1D1I1K181I1G1z1D1G1I1K1z181z1][D][11z331z311z331z311z331z311z331z3][11z331z111z331z111z331z111z331z111z311z131z1][11z331z111z121z141z111z311z131z311z121z341z3]" Dim Mountain(10) Dim Cloud(10,5) Dim Arrow(50,10) Dim Target(50,10) MaxBirds=3 Graphics 800,480,3 GameHandler("Quiver Quash") .StartGame For m=0 to 10 Mountain(m)=Rnd(jscrw) Cloud(m,0)=Rand(5,7) Cloud(m,1)=Rnd(jscrw+128) Cloud(m,2)=Rnd(jscrh*0.5) Cloud(m,3)=m*0.03+0.4 Next for m=0 to 50 Arrow(m,0)=0 Target(m,0)=0 next p99=0 px=jscrw pox=jscrw*0.75 pface=-1 py=jscrh-76 pang=32 panim=0 wpanim=0 Start=0 bpow=0 but=0 pars=8 pto=0 afree=0 speedup=1 JMTrackr 110,"Classic",Tune$ Return .Ingame CLS 180,225,255:ResetDraw SetCol 170,215,245 AA True for m=0 to 10 if m==8 then AA False z=14-(m*0.6) SetSize z*0.7 SetAlpha 0.6 n=m DrawImg Cloud(n,1)-64,Cloud(n,2),Cloud(n,0) Cloud(n,1)=Cloud(n,1)-Cloud(n,3) if Cloud(n,1)<0 then Cloud(n,1)=jscrw+128;Cloud(n,2)=Rnd(jscrh*0.5);Cloud(n,0)=Rand(5,7) SetSize z if m mod 2==0 then SetSize 0-z,z SetAlpha 1:DrawImg Mountain(m),jscrh-128,0 SetAlpha 0.05:SetSize 1:Rect 0,0,jscrw,jscrh Next AA False ResetDraw SetCol 120,220,120 Rect 0,jscrh-64,jscrw,64 spd=4 if Abs(pox-px)<2 then pox=px:panim=0:Start=1 if pox<px then px=px-spd:pface=1:panim=panim+0.2 if pox>px then px=px+spd:pface=-1:panim=panim+0.2 if panim>=3 then panim=1 if Floor(wpanim)!=Floor(panim) then PlaySFX("Noise_Tap",Rnd(0.8,1.2),0.5) wpanim=panim SetSize pface*2,2 py=jscrh-76 SetRot 0 DrawImg px,py,1+Floor(panim) but=0 if GamePad(ButtonA)>0.5 but=1 endif if Start==1 pox=Limit(pox+(GamePad(ButtonRight)-GamePad(ButtonLeft))*spd,8,jscrw-8) pang=pang-(GamePad(ButtonDown)-GamePad(ButtonUp))*spd if pang<0-20 then pang=0-20 if pang>60 then pang=60 // if but==1 and bpow==0 and pars>0 then PlaySFX("Sonniss_Torque") if but==1 and bpow<100 and pars>0 then PlaySFX("Noise_Tap",0.8+bpow*0.01,(100-bpow)*0.01) if but==1 and bpow==0 and pars<1 then PlaySFX("Error_2") if but==1 then bpow=bpow+2 if bpow>100 then bpow=100 pa2=pang+90 if pface==-1 then pa2=0-pa2 if bpow>0 and pars>0 SetThick 5 SetCol 0,0,0 Line px,py-2,px+Sin(pa2)*bpow*0.3,(py-2)-Cos(pa2)*bpow*0.3 SetThick 3 SetCol 255,128,0 Line px,py-2,px+Sin(pa2)*bpow*0.3,(py-2)-Cos(pa2)*bpow*0.3 if but==0 pto=afree Arrow(pto,0)=1 Arrow(pto,1)=px Arrow(pto,2)=py-2 Arrow(pto,3)=Sin(pa2+180)*((bpow+20)*0.15) Arrow(pto,4)=0-Cos(pa2+180)*((bpow+20)*0.15) Arrow(pto,9)=200;Arrow(pto,8)=1 pars=pars-1 PlaySFX("Sonniss_Swish_3") endif endif if but==0 then bpow=0 endif SetRot pang DrawImg px,py-2,4 SetSize 1.5 sp=8 if (Mills() mod 160)<80 then sp=9 al=pars for m=0 to 50 if Arrow(m,0)==0 then afree=m if Arrow(m,0)==1 for p=0 to 2 if Arrow(m,0)==1 SetRot Arrow(m,5) DrawImg Arrow(m,1),Arrow(m,2),sp al=al+1 Arrow(m,1)=Arrow(m,1)+Arrow(m,3) Arrow(m,2)=Arrow(m,2)+Arrow(m,4) Arrow(m,4)=Arrow(m,4)+Rnd(0.09,0.11) Arrow(m,5)=ATan(0-Arrow(m,3),Arrow(m,4))-90 SetRot Arrow(m,5) if Arrow(m,2)>=jscrh-55 then Arrow(m,2)=jscrh-jRand(50,65);Arrow(m,0)=2:PlaySFX("Drum_Low") DrawImg Arrow(m,1),Arrow(m,2),sp if Arrow(m,1)<-32 or Arrow(m,1)>jscrw+32 then Arrow(m,0)=0:PlaySFX("Beeper_Jingle_Down",Rnd(2.5,2.8)) for t=0 to MaxBirds if Target(t,0)==1 if Abs(Target(t,1)-Arrow(m,1))<18 and Abs(Target(t,2)-Arrow(m,2))<12 Target(t,0)=2;PlaySFX("Hurt_2") Target(t,9)=120 Arrow(m,8)=Arrow(m,8)*5 Gimme(Arrow(m,8),Arrow(m,1),Arrow(m,2)) endif endif next endif next endif if Arrow(m,0)==2 al=al+1 SetRot Arrow(m,5) if Arrow(m,9)<60 and (Arrow(m,9)%30)<15 then SetAlpha 0.3 if Arrow(m,9)<0 then Arrow(m,0)=0 Arrow(m,9)=Arrow(m,9)-1 DrawImg Arrow(m,1),Arrow(m,2),8 if Abs(px-Arrow(m,1))<24 then Arrow(m,0)=0:pars=pars+1:PlaySFX("Beeper_Jingle_Up",Rnd(2,2.3)); Gimme 5,Arrow(m,1),Arrow(m,2) if Arrow(m,1)<8 then Arrow(m,1)=Arrow(m,1)+4 if Arrow(m,1)>jscrw-8 then Arrow(m,1)=Arrow(m,1)-4 SetAlpha 1 endif next ResetDraw for t=0 to MaxBirds if Target(t,0)==0 and Rnd(0,150)<3 s=Rand(0,1) Target(t,0)=1 Target(t,1)=jscrw+32;Target(t,3)=0-Rnd(0.5,2)*speedup;Target(t,5)=3 if s==0 then Target(t,1)=-32;Target(t,3)=Abs(Target(t,3));Target(t,5)=0-3 Target(t,2)=Rand(32,jscrh*0.6) Target(t,4)=0 Target(t,7)=Rnd(0,3.9) endif if Target(t,0)==1 Target(t,1)=Target(t,1)+Target(t,3) if Target(t,1)<-32 or Target(t,1)>jscrw+32 then Target(t,0)=0 SetSize Target(t,5),3 Target(t,7)=Target(t,7)+Rnd(0.15,0.3) if Target(t,7)>=4 then Target(t,7)=0 DrawImg Target(t,1),Target(t,2),Floor(Target(t,7))+10 endif if Target(t,0)==2 al=al+1 Target(t,1)=Target(t,1)+Target(t,3); Target(t,3)=Target(t,3)*0.98 Target(t,2)=Target(t,2)+Target(t,4); Target(t,4)=Target(t,4)+0.1 if Target(t,1)<-32 or Target(t,1)>jscrw+32 then Target(t,0)=0 if Target(t,2)>=jscrh-55 then Target(t,2)=jscrh-jRand(50,65);Target(t,0)=3:PlaySFX("Drum_Low") SetSize Target(t,5),3 DrawImg Target(t,1),Target(t,2),10 endif if Target(t,0)==3 al=al+1 if Target(t,1)<8 then Target(t,1)=Target(t,1)+4 if Target(t,1)>jscrw-8 then Target(t,1)=Target(t,1)-4 SetSize Target(t,5),3 Target(t,9)=Target(t,9)-1 if Target(t,9)<0 then Target(t,0)=0 if Target(t,9)<60 and (Target(t,9)%30)<15 then SetAlpha 0.3 DrawImg Target(t,1),Target(t,2),10 if Abs(px-Target(t,1))<24 then Target(t,0)=0:pars=pars+1:PlaySFX("Beeper_Jingle_Up",Rnd(2,2.3)):speedup=speedup+0.1;Gimme 10,Target(t,1),Target(t,2) SetAlpha 1 endif next if al>0 then p99=0 if al==0 then p99=p99+1 if p99==10 then PlaySFX("Beeper_Toot_Lose",1) if p99>10 then MusicStop() if p99>60 then EndGame ResetDraw;SetSize 1;SetRot 90 dx=jscrw/2-pars*6 if pars>49 then pars=49 if pars>0 for x=1 to pars DrawImg dx,jscrh-32,8 dx=dx+12 next endif ResetDraw SetCol 0,90,0 TextScore jscrw/2,16,1 Return

Page : 1 Prev 2