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

Page : 1 2 Next

// Chop out this bit //gx=GamePad(ButtonLeft)-GamePad(ButtonRight) //if dead>0 then gx=0 //panggo=(panggo*0.9)+gx //pang=Wrap(pang+panggo*0.3,0,360) // And replace it with this bit bx=GamePad(ButtonRight)-GamePad(ButtonLeft) by=GamePad(ButtonUp)-GamePad(ButtonDown) pangto=ATan2(bx,by) spd=0 if Pyth(bx,by)>0.25 then spd=Limit(WrapTo(pang,pangto,0,360),-4,4) pang=Wrap(pang+spd,0,360)

// A Boat // by Jayenkai // Created 2023/1/4 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.C_C0_0_0.CB@C0_0_0.CB@CD_D0_0,CB@CB_BD?0/CB@CB_B!D,0.CB@CB_B_DD00CB@CB_B_BBD0CB@CB_B_B,DCB@CB_B_B,DCB@CB_B_BBD0CB@CB_B_DD00CB@CB_B!D,0.CB@CB_BD?0/CB@CD_D0_0,CB@C0_0_0.C_C"; Symbol 1,"2__0_0!DD0_0_0_0,DD0_0_0GG00G,00G0DD0G00G,00GG0/G_G,DDG_G,0!G_GG0DD0G_GG0!G_G,DDG_G,0!G_G,DDG_G,0!G_GG0DD0G_GG0/G_GGDDG_GG0_G_0DD0G_0_0.G?00DD00G?0_0_0?DD0_0_0_0,DD0_0_0_0,DD0_0_0_0,DD0_0_0_0,DD0_0_0_0,DD"; Graphics 640,480,1 AntiAlias False ang=0 bx=320 by=240 Repeat CLS 80,150,200 ang=ang+(GamePad(ButtonRight)-GamePad(ButtonLeft))*4 SetRot ang by=by+Sin(Mills()*0.3)*Cos(Mills()*0.45)*0.1 for layer=10 to 0 step -1 SetSize 1-layer*0.02 SetAlpha 1-layer*0.03 DrawImg bx,by+layer*0.5,0 next SetSize 1.5,1.5 SetRot 0 DrawImg bx,by,1 Flip Forever

Jayenlai The boat is made up of a bunch of layers of an identical flat boat sprite over and over, to give a vague 3D effect.

// Chilly Charlie // by Jayenkai // Created 2023/1/10 // GotoJSE.com/XXm8T84J.BAS Symbol 0,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0v_v!0_0/v_v@0_0?v!;_;vv0_0.v!;_;,vv0_0,v!;_;,vv0_00v!;_;?vv0_0v!;@vy;vy;vv0_0v!;@vv;vv;vv0_0v!;@v;;v;;vv0_0v!;@vv;vv;v!0!v!;@vv;B9@v0?v!;_;CB_Bv0.v,;vv;_;CB_Cv0.v,;;v;_;;C_v0?v.;v;_;?v!0!v!;_;?vv0_0v.:v;_;?vv0_0v.::;_;?vv0_0v.::;_;?vv0_0v.:,;_;.vv0!v@:.;_;,vv0/v/:_:/vv0@v?:_:/vv0_0v,:_:/vv0_0,v_v_v0_0_00vB,v0vB,v0_0_0,vB,v0vB,v0_0_0.v,0,v,"; Symbol 1,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0v_v!0_0/v_v@0_0?v!;_;vv0_0.v!;_;,vv0_0,v!;_;,vv0_00v!;_;?vv0_0v!;@vy;vy;vv0_0v!;@vv;vv;vv0_0v!;@v;;v;;vv0_0v!;@vv;vv;v!0!v!;@vv;B9@v0?v!;_;CB_Bv0.v,;vv;_;CB_Cv0.v,;;v;_;;C_v0?v.;v;_;?v!0!v!;_;?vv0_0v.:v;_;?vv0_0v.::;_;?vv0_0v.::;_;?vv0_0v.:,;_;.vv0!v@:.;_;,vv0/v/:_:/vv0@v?:_:/vv0_0v,:_:/vv0_0,v@B,v@0_0_0,v,00vB,v0_0_0_vB,v0_0_0_0v,"; Symbol 2,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0v_v!0_0/v_v@0_0?v!;_;vv0_0.v!;_;,vv0_0,v!;_;,vv0_00v!;_;?vv0_0v!;@vy;vy;vv0_0v!;@vv;vv;vv0_0v!;@v;;v;;vv0_0v!;@vv;vv;v!0!v!;@vv;B9@v0?v!;_;CB_Bv0.v,;vv;_;CB_Cv0.v,;;v;_;;C_v0?v.;v;_;?v!0!v!;_;?vv0_0v.:v;_;?vv0_0v.::;_;?vv0_0v.::;_;?vv0_0v.:,;_;.vv0!v@:.;_;,vv0/v/:_:/vv0@v?:_:/vv0_0v,:_:/vv0_0,v_v_v0_0_00vB,v0vB,v0_0_0,vB,v0vB,v0_0_0.v,0,v,"; Symbol 3,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0v_v!0_0/v_v@0_0?v!;_;vv0_0.v!;_;,vv0_0,v!;_;,vv0_00v!;_;?vv0_0v!;@vy;vy;vv0_0v!;@vv;vv;vv0_0v!;@v;;v;;vv0_0v!;@vv;vv;v!0!v!;@vv;B9@v0?v!;_;CB_Bv0.v,;vv;_;CB_Cv0.v,;;v;_;;C_v0?v.;v;_;?v!0!v!;_;?vv0_0v.:v;_;?vv0_0v.::;_;?vv0_0v.::;_;?vv0_0v.:,;_;.vv0!v@:.;_;,vv0/v/:_:/vv0@v?:_:/vv0_0v,:_:/vv0_0,v_v?B,vv0_0_00vB,v00v,0_0_0.vB,v0_0_0_0v,"; Symbol 4,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0v_v!0_0/v_v@0_0?v!;_;vv0_0.v!;_;,vv0_0,v!;_;,vv0_00v!;_;?vv0_0v!;@vy;vy;vv0_0v!;@vv;vv;vv0v,0!v!;@v;;v;;v,9,v0?v!;@vv;vv;9,B.v0.v!;@vv;B99B,v.0?v!;_;CB,v,0_v,;vv;_;CB,v,0_v,;;v;_;;C,B,v.0?v.;v;_;?C,B.v0.v!;_;?v,C,v0?v.:v;_;?vv0v,0!v.::;_;?vv0_0v.::;_;?vv0_0v.:,;_;.vv0!v@:.;_;,vv0/v/:_:/vv0@v?:_:/vv0_0v,:_:/vv0_0,v_v_v0_0_00vB,v0vB,v0_0_0,vB,v0vB,v0_0_0.v,0,v,"; Symbol 5,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0v_v!0_0/v_v@0_0?v!;_;vv0_0.v!;_;,vv0_0,v!;_;,vv0_00v!;_;?vv0_0v!;@vy;vy;vv0_0v!;@vv;vv;vv0_0v!;@v;;v;;vv0_0v!;@vv;vv;v!0!v!;@vv;B9@v0?v!;_;CB_Bv0.v!;_;CB_Cv0.v,;;v;_;;C_v0?vv;,v;_;?v!0!v!;_;?vv0_0v.:v;_;?vv0_0v.::;_;?vv0_0v.::;_;?vv0_0v.:,;_;.vv0!v@:.;_;,vv0/v/:_:/vv0@v?:_:/vv0_0v,:_:/vv0_0,v_v_v0_0_00vB,v0vB,v0_0_0,vB,v0vB,v0_0_0.v,0,v,"; Symbol 6,"12_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_RQRQRQ0_RvvQRQRQ0QR0?QvvRQRQRQR0!SQRQRQRQRQR0!S_S"; 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/;v;;v;,0_0_0!;@0_0_0?B.;?0_0_0!;?v;;0_0_0/v;v;,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_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_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_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_0_::;_;::0_0_;_;?"; Symbol 9,"1__0_0_0_0/;.0_00;!0_;@0@;@0@;@0@;@0_;!0_00;."; Symbol 20,"2__V_V_V_V?;_;_;_;_;_;_;_;W;,W;,W,;;WW;W,;;WW;;WW;.W5W,5W;W5,WW55W5,WW55WW55W;;W5/W5_5,W5@WW5@W5_5_5_5_5_5_5_5_5_5_5_5_5_5_5_5_5_6_6_6_6?"; Symbol 21,"0__0_0_0_0V,"; Symbol 22,"0__0_0_20/45210.65640?145"; Symbol 23,"0__0_0_0_;;0?;.0?;;"; Symbol 24,"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.;"; Tune$="<C16C16C8C16r32C16r32C16C16C16C8C16r32C16r32C16C16C16C8C16r32C16r32C16C16C16C8C16r32C16r32C16|<C8>G8E8C8<C8>G8E8C8<C8>G8E8C8<C8>G8E8C8|r8>G16A16<C16r8r16>G16A16<C16r8r16>G16A16<C16r8r16>G16A16<C16r8r16>G16A16<C16r8r16|G16r8E16r8G16r16C16r8E16r8C16r16E16r8C16r8E16r16C16r8G16r8E16r16|C32r16r32C32r32C32r32C32r16r32C32r32C32r32C32r16r32C32r32C32r32C32r16r32C32r32C32r32C32r16r32C32r32C32r32C32r16r32C32r32C32r32C32r16r32C32r32C32r32C32r16r32C32r32C32r32|r1r1|[d]|C8G+8r16G+8r16C2C8G+8r16G+8r16C2|C8G+8D16G+8r16C8G+8D8r16D16C8G+8D16G+8r16C8G+8D8D16D16|C8G+16C8r16C16G+8C16G+8C8C8C8G+16C8r16C16G+16C8G+8C8G+16G+16|r1|" SetFont "Journey" SetHandlerFont "Journey" Dim ice(10,10) Dim ball(10,10) Graphics 800,512,1 GameHandler("Chilly Charlie") .StartGame py=jscrh()*0.9 px=jscrw()*0.5 pxs=0 pfall=0 pland=0 pdis=1 pdir=1 phop=0 pskip=0 panim=0 pfeet=0 dead=0 peat=0 pshield=0 csn=0 cfh=0 wcsn=0 wcfh=0 msn=0.6 lives=3 for y=0 to 10 ice(y,0)=0 ball(y,0)=0 next ice(10,0)=1 ice(10,1)=jscrw()*0.5 ice(10,2)=jscrh()*0.95 ice(10,3)=2 ice(10,4)=0 JMTrackr(120,tune$) Return .Ingame CLS 0,80,200;ResetDraw() SetCol 0,120,240,0.2 for y=0.2 to 0.8 step 0.2 Rect 0,jscrh*y,jscrw,jscrh next ResetDraw() Starfield 0.1,0.5,24 ResetDraw() bf=-1 for n=0 to 10 if ball(n,0)==0 then bf=n if ball(n,0)>0 ball(n,1)=ball(n,1)+ball(n,3) ball(n,2)=ball(n,2)+ball(n,4) ball(n,4)=ball(n,4)+0.3 ball(n,5)=Wrap(ball(n,5)+ball(n,6),0,360) if ball(n,2)>jscrh+32 then ball(n,0)=0 SetRot Ball(n,5) DrawImg ball(n,1),ball(n,2),9 ball(n,9)=ball(n,9)-1 if Abs(ball(n,1)-px)<16 and Abs(ball(n,2)-py)<16 and ball(n,9)<1 dead=1 if pshield<1 then PlaySFX("Error_4") endif endif next ResetDraw() for n=0 to 10 if ice(n,0)==0 and Rnd(0,500)<10 w=Rand(1,3) y=Floor(Rand(64,jscrh()-32)/20)*20 y=(jscrh()*0.75)*((n+2.5)*0.1) d=Rnd(0.5,1.5):x=0-w*32 if Rnd(0,10)<5 d=0-Rnd(0.5,1.5):x=jscrw+w*32 endif ice(n,0)=1 ice(n,1)=x:ice(n,2)=y ice(n,3)=w:ice(n,4)=d ice(n,5)=0:ice(n,6)=0 r=Rnd(0,10) if r<4 or wcfh==0 then ice(n,5)=6:ice(n,6)=Rnd(-w,w):wcfh=wcfh+1 if msn>=1 and wcsn<Floor(msn) if r>4 or wcsn==0 then ice(n,5)=7:ice(n,6)=Rnd(-w,w):wcsn=wcsn+1 endif ice(n,7)=Rand(30,120) endif if ice(n,0)>0 ice(n,1)=ice(n,1)+ice(n,4) dy=ice(n,2) in=0 h=0 for x=-ice(n,3) to ice(n,3) dx=ice(n,1)+x*32 DrawImg dx,ice(n,2),20 if dx>0-64 and dx<jscrw()+64 then in=1 if Abs(py-(dy-20))<16 and Abs(px-dx)<18 and pfall>=0 and pland<4 py=dy-30:pland=4:pfall=1:phop=1:pskip=1 h=1 px=px+ice(n,4) endif next if ice(n,5)==6 cfh=cfh+1 dx=ice(n,1)+ice(n,6)*32 DrawImg dx,dy-30,ice(n,5) if Abs(px-dx)<16 and h==1 peat=30:ice(n,5)=0:PlaySFX("Powerup_5"):Gimme 10,px,py-10 msn=msn+0.1 endif endif if ice(n,5)==7 csn=csn+1 dx=ice(n,1)+ice(n,6)*32 if dx>=px then SetSize 2,2 if dx<px then SetSize 0-2,2 DrawImg dx,dy-46,ice(n,5) if Abs(px-dx)<16 and Abs(py-(dy-46))<24 and pfall>2 peat=30:ice(n,5)=8:pfall=-8 Gimme 15,px,py-10 msn=msn+0.1 PlaySFX("Explode_High_5") for q=0 to 20 ThrowParticle dx,dy-46,2,Rnd(0,360),Rnd(1,2),23 next endif SetSize 1 if dx>16 and dx<jscrw-16 ice(n,7)=ice(n,7)-1 if ice(n,7)<0 and bf>-1 and Rnd(0,30)<5 ice(n,7)=Rnd(40,80) PlaySFX("Warble_4") ball(bf,0)=1 ball(bf,1)=dx ball(bf,2)=dy-46 ball(bf,3)=Rnd(3,4) if dx>px then ball(bf,3)=0-Rnd(3,4) ball(bf,4)=Rnd(-2,-5) ball(bf,5)=Rnd(360) ball(bf,6)=Rnd(-8,8) ball(bf,9)=15 bf=-1 endif endif endif if ice(n,5)==8 dx=ice(n,1)+ice(n,6)*32 SetSize 2,2 DrawImg dx,dy-46,ice(n,5) SetSize 1 endif if in==0 then ice(n,0)=0 endif next wcsn=csn wcfh=csh csn=0 cfh=0 if msn>6 then msn=6 ResetDraw() SetSize 1,1:if pdir<0 then SetSize 0-1,1 panim=pfeet if peat>0 peat=peat-1 if peat mod 8<4 then panim=4 endif if lives<0 then py=5000 SetAlpha 1 if pshield>0 and (pshield mod 30)<15 then SetAlpha 0.3 DrawImg px,py,panim reduce=0.985 pland=pland-1 if pland<1 pland=0 if pskip==1 pskip=0 if phop==1 then phop=0 endif endif if pland<1 then reduce=0.9 gx=(GamePad(ButtonRight)-GamePad(ButtonLeft))*0.3 if pshield>60 then gx=0:pxs=0 pfeet=pfeet+Abs(gx)*0.4 if pfeet>=4 then pfeet=0 if Abs(gx)<0.1 then pfeet=0 if gx<0 then pdir=-1 if gx>0 then pdir=1 pxs=(pxs*reduce)+gx px=px+pxs if px<16 then px=16 if px>jscrw()-16 then px=jscrw()-16 pfall=pfall+0.5 if pfall>10 then pfall=10 py=py+(pfall*0.75) if py>jscrh()+32 then dead=1:pshield=0 if GamePad(ButtonA)<0.5 then pdis=0 if GamePad(ButtonA)>0.5 and (pland>0 or phop<2) and pdis==0 if pland==0 then phop=phop+1 PlaySFX("Peep_1") pskip=0 pland=0:pfall=-10:pdis=1 endif ResetDraw() if lives<-30 then EndGame "Game Over" SetFontSize 16 TextScore jscrw*0.5-32,jscrh-16,1 SetSize 0.5 x=jscrw*0.5+64 if Lives>0 for n=1 to Lives DrawImg x,jscrh-16,0 x=x+16 next endif if lives<0 then dead=1:MusicStop() pshield=pshield-1 if pshield<1 or lives<0 then pshield=0 if dead==1 and pshield==0 pshield=90 if lives>-1 then PlaySFX("Beeper_Die",1) lives=lives-1 phop=5:pdis=1 if lives>-2 for q=0 to 19 ThrowParticle px,py,2,Rnd(-20,20),Rnd(1,4),22,0 ThrowParticle px,py,4,q*18,Rnd(0.5,1.2),22,0 next endif if lives>-1 py=jscrh()*0.9:px=jscrw()*0.5 for q=0 to 7 ThrowParticle px,py,4,q*45,Rnd(0.25,0.5),21,0 ThrowParticle px,py,4,q*45+22.5,Rnd(0.65,0.8),21,0 next endif endif dead=0 ResetDraw() SetFontSize 32 Return

// Geometric Galaxy // by Jayenkai // Created 2023/2/9 // GotoJSE.com/NWFXjvC2.BAS Symbol 0,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0/3?0_0_0@30?30_0_0!30/30_0_0.30_30_0_0030_0030_0_30!H0!30_0@30?H,0?30_0@30.H?0.30_0@30?H,0?30_0@30.HH0HH0.30_0@30_0.30_0_30_0030_0_0030_30_0_0.30/30_0_0!30?30_0_0_0_0_0_0_0_0_0_00P0_0_0_0,P0P0_0_0_00P0P0_0_0_0P0,P0_0_0_P0,P"; Symbol 1,"1__0_0_0_0_0,330_0,3!0@3_30?3_3,0_0_0,30030030030!30030030030_0_0,3_3,0?3_30@3!0_0,33"; 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_00ORO0_0_0_00ORO0_0_0_00R,0_0_0_00ORO0_0_0_00ORO0_0_0_00ORO0_0_0_00ORO0_0_0_00ORO0_0_0_00ORO0_0_0_00ORO"; Symbol 3,"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,3!0_0_0!330!330_0_0,30_030_0_0?3!0_0_0/30!30_0_0_330_0_0_003.0_0_0_0_0_0_0/330_0_0_0,330_0_0_0_0_0_0@330_0_0_0,33"; Symbol 4,"2__0_0_0_0_0_0,H0_0_0_0.H0_0_0_0.H0H0_0_0_00H0H0_0_0_00H0H0_0_0_00H0H0_0_0@HH0H0H0_0_0@HH0H0_0_0_0HH0H00H0_0_0/HH0H00H0_0_0@H0H0_0_0_0.H0_0_0_0.H0_0_0_00H0H0_0_0_0.H0HH0_0_0_0H0HH0_0_0@H0H0HH0_0_0!H0,H0HH0_0_0!H0,H0_0_0_0.H0_0_0_0.H0_0_0_0H00H0_0_0_0H00H0_0_0_0H00H0,H0_0_0_H0_0_0_0.H0,H0_0_0_H0,H0_0_0_H0_0_0_0.H0H0_0_0_00H0H0_0_0_0.H"; 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.ORO0_0ORO0_0/ORO0_0ORO0_0/R,0_0R,0_0/ORO0_0ORO0_0/ORO0_0ORO0_0/ORO0_0ORO0_0/ORO0_0ORO0_0/ORO0_0ORO0_0/ORO0_0ORO0_0/ORO0_0ORO"; 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_00VV0_0_0_00VaaV0_0_0_VaVVaV0_0_0/VaVaaVaV0_0_0!aVaVVaVa0_0_0!VaVaaVaV0_0_0!aVaVVaVa0_0_0!VaVaaVaV0_0_0!aVa00aVa0_0_0!Va0.aV0_0_0!a0!a"; Symbol 7,"0__0_0_0!O@"; Symbol 8,"1__0_0_0_0_0_0_0_0@30_0_0_0_0_0?30_0_0_0_0.30_0_0_0_003"; 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_0_0_0.;;0_0_0_00;.0_0_0_0;.0_0_0_00;;"; Symbol 10,"1__0/OO0_0?OO0_0,OO00OO0_0OO00OO0_0OO00OO0_0OO00OO0@OO0!OO0!OO0!OO0!OO0!OO0!OO0!OO0.OO0_0OO00OO0_0OO00OO0_0OO00OO0_0OO"; Tune$=">C8r16C16r4C8r16C16r4G8r16G16r4C8r16C16r4|r8>C16C16r8C16r8r16C16C16r8C16r8r16G16G16r8G16r8r16C16C16r8G16r16|C8>G8C8G8<C8>G8C8r8<C8>G8C8G8<C8>G8C4|C16C16C16>A+16G16A+16G16A+16<C16C16C16>A+16G16r1r8r16|r1>G16G16G16A16A+16<C16>A+16<C16>G16G16G16A16A+16r8r16|C4D8F8G4r4G4F8D8C4r4|r4G16F16D+16D16C16r8C16r2C16D16D+16F16G8r4r8|r1|[d]|C8G+8C8G+8C8G+8C8G+8C8G+8C8G+8C8G+8C8G+8|C8G+8D8G+16D16C8G+8D8G+8C8G+8D8G+16D16C8G+8D8G+8|r1|" Graphics 1920,1080,1:Border 30,30,90 Dim obj(10,20) Dim bullet(25,10) Dim asteroid(10,10) AA Off SetFont "StarRanger" SetHandlerFont "StarRanger" GameHandler("Geometric | Galaxy") .StartGame px=ScreenWidth()/2 py=ScreenHeight()/2 pang=90 pdel=0 bto=0 Level=0 kdis=1 Score=0 Dead=0 Lives=3 Weapon=0 WeaponN=0 Gosub FetchWorld Return .FetchWorld SetBuffer BG CLS Wasin=-1 Amin=-1 Fade=1 Florp=0 for m=0 to 10 asteroid(m,0)=0 next ResetDraw for n=0 to 4 cx=Rand(0,1024) cy=Rand(0,1024) InkRot Rand(360),0.7,0.3 SetAlpha 0.4 for m=0 to 8 x=cx+Rand(-128,128) y=cy+Rand(-128,128) Light x,y,Rand(64,256),0.7 next next Level=Level+1 spd=(0.1*Level)+0.1 if spd>1 then spd=1 tx=px+Sin(pang)*128 ty=py-Cos(pang)*128 tx2=px+pxs*64 ty2=py+pys*64 fail=0 for n=0 to 3 obj(n,0)=Rand(5,7) z=Floor(Rand(220,340)/16)*16 repeat x=Rand(z,jscrw()-z):y=Rand(z,jscrh()-z) x=Floor(x/16)*16;y=Floor(y/16)*16 if Abs(x-px)<z*1.45 and Abs(y-py)<z*1.25 then x=-1 if Abs(x-tx)<z*1.25 and Abs(y-ty)<z*1.25 then x=-1 if Abs(x-tx2)<z*1.25 and Abs(y-ty2)<z*1.25 then x=-1 if n>0 for m=0 to n-1 if Abs(x-obj(m,1))<z and Abs(y-obj(m,2))<z then x=-1 next endif fail=fail+1 if fail>200 then x=100 until x>-1 obj(n,1)=x obj(n,2)=y obj(n,3)=z obj(n,4)=z*2 obj(n,5)=Rand(0,360) obj(n,6)=spd if n==1 then obj(n,6)=spd*1.2 if n==2 then obj(n,6)=spd*1.4 if n==3 then obj(n,6)=0-spd*1.6 obj(n,8)=Rand(0,obj(n,0)+3) obj(n,9)=0 obj(n,10)=1 x=x/2:y=y/2:z=z/2 x=x+32:y=y+242 SetCol(255,80,80) if n==1 then SetCol(255,255,80) if n==2 then SetCol(80,255,80) if n==3 then SetCol(80,180,255) SetBlend "Light" SetAlpha 0.05 for m=1 to 8 cx=x+Rand(0-m*16,m*16) cy=y+Rand(0-m*16,m*16) Light cx,cy,Rand(64,256),0.7 next ResetDraw SetWidth 1 SetCol 64,64,64,1 SetBlend "Light" SetCol 72,72,72,1 Line x,0,x,1024 Line 0,y,1024,y SetCol 48,48,48,1 Line x-z,0,x-z,1024 Line x+z,0,x+z,1024 Line 0,y-z,1024,y-z Line 0,y+z,1024,y+z SetCol 24,24,24,1 // Line 0,0,x,y // Line 1024,0,x,y // Line 0,1024,x,y // Line 1024,1024,x,y SetCol 32,32,32,1 Line x-1024,y-1024,x+1024,y+1024 Line x-1024,y+1024,x+1024,y-1024 next if fail>200 then Level=Level-1:Goto FetchWorld SetBuffer FG JMTrackr jRand(0,4)*5+140,Tune$ return .Ingame CLS Die=0 Burst=2-Fade Burst=Burst*Burst*Burst*Burst ResetDraw:SetSize 2 SetAlpha Fade DrawBG jscrw()/2,jscrh()/2 ResetDraw Starfield 0-1,0,9 ResetDraw SetWidth 2 pang=Wrap(pang+(GamePad(ButtonRight)-GamePad(ButtonLeft))*4,0,360) if GamePad(ButtonA)<0.5 then kdis=0 if Fade<1 then kdis=1 if GamePad(ButtonA)>0.5 and kdis==0 psx=psx+Sin(pang) psy=psy-Cos(pang) ThrowParticle px,py,4,pang+Rnd(178,182),Rnd(0.2,0.3),8,3 endif px=Wrap(px+psx*0.3,0,ScreenWidth()) py=Wrap(py+psy*0.3,0,ScreenHeight()) if Lives<0 then px=-1024;py=-1024 psx=psx*0.97 psy=psy*0.97 SetCol 100,255,100 if Dead>0 and Lives>-1 SetCol 160,200,255,0.5 if Dead%16>8 then SetWidth 16 endif if Lives>-1 PColA=Line(px+Sin(pang)*16,py-Cos(pang)*16,px+Sin(pang+130)*16,py-Cos(pang+130)*16) PColB=Line(px+Sin(pang)*16,py-Cos(pang)*16,px+Sin(pang+230)*16,py-Cos(pang+230)*16) endif Weapon=1 WeaponN=-1 ResetDraw SetWidth 4 rm=0 st=1 if Mills()%800<400 then st=0 Wasin=Amin Amin=-1 SetBlend "Light" for n=0 to 3 if obj(n,0)>0 SetCol(255,80,80) if n==1 then SetCol(255,255,80) if n==2 then SetCol(80,255,80) if n==3 then SetCol(80,180,255) x=obj(n,1):y=obj(n,2) arc=360/obj(n,0) obj(n,5)=Wrap(obj(n,5)+obj(n,6),0,360) SetRot Obj(n,5);SetAlpha 0.05*Fade OCol=Oval(x,y,obj(n,4),obj(n,4),obj(n,0)) if Pyth(x-px,y-py)<obj(n,3)*0.95 SetRot Obj(n,5);SetAlpha 0.1*Fade Weapon=n+2 WeaponN=n Amin=n if obj(n,10)<=0.03 obj(n,10)=0.02 Weapon=1 WeaponN=-1 endif Oval(x,y,obj(n,4)*obj(n,10),obj(n,4)*obj(n,10),obj(n,0)) endif SetAlpha Fade;SetRot 0 z=obj(n,3)*Burst for r=2 to obj(n,0) if r!=obj(n,8) x1=x+Sin(arc*r+obj(n,5))*z y1=y-Cos(arc*r+obj(n,5))*z x2=x+Sin(arc*(r+1)+obj(n,5))*z y2=y-Cos(arc*(r+1)+obj(n,5))*z SetWidth 4;SetAlpha Fade Wall=Line(x1,y1,x2,y2) SetWidth 12;SetAlpha 0.3*Fade Line(x1,y1,x2,y2) if Collide(Wall,PColA)>0.5 or Collide(Wall,PColB)>0.5 if Fade==1 and Dead==0 then Die=1 endif endif next if obj(n,9)==0 rm=rm+1 SetCol(120,255,120) if st==1 Star x,y,68,40,5 endif if st==0 Star x,y,60,48,5 endif if Pyth(x-px,y-py)<52 obj(n,9)=1 Gimme 50,x,y-32 PlaySFX("Powerup_5") for q=0 to 15 ThrowParticle x,y,4,q*22.5,0.1,1,3 ThrowParticle x,y,4,q*22.5,0.05,1,3 next endif endif endif next if rm==0 if Fade==1 then PlaySFX("Beeper_Rise") Score=Score+250 Fade=Fade-0.016667 endif endif ResetDraw SetSize 2 SetCol 100,255,100,0.75 TextScore jscrw()/2,24,1 SetSize 1 for x=0 to 3 if Lives>x then DrawImg (jscrw()/2-160)-x*36,24,10 next pdel=pdel-1 if pdel<1 then pdel=0 f=0 if GamePad(ButtonB)>0.5 or GamePad(ButtonY)>0.5 then f=1 if Fade<1 or Dead>0 then f=0 if Dead>0 then pxs=0:pys=0 if pdel==0 and f==1 bto=(bto+1) mod 13 pdel=14:spd=8 if Weapon==2 then pdel=25 if Weapon==3 then spd=16:pdel=4 if Weapon==4 then pdel=8 if Weapon==5 then pdel=16 PlaySFX("lazer_"+((Weapon*2)+1),Rnd(0.9,1.1),0.4) if WeaponN>-1 then obj(WeaponN,10)=obj(WeaponN,10)-0.04 if Weapon==2 or Weapon==5 then obj(WeaponN,10)=obj(WeaponN,10)-0.04 if Weapon<5 bullet(bto,0)=Weapon bullet(bto,1)=px bullet(bto,2)=py bullet(bto,3)=Sin(pang)*spd bullet(bto,4)=0-Cos(pang)*spd bullet(bto,5)=pang endif if Weapon==5 gap=8 bullet(bto,0)=Weapon bullet(bto,1)=px bullet(bto,2)=py bullet(bto,3)=Sin(pang-gap)*spd bullet(bto,4)=0-Cos(pang-gap)*spd bullet(bto,5)=pang-gap bto=(bto+1) mod 13 bullet(bto,0)=Weapon bullet(bto,1)=px bullet(bto,2)=py bullet(bto,3)=Sin(pang+gap)*spd bullet(bto,4)=0-Cos(pang+gap)*spd bullet(bto,5)=pang+gap endif endif Naster=Level-1:if Naster>5 then Naster=5 ResetDraw:SetSize 2 for t=0 to 2 for b=0 to 12 if bullet(b,0)>0 i=bullet(b,0) x=bullet(b,1)=bullet(b,1)+bullet(b,3) y=bullet(b,2)=bullet(b,2)+bullet(b,4) if t==2 then SetRot bullet(b,5):DrawImg x,y,bullet(b,0)+1 if x<-32 or y<-32 or x>jscrw()+32 or y>jscrh()+32 then bullet(b,0)=0 if Naster>0 for m=1 to Naster if asteroid(m,0)>0 dx=x-asteroid(m,1) dy=y-asteroid(m,2) if bullet(b,0)==2 if Pyth(dx,dy)<480 bullet(b,3)=Limit(bullet(b,3)+Limit((0-dx),0-0.3,0.3),0-8,8) bullet(b,4)=Limit(bullet(b,4)+Limit((0-dy),0-0.3,0.3),0-8,8) endif endif if Pyth(dx,dy)<52 asteroid(m,0)=asteroid(m,0)-1 asteroid(m,3)=asteroid(m,3)+bullet(b,3)*0.3 asteroid(m,4)=asteroid(m,4)+bullet(b,4)*0.3 j=6:if asteroid(m,0)<1 then asteroid(m,0)=0:j=32 for q=0 to j ThrowParticle asteroid(m,1),asteroid(m,2),4,bullet(b,5)+Rand(-30,30),Rnd(0.2,0.4),7 next PlaySFX("Hit_2") if asteroid(m,0)<1 then PlaySFX("Hit_3") Gimme 5,asteroid(m,1),asteroid(m,2) bullet(b,0)=0 if i==3 then bullet(b,0)=3 endif endif next endif endif next next //if GamePad(ButtonX)>0.5 and Fade==1 then Fade=Fade-0.016667 if Fade<1 then Fade=Fade-0.016667 if Fade<=0.01 then Gosub FetchWorld ResetDraw;SetThick 3 if Naster>0 gaps=0 lm=240-Level*10 if lm<60 then lm=60 for m=1 to Naster if asteroid(m,0)==0 gaps=1 if Florp>lm and Rnd(0,100)<4 x=Rand(1920):y=Rand(1024) if Pyth(x-px,y-py)<256 then x=-1 if Pyth(x-(px+1920),y-py)<256 then x=-1 if Pyth(x-(px-1920),y-py)<256 then x=-1 if Pyth(x-px,y-(py-1024))<256 then x=-1 if Pyth(x-px,y-(py+1024))<256 then x=-1 if x>-1 Florp=0 PlaySFX("Warble_4",Rnd(1.7,2.4)) asteroid(m,0)=4 asteroid(m,1)=x:asteroid(m,2)=y asteroid(m,5)=Rnd(0,360) asteroid(m,6)=Rnd(-3,3) f=Rnd(0.7,2.5+Level*0.3) if f>4 then f=4 asteroid(m,3)=Sin(asteroid(m,5))*f asteroid(m,4)=0-Cos(asteroid(m,5))*f endif endif endif if fade<1 then asteroid(m,0)=0 if asteroid(m,0)>0 z=Floor(asteroid(m,0)+4):if z==7 then z=z+1 InkRot asteroid(m,0)*45,0.75,1 SetAlpha 1:SetRot asteroid(m,5) x=asteroid(m,1)=Wrap(asteroid(m,1)+asteroid(m,3),0-32,1952) y=asteroid(m,2)=Wrap(asteroid(m,2)+asteroid(m,4),0-32,1056) asteroid(m,5)=asteroid(m,5)+asteroid(m,6) DrawOval(x,y,96,96,z) SetAlpha 0.3 Oval(x,y,96,96,z) if Pyth(x-px,y-py)<54 and Dead==0 and Fade==1 then Die=1 endif next endif Florp=Florp+1 if gaps==0 then Florp=0 if Die==1 Dead=1 Lives=Lives-1 PlaySFX("Explode_Low_6") for q=0 to 15 ThrowParticle px,py,1,q*22.5,Rnd(0.2,0.4),7,0 ThrowParticle px,py,4,q*22.5,Rnd(0.3,0.5),7,0 ThrowParticle px,py,4,q*22.5,Rnd(0.1,0.3),7,0 next endif if Dead>0 then Dead=Dead+1 if Dead>120 if Lives>-1 then Dead=0 if Lives<0 then EndGame "Game Over" endif if Wasin==-1 and Amin>-1 then PlaySFX("Sonniss_Ui_1",Rnd(1.2,1.5)) if Wasin>-1 and Amin<0 then PlaySFX("Sonniss_Ui_5",Rnd(1.2,1.5)) if Wasin>-1 and Amin>-1 and Wasin!=Amin then PlaySFX("Sonniss_Ui_9",Rnd(1.2,1.5)) if Fade<1 or Lives<0 then MusicStop if GamePad(ButtonX)>0.5 then Gosub FetchWorld Flip Return

Page : 1 2 Next