D'you Like Creation - July 2024

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|599\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> On Topic -> D'you Like Creation - July 2024
Page : 1 2 Next Prev
Sat, 29 Jun 2024, 03:19
Jayenkai	D'you Like Creation - July 2024 (Click for bigger) I figured it was time to post another of these Creativity spawning threads. I've posted it a couple of days in advance to let you bulk up on your amazing creativity. As with the previous months, each day has a word that you should try to reproduce in some way. But I'm not going to set any more rules than that, this time around. Use the words however you'd like, be it art, sound, game, toy or whatever. You could compose some music, write a short story, paint a beautiful pixelart masterpiece, tell us a short story, anything. Do whatever your heart desires, but be vaguely relevant to the day's word!! The word list > Reveal 🔎 1. Ripple 2. Spark 3. Whisper 4. Bloom 5. Shadow 6. Twist 7. Echo 8. Glow 9. Knot 10. Burst 11. Haze 12. Pulse 13. Flicker 14. Splash 15. Breeze 16. Spiral 17. Melt 18. Glitch 19. Sway 20. Bounce 21. Blend 22. Frost 23. Tangle 24. Buzz 25. Fold 26. Sprout 27. Swirl 28. Crackle 29. Stretch 30. Bubble 31. Curve -=-=- ''Load, Next List!''
Mon, 01 Jul 2024, 02:49
Jayenkai	Day One : Ripples // Ripples // by Jayenkai // Created 2024/7/01 // GotoJSE.com/D4Q3xxDC.BAS Symbol 0,"1__0!45,0_045/0/45534,5,0?5,34?5,0,5,3423,445,00554423?4455055443,123,445.443312,33445.44332.33445.443,223,4455055443!4455005,443.445,0,5,4!5,0?5,4.5,0/5@0_05."; SetControlMethod Mouse Dim Ripple(10,10) rto=0 Graphics 1024,1024,1 SetTilemapSize(32,32) for x=0 to 31 for y=0 to 31 SetTile x,y,0 SetTileAlpha x,y,0 next next for n=0 to 10 Ripple(n,0)=0 next Repeat CLS DrawTilemap 16,16 v=1-(0.1delta) for x=0 to 31 // Reduce all alphas towards zero for y=0 to 31 SetTileAlpha(x,y,GetTileAlpha(x,y)v) next next if MouseHit() // Generate a new ripple PlaySFX("Explode_Low_6") rto=(rto+1)%10 Ripple(rto,0)=34 Ripple(rto,1)=(MouseX())/32;Ripple(rto,2)=(MouseY())/32 Ripple(rto,3)=Rand(0,7);Ripple(rto,4)=Rnd(0.08,0.12) Ripple(rto,5)=Rnd(0.5,1.3) endif for n=0 to 9 // Increase alphas where ripple intersects tile if Ripple(n,0)>0 Ripple(n,0)=Ripple(n,0)-(0.3delta) e=(33-Ripple(n,0)) d=Limit(e+Sin(Mills()Ripple(n,4)+n45)eRipple(n,5),0,128) p=Ripple(n,0)/64; if p>1 then p=1 for a=0 to 355 step 5 x=Floor(Ripple(n,1)+Sin(a)d);y=Floor(Ripple(n,2)-Cos(a)*d) if x>-1 and y>-1 and x<32 and y<32 SetTileAlpha(x,y,GetTileAlpha(x,y)+p) SetTileCol(x,y,Ripple(n,3)) endif next endif next Flip Forever --v -=-=- ''Load, Next List!''
Tue, 02 Jul 2024, 02:24
cyangames	Will catch up with these, just finishing other bits off -=-=- Web / Game Dev, occasionally finishes off coding games also!
Tue, 02 Jul 2024, 03:01
Jayenkai	Day Two : Spark // Spark // by Jayenkai // Created 2024/7/02 Symbol 0,"0__0_0_003310?30!330!30/1"; Dim Wire(64,4) SetControlMethod Mouse Graphics 800,600,2 x1=ScreenWidth()0.3 y1=ScreenHeight()0.3 x2=ScreenWidth()0.7 y2=ScreenHeight()0.6 dx=(x2-x1)/60 dy=(y2-y1)/60 SetThick 8 for m=0 to 60 Wire(m,3)=x1+dxm Wire(m,4)=(y1+dym) Wire(m,1)=Wire(m,3) Wire(m,2)=Wire(m,4) next ParticleSpeed=1 ParticleGravity=0.5 ParticleType=1 ParticleCol=0 Con=0 pick=0 Repeat CLS ResetDraw SetFontSize 8;SetFont "ZX" gap=ScreenHeight()0.12 ParticleType=-1 ParticleCol=-1 for t=1 to 8 DrawOval 32,tgap,8,8,32 if Abs(x1-32)<12 and Abs(y1-(tgap))<12 x1=32;y1=tgap;ParticleType=t endif if Abs(x2-32)<12 and Abs(y2-(tgap))<12 x2=32;y2=tgap;ParticleType=t endif next Text 48,gap,"plain",0 Text 48,gap2,"fall",0 Text 48,gap3,"bounce",0 Text 48,gap4,"slower",0 Text 48,gap5,"faster",0 Text 48,gap6,"fall up",0 Text 48,gap7,"smoke",0 Text 48,gap8,"swirl",0 x=ScreenWidth()-32 for t=1 to 8 DrawOval x,tgap,8,8,32 if Abs(x1-x)<12 and Abs(y1-(tgap))<12 x1=x;y1=tgap;ParticleCol=t-1 endif if Abs(x2-x)<12 and Abs(y2-(tgap))<12 x2=x;y2=tgap;ParticleCol=t-1 endif next x=ScreenWidth()-48 Text x,gap,"red",2 Text x,gap2,"orange",2 Text x,gap3,"yellow",2 Text x,gap4,"green",2 Text x,gap5,"cyan",2 Text x,gap6,"blue",2 Text x,gap7,"purple",2 Text x,gap8,"magenta",2 dx=(x2-x1)/60 dy=(y2-y1)/60 c=ParticleCol30 if ParticleCol>3 then c=(ParticleCol+2)30 if ParticleCol>4 then c=(ParticleCol+3)30 sat=0.65;if ParticleCol<0 then sat=0 SetThick 8 for m=0 to 60 f=31-Abs(m-30) Wire(m,1)=SmoothTo(Wire(m,1),Wire(m,3),f) Wire(m,2)=SmoothTo(Wire(m,2),Wire(m,4),f) Wire(m,3)=x1+dxm Wire(m,4)=(y1+dym)+Sin(m3)64 InkRot c,sat,dark if m<3 or m>58 then SetCol 230,240,250 if m>0 then Line Wire(m,1),Wire(m,2),Wire(m-1,1),Wire(m-1,2) next if MouseDown()>0 and pick==0 if MouseIn_Radius(x1,y1,48)>0 then pick=1 if MouseIn_Radius(x2,y2,48)>0 then pick=2 endif if MouseDown()>0 and pick==1 then x1=MouseX();y1=MouseY() if MouseDown()>0 and pick==2 then x2=MouseX();y2=MouseY() if MouseDown()==0 then pick=0 spd=0.8 if ParticleType==2 or ParticleType==3 then spd=1.5 if ParticleType==5 or ParticleType==6 or ParticleType==7 then spd=0.3 if ParticleType==8 then spd=5 spd=spdParticleSpeed dark=0.3 if ParticleType>-1 and ParticleCol>-1 then dark=1.2; ThrowParticle ScreenWidth()0.5,ScreenHeight()0.5,ParticleType,Rnd(0,360),Rnd(0.2,spd),0,ParticleCol SetParticleSize 32 SetParticleGravity ParticleGravity ResetDraw x=ScreenWidth()0.5 gap=ScreenWidth()0.3 y=ScreenHeight()-96 SetThick 3 SetCol 250,200,150 Line x-gap,y,x+gap,y SetCol 255,255,255 Text x,y-10,"Speed",1 SetCol 150,200,250;if pick==3 then SetCol 50,128,180 ox=(x-gap)+gapParticleSpeed Oval ox,y,16,16,32 x=ScreenWidth()0.5 if MouseIn(x,y,gap2,32,1)>0 and MouseDown()>0 and pick==0 then pick=3 if pick==3 ParticleSpeed=Limit(((MouseX()-x)/gap)+1,0,2) endif ResetDraw x=ScreenWidth()0.5 gap=ScreenWidth()0.3 y=ScreenHeight()-48 SetThick 3 SetCol 250,200,150 Line x-gap,y,x+gap,y SetCol 255,255,255 Text x,y-10,"Gravity",1 SetCol 150,200,250;if pick==4 then SetCol 50,128,180 ox=(x-gap)+gap(ParticleGravity2) Oval ox,y,16,16,32 x=ScreenWidth()0.5 if MouseIn(x,y,gap2,32,1)>0 and MouseDown()>0 and pick==0 then pick=4 if pick==4 ParticleGravity=Limit((((MouseX()-x)/gap)+1)/2,0,1) endif Flip Forever --v -=-=- ''Load, Next List!''
Wed, 03 Jul 2024, 02:09
Jayenkai	Day Three : Whisper // Whispering // by Jayenkai // Created 2024/7/1 // GotoJSE.com/8Pg3MJqb.BAS Dim txt(10) Dim ltr(200,10) SetControllerMethod Mouse txt(0)="Whispering" txt(1)="Silent" txt(2)="Hush" txt(3)="Quiet" txt(4)="Softly" txt(5)="Gentle" txt(6)="Faint" txt(7)="Shhh" txt(8)="Breath" txt(9)="Murmur" w=0 l=0 del=0 Graphics 640,400,2 Repeat CLS 0,0,0,0.1 del=del-delta if Rnd(0,100)<10 and del<0 del=Rnd(50,90) wp=txt(w) f=ScreenWidth()-(32+(len(wp)16)) x=Rnd(32,f) y=Rnd(16,ScreenHeight()) t=0 f=Rand(1,33) for n=0 to len(wp)-1 ltr(l,0)=120+t;t=t+Rnd(5,12) ltr(l,1)=x ltr(l,2)=y ltr(l,3)=Rnd(8.5,12.5) ltr(l,4)=Rnd(8.5,12.5) ltr(l,5)=0;ltr(l,6)=0 ltr(l,8)=f ltr(l,9)=Mid$(wp,n,1) x=x+Rnd(15,17) y=y+Rnd(-2,2) l=(l+1)%100 next w=Rand(0,9) endif ResetDraw for n=0 to 100 if ltr(n,0)>0 ltr(n,0)=ltr(n-0)-deltaRnd(0.3,1) ltr(n,1)=ltr(n,1)+ltr(n,5)0.1 ltr(n,2)=ltr(n,2)+ltr(n,6)0.1 ltr(n,5)=ltr(n,5)0.94 ltr(n,6)=ltr(n,6)0.94 d=Pyth(ltr(n,1)-MouseX(),MouseY()-ltr(n,2)) if d<128 a=ATan2(ltr(n,1)-MouseX(),MouseY()-ltr(n,2)) d=(128-d)0.01 ltr(n,5)=ltr(n,5)+Sin(a)d ltr(n,6)=ltr(n,6)-Cos(a)d endif if ltr(n,0)>60 and ltr(n,0)<120 then ltr(n,3)=ltr(n,3)Rnd(0.76,0.89);ltr(n,4)=ltr(n,4)Rnd(0.76,0.89) if ltr(n,0)<60 then ltr(n,3)=ltr(n,3)Rnd(1.01,1.03);ltr(n,4)=ltr(n,4)*Rnd(1.01,1.03);ltr(n,2)=ltr(n,2)-Rnd(0.1,0.3) if ltr(n,3)<1 then ltr(n,3)=1 if ltr(n,4)<1 then ltr(n,4)=1 SetSize ltr(n,3),ltr(n,4) a=1-(Abs(ltr(n,0)-60)/60) SetFont ltr(n,8) SetAlpha a x=ltr(n,1);y=ltr(n,2) if a>0 then Text x,y,ltr(n,9),1 endif next ResetDraw SetCol 255,255,255 Flip Forever --v -=-=- ''Load, Next List!''
Thu, 04 Jul 2024, 02:35
Jayenkai	Day Four - Bloom // Bloom // by Jayenkai // Created 2024/07/04 // GotoJSE.com/GXtGW34s.BAS Graphics 1920,1080,2 trig=1 Repeat pet=Rand(6,10) pang=360/pet fx=Rnd(0,ScreenWidth()) fy=Rnd(0,ScreenHeight()) c=Rnd(0,9)36 h=Rnd(120,240) br=Rnd(0.8,1) wd=Rnd(45,70) AA True for l=0 to 2 for n=0 to pet SetBuffer BG CLS;ResetDraw b=Rnd(0.6,1.0) InkRot c,b,Rnd(0.75,0.8)br if l==1 then InkRot c,b,Rnd(0.87,0.92)br if l==2 then InkRot c,b,Rnd(0.95,1.0)br h2=h+Rnd(-12,12) Oval 512,512-h20.5,wd+Rnd(-8,8),h2,64 SetBuffer FG ResetDraw SetRot pangn+Rnd(-8,8)+((pang0.4)l) DrawBG fx,fy next Flip h=h*Rnd(0.9,0.98) next InkRot(Rnd(30,45),0.8,Rnd(0.7,1.0)) w=Rnd(40,80) Oval fx,fy,w,w,64 Flip Forever --v I still haven't got rotated ovals drawing in JSE, yet, so this draws petals onto the backbuffer, then draws that rotated to make the flowers. Bit long-winded, and slow, really. Not ideal. As such, the flowers don't even wiggle or drift in the wind or anything. An interesting technique, but ultimately a bit disappointing.. -=-=- ''Load, Next List!''
Thu, 04 Jul 2024, 02:37
cyangames	Will start catch -up tonight then hopefully
Fri, 05 Jul 2024, 02:49
Jayenkai	Day Five - Shadow // Shadow // by Jayenkai // Created 2024/7/3 // GotoJSE.com/vrmLlHjS.BAS lx=0;ly=0 txt="Shadow" Graphics 640,480,1 Repeat CLS 96,96,96;ResetDraw;AA True SetGradient 80,80,80,40,40,40;Rect 0,jscrh0.5,jscrw,jscrh tx=jscrw0.5+Sin(Mills()0.14)Cos(Mills()0.03)jscrw0.5 ty=jscrh0.4 if MouseX()>0 and MouseX()<jscrw then tx=MouseX();ty=MouseY() if ty>jscrh0.5 then ty=jscrh0.5 lx=SmoothTo(lx,tx,8) ly=SmoothTo(ly,ty,8) SetCol 255,220,180 Light lx,ly,64 st=ly/(jscrh0.6) tx=jscrw0.5-32(Len(txt)-1) for x=0 to Len(txt)-1 ResetDraw;SetFontSize 64 SetSize 1,0-st SetCol 0,0,0 sk=(tx-lx)/96 SetSkew sk,0 Text tx+(sk12),jscrh0.6+24+(Abs(st)24),Mid$(txt,x,1),1 ResetDraw;SetFontSize 64 c=Mid$(txt,x,1) SetCol 255,220,180 SetSize 1,1;SetSkew 0,0 dx=((lx-tx)/(jscrw0.5)) Text tx+dx,jscrh0.6,Mid$(txt,x,1),1 SetFontSize 64 SetCol 128,128,128 Text tx,jscrh*0.6,Mid$(txt,x,1),1 tx=tx+64 next Flip Forever --v No interactivity again, today. I mean, there is a bit, but it's not much. It's a nice enough effect, though I'm not convinced the height works as well as I'd've liked. A lovely example of SetSkew, though! -=-=- ''Load, Next List!''
Sat, 06 Jul 2024, 02:03
Jayenkai	Day Six - Twist // Twist // by Jayenkai // Created 2024/7/3 // Please don't stare at this for too long!!! // GotoJSE.com/zstfgz4r.BAS Symbol 0,"1__0/I.0_0,I."; Symbol 1,"1__0_0_0_0_0,I.0_0,I."; Symbol 2,"1__0_0_0_0_0_0_0_0@II0_0?II"; Symbol 3,"1__0_0_0_0_0_0_0_0_0_0_0_00B!0_0B!"; Symbol 4,"1__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0?BB00BB00BB0!BB00BB00BB"; Symbol 5,"1__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0?WW0_0?WW"; Symbol 6,"1__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0@WW00WW0_0WW00WW"; Symbol 7,"1__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0.WW00WW0_0WW00WW"; Tune$="[0][L][D3z1D3z1D3z1D1z1A1z183z183z183z181z1F1z1][K3z1K1z1H1z1D3z1D1z1H1z1K3z1K1z1H1z1D3z5][z2D1z3D1z3D1z3D1z381z381z381z381z1][H][DG8G][8GDG][HGFG][z4D3z5D3z583z583z1][B][DGFG][8GCG][D7z187z1F7z187z1][D][z841zF41z7]" JMTrackr 67,"Retro",Tune$,1234 Graphics 512,512,1 Repeat CLS;ResetDraw;AA False SetThick 16 m=Mills(1)0.1 for n=0 to 35 if n%3==0 then SetCol 128,128,0 if n%3==1 then SetCol 128,64,0 if n%3==2 then SetCol 0,64,128 Line 256+Sin((n10)+Mills(1)0.07)512,0,256+Sin(90+(n(10+Cos(Mills(1)0.01)1.0))+Mills(1)0.071)512,512 next SetBlend "Lum" for y=0 to 7 SetSize Sin(Mills()0.2+y12)8,8 DrawImg 256,256,y next Flip Forever --v No interactivity again. Must fix that, tomorrow. More interactivity, Jay! Also, don't stare at this for too long. It'll make your eyes go wobbly wobbly. -=-=- ''Load, Next List!''
Sun, 07 Jul 2024, 02:08
Jayenkai	Day Seven - Echo // Echo // by Jayenkai // Created 2024/7/3 // GotoJSE.com/SSL5w94K.BAS Symbol 0,"0__00;.0.;.0.;.0.;.0.;.0.;.0.;.0.:."; Symbol 1,"0__00;.0.;.0.;.0.;?0,;?0,;?0,;?0,:?"; Symbol 2,"0__00;.0.;.0.;.0,;!00;!00;!00;!00:!"; Symbol 3,"0__00;.0.;.0.;.0,;?0,;?0,;?0,;?0,:?"; Symbol 4,"0__0,vv0!vv0!vv"; Symbol 5,"0__00:.0.:.0.:.0.:.0.:VV:0.:VV:0.:.0.y."; Symbol 6,"0__00:.0.:.0.:.0.:?0,:V,:0,:V,:0,:?0,y?"; Symbol 7,"0__00:.0.:.0.:.0,:!00:V.:00:V.:00:!00y!"; Symbol 8,"0__00:.0.:.0.:.0,:?0,:V,:0,:V,:0,:?0,y?"; Symbol 9,"1__0!w.0_0,wVVw0_0,wVVw0_0,wVVw0_0,wVVw0_0,w."; SetControllerMethod Mouse Dim EName(16) EName(0)="Off" EName(1)="Short" EName(2)="Medium" EName(3)="Long" EName(4)="Church" EName(5)="Factory" EName(6)="Can" EName(7)="Car" EName(8)="Flowerpot" EName(9)="Hose" EName(10)="Intercom" EName(11)="SmallSpeakers" EName(12)="Walkman" Dim Inst(32,2) Inst(0,0)="beep_1" ;Inst(0,1)=0.749 Inst(1,0)="beeper_classic" ;Inst(1,1)=1 Inst(2,0)="drum_low" ;Inst(2,1)=0.882 Inst(3,0)="eat_1" ;Inst(3,1)=0.845 Inst(4,0)="gui_1" ;Inst(4,1)=1.395 Inst(5,0)="lazer_2" ;Inst(5,1)=0.634 Inst(6,0)="peep_1" ;Inst(6,1)=1.084 Inst(7,0)="pickup_2" ;Inst(7,1)=0.714 Inst(8,0)="pickup_9" ;Inst(8,1)=0.543 Inst(9,0)="pop_high" ;Inst(9,1)=0.951 Inst(10,0)="rat_3" ;Inst(10,1)=0.742 Inst(11,0)="skid_1" ;Inst(11,1)=1.25 Inst(12,0)="sonniss_bottle_1";Inst(12,1)=0.984 Inst(13,0)="sonniss_bottle_2";Inst(13,1)=0.987 Inst(14,0)="sonniss_drum" ;Inst(14,1)=0.822 Inst(15,0)="sonniss_glass" ;Inst(15,1)=0.981 Inst(16,0)="sonniss_pop_1" ;Inst(16,1)=0.986 Inst(17,0)="sonniss_pop_2" ;Inst(17,1)=0.954 Inst(18,0)="sonniss_spark_loud" ;Inst(18,1)=0.99 Inst(19,0)="sonniss_thunk" ;Inst(19,1)=1.008 Inst(20,0)="sonniss_ui_9" ;Inst(20,1)=1.265 Inst(21,0)="warble_1" ;Inst(21,1)=0.99 Inst(22,0)="whistle_up" ;Inst(22,1)=0.725 Inst(23,0)="whistle_down" ;Inst(23,1)=1.500 sno=0 emo=0;SetEcho EName(emo) Dim Pitch(36) Dim Note(12) Dim Key(36,2) // Note frequencies from the Amstrad CPC 6128 user manual, // Chapter 7, Page 25 Note(0)=130.813 Note(1)=138.591 Note(2)=146.832 Note(3)=155.564 Note(4)=164.814 Note(5)=174.614 Note(6)=184.997 Note(7)=195.998 Note(8)=207.652 Note(9)=220.000 Note(10)=233.082 Note(11)=246.942 for n=0 to 36 Pitch(n)=Note(n%12)/130.813 if n>11 then Pitch(n)=(Note(n%12)2)/130.813 if n>23 then Pitch(n)=(Note(n%12)4)/130.813 next Graphics 1024,512,1 Border 0,0,0 Repeat CLS 96,96,96;ResetDraw;AA False w=jscrw/21 sc=128/w SetSize sc,sc3 dx=w0.5 ht=0 for x=0 to 24 x2=x%12 k=0;iw=w if x2==1 or x2==3 or x2==6 or x2==8 or x2==10 then k=4;iw=w0.5 if x2==0 or x2==5 then k=1 if x2==2 or x2==7 or x2==9 then k=2 if x2==4 or x2==11 then k=3 if x==24 then k=0 dx=dx+iw0.5 for t=0 to 9 if TouchY(t)>jscrh-(sc96) if TouchDown(t)>0 and Abs(TouchX(t)-dx)<iw0.5 nx=x if TouchY(t)>jscrh-(sc56) and k==4 if TouchX(t)<dx nx=x-1 else nx=x+1 endif endif ht=1 if Key(nx,0)==0 then PlaySFX(Inst(sno,0),Pitch(nx)inst(sno,1)) Key(nx,1)=1 endif endif next if MouseY()>jscrh-(sc96) if MouseDown()>0 and Abs(MouseX()-dx)<iw0.5 and ht==0 nx=x if MouseY()>jscrh-(sc56) and k==4 if MouseX()<dx nx=x-1 else nx=x+1 endif endif if Key(nx,0)==0 then PlaySFX(Inst(sno,0),Pitch(nx)inst(sno,1)) Key(nx,1)=1 endif endif dx=dx+iw0.5 next dx=w0.5 ht=0 for x=0 to 24 Key(x,0)=Key(x,1) Key(x,1)=0 x2=x%12 k=0;iw=w if x2==1 or x2==3 or x2==6 or x2==8 or x2==10 then k=4;iw=w0.5 if x2==0 or x2==5 then k=1 if x2==2 or x2==7 or x2==9 then k=2 if x2==4 or x2==11 then k=3 if x==24 then k=0 dx=dx+iw0.5 DrawImg dx,jscrh-sc44,k+Key(x,0)5 dx=dx+iw0.5 next ResetDraw SetFontSize 12 for n=0 to 12 x=(n16)+24 SetCol 0,0,0;s="\|" if emo==n then SetCol 160,200,225;s="O" Text 48,x,s+" "+EName(n),0 If MouseIn(32,x-6,128,14)>0 and MDown>0 if emo!=n SetEcho EName(n) PlaySFX("Metal_2",1) endif emo=n; endif next tx=320 x=24 for n=0 to 23 SetCol 255,255,255;if sno==n then SetCol 200,220,255 Text tx,x,Inst(n,0),0 If MouseIn(tx,x-6,230,14)>0 and MDown>0 and sno!=n then sno=n;PlaySFX(Inst(sno,0),Inst(sno,1)*2) tx=tx+240 if tx>1000 then tx=320;x=x+16 next Flip Forever --v This one's a bit more interactive.. I actually wrote this a number of days ago. Initially just a simple "pick echo, hear echo" example, I then decided to add different sounds, and at some point went .. .. "Well, might as well add a keyboard..." And so I did, and then added Multitouch, so I could play little ditties with it, too. The proggy was then handed over to Mum, who had an alarmingly lengthy play, and after a while got to the "we should buy a keyboard" stage of mind. Long story short, we now have a Korg MicroAir 48 in the house, and Mum's been having a whale of a time. We're both really shit at piano playing, but I think we're both going to be trying to learn. Somink to do, innit...? -=-=- ''Load, Next List!''
Mon, 08 Jul 2024, 03:40
Jayenkai	Day Eight - Glow // Glow : A NeonPlat Adventure // by Jayenkai // Created 2024/07/08 // GotoJSE.com/PchDVMqH.BAS Symbol 0,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0@I_0_0_0?I0/I0_0_0?I0/I0_0_0?I0/I0_0_0?I0/I0_0_0?I0_0_0_0.I0_0_0_0.I.0_0_0_0.I0_0_0_0.I0_0_0_0.I0_0_0_0.I0_0_0_0.I0_0_0.B_B@0_0_0.B0_0_0_0.B0_0_0_0.B0_0_0_0.B0_0_0_0.B0_0_0@V_V0_0_0.V0@V0_0_0.V0@V0_0_0.V0@V0_0_0.V0@V"; Symbol 1,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0,I_I0_0_0.I0@I0_0_0.I0@I0_0_0.I0_0_0_0.I0_0_0_0.I0_0_0_0.I0_0_0_0.I?0_0_0_0.I0_0_0_0.I0_0_0_0.I0_0_0_0.I0,BB0_0_B_B?0_0_B0?B0_0_0/BB0.B0_0_0_0.B0_0_0_0.B0_0_0_0.B0_0_0@V_0_0_0?V0/V0_0_0?V0!VV0_0_0.VV0!V0_0_0_0.V"; Symbol 2,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0,I_I0_0_0.I0@I0_0_0.I0_0_0_0.I0_0_0_0.I0_0_0_0.I0_0_0_0.I0_0_0_0.I?0_0_0_0.I00BB0_0_0_I0,B0_0_0_I0,B0_0_0_I0,B0_0_0,B_BB0_0_0,B0,B0_0_0_B0,B0_0_0_B0,B0_0_0_BB00B0_0_0_0.B0_0_0@V@0_0_0,V.0!V0_0_0_0,VV0_0_0_0,V0_0_0_0.V"; Symbol 3,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0/I_I0_0_0.I0@I0_0_0.I0@I0_0_0.I0@I0_0_0.I0_0_0_0.I0_0_0_0.I0_0_0_0.I?0_0_0_0.I0_0_0_0.I0_0_0_0.I0_0_0_0.I0B,0_0_0_I0B0B0_0_0,B_BB0_0_0,B0B0B0_0_0_B,0B0_0_0/V0?B0_0_0/V0?B0_0_0/V0?B0_0_0/V@0_0_0_0.V0_0_0_0,VV0_0_0_0,V0_0_0_0.V"; Symbol 4,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0@I_0_0_0?I0/I0_0_0?I0/I0_0_0?I0/I0_0_0?I0/I0_0_0?I0_0_0_0.I0_0_0_0.I.0_0_0_0.I0_0_0_0.I0_0_0_0.I0_0_0_0.I0_0_0@BB0,I0_0_0/B_BB0_0_0,B,0B0,B0_0_0_B0,BB0_0_0?V,B0_0_0_0V00B0_0_0_0V00B0_0_0_0V.0_0_0_0,VV0_0_0_0,V0_0_0_0.V0_0_0_0.V"; Symbol 5,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0@I_0_0_0?I0/I0_0_0?I0/I0_0_0?I0/I0_0_0?I0/I0_0_0?I0/I0_0_0?I0_0_0_0.I.0_0_0_0.I0_0_0_0.I0_0_0_0.I0_0_0!B,0.I0_0_0@B0.I0_0_0!B_B.0_0_0B,00B0.B0_0_0@B0.B,0_0_0!B0_0_0_00V/0_0_0/V0B0_0_0_00V,0_0_0_0.V0_0_0_00V,0_0_0_00V0_0_0_0.V"; Symbol 6,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_I@0_0_0!I0!I0_0_0!I0!I0_0_0!I0!I0_0_0!I0!I0_0_0!I0!I0_0_0!I0_0_0_0.I,0_0_0_0.I0_0_0_0.I0_0_0_0.I0_0_0?B,0?I0_0_0/B0?I0_0_0/B_B,0_0_00B0,B0?B0_0_0/B0?B.0_0_0.B0_0_0_0.B0_0_0_0,V?0_0_0_VV00V0_0_0/V.00V0_0_0/V0?V0_0_0/V0?V0_0_0/V"; Symbol 7,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0@I_0_0_0?I0/I0_0_0?I0/I0_0_0?I0/I0_0_0?I0/I0_0_0?I0_0_0_0.I0_0_0_0.I.0_0_0_0.I0_0_0_0.I0_0_0_0.I0_0_0_0.I0_0_0.B.0?I0_0_0/B_BB0_0_0/B0?B0_0_0/B0?B.0_0_0.B0_0_0_0.B0_0_0_0.B0_0_0_V_0_0_0?V0/V0_0_0?V0/V0_0_0?V0/V0_0_0?V"; Symbol 8,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0!9?0_0_0_90,90_0_0_90,90_0_0_900990_0_0_9009?0_0_0!90!90_0_0!9@0_0_0!;0_0_0/V!;00;,V!0_0?V0.V;0.;V0.V0_0?V0?4/0.V0_0?V0?;0.;40.V0_0?V,0,;0.;400V,0_0/V0,;0.;400V0_0_V,0;0.;4V,0_0_00V0;0.;4V0_0_0.VV;0.V,0_0_0!;0.;40_0_0/;0.;40_0_0/;0.;0_0_0@;0.;0_0_0@;0.;0_0_0@;0.;0_0_0@;!"; Symbol 9,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0!9?0_0_0_90,90_0_0_90,90_0_0_900990_0_0_9009?0_0_0!90!90_0_0!9@0_0_0!;0_0_0_0.;00;,0_0_0V!0;0.;0V!0_0,V0.V04/V0.V0_0,V0.V0;0.;4V0.V0_0,V.0,;0.;400V.0_0!V0,;0.;400V0_0_V,0;0.;4V,0_0_00V0;0.;4V0_0_0.VV;0.V,0_0_0!;0.;40_0_0/;0.;40_0_0/;0.;0_0_0@;0.;0_0_0@;0.;0_0_0@;0.;0_0_0@;!"; Symbol 10,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0!9?0_0_0_90,90_0_0_90,90_0_0_900990_0_0_9009?0_0_0!90!90_0_0!9@0_0_0!;0_0_0_0.;00;,0_0_0@;0.;0_0_V!004/0V!0_0V0.V00;0.;40V0.V0_0V0,VV00;0.;40VV0,V0_0V0/;0.;40!V0_0V/0;0.;4V/0_0/V0;0.;4V0_0_0.VV;0.V,0_0_0!;0.;40_0_0/;0.;40_0_0/;0.;0_0_0@;0.;0_0_0@;0.;0_0_0@;0.;0_0_0@;!"; Symbol 11,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0!9?0_0_0_90,90_0_0_90,90_0_0_900990_0_0_9009?0_0_0!90!90_0_0!9@0_0_0!;0_0_0_0.;00;,0_0_0@;0.;0_0/V!0.4/0,V!0!V0.V0.;0.;40,V0.V0!V0,VV0.;0.;40,VV0,V0!V0_;0.;40@V0!V_0;0.;4V_0_0?V0;0.;4V0_0_0.VV;0.V,0_0_0!;0.;40_0_0/;0.;40_0_0/;0.;0_0_0@;0.;0_0_0@;0.;0_0_0@;0.;0_0_0@;!"; Symbol 12,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0!9?0_0_0_90,90_0_0_90,90_0_0_900990_0_0_9009?0_0_0!90!90_0_0!9@0_0_0!;0_0_0_0.;00;,0_0_0@;0.;0_0!V.0/4/0!V.0.V00V0/;0.;40!V00V0.V00V0/;0.;40!V00V0.V0_0;0.;40_V0.V0_0;0.;40_V0.V_V0;0.;4V_V0_0.VV;0.V,0_0_0!;0.;40_0_0/;0.;40_0_0/;0.;0_0_0@;0.;0_0_0@;0.;0_0_0@;0.;0_0_0@;!"; Symbol 13,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0!9?0_0_0_90,90_0_0_90,90_0_0_900990_0_0_9009?0_0_0!90!90_0_0!9@0_0_0!;0_0_0_0.;00;,0_0!V!0?;0.;0?V!0.V0_04/0_V0.V0_0;0.;40_V0.V0_0;0.;40_V0.V0_0;0.;40_V0.V0_0;0.;40_V0.V0_0;0.;40_V0.V_VV;0.V_V,0_0!;0.;40_0_0/;0.;40_0_0/;0.;0_0_0@;0.;0_0_0@;0.;0_0_0@;0.;0_0_0@;!"; Symbol 14,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0!9?0_0_0_90,90_0_0_90,90_0_0_900990_0_0_9009?0_0.V0_090!90@V0.V0_09@0@V0.V0_0;0_0!V0.V0_0;00;,0_0V0.V0_0;0.;0_0V0.V0_04/0_V0.V0_0;0.;40_V0.V0_0;0.;40_V0.V0_0;0.;40_V0.V0_0;0.;40_V0.V0_0;0.;40_V0.V_VV;0.V_V,0_0!;0.;40_0_0/;0.;40_0_0/;0.;0_0_0@;0.;0_0_0@;0.;0_0_0@;0.;0_0_0@;!"; Symbol 15,"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_4_4?0_0_40.;.0.40_0_40,4;00;40,40_0_40,4;00;40,40_0_40,4;00;40,40_0_4?;00;4?0_0_0?;00;0_0_0_0;00;0_0_0_0;00;0_0_0_;;00;;0_0_0!P_PP0_0_0,P.00P,0P0_0_0,P,0.PP0P0_0_0,P0P;00;P00P0_0_0,P,;00;P.0_0_0!;00;0_0_0_0;00;0_0_0_0;00;0_0_0_0;."; Symbol 16,"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?4?;.4?0_0_40.;00;0.40_0_40,4;00;40,40_0_40,4;00;40,40_0_4?;00;4?0_0_0?;00;0_0_0_0;00;0_0_0_0;00;0_0_0_0;00;0_0_0/P_PP0_0_0,P0_P0_0_0,P.00P,0P0_0_0,P,;00;PP0P0_0_0,P,;00;P.0_0_0!;00;0_0_0_0;00;0_0_0_0;00;0_0_0_0;."; Symbol 17,"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_04?;.4?0_0_40.;00;0.40_0_40,4;00;40,40_0_40,4;00;40,40_0_4?;00;4?0_0_0?;00;0_0_0_0;00;0_0_0_0;00;0_0_0_0;00;0_0_0/P_PP0_0_0,P.00P,0P0_0_0,P,;00;PP0P0_0_0,P0P;00;P00P0_0_0,P,;00;P.0_0_0!;00;0_0_0_0;00;0_0_0_0;."; Symbol 18,"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?4?0_0_0_;.40_0_0?4.;00;4.0_0_0040,;00;0,40_0_004004;00;40040_0_004004;00;40040_0_004004;00;40040_0_004.;00;4.0_0_0!;00;0_0_0_;;00;;0_0_0!P_PP0_0_0,P.00P,0P0_0_0,P,0.PP0P0_0_0,P0P;00;P00P0_0_0,P,;00;P.0_0_0!;00;0_0_0_0;00;0_0_0_0;00;0_0_0_0;."; Symbol 19,"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/4_4_0_0?40!;.0!40_0?40!;00;0!40_0?4?00;00;004?0_0_0,;00;0_0_0_0;00;0_0_0_0;00;0_0_0_0;00;0_0_0_0;00;0_0_0_;;00;;0_0_0!P_PP0_0_0,P.00P,0P0_0_0,P,0.PP0P0_0_0,P0P;00;P00P0_0_0,P,;00;P.0_0_0!;00;0_0_0_0;00;0_0_0_0;00;0_0_0_0;."; Symbol 20,"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.4_4_4!0@40_;.0_40@4!0.;00;0?4?0_0_;00;0_0_0_0;00;0_0_0_0;00;0_0_0_0;00;0_0_0_0;00;0_0_0_0;00;0_0_0_;;00;;0_0_0!P_PP0_0_0,P.00P,0P0_0_0,P,0.PP0P0_0_0,P0P;00;P00P0_0_0,P,;00;P.0_0_0!;00;0_0_0_0;00;0_0_0_0;00;0_0_0_0;."; Symbol 21,"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,4_4_0_0?40!;.0!40_0?40!;00;0!40_0?4?00;00;004?0_0_0,;00;0_0_0_0;00;0_0_0_0;00;0_0_0_0;00;0_0_0_0;00;0_0_0_;;00;;0_0_0!P_PP0_0_0,P.00P,0P0_0_0,P,;00;PP0P0_0_0,P0P;00;P00P0_0_0,P,;00;P.0_0_0!;00;0_0_0_0;00;0_0_0_0;."; Symbol 22,"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_V_V0_0_0.VXW!XV0_0_0.VW4!WV0_0_0.VW40.4WV0_0_0.VW40.4WV0_0_0.VW40.4WV0_0_0.VW40.4WV0_0_0.VW4!WV0_0_0.VXW!XV0_0_0.dfV?dfd0_0_0.G;0!G;0_0_0.;;0!;;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 23,"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_V_V0_0_0.VXW!XV0_0_0.VW4!WV0_0_0.VW40.4WV0_0_0.VW40.4WV0_0_0.dW40.4WV0_0?;/GfW40.4WV0_0?;@fW4!WV0_0_0.VXW!XV0_0_0.V?dffVV0_0_0_0G;0_0_0_0,;;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 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,;;0_0_0_0,;;0_0_0_0,G;0_0_0@V,dffV.0_0_0.VXW!XV0_0_0.VW4!WV0_0_0.VW40.4WV0_0_0.VW40.4WV0_0_0.VW40.4WV0_0_0.VW40.4WV0_0_0.VW4!WV0_0_0.VXW!XV0_0_0.V,dffV.0_0_0@G;0_0_0_0,;;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 25,"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_V_V0_0_0.VXW!XV0_0_0.VW4!WV0_0_0.VW40.4WV0_0_0.VW40.4WV0_0_0.VW40.4Wd0_0_0.VW40.4Wf;@0_0?VW4!Wf;@0_0?VXW!XV0_0_0.VdffV!0_0_0!G;0_0_0_0,;;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 26,"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_V_V0_0_0.VXW!XV0_0_0.VW4!WV0_0_0.VW40.4WV0_0_0.VW40.4WV0_0_0.VW40.4WV0_0_0.VW40.4WV0_0_0.VW4!WV0_0_0.VXW!XV0_0_0.dfV?dfd0_0_0.G;0!G;0_0_0.;;0!;;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 27,"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_V_V0_0_0.VXW!XV0_0_0.VW4!WV0_0_0.VW40.4WV0_0_0.VW40.4WV0_0_0.VW40.4WV0_0_0.VW40.4WV0_0_0.VW4!WV0_0_0.VXW!XV0_0_0.dfV?dfd0_0_0.G;0!G;0_0_0.;;0!;;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 28,"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_V_V0_0_0.VXW!XV0_0_0.VW4!WV0_0_0.VW40.4WV0_0_0.VW40.4WV0_0_0.VW40.4WV0_0_0.VW40.4WV0_0_0.VW4!WV0_0_0.VXW!XV0_0_0.dfV?dfd0_0_0.G;0!G;0_0_0.;;0!;;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 29,"2__0_0_0_0_0/VU@V0_0_00U_U?0_0/U?Vy/U?0_0.U,Vy_y,VU,0_00U,y_y/U,0_U,y_y,V!U,0/U,y_yyV_U,0!UUy_yyV_VVUU0?UUVy_yV_V,U,0.UUy_yV_Vy.UU0,U,y_V_yyx.VU0,UUVy_V@y,x.yUU00UUy_yV/y,x!UU00UUy.V,yyV/y.x!UU00UUyyV!yV/y,x/UU00UUyVVy,V_Vy,x/UU00UUyVy?V_yyx@UU00UUyVy?V_yx_UU00UUy/V_Vx@yUU00UUVy!VVyV/yx/zUV0,UUy?V,yV@yx!UU0.UUVyV.y.V@yx.yUU0?UUyxyyx?yV_VXVUU0!U,x_yV_VU,0/U,x_yV@U,0_U,yx_yV?U,0_00U,yx_xyyVU,0_0.U.Vyx!yzU.0_0/U_U?0_0_00U_U"; Symbol 30,"2__5_5_5_5?0_0_0_0!3305503305503300550330550330550_0_0_0!3_3_3_3?50105010501050105010501050105010501050105010501050105010501050105010501050105010501050105010501050105010501050105010501050105010501050,501050,501050,501050?10/10/10/1"; Symbol 31,"2__004?0,4?0,4?0,4?0,400440,400440,400440,400440,400440,400440,400440,400440,4?0,4?0,4?0,4?0,4?0,4?0,4?0,4?"; Symbol 32,"0__0,30/30/30/30/30/30/30/3"; Symbol 33,"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_005_50_0_0_0_0_0/502_2050_0_5020@2050_0_50202!02050_0_502020.202050_0_502020200202050_0_5020202.02050_0_502020!2050_0_50202@050_0_5030_0_0_0050305@0_0_0.30_0_0_0.30_0_0_0.30_0_0_0.30_0_0_0.30_0_0_0.30_0_0_0.30_0_0_0.30_0_0_0.30_0_0_0.30_0_0_0.3"; Symbol 34,"1__0_0_0_0_0_0_0_0_0_0_0_0544224450_0_0!54200245"; Symbol 38,"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_;/0_0_0_0_0_0.;/0_;/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 39,"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_V_V?0_0_V_V?0_0_V_V?0_0_V_V?"; Tune$="[0][L][K1z3K1zBD1z3D1zB][z2K1z1K1H1D1z1K1z1K1H1D1z1K1zH][zIK1z1K1H1D1z1K1z1K1H1D1z1K1z1][H][z6D1D1z1D1D1z1D1D1z8D1D1z1D1D1z1D1z3][K3z1K1z1H1z1D3zL][zGD1F1H1I1K1I1H1F1D1z7][B][D1D1D1D1D1D1zAD1z1D1D1D1D1zA][D1D1D1D1D1D1P1P1z1P1P1z1P1P1z2D1D1D1D1D1D1P1P1z1P1P1z1P1P1z2][D][11z311z311z311z311z311z311z311z3][11z321z121z111z121z111z121z111z321z121z111z121z111z12121][11z141z121z141z111z141z111z141z111z141z121z141z111z141z111z14121]" LevLong=500 Dim blayer(LevLong,16) Dim bads(20,10) Dim ball(20,10) SetFont "Segment8" SetHandlerFont "Segment8" Graphics 480,320,1 SetControlMethod Gamepad SetControllerText "A<>D - Run, K - Jump, J - Throw Sphere" SetScrollerText "Another game by Jayenkai - AGameAWeek.com - Guide NeonPlat over the dangerous neon world, sa you avoid Bats, Jacks and Walkers. Is it getting dark? Throw a sphere at a baddie and nab it for a bit more light. Can you make it to the end of the world? PS, you can use a gamepad if you'd like! " GameHandler "Glow\|A NeonPlat\|Adventure","Calendar" .StartGame SetBuffer BG Checkpoint=0 CheckTarget=10 CLS SetThick 5;SetAlpha 0.4 c=0 balto=0 SeedRnd ThisLevel3712 wc=Rnd(0,360) for x=-1024 to 2048 step 8 c=(c+1)%4 InkRot(wc-40,1,0.3) if c==0 then InkRot(wc+120,1,0.3) if c==2 then InkRot(wc,1,0.3) Line x,0,x-1024,1024 next px=2;pox=0;psx=0;pface=1;panim=0 py=8;poy=0;psy=0;pland=4 bdis=1 SetBuffer FG SetTilemapSize LevLong,16 SeedRnd ThisLevel371 c=Rnd(0,360) xa=Rnd(1,32) ya=Rnd(32,128) xo=Rand(0,37171650) yo=Rand(0,37171650) ta=Rand(0,2);tb=Rand(3,6);tc=9 ga=Rnd(-4,7) gb=Rnd(-4,7) gc=Rnd(10,20) for x=0 to LevLong if x%10==0 CLS LoadingBar((x100)/LevLong,"Neonising","Arc") Flip endif ga=ga-1;if ga<-2 and Rand(0,4)<Abs(ga) then ga=Rand(3,7) gb=gb-1;if gb<-2 and Rand(0,4)<Abs(gb) then gb=Rand(3,7) gc=gc-1;if gc<-2 and Rand(0,6)<Abs(gc) then gc=Rand(3,7) if Rnd(0,30)<5 then ta=Rand(1,4) if Rnd(0,30)<5 then tb=Rand(4,7) a=0 ws=-1 for y=15 to 0 step -1 s=-1 if y==ta and ga>=0 then s=31;a=1 if y==tb and gb>=0 then s=31;a=1 if y==tc and (gc>=0 or a==0) then s=30 if x>LevLong-16 or y>9 then s=-1 if x==LevLong-16 then s=38 z=1 ic=Floor((c+((x+xo)xa)+((y+yo)ya))/45)%8; if (ws==30 or ws==31) if Rnd(0,10)<3 then s=33;ic=Rand(0,7) if Rnd(0,10)<2 then s=29;ic=0;z=0.5 endif ws=s BLayer(x,y)=0 SetTile(x,y,s) SetTileCol(x,y,ic) SetTileSize(x,y,z,z) next for y=0 to 8 if Abs(GetTile(x,y)-30.5)>1 and Abs(GetTile(x,y+1)-30.5)<1.5 and Rnd(0,10)<1 BLayer(x,y)=Rand(1,3) endif next next for m=0 to 19;Bads(m,0)=0;ball(m,0)=0;next badto=0 won=0 dead=0 pheld=0 aleft=0 jdis=1 pcx=px;pcy=py PlaySFX("Beeper_Jingle_Down",0.5) dubs=0 dead=0 Lives=3 aimx=0 scrx=0 pGlow=320 TuneSeed=Rand(37171650) JMTrackr 87,"Retro",Tune$,TuneSeed Return .InGame scry=0 aimx=((px+pox)32)-(jscrw0.4) if aimx<aleft then aimx=aleft if aimx>aleft then aleft=aimx dx=(scrx-aimx)/8 scrx=scrx-dx ScrollParticles dx,0 CLS;ResetDraw;AA Fast WrapBG 0-scrx0.4,0 pg=Limit(pglow,0,255) AmbientLight pg,pg,pg AA True DrawTilemap 0-scrx,26 AA False pglow=Limit(pglow-0.2,0,255) if dead>0 then pglow=Limit(pglow-4,0,255) psx=(psx0.4)+(GamePad(ButtonRight)-GamePad(ButtonLeft)) panim=(panim+Abs(psx0.3));if panim>=8 then panim=panim-8 if Abs(psx)<0.02 then panim=0 if psx<-0.1 then pface=-1 if psx>0.1 then pface=1 if won==0 then psy=Limit(psy+0.5,-9,10) if GamePad(ButtonA)<0.5 and won==0 then psy=Limit(psy+0.5,-9,10) if dead==0 then py=AddThreshold(py,poy,psy0.05) if won>0 then psy=psy-0.05;py=AddThreshold(py,poy,psy0.05) lx=((px+pox+(psx0.1))32)-scrx if lx>16 and dead==0 and won==0 then px=AddThreshold(px,pox,psx0.07) if pland<2 and dubs=2 then dubs=1 if dubs>0 and GamePad(ButtonA)>0.5 and jdis==0 and dead==0 and won==0 then psy=-8;pland=0;jdis=1;PlaySFX("Whistle_up",2.0-(dubs0.5));dubs=dubs-1 if GamePad(ButtonA)<0.5 then jdis=0 if px>=LevLong-16 and won==0 then psy=0;won=1;PlaySFX("Beeper_Rise",1);JMStop;WinLevel ThisLevel; h=GetTile(px,py-1) b=GetTile(px,py) pland=pland-1 if h==29 and pheld==0 SetTile(px,py-1,-1) PlaySFX("Peep_2") pheld=1;bdis=1 endif if h==33 and pland>2 SetTile(px,py-1,-1) PlaySFX("Pickup_9") for q=0 to 7 ThrowParticle px32-scrx,py32+10,7,q45,0.8,34,GetTileCol(px,py) next Score=Score+5;Checkpoint=Checkpoint+1 if Checkpoint>=CheckTarget Checkpoint=0;pcx=px;pcy=py CheckTarget=CheckTarget+5 PlaySFX("Beeper_Powerup") endif endif if (b==30 or b==31) and poy>-0.1 and psy>0 if psy>1.2 then PlaySFX("Noise_Tap") poy=0;psy=0;pland=4;dubs=2 endif pdx=(px+pox)32 pdy=(py+poy)32 SetSize pface,1 pshow=Floor(panim) if pland<1 then pshow=2 SetGlow 1,1.1 if dead==0 GlowImg pdx-scrx,pdy,pshow if pheld==1 SetSize 0.5pface,0.5 GlowImg (pdx-scrx)-pface8,pdy-4,29 if GamePad(ButtonB)>0.5 and bdis==0 bdis=1 pheld=0 PlaySFX("Warble_4") balto=(balto+1)%5 ball(balto,0)=1 ball(balto,1)=px ball(balto,2)=py ball(balto,3)=pox ball(balto,4)=poy ball(balto,5)=pface ball(balto,6)=-2 ball(balto,8)=(ball(balto,1)+ball(balto,3))32 ball(balto,9)=(ball(balto,2)+ball(balto,4))32 endif endif endif if GamePad(ButtonB)<0.5 then bdis=0 if pdy>jscrh+32 and dead==0 then dead=1 f=px+15 g=px+18 for y=0 to 8 SetTileData(g,y,0) if GetTileData(f,y)==0 if BLayer(f,y)>0 badto=(badto+1)%20 Bads(badto,0)=BLayer(f,y) Bads(badto,1)=f Bads(badto,2)=y+1 Bads(badto,3)=0 Bads(badto,4)=0 Bads(badto,5)=-1 bads(badto,6)=0 endif endif SetTileData(f,y,1) next SetGlow 1,1.1 for m=0 to 19 if bads(m,0)>0 bads(m,8)=(bads(m,1)+bads(m,3))32 bads(m,9)=(bads(m,2)+bads(m,4))32 t=80 if bads(m,0)==2 then t=180 if bads(m,0)==3 then t=40 s=((7bads(m,0))+1)+(Floor((Mills()+m37)/t)%7) if bads(m,8)-scrx<-48 or bads(m,9)>jscrh+32 then bads(m,0)=0 SetSize bads(m,5),1 if bads(m,0)>10 // Captured bads(m,6)=bads(m,6)-0.03 a=bads(m,2) b=bads(m,4) c=bads(m,6)0.04 a=AddThreshold(a,b,c) bads(m,2)=a bads(m,4)=b if bads(m,9)<-32 then bads(m,0)=0 endif if bads(m,0)==1 // Bat a=bads(m,1) b=bads(m,3) c=bads(m,5)0.02 a=AddThreshold(a,b,c) bads(m,1)=a bads(m,3)=b a=bads(m,2) b=bads(m,4) c=bads(m,6)0.04 a=AddThreshold(a,b,c) bads(m,2)=a bads(m,4)=b bads(m,6)=Limit(bads(m,6)+0.05,-5,10) if Abs(GetTile(bads(m,1),bads(m,2))-30.5)<1.5 and bads(m,4)>=0 then bads(m,6)=-2 endif if bads(m,0)==2 // Jack a=bads(m,1) b=bads(m,3) c=bads(m,5)0.005 a=AddThreshold(a,b,c) bads(m,1)=a bads(m,3)=b a=bads(m,2) b=bads(m,4) c=bads(m,6)0.1 a=AddThreshold(a,b,c) bads(m,2)=a bads(m,4)=b bads(m,6)=Limit(bads(m,6)+0.2,-5,10) if Abs(GetTile(bads(m,1),bads(m,2))-30.5)<1.5 and bads(m,4)>=0 then bads(m,6)=-2 endif if bads(m,0)==3 // JWalker a=bads(m,1) b=bads(m,3) c=0; if s<26 then c=bads(m,5)0.025 a=AddThreshold(a,b,c) bads(m,1)=a bads(m,3)=b if Abs(GetTile(bads(m,1)-1,bads(m,2))-30.5)>1 and bads(m,3)<0 and bads(m,5)<0 then bads(m,5)=1 if Abs(GetTile(bads(m,1)+1,bads(m,2))-30.5)>1 and bads(m,3)>0 and bads(m,5)>0 then bads(m,5)=0-1 endif if bads(m,0)<10 for b=0 to 4 if ball(b,0)>0 if pyth(ball(b,8)-bads(m,8),ball(b,9)-bads(m,9))<24 ball(b,0)=0 bads(m,0)=(bads(m,0)%10)+10 bads(m,5)=0 bads(m,6)=0 PlaySFX("Warble_3") endif endif next endif if bads(m,0)<10 GlowImg bads(m,8)-scrx,bads(m,9),s if Abs(bads(m,8)-pdx)<17 and Abs(bads(m,9)-pdy)<16 and dead==0 dead=1 endif endif if bads(m,0)>10 SetSize 0.9,0.9 SetGlow 0.3 GlowImg bads(m,8)-scrx,bads(m,9),29 SetGlow 1 SetSize 0.8,0.8 GlowImg bads(m,8)-scrx,bads(m,9),((bads(m,0)-10)7)+1 if Abs(bads(m,8)-pdx)<26 and Abs(bads(m,9)-pdy)<26 and dead==0 bads(m,0)=0;PlaySFX("Smash_1");Gimme 50,bads(m,8)-scrx,bads(m,9) pglow=pglow+50;if pglow>320 then pglow=320 for q=0 to 3 ThrowParticle bads(m,8)-scrx,bads(m,9),4,q90,0.2,39,Rand(0,1) ThrowParticle bads(m,8)-scrx,bads(m,9),4,q90,0.4,39,Rand(0,1) ThrowParticle bads(m,8)-scrx-16,bads(m,9),4,q90,0.3,39,Rand(0,1) ThrowParticle bads(m,8)-scrx+16,bads(m,9),4,q90,0.3,39,Rand(0,1) ThrowParticle bads(m,8)-scrx,bads(m,9)-16,4,q90,0.3,39,Rand(0,1) ThrowParticle bads(m,8)-scrx,bads(m,9)+16,4,q90,0.3,39,Rand(0,1) next endif endif endif next for m=0 to 4 if ball(m,0)>0 ball(m,8)=(ball(m,1)+ball(m,3))32 ball(m,9)=(ball(m,2)+ball(m,4))32 if ball(m,8)-scrx<-48 or ball(m,8)-scrx>jscrw+64 or ball(m,9)>jscrh+32 then ball(m,0)=0 SetSize ball(m,5)0.5,0.5 if ball(m,0)==1 // Ball a=ball(m,1) b=ball(m,3) c=ball(m,5)0.1 a=AddThreshold(a,b,c) ball(m,1)=a ball(m,3)=b a=ball(m,2) b=ball(m,4) c=ball(m,6)0.08 a=AddThreshold(a,b,c) ball(m,2)=a ball(m,4)=b ball(m,6)=Limit(ball(m,6)+0.14,-5,10) if Abs(GetTile(ball(m,1),ball(m,2))-30.5)<1.5 and ball(m,4)>=0 then ball(m,6)=-1.5;PlaySFX("Drum_Low") endif GlowImg ball(m,8)-scrx,ball(m,9),29 endif next if dead==1 PlaySFX("Beeper_Die",1) for q=0 to 16 ThrowParticle pdx-scrx,pdy,2,Rnd(0,360),Rnd(0.5,2.5),32,1 ThrowParticle pdx-scrx,pdy,2,Rnd(0,360),Rnd(0.5,2.5),32,2 ThrowParticle pdx-scrx,pdy,2,Rnd(0,360),Rnd(0.5,2.5),32,4 next JMStop endif if dead>0 dead=dead+1 if dead>60 Lives=Lives-1 Checkpoint=0 if Lives>-1 for m=0 to 19;Bads(m,0)=0;Ball(m,0)=0;next dead=0 PlaySFX("Beeper_Jingle_Down",0.5) px=pcx;py=pcy;pox=0;poy=0;psx=0;psy=0;aleft=0 pglow=255 pheld=0 JMTrackr 87,"Retro",Tune$,TuneSeed endif if Lives<0 EndGame endif endif endif DrawLighting ResetDraw;SetFontSize 8 TextScore jscrw/2,8,1 Text jscrw/2+48,8,"Checkpoint "+(CheckTarget-Checkpoint),0 SetSize 0.5 DrawImg jscrw/2+132,6,33 for x=1 to 3 if Lives>=x then DrawImg (jscrw/2-48)-x12,8,0 next if won>0 and pdy<-32 then EndGame "Complete" Return --v Thank goodness I started this thread a couple of days in advance, because this one took about 3 days to get straight. But, hey, look'a'dat! NeonPlat! Grab a ball, throw it at a baddie, then collect the result to help keep the neon world lit up. Mmmmm, Glow! Don't expect games like this every day.. I'm knackered!! -=-=- ''Load, Next List!''
Mon, 08 Jul 2024, 23:55
Jayenkai	Day Nine - Knot // Knot // by Jayenkai // Created 2024/7/9 // GotoJSE.com/HjjJx2N4.BAS Symbol 0,"1__0.;;6.;;0?y,;;6.;;y,00yxx;;6.;;xxy00yxx;;6.;;xxy0;.6@;@6@;.6_6_6_6_6_6_6_6;.6@;@6@;.0yxx;;6.;;xxy00yxx;;6.;;xxy00y,;;6.;;y,0?;;6.;;"; Symbol 1,"1__0.;;6.;;0?y,;;6.;;y,00yxx;;6.;;xxy00yxx;;6.;;xxy0;.6!;;xxy0;.6!;;xxy06_6;;xxy06_6;;xxy06@;;x.y06@;;x.y0;@x!y0;@x!y00yx_x,y00yx_x,y00y_y?"; Symbol 2,"1__0.;;6.;;0?y,;;6.;;y,00yxx;;6.;;xxy00yxx;;6.;;xxy00yxx;;6!;.0yxx;;6!;.0yxx;;6_60yxx;;6_60yx.;;6@0yx.;;6@0yx!;@0yx!;@0yx_x,y00yx_x,y00y_y?"; Symbol 3,"1__0_0@y_y?00yx_x,y00yx_x,y00yx!;@0yx!;@0yx.;;6@0yx.;;6@0yxx;;6_60yxx;;6_60yxx;;6!;.0yxx;;6!;.0yxx;;6.;;xxy00yxx;;6.;;xxy00y,;;6.;;y,0?;;6.;;"; Symbol 4,"1__0_0@y_y?00yx_x,y00yx_x,y0;@x!y0;@x!y06@;;x.y06@;;x.y06_6;;xxy06_6;;xxy0;.6!;;xxy0;.6!;;xxy00yxx;;6.;;xxy00yxx;;6.;;xxy00y,;;6.;;y,0?;;6.;;"; Symbol 5,"1__0_0@y_y?00yx_x,y00yx_x,y0;_;_;_;?6_6_6_6_6_6_6_6;_;_;_;?0yx_x,y00yx_x,y00y_y?"; Symbol 6,"1__0.;;6.;;0?y,;;6.;;y,00yxx;;6.;;xxy00yxx;;6.;;xxy00yxx;;6.;;xxy00yxx;;6.;;xxy00yxx;;6.;;xxy00yxx;;6.;;xxy00yxx;;6.;;xxy00yxx;;6.;;xxy00yxx;;6.;;xxy00yxx;;6.;;xxy00yxx;;6.;;xxy00yxx;;6.;;xxy00y,;;6.;;y,0?;;6.;;"; Symbol 7,"1__0_0@y_y?00yxx;@xxy00yxx;@xxy00y;;6@;;y00y;;6@;;y00y;;6@;;y00y;;6@;;y00y;;6@;;y00y;;6@;;y00y;;6@;;y00y;;6@;;y00yxx;@xxy00yxx;@xxy00y_y?"; Symbol 10,"1__0.;;2.;;0?y,;;2.;;y,00yxx;;2.;;xxy00yxx;;2.;;xxy0;.2@;@2@;.2_2_2_2_2_2_2_2;.2@;@2@;.0yxx;;2.;;xxy00yxx;;2.;;xxy00y,;;2.;;y,0?;;2.;;"; Symbol 11,"1__0.;;2.;;0?y,;;2.;;y,00yxx;;2.;;xxy00yxx;;2.;;xxy0;.2!;;xxy0;.2!;;xxy02_2;;xxy02_2;;xxy02@;;x.y02@;;x.y0;@x!y0;@x!y00yx_x,y00yx_x,y00y_y?"; Symbol 12,"1__0.;;2.;;0?y,;;2.;;y,00yxx;;2.;;xxy00yxx;;2.;;xxy00yxx;;2!;.0yxx;;2!;.0yxx;;2_20yxx;;2_20yx.;;2@0yx.;;2@0yx!;@0yx!;@0yx_x,y00yx_x,y00y_y?"; Symbol 13,"1__0_0@y_y?00yx_x,y00yx_x,y00yx!;@0yx!;@0yx.;;2@0yx.;;2@0yxx;;2_20yxx;;2_20yxx;;2!;.0yxx;;2!;.0yxx;;2.;;xxy00yxx;;2.;;xxy00y,;;2.;;y,0?;;2.;;"; Symbol 14,"1__0_0@y_y?00yx_x,y00yx_x,y0;@x!y0;@x!y02@;;x.y02@;;x.y02_2;;xxy02_2;;xxy0;.2!;;xxy0;.2!;;xxy00yxx;;2.;;xxy00yxx;;2.;;xxy00y,;;2.;;y,0?;;2.;;"; Symbol 15,"1__0_0@y_y?00yx_x,y00yx_x,y0;_;_;_;?2_2_2_2_2_2_2_2;_;_;_;?0yx_x,y00yx_x,y00y_y?"; Symbol 16,"1__0.;;2.;;0?y,;;2.;;y,00yxx;;2.;;xxy00yxx;;2.;;xxy00yxx;;2.;;xxy00yxx;;2.;;xxy00yxx;;2.;;xxy00yxx;;2.;;xxy00yxx;;2.;;xxy00yxx;;2.;;xxy00yxx;;2.;;xxy00yxx;;2.;;xxy00yxx;;2.;;xxy00yxx;;2.;;xxy00y,;;2.;;y,0?;;2.;;"; Symbol 17,"1__0_0@y_y?00yxx;@xxy00yxx;@xxy00y;;2@;;y00y;;2@;;y00y;;2@;;y00y;;2@;;y00y;;2@;;y00y;;2@;;y00y;;2@;;y00y;;2@;;y00yxx;@xxy00yxx;@xxy00y_y?"; SetControllerMethod Mouse Graphics 640,640,1 GameHandler("Knot","Calendar") .StartGame SetTilemapSize 10,10 MapTry=0 kdis=1 won=0 wdel=0 Gosub GetMap Return .GetMap dist=0 MapTry=MapTry+1 SeedRnd (ThisLevel3717)+MapTry for x=0 to 9 for y=0 to 9 SetTile(x,y,-1) SetTileSize(x,y,2.05,2.05) SetTileOffset(x,y,0,0) next next wx=-1;wy=4;x=0;y=4;d=1 for n=0 to 100 do=0 tx=x;ty=y if d==0 and GetTile(x,y-1)<0 and y>0 then y=y-1;do=1 if d==1 and GetTile(x+1,y)<0 and x<9 then x=x+1;do=1 if d==2 and GetTile(x,y+1)<0 and y<8 then y=y+1;do=1 if d==3 and GetTile(x-1,y)<0 and x>0 then x=x-1;do=1 if do==1 s=0 if wx==tx-1 and wy==ty and x==tx+1 and y==ty then s=5 if x==tx-1 and y==ty and wx==tx+1 and wy==ty then s=5 if wx==tx and wy==ty-1 and x==tx and y==ty+1 then s=6 if x==tx and y==ty-1 and wx==tx and wy==ty+1 then s=6 if wx==tx-1 and wy==ty and x==tx and y==ty-1 then s=1 if x==tx-1 and y==ty and wx==tx and wy==ty-1 then s=1 if wx==tx+1 and wy==ty and x==tx and y==ty-1 then s=2 if x==tx+1 and y==ty and wx==tx and wy==ty-1 then s=2 if wx==tx+1 and wy==ty and x==tx and y==ty+1 then s=3 if x==tx+1 and y==ty and wx==tx and wy==ty+1 then s=3 if wx==tx-1 and wy==ty and x==tx and y==ty+1 then s=4 if x==tx-1 and y==ty and wx==tx and wy==ty+1 then s=4 SetTile tx,ty,s wx=tx;wy=ty dist=dist+1 endif if do==0 or Rnd(0,10)<3 then d=Rand(0,3) if x==9 then n=1000 if n%50==0 CLS; LoadingBar 0,"Puzzling","Twirl"; if Rnd(0,10)<1 then PlaySFX("Sonniss_Swish_"+Rand(1,4)) Flip endif next if n<1000 or dist<28 goto GetMap endif Repeat sx=Rand(2,8) sy=Rand(0,8) Until GetTile(sx,sy)<0 mg=0 for n=0 to 2500 d=Rand(0,3) if d==0 and sy>0 t=GetTile(sx,sy-1) h=GetTile(sx,sy) SetTile(sx,sy-1,h) SetTile(sx,sy,t) if t>-1 then mg=mg+1 sy=sy-1 endif if d==1 and sx<8 t=GetTile(sx+1,sy) h=GetTile(sx,sy) SetTile(sx+1,sy,h) SetTile(sx,sy,t) if t>-1 then mg=mg+1 sx=sx+1 endif if d==2 and sy<8 t=GetTile(sx,sy+1) h=GetTile(sx,sy) SetTile(sx,sy+1,h) SetTile(sx,sy,t) if t>-1 then mg=mg+1 sy=sy+1 endif if d==3 and sx>2 t=GetTile(sx-1,sy) h=GetTile(sx,sy) SetTile(sx-1,sy,h) SetTile(sx,sy,t) if t>-1 then mg=mg+1 sx=sx-1 endif if mg>25 then n=5000 next for x=0 to 8 for y=0 to 8 if GetTile(x,y)==-1 r=Rand(1,4) if Rnd(0,10)<5 then r=Rand(1,7) SetTile(x,y,r) if x==sx and y==sy then SetTile(x,y,-1) endif next next tick=0 Return .InGame CLS:ResetDraw SetSize 2,2 DrawTilemap 64,64 for x=0 to 8 for y=0 to 8 ox=GetTileOffsetX(x,y)0.7 oy=GetTileOffsetY(x,y)0.7 if Abs(ox)<0.15 then ox=0 if Abs(oy)<0.15 then oy=0 SetTileOffset(x,y,ox,oy) n=GetTile(x,y) if n>-1 then SetTile(x,y,n%10);SetTileCol(x,y,0) next next bx=0;by=4;bd=1 Score=0 for b=0 to 500 n=GetTile(bx,by) if n>9 then b=600 if n>0 l=0 n2=n%10 wx=bx;wy=by if n2==1 and bd==1 then l=1;by=by-1;bd=0 if n2==1 and bd==2 then l=1;bx=bx-1;bd=3 if n2==2 and bd==3 then l=1;by=by-1;bd=0 if n2==2 and bd==2 then l=1;bx=bx+1;bd=1 if n2==3 and bd==3 then l=1;by=by+1;bd=2 if n2==3 and bd==0 then l=1;bx=bx+1;bd=1 if n2==4 and bd==1 then l=1;by=by+1;bd=2 if n2==4 and bd==0 then l=1;bx=bx-1;bd=3 if n2==5 and bd==1 then l=1;bx=bx+1;bd=1 if n2==5 and bd==3 then l=1;bx=bx-1;bd=3 if n2==6 and bd==0 then l=1;by=by-1;bd=0 if n2==6 and bd==2 then l=1;by=by+1;bd=2 if l==1 then SetTile(wx,wy,(n%10)+10);SetTileCol(wx,wy,3);Score=Score+1 if l==0 then b=600 endif if bx<0 or by<0 or by>8 then b=600 if bx>8 then b=600;won=1 if n<0 then b=600 next bx=0;by=4;bd=1 n=GetTile(bx,by) if n>-1 then SetTile(bx,by,(n%10)+10);SetTileCol(bx,by,3);Score=Score+1 if GamePad(ButtonUp)<0.5 and GamePad(ButtonDown)<0.5 and GamePad(ButtonLeft)<0.5 and GamePad(ButtonRight)<0.5 then kdis=0 if won==1 if wdel==0 then PlaySFX("Beeper_Fruit_Bonus") kdis=1;wdel=wdel+1 if wdel>60 then EndGame "Complete";WinLevel ThisLevel endif x=Floor((MouseX()-32)/64) y=Floor((MouseY()-32)/64) bu=0;if GamePad(ButtonUp)>0.5 then bu=1 bd=0;if GamePad(ButtonDown)>0.5 then bd=1 bl=0;if GamePad(ButtonLeft)>0.5 then bl=1 br=0;if GamePad(ButtonRight)>0.5 then br=1 if MouseDown()>0 if x==sx and y==sy+1 then bu=1 if x==sx and y==sy-1 then bd=1 if x==sx+1 and y==sy then bl=1 if x==sx-1 and y==sy then br=1 endif if bd==1 and sy>0 and kdis==0 t=GetTile(sx,sy-1) h=-1 SetTile(sx,sy-1,h) SetTile(sx,sy,t) SetTileOffset(sx,sy,0,-1) sy=sy-1 PlaySFX("Sonniss_Snap") kdis=1 endif if bu==1 and sy<8 and kdis==0 t=GetTile(sx,sy+1) h=-1 SetTile(sx,sy+1,h) SetTile(sx,sy,t) SetTileOffset(sx,sy,0,1) sy=sy+1 PlaySFX("Sonniss_Snap") kdis=1 endif if bl==1 and sx<8 and kdis==0 t=GetTile(sx+1,sy) h=-1 SetTile(sx+1,sy,h) SetTile(sx,sy,t) SetTileOffset(sx,sy,1,0) sx=sx+1 PlaySFX("Sonniss_Snap") kdis=1 endif if br==1 and sx>0 and kdis==0 t=GetTile(sx-1,sy) h=-1 SetTile(sx-1,sy,h) SetTile(sx,sy,t) SetTileOffset(sx,sy,-1,0) sx=sx-1 PlaySFX("Sonniss_Snap") kdis=1 endif Return --v I'll be honest, it's not the best version of Locomotion, the classic Sliding Block Puzzle.. But it does the job. Connect the left of the screen to the right of the screen, job done. I probably should've added a timer or something. shrugs* -=-=- ''Load, Next List!''
Wed, 10 Jul 2024, 01:31
Jayenkai	Day Ten - Burst // Burst // by Jayenkai // Created 2024/7/8 // GotoJSE.com/hHq4f6tF.BAS Symbol 0,"0__40!404044040,40040,404404004044040,40040,404404040!4"; Symbol 1,"2__0_0_0_0_0_0_0_0_0_03.0_0_0,556?30,30_0_05.0,660,30_0_55650550060.30_0/6506,556!330_0?6,56,556.0063.0_06?565,6_660_006?5,6_6?0_06606_6_63.0!6_6?5,006603,0@6_660656556,3.0/5,63,6/56656,3,0/6565,6636,0665.6?0@6.05663606,06556!0/65,655663306336.06?0!60560656.3.66006!0/6656,56,06_6!0!605665566006/0606,0060?6005,66006.06_3060?6006?0606605.606.3660?6006,066005/06600330/60,663,66505650556303,0@600603,005,05,663,0_006,00330,5?"; JMTrackr 120,"Classic","[0][L][z4I4z4K4z4K4z4I4][H][I4z2K4z6K4z2I4z6][B][D1D1D1z1D1D1D1z1D1D1D1z1D1D1D1z1D1D1D1z1D1D1D1z1D1D1D1z1D1D1D1z1][D][11z311z311z311z311z311z311z311z3][11z321z111z111z111z121z311z321z111z111z111z121z3]",1235 SetControlMethod Mouse Graphics 640,480,2 SetBuffer BG CLS;ResetDraw Oval 512,0,180,1022,4 burst=128 SetBuffer FG AA False CLS Repeat ResetDraw;AA False InkRot c,0.4,0.6 SetAlpha 0.1 Rect cx,cy,ScreenWidth(),ScreenHeight(),1 cx=ScreenWidth()/2 cy=ScreenHeight()/2 cb=cx;if cy>cx then cb=cy cb=cb2.5 c=Mills()0.05 ResetDraw SetAlpha 0.03 SetRot Mills() SetThick 32 DrawOval cx,cy,burst,burst,64 SetRot Mills()+90 SetThick 64 DrawOval cx,cy,burst,burst,64 burst=burst+16 if burst>cb+32 then burst=0 SetAlpha 0.02 r=Mills()0.04 for a=0 to 7 SetRot a45+r DrawBG cx,cy next SetAlpha 0.04 r=Mills()0.02 for a=0 to 7 SetRot a45+r DrawBG cx,cy next ResetDraw SetAlpha 0.1 SetSize ScreenHeight()0.02 SetRot Sin(Mills()0.07)Cos(Mills()0.13)16 DrawImg cx,cy,0 AA True SetAlpha 0.02 SeedRnd 37171650 for q=0 to 40 r=Mills()Rnd(0.02,0.05) SetSize Rnd(6,12),Rnd(6,12) SetRot Rnd(360)+Mills()Rnd(0.02,0.1) d=Rnd(cb0.1,cb) x=cx+Sin(q18+r)d y=cy-Cos(q18+r)d DrawImg x,y,1,Rand(8,9) next Flip Forever --v This one doesn't do much. Just a happy little Spike! -=-=- ''Load, Next List!''
Thu, 11 Jul 2024, 02:02
Jayenkai	Day Eleven - Haze // Haze : Hazardous Aerial Zephyraptor Elimination // by Jayenkai // Created 2024/7/9 // GotoJSE.com/km6ZvqFh.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_00:,0_0_0_0:.0_0_0_0:.z0_0_0@:,z:z0_0_0/:.z:zz0_0_0?:.z:zzyz0_0_0,:?z:z.0_0_00z:,z,:z,yz0_0_0:,z.:zzy,z0_0_::z_zyz0_0@z.:z_yz0_0/z,:z_y,0_0!z.:z_zzyy0_0?z/yyz@yz0_0,zyyz,y!zyyzy,zz0_00y_y?zy,zzyyz0/y_y_y/z0?y_y_y_0?y_y_y_y"; 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_0_0_0@:0_0_0_0,:,0_0_0_0:?0_0_0_:?0_0_0@:,z:,0_0_0?z::z,:z:0_0_0?:,z,:.0_0_0,z:.z,:,0_0_0,:,z:z,:,0_0_0,::zz:z,:zz0_0_00zz:zz:z?y0_0_00zz:z@y:0_0_y::y:z,yz?0_0_::zyz.yyzyzzy0_0@::yyz,y,zyz,0_0/y::yyzyzy.z.y0_0?yy:y,zyyzy.zzy,0_0.y::y_y,zy.0_00yy:y_y_0_00y_y_y.0_0y_y_y."; 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:z0_0_0_0:.0_0_0_0:,zz0_0_0@:!0_0_0/:.zz:z0_0_0!:.zz::0_0_0!:.z,:z0_0_0.:?z,::0_0_0.:?z.:y0_0_0,:!z.yy0_0_0:,z::yz?y0_0_0:,zz:yz!y0_0@z::z.:yz!y0_0!y::zyz.:,yz,yy0_0.yz:zzyz/yyzy.0_0,zzy.zyyz,yzzy!0_0yzy@z!y!0_0y_yyz,y_0@y_yyz.y_0@y_yyzy_y.0/y_y_y@0?y_y_y_y"; Symbol 3,"22_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0?S_S?0_0S.0S_S_0.S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S_S?"; Symbol 4,"22_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0?R_RR0_0_R_R_R_R0.R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R."; Symbol 5,"22_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_00Q_Q!0@Q0?Q_Q_QQ0,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/"; Symbol 6,"2__0_0.:,zz0_0_0!;;::z,0_0_0?;,::zz0_0_0!;,::zz0_0_0!;.::zz0_0_0?;.::zz0_0_0?;?::z0_0_0?;?::zz0_0_0.;!::z0_0_0?;?::zz0_0_0.;!::z0_0_0?;?:,z0_0_0?;?::z0_0_0?;!::z0_0_0?;!::z0_0_0?;!::z0_0_0?;!::z0_0_0?;!::z0_0_0!;?:,z0_0_0?;?:,z0_0_0?;?:,z0_0_0!;.:,z0_0_0!;.:,zz0_0_0?;?:,z0_0_0!;.:,zz0_0_0!;.:,z0_0_0/;.::zz0_0_0!;.:,zz0_0_0!;.:,zz0_0_0@;;:,z0_0_0_;;:,z0_0_0_00:,z,"; 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.rp0rp0_0_0_rpprpp0_0_0@rpprpp0_0_0@r!0_0_0/r,;vr;v0_0_0?r.;;r;;r0_0_0.r_r0_0_0.r,5?rr0_0_0.rr4.5r,0_0_0.r_r0_0_0?r@0_0_0/r!"; Symbol 10,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0,r,0_0_0_0,rr0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0!rr0?r0,r,0_0_0_0rr0_0_0_00rr0_0_0_0,rr0?r,0_0_0_0,r0_0_0_0_0_0_0_0_0_0,r,0_0_0_00r00r,0_0_0_00rr"; 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_0v.0_0_0@vvw.vv0_0_0?vvwv.wvv0_0_0.vwvwvvwvwv0_0_0,vwvwv.wvwv0_0_00vwv.yv,wv0_0_00vwv,yv.wv0_0_00vwvwv.wvwv0_0_0,vwvwvvwvwv0_0_0.vvwv.wvv0_0_0?vvw.vv0_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/y0_0_0_0.y0_0_0_0?y0_0_0_0.y0?CC0_0_0/y0.C.0_0_0v0,y0.C!0/C!0.vC!00C_C_C_C,00C_C_C_C,KDC_C_C_C,KDC_C_C_C,KDCD0,DC_C@D0,DCC0DC0?C_C@0?C0_0D_D!"; 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!S,0_0_0_00S.0_0_0_0A,0_0_0_00A.0_0_0_0A,0_0_0_00SS00A0_0_0_S.0_0_0_0SS"; Symbol 14,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0S,0_0_0_00S.0_0_0_09,0.vv0_0_0?9.0,vv0_0_0?9,0,vv0_0_0!SS0099vv0_0_0!S.99v0_0_0/S.0vv0_0_0/SS00D?0_0_0?SS0D/0_0_0.SS0D/"; Symbol 20,"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_YY0_0_0_0.WYY0_0_0@YY00WWYY0_0_0!WWY,0WWY0_0_0/W,YYV.0_0_0/WWV,66V0_0_0/V.63VV0_0_0!VVUUVVA,0_0_0?WWXUVA?0_0_0?WWXAA0_0_0_0W,A."; Symbol 21,"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,V0_0_0_0.VV0_0_0_0,W,V0_0?V,0_0.9WWVV0/V/0_0?z9W,V!W/0_0/z9zW!9z9z9z90_0_09z9z9z9"; Symbol 22,"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.V,0_0_0_00V,0_0,V.0_V.W,0_00W?V_W.9z90_0.9z9W_9z9z0_0_0z9z9z9z9z9"; Symbol 23,"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.V,0_0_0_0V.0_0_0/V,W.0_0_0,V.W,z9z90_0/V?W.9z90_0/V.W?9z9z90_0@W?z9z9z0_0_0!9z9"; 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_0_0_0_0_0_0_0_0_0_0_0_0_0_V/0_0_0V!W.V,0_0/V,W!9z9zW,0_0,V.W,9z9z9z90,9z90_00W?z9z0_0_0@9z9"; Symbol 25,"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_V.0,V/0_0@W?V,W/V!0_0.9z9W,9z9z9z9W,V,0_0/z9z0!9z9zW,0_0_0_009z9"; Symbol 26,"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_0VV0_0_0!V.W?0@V_V/W.z99z0,V_V_W.9z99z9,V_V!W!z9z9z9,z00V_V,W/99z9z99z0?W_W.9z9,z9z99z90/99z99z9,z9.z99z99z99z0_0z9z9.z9,z99z990_0_0,z90zz9,z"; Symbol 27,"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_0VV0_V_V_VW?0!V_V_W.z99z0,V_V.W_9z99z9,V_V,W/9Wz9z9z9,z00V/W!9z9,z99z9z99z0?W/99z9.z99z99z99z90/99z99z9,z9,z99z990z99z0_0z9z990z90zz9,z"; Symbol 28,"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_0VV0_0_0.V!W?0!V_V_VVWWz99z0,V_V_V,WWz99z9,V_V!W_9z9,z00V/WWV,W/9Wz9z99z0?W/99W.9z9,z99z9z90/99z99z9,z9.z99z99z99z90_z9z990zz9,z99z990z99z0_0@90zz9,z"; Symbol 29,"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_W0_0_0_0,W,0_0_0_00WUW0_0_0_00WVV0_0_0_0,WVU00UUW90_0_0!W,VVW9090_0_0!W,009"; Symbol 30,"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,WW0_0_0_0,WUV0_0_0!UU00WVU0_0_0!zzWW0WUV0_0_0!z9W,VV0_0_0/z900WW0_0_0@z,0_0_0_00z090_0_0_009"; Symbol 31,"2__0_0_0_0_0_0_0_0_0_0_0_0T@0_0_0?TU?V,T0_0_0,TUUT.U,VTT0_0_TUTTU?V?T0_0_0UUT!U,VVT0_0_00U@V.T0_0_00T/U,VVT0_0_0,U!V.T0_0_0.T!U,VT0_0_0?U?V,T0_0_0!T?UUV0_0_0/U?VV0_0_0@T!0_0_0_U?"; Symbol 32,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0/TT0_0_0_00TUUT?0_0_0?TUUTU,VVTT0_0_00TUTTU,T,VVTT0_0_00UUT,U!VT0_0_0,U?T,V,T0_0_0,T.U!VT0_0_0.U.T,V,TT0_0_0,U_VV0_0_0?U?VVTT0_0_0!U@"; Symbol 33,"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_T0_0_0_0.UT.0_0_0_U?T?0_0_0?U,TU,VVTT0_0_0.TTU,T,VVTT0_0_0.T,U,V.T0_0_0.U,TTU,VVT0_0_0.TTUUTTV.TT0_0_0.TTU?V,T0_0_0!U@"; Symbol 34,"2__0_0_0_0_0_0_0_0_0_0_0/T0_0_0_0.UT0_0_0_0.UT!0_0_0!UTUUT!0_0_0?UTTU.T,0_0_0?UUT.UUVT0_0_0!U?VUVTT0_0_0?UT.V.T0_0_0!U!VVTT0_0_0?TTUUV?T0_0_0!T.U,VT0_0_0!U.V,T0_0_0@T!0_0_0_U?"; Graphics 640,512,2 GameHandler "/\/\H.A.Z.E./\/\|\/\/\/\/\/\/\/\\|/\Hazardous\/\/\|\/Aerial\/\/\/\\|/\Zephyraptor\/\|\/Elimination/\\|/\/\/\/\/\/\/\/" .StartGame SetBuffer BG CLS;ResetDraw;AA True for n=0 to 20 z=((16-n)0.1)+4 zy=Rnd(0.8,1.0)z SetSize Rnd(0.8,1.0)z,zy x=Rnd(0,1024) y=512-Rnd(14zy,16zy) DrawImg x,y,Rand(0,2) DrawImg x+1024,y,Rand(0,2) DrawImg x-1024,y,Rand(0,2) next scrx=0 bx=jscrw0.15 by=jscrh0.85 wx1=0 wy1=0 wx2=0 wy2=0 wx3=0 wy3=0 wx4=0 wy4=0 jx1=0;jy1=0 jx2=0;jy2=0 Bulletx=-100;Bullety=-100 bulletxs=0 bulletys=0 bdis=2 hx=jscrw2 bpow=0 wing=0 wings=0 zephyrs=5 bkl=0 SetBuffer FG Return .Ingame CLS 160,200,255;ResetDraw SetGradient 40,0,40,160,200,255 Rect 0,0,jscrw(),jscrh() ResetDraw AA True SetSize 2;SetAlpha 0.5 DrawImg jscrw()-64,64,6 ResetDraw scrx=scrx+1 for m=0 to 4 zx=(m+2)(m+2) zx=zx0.1 z=3-m0.25 SetSize z;SetAlpha 1 WrapBG (jscrw/2)-(scrxzx)+m178,jscrh0.8 SetCol 160,200,255,0.1 Rect 0,0,jscrw(),jscrh() next for m=0 to 2 zx=(m+7)(m+7) zx=zx0.1 SetSize 16.1,4;SetAlpha 1 if m==2 then AA False x=Wrap(((jscrw/2)-(scrxzx)+m178),0,512) DrawImg x,jscrh(0.8+(m0.05)),m+3 DrawImg x+511,jscrh(0.8+(m0.05)),m+3 DrawImg x-511,jscrh(0.8+(m0.05)),m+3 SetCol 160,200,255,0.1 Rect 0,0,jscrw(),jscrh() next ResetDraw wx1=SmoothTo(wx1,wx3,3) wx2=SmoothTo(wx2,wx4,3) wy1=SmoothTo(wy1,wy3,3) wy2=SmoothTo(wy2,wy4,3) jx1=SmoothTo(jx1,jx2,3) jy1=SmoothTo(jy1,jy2,3) if Rnd(0,60)<8 then wx3=Rnd(-1.5,1.5) if Rnd(0,60)<8 then wx4=Rnd(-1.5,1.5) if Rnd(0,60)<8 then wy3=Rnd(-1.5,1.5) if Rnd(0,60)<8 then wy4=Rnd(-1.5,1.5) if Rnd(0,60)<16 then jx2=Rnd(-1.5,1.5) if Rnd(0,60)<16 then jy2=Rnd(-2.5,2.5) // Jeep SetSize 2 SetRot Mills()0.8 DrawImg bx-44+wx1,by+20+wy1,11 SetRot Mills()0.8+135 DrawImg bx+42+wx2,by+20+wy2,11 SetRot 0 SetSize 4;AA False DrawImg bx+jx10.3,by+jy10.3,13 DrawImg bx+jx10.3,by-jy10.2,14 DrawImg bx+jx1,by+jy1,12 // Zephyraptor if wing<2 then wing=wing+0.25 if wing>=2 then wing=wing+0.1 if wing>=4 then wing=0 ResetDraw SeedRnd Mills() if hx<0-64 and Rnd(0,100)<20 then PlaySFX("Noise_Burr_"+Rand(1,2),Rnd(0.5,0.7)) if hx>jscrw+80 and hx<jscrw+110 and Rnd(0,100)<20 then PlaySFX("Noise_Burr_"+Rand(1,2),Rnd(1.6,2.2)) if hx>jscrw+128 and zephyrs>0 hx=0-96;hy=jscrh0.25;hc=Rand(0,3) zephyrs=zephyrs-1 hspd=Rnd(1.8,2.8) endif if hx>jscrw+96 and zephyrs<1 EndGame endif hx=hx+hspd if hy>jscrh0.25 then hy=hy-0.5 if hy<jscrh0.25 then hy=jscrh0.25 c=hc hy2=Sin(Mills()0.2)3 SetSize 0-4,4 DrawImg hx+6,(hy-16)+hy2,31+Floor(wing),c SetSize 4 DrawImg hx-126,hy+Sin(Mills()0.15)4,(Floor(Mills()/125)%5)+21,c DrawImg hx,hy+hy2,(Floor(Mills()/205)%3)+26,c DrawImg hx+64+Cos(Mills()0.075)2,(hy-16)+Sin(Mills()0.04)3,20,c SetRot Sin(Mills()0.088)12,c DrawImg hx+16,hy+Sin(Mills()0.2)2,29,c SetRot Sin(Mills()0.03)12,c DrawImg hx-16,hy+Sin(Mills()0.2)3,30,c ResetDraw bulletz=bulletz+0.15 if bulletz>3 then bulletz=3 SetSize bulletz SetRot Mills() DrawImg bulletx,bullety,9 if GamePad(ButtonA)<0.5 if bdis==1 and bulletx<0 combo=0 bulletx=bx;bullety=by-32; bulletxs=(bpow8)+1.5;bulletys=0-(10+(bpow1.6)) bulletz=1 PlaySFX("Explode_High_5",Rnd(1.5,2));PlaySFX("Beeper_Rise",Rnd(1,2)) for q=0 to 16 ThrowParticle bulletx,bullety,4,Rnd(16,30),Rnd(0.3,0.6),10,0 next endif bdis=0 bpow=0 bkl=0 endif if GamePad(ButtonA)>0.5 and bdis<2 and bulletx<0 bdis=1 bpow=bpow+0.03 if bpow<1 and bkl==0 then PlaySFX("Noise_Thud_3",bpow+1) bkl=(bkl+1)%4 if bpow>1 then bpow=1 endif if bulletys>=0 and Abs(bullety-(hy-16))<32 and Abs(bulletx-(hx-24))<116 bulletys=-Rnd(2,4);hy=hy+12;PlaySFX("Jump_4",Rnd(0.7,1.4));PlaySFX("Noise_Burr_"+Rand(1,2)) combo=combo+1 Gimme combo5,bulletx,bullety endif if bulletx>0 bulletx=bulletx+bulletxs3 bullety=bullety+bulletys*3 endif bulletys=bulletys+0.5 if bullety>jscrh() then bulletx=-100 ResetDraw SetSize 4 SetRot 0 DrawImg hx-8,(hy-16)+hy2,31+Floor(wing),c SetSize 1;SetFontSize 8 TextScore jscrw/2,12,1 Text jscrw/2+48,12,zephyrs,1 Return --v Tap fire to launch the ball up into the air. Hold fire down to launch further. There are 5 Zephyraptors that fly across the screen. Score point. No more than that. Haze = the lovely haze in the background... Is that enough? Probably not. It'll do. -=-=- ''Load, Next List!''
Fri, 12 Jul 2024, 00:33
Jayenkai	Day Twelve - Pulse // Pulse // by Jayenkai // Created 2024/7/11 // GotoJSE.com/p8Pj3GMm.BAS // Disclaimer : This is not real // If you feel you're unwell enough to be running this program for medical diagnoses, please consult a qualified medical practitioner. Graphics 512,512,2 px=0 py=jscrh0.5 wx=px;wy=py Dim stat(20,5) stat(0,0)=80 // Heartrate stat(0,5)=60;stat(0,6)=104 stat(1,0)=120;stat(2,0)=80 // Blood pressure stat(1,5)=85;stat(1,6)=145 stat(2,5)=55;stat(2,6)=95 stat(3,0)=37 // Temperature stat(3,5)=35.5;stat(3,6)=38.5 stat(4,0)=98 // Blood Oxygen stat(4,5)=85;stat(4,6)=99 for m=0 to 19 for n=1 to 5 stat(m,n)=stat(m,n-1) next next time=0 CLS 0,40,0 SetFont "Magnetic" Repeat CLS 0,40,0,0.1;ResetDraw time = time + 0.01 for m=0 to 19 stat(m,2)=Rnd(stat(m,5),stat(m,6)) if Rnd(0,100)<1 then stat(m,1)=stat(m,2) stat(m,0)=SmoothTo(stat(m,0),stat(m,1),90) next bpm=stat(0,0)/(jscrw()/10) gap=jscrw/512 SetCol 0,50,0,0.1 w2=jscrw()/2;h2=jscrh()/2 for i=0 to jscrw step 32 Line w2+i,0,w2+i,jscrh Line 0,h2+i,jscrw,h2+i Line w2-i,0,w2-i,jscrh Line 0,h2-i,jscrw,h2-i next SetCol 0,255,0,1 for n=0 to 11 px=px+(bpmgap) if beep>0 then beep=beep+bpm8bs;peak=peak-bpmps if peak<0 then peak=0 if px>jscrw then px=0;wx=-1;beep=0 if px>jscrw()0.4 and beep==0 PlaySFX("Beep_1",2) beep=Rnd(1,360);peak=128;bs=Rnd(0.9,1.1);ps=Rnd(0.9,1.1) endif py=h2+Sin(beep)peak SetWidth(2) Line px,py+Rnd(-2,2),wx,wy+Rnd(-2,2) wx=px;wy=py next SetCol 255,255,255 SetFontSize 12 tw=2012 Rect jscrw()-tw,2,tw-2,80 SetCol 128,128,0 y=20 Text jscrw()-10,y,"BP: "+Round(stat(1,0))+"/"+Round(stat(2,0))+" mmHg",2;y=y+20 Text jscrw()-10,y,"Temp: "+Round(stat(3,0))+" C",2 x=jscrw()-24 DrawOval x,y-6,4,4,16 y=y+20 Text jscrw()-10,y,"SpO2: "+Round(stat(4,0))+"%",2;y=y+20 SetCol 255,255,255 Text jscrw()0.5,jscrh()-64,"HR: "+Round(stat(0,0))+" bpm",1 SetCol 0,200,255 ny=(jscrw()-40) for i=0-8 to jscrw() step 16 y=(jscrh()-40)+Sin(i2+time100)20+Cos(i7+time100)10 Line i-16,ny,i,y ny=y next SetCol 255,0,0 if stat(0,0)>100 or stat(0,0)<60 Text jscrw()0.5,jscrh()-16,"ALERT: Abnormal Heart Rate",1 endif if stat(1,0)<90 or stat(1,0)>140 or stat(2,0)<60 or stat(2,0)>90 Text jscrw()0.5,jscrh()-32,"ALERT: Abnormal Blood Pressure",1 endif if stat(4,0)<95 Text jscrw()0.5,jscrh()-48,"ALERT: Low Oxygen Saturation",1 endif Flip Forever --v Warning : Not suitable for real-life medical situations. -=-=- ''Load, Next List!''
Fri, 12 Jul 2024, 01:01
spinal	Just curious, but is it intentional that the fadeouts don't go back to the background colour, or is it my monitor? -=-=- Check out my excellent homepage!
Fri, 12 Jul 2024, 01:26
Jayenkai	It's a weird floating-point thing that Javascript seems to do. It can't quite do alpha's properly when they're that low. I'm drawing a 0,40,0 rectangle over everything with 0.1 alpha. Remember that in Javascript, the colour value is 0.0,0.15,0.0, and reduce the 0.15 by the 0.1 alpha, and it's mathsing a 0.015 value over everything. ... It just can't quite grasp it. I do like the "burn in" effect it leaves behind, though Feel free to change the CLS's alpha value though if you dislike it. -=-=- ''Load, Next List!''
Sat, 13 Jul 2024, 03:10
Jayenkai	Day Thirteen - Flicker // Flicker // by Jayenkai // Created 2024/7/12 Symbol 0,"1__440_0,4.0_0,440044004.00440.44004.00440!440.440@440.440!44004.00440.44004.00440.44004.00440.44004.00440!440.440@440.440!44004.00440.44004.004400440_0,4.0_0,44"; Symbol 1,"1__440_0,4.0_0,440044004.00440!44004.00440.440.440@440.440!44004.00440044004.00440!44004.00440.44004.00440!440.440@440.440/44004.00440.44004.00440440_0,4.0_0,44"; Symbol 2,"1__440_0,4.0_0,440044004.00440.44004.00440?440.440_440.440!44004.00440,44004.00440!44004.00440,44004.00440!440.440@440.440!44004.00440.44004.00440_0?4400440_0,44"; Symbol 3,"1__440_0,4.0_0,440044004.00440044004.00440@440.440/440.440/44004.00440?44004.00440.44004.00440,44004.00440!440.440@440.440!44004.00440?44004.004400440_0,4,0_0,44"; Dim Spike(20,10) Graphics 512,512,1 px=180 pspd=2 rad=200 sr=60 st=0 GameSpeed=1 glitch=0 Repeat CLS;ResetDraw;AA False if Rnd(0,50)<5 then rad=Rnd(198,202);glitch=Rand(0,3) SetThick 2 for q=0 to 360 dist=rad d=WhichWayDoIGo(q,px) if Abs(d)<6 then f=(6-Abs(d))2;dist=dist+Rand(0-f,f) Line 256+Sin(q)dist,256-Cos(q)dist,256+Sin(q+1)dist,256-Cos(q+1)dist next if GamePad(ButtonLeft)>0.5 or GamePad(ButtonUp)>0.5 then px=Wrap(px-pspd,0,360) if GamePad(ButtonRight)>0.5 or GamePad(ButtonDown)>0.5 then px=Wrap(px+pspd,0,360) sr=sr-(Rnd(0.4,0.6)GameSpeed) e=Rand(0,3) if sr<0 st=(st+1)%20 Spike(st,0)=1 r=px+Rnd(-40,40) if e==0 then r=Rnd(360) if e==1 r=px+Rnd(70,90) if Rnd(0,10)<5 then r=px-Rnd(70,90) endif Spike(st,1)=0 Spike(st,2)=r sr=60 endif for m=0 to 19 if Spike(m,0)>0 Spike(m,1)=Spike(m,1)+delta+GameSpeed if Spike(m,1)>200 then Spike(m,0)=0;GameSpeed=GameSpeed+0.1 DrawImg 256+Sin(Spike(m,2))Spike(m,1),256-Cos(Spike(m,2))Spike(m,1),Glitch endif next if GameSpeed>6 then GameSpeed=6 Flip Forever --v This is a failure. I tried to make this into a game, but I wasn't feeling it. What I was feeling, though, was tired, and the 2 hour nap I had on the couch whilst trying to code this, pretty much said to me "Give up, Jay. Give up.." So I gave up. This is all you're getting for day 13. : Download -=-=- ''Load, Next List!''
Sat, 13 Jul 2024, 19:33
therevillsgames	"Mum's been having a whale of a time." Is she using that piano MR trainer (PianoVisionary?) in that photo?
Sun, 14 Jul 2024, 03:24
Jayenkai	We both tried it out, but both decided it wasn't as good as we'd hoped it might be. Nah, we're doing YouTube training, instead. -=-=- ''Load, Next List!''
Sun, 14 Jul 2024, 04:10
Jayenkai	Day Fourteen - Splash // Splash // by Jayenkai // Created 2024/7/13 // GotoJSE.com/3B6MQH5W.BAS 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@V!0_0_00V!0!V/0_0_0_0_0_0_0_0_0_0_0_0_0_0_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!V/0_0_0V!"; 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_V_V,0_0_0_0.V_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_00V_0_0_0_0.V_"; 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.V_V.0_0_0_0?V,0_0_0_0?V/0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_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_VV0_0_0_0?V,0_0_0_0?V?"; dim wave(10,5) Graphics 480,640,1 SetControllerMethod Mouse GameHandler "Splash" .StartGame stones=5;tick=0 hx=jscrw0.5 hy=jscrh()-32 mdis=1 throw=0;hpow=0 for n=0 to 9 wave(n,0)=Rand(1,3) wave(n,1)=Rnd(0-32,jscrw+32) wave(n,2)=Rnd(jscrh0.3,jscrh) wave(n,3)=Rnd(1,3) next fx=jscrwRnd(0.2,0.8) fy=jscrhRnd(0.35,0.7) fx2=jscrwRnd(0.2,0.8) fy2=jscrhRnd(0.35,0.7) fxs=0 fys=0 Return .Ingame CLS 120,180,255 SetCol 0,80,160 Rect 0,jscrh0.25,jscrw,jscrh ResetDraw SetSize 6,1 for n=0 to 9 wave(n,1)=wave(n,1)+wave(n,3) if wave(n,1)>jscrw+96 then wave(n,1)=0-96;wave(n,2)=Rnd(jscrh0.3,jscrh);wave(n,0)=Rand(1,3);wave(n,3)=Rnd(1,3) DrawImg wave(n,1),wave(n,2)+Sin(Mills()0.2+n37)2,wave(n,0),n%2 next sc3=sc2 sc2=sc sc=0 cx2 = tx; cy2 = ty-typ; ResetDraw for r=4 to 0 step -1 w=(r12+16)3;w2=w0.5 h=(r12+16)1.5;h2=h0.5 cx1 = fx; cy1 = fy; scX = Math.max(w2, 16); scY = Math.max(h2, 12); // Normalize the center distances nx = (cx1-cx2) / scx; ny = (cy1 - cy2) / scy; // Calculate the normalized distance nd = pyth(nx,ny) InkRot r30,0.5,1 SetAlpha 0.5 if nd<=1.2 and throw>0 SetCol 180,255,180,1 if r==0 then sc=250 if r==1 then sc=100 if r==2 then sc=50 if r==3 then sc=25 if r==4 then sc=10 endif Oval fx,fy,w,h,16 next if Abs(fx-fx2)<4 then fx2=jscrwRnd(0.2,0.8) if Abs(fy-fy2)<4 then fy2=jscrhRnd(0.35,0.7) fx=fx+fxs0.3 fy=fy+fys0.3 if fx>fx2 then fxs=Limit(fxs-0.3,-2,2) if fy>fy2 then fys=Limit(fys-0.3,-2,2) if fx<fx2 then fxs=Limit(fxs+0.3,-2,2) if fy<fy2 then fys=Limit(fys+0.3,-2,2) SetCol 0,0,0,1 Rect 8,jscrh-(168+2),8,(168+2) SetCol 100,255,100 Rect 9,(jscrh-1)-(hp28),6,hp28 ResetDraw pow=0 if throw==0 if MouseDown()<0.5 mdis=0 if hpow>0 then tx=hx;ty=hy+hpow;throw=1;hpow=(hpow0.4)+4;stones=stones-1 endif if MouseDown()>0.5 and mdis==0 and stones>0 then hpow=hpow+0.2;hp2=hpow if hpow>16 then hpow=16 if MouseX()>8 and MouseX()<jscrw()-8 then hx=MouseX() if stones>0 and throw==0 then Oval hx,hy+hpow,16,12,16 endif if throw>0 throw=throw+4 if Abs(throw-90)<6 PlaySFX("Sonniss_Coins",Rnd(2.2,2.6)) for q=0 to 1 ThrowParticle tx,ty,2,Rnd(30,50),Rnd(0.2,1.3),Rand(1,3),Rand(0,1) ThrowParticle tx,ty,2,Rnd(-50,-30),Rnd(0.2,1.3),Rand(1,3),Rand(0,1) next endif ty=ty-hpow0.8 typ=Abs(Sin(throw2)8) SetCol 0,0,0,0.5 Oval tx+typ0.7,ty+typ0.5,16,12,16 SetCol 255,255,255,1 Oval tx,ty-typ,16,12,16 endif if throw>=180 hp2=0 sc3=sc2 sc2=sc sc=0 cx2 = tx; cy2 = ty-typ; ResetDraw for r=4 to 0 step -1 w=(r12+16)3;w2=w0.5 h=(r12+16)1.5;h2=h0.5 cx1 = fx; cy1 = fy; scX = Math.max(w2, 16); scY = Math.max(h2, 12); // Normalize the center distances nx = (cx1-cx2) / scx; ny = (cy1 - cy2) / scy; // Calculate the normalized distance nd = pyth(nx,ny) if nd<=1.2 and throw>0 SetCol 180,255,180,1 if r==0 then sc=250 if r==1 then sc=100 if r==2 then sc=50 if r==3 then sc=25 if r==4 then sc=10 endif next for q=0 to 32 ThrowParticle tx,ty,2,Rnd(-30,30),Rnd(0.5,2.3),Rand(1,3),Rand(0,1) next if sc3>sc then sc=sc3 if sc2>sc then sc=sc2 Gimme sc,tx,ty-32 if sc==10 then PlaySFX("Beeper_2tone_Up") if sc==25 then PlaySFX("Beeper_4tone_Up") if sc==50 then PlaySFX("Beeper_Jingle_Up") if sc==100 then PlaySFX("Beeper_Fruit_Bonus") if sc==250 then PlaySFX("Beeper_Fruit_Extra") PlaySFX("Noise_Splash",Rnd(0.8,1.2)) throw=0;hpow=0 endif ResetDraw SetCol 0,128,0 SetFontSize 32 TextScore jscrw0.5,32,1 SetFontSize 16 Text jscrw0.5,96,"Stones Left",1 SetFontSize 32 s=stones if s<1 and throw==0 then s=0;tick=tick+1 if tick>90 then EndGame "Out of Stones" Text jscrw*0.5+96,128,s,1 Return --v Skim your stones towards the target, and hope for the best! Hold the mouse/touch for extra power. -=-=- ''Load, Next List!''
Mon, 15 Jul 2024, 02:26
Jayenkai	Day Fifteen - Breeze // Breeze // by Jayenkai // Created 2024/7/13 // GotoJSE.com/Ckg7fsrR.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_00;!0_0_0@;_;,0_0_00;_;_0_0?;_;_;!0@:_:_:.;@00;_;_;!:?0,;_;_:/0/;_;,:@0_0,;!:_:0_0/:_:,0_0_00:@0_0_0!:."; Symbol 1,"2__0_0,y@0_0_0!1@0_0_0!LL1LL1LL0_0_0!1@0_0_0!LL1LL1LL0_0_0!1@0_0_0!LL1LL1LL0_0_0!1@0_0_0!LL1LL1LL0_0_0!1@0_0_0!LL1LL1LL0_0_0!1@0_0_0!LL1LL1LL0_0_0!1@0_0_0!LL1LL1LL0_0_0!1@0_0_0!LL1LL1LL0_0_0!1@0_0_0!LL1LL1LL0_0_0!1@0_0_0!LL1LL1LL0_0_0!1@0_0_0!LL1LL1LL0_0_0!1@0_0_0!LL1LL1LL0_0_0!1@0_0_0!LL1LL1LL0_0_0!1@0_0_0!LL1LL1LL0_0_0!1@0_0_0!LL1LL1LL0_0_0!1@"; Symbol 2,"2__0_0,x@0_0_0!2@0_0_0!LL2LL2LL0_0_0!2@0_0_0!LL2LL2LL0_0_0!2@0_0_0!LL2LL2LL0_0_0!2@0_0_0!LL2LL2LL0_0_0!2@0_0_0!LL2LL2LL0_0_0!2@0_0_0!LL2LL2LL0_0_0!2@0_0_0!LL2LL2LL0_0_0!2@0_0_0!LL2LL2LL0_0_0!2@0_0_0!LL2LL2LL0_0_0!2@0_0_0!LL2LL2LL0_0_0!2@0_0_0!LL2LL2LL0_0_0!2@0_0_0!LL2LL2LL0_0_0!2@0_0_0!LL2LL2LL0_0_0!2@0_0_0!LL2LL2LL0_0_0!2@0_0_0!LL2LL2LL0_0_0!2@"; Symbol 3,"23_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_00OMR0_0_0_O,MRO0_0_0!O.MROO0_0_0.O?MRO,0_0_0,O.MMRO.0_0_0O.MMRRO.0_0_0O.MRRO?0_0_O.MMRO!0_0_O,MMRO/0_0_OOMMRRO/0_0_OOMRRO!0_0_00M,RO!0_0_00R.O?"; SetControlMethod Touch Graphics 640,320,1 px=64 py=jscrh0.3 stall=4 SeedRnd Mills() SetBuffer BG CLS;ResetDraw;AA False SetSize 4 for x=32 to 1024-32 step 48 dx=x+Rnd(-8,8) dy=(512+160)+Rand(-16,32) DrawImg dx,dy,Rand(1,2),Rand(0,7) next SetBuffer FG aimx=px-jscrw0.25 scrx=aimx Repeat CLS;ResetDraw;AA False aimx=px-jscrw0.25 scrx=SmoothTo(scrx,aimx,16) SetGradient 20,80,120,80,160,240 Rect 0,0,jscrw,jscrh ResetDraw SetSize 1 WrapBG 500-scrx0.3,(jscrh0.4)-(48) SetSize 1.2 WrapBG 200-scrx0.45,(jscrh0.4-16)-(1.448) SetSize 1.5 WrapBG 0-scrx0.55,(jscrh0.4-32)-(1.848) breeze=breeze+1 ResetDraw SeedRnd 3717 for m=0 to 50 x=Wrap(Rnd(1024)-((scrx+breeze)Rnd(1.1,1.5)),0,1024)-64 y=Wrap(Rnd(jscrh)+Mills()Rnd(0.01,0.03),0,jscrh)-20 SetRot Sin(Mills()Rnd(0.07,0.13)+m37)20 if Pyth(x-pdx,y-py)<16 then boost=4 DrawImg x,y,3 next ResetDraw SetCol 0,96,0 Rect 0,jscrh0.9,jscrw,jscrh0.3 stall=Limit(stall+Sin(down)0.1,0,8) asp=0.5delta b=0 if MouseDown()>0.5 or GamePad(ButtonUp)>0.5 or GamePad(ButtonLeft)>0.5 or GamePad(ButtonA)>0.5 then b=1 if py>jscrh0.92 then b=0.5;dead=1 if b>0.5 then down=down-asp if b<0.5 down=down+asp if GamePad(ButtonDown)>0.5 or GamePad(ButtonRight)>0.5 then down=down+asp endif down=Limit(down,-80,60) if dead==0 px=px+Abs(Cos(down)stall0.5) py=py+Sin(down)1.3*stall if stall<0.3 then py=py+1 if py<0 then py=0 pdx=px-scrx if boost>0 py=py-0.5 boost=boost-0.5 endif endif SetRot down DrawImg px-scrx,py,0 Flip Forever --v I was hoping for a bit more of a game out of this one, but struggled to get the physics to feel right, so kinda abandoned all hope! -=-=- ''Load, Next List!''
Tue, 16 Jul 2024, 02:10
Jayenkai	Day Sixteen - Spiral // Spiral // by Jayenkai // Created 2024/7/14 Symbol 0,"0__0,II0!II0!I0B0.B,0.B0B0/WW0?WW0W"; Symbol 1,"0__0,II0!II0!I0!B.0,B0B0/WW0.WW00W"; Symbol 2,"0__0,II0!II0.B0I0!B,0!B0B0,W0W0!W0W0@W"; Symbol 3,"0__0,II0!II0!I0?B?0?B0/WW0.WW0W"; Symbol 4,"0__0,II0!II0!I0B0.B,0.B0B0/W0!W0W0?W0W"; Graphics 512,512,1 Repeat CLS;ResetDraw;AA False w2=jscrw/2 h2=jscrh/2 r=Wrap(r-1,0,360) weee=Wrap(weee-0.2,0,4) n=0 f=1/(jscrw0.35) for y=0+weee to jscrh2 step 4 SetRot 0-y13 d=(yy)0.001 SetSize df DrawImg w2+Sin(y4+r)d,h2-Cos(y4+r)d,(n+weee)%5 n=n+1 next Flip Forever --v Not much to see here. Just a spiral. Weeeeeee!!!! -=-=- ''Load, Next List!''
Wed, 17 Jul 2024, 01:54
Jayenkai	Day Seventeen - Melt // Melt // by Jayenkai // Created 2024/7/14 // GotoJSE.com/7Bhqpllm.BAS Symbol 0,"16_4_4_5_5,4,5_5?445,6@5,44556_65544556_65544556_65544556_65544556_65544556_65544556_65544556_655445,6@5,445_5?4,5_5,4_4_"; SetControlMethod Mouse Graphics 768,768,3 Border 0,0,0 Gosub Reset Repeat SeedRnd Mills()37 CLS 0,0,0,0.1 // Scroll 0,-1 ResetDraw AA False SetBlend "Light" DrawTilemap 16,16 for n=0 to 128 x=n%24;y=Rand(0,23) z=GetTileData(x,y) z=z+Rnd(0.5,1)ms SetTileOffset(x,y,0,z) SetTileSize(x,y,1,Limit(1+z0.5,1,8)) SetTileData(x,y,z) next if MouseHit() or GameHit() or KeyHit() then Gosub Reset ms=ms+0.0005 Flip Forever .Reset SetTilemapSize 24,24 for x=0 to 24 for y=0 to 24 SetTile x,y,0 SetTileCol x,y,Rand(0,7) SetTileAlpha x,y,0.1 z=0 SetTileOffset(x,y,0,z) SetTileSize(x,y,1,Limit(1+z0.5,1,8)) SetTileData(x,y,z) next next SetTileCol 3,8,8 SetTileCol 3,9,8 SetTileCol 3,10,8 SetTileCol 3,11,8 SetTileCol 3,12,8 SetTileCol 4,9,8 SetTileCol 5,10,8 SetTileCol 6,9,8 SetTileCol 7,8,8 SetTileCol 7,9,8 SetTileCol 7,10,8 SetTileCol 7,11,8 SetTileCol 7,12,8 SetTileCol 9,8,8 SetTileCol 9,9,8 SetTileCol 9,10,8 SetTileCol 9,11,8 SetTileCol 9,12,8 SetTileCol 10,8,8 SetTileCol 10,10,8 SetTileCol 10,12,8 SetTileCol 11,8,8 SetTileCol 11,12,8 SetTileCol 13,8,8 SetTileCol 13,9,8 SetTileCol 13,10,8 SetTileCol 13,11,8 SetTileCol 13,12,8 SetTileCol 14,12,8 SetTileCol 15,12,8 SetTileCol 17,8,8 SetTileCol 18,8,8 SetTileCol 19,8,8 SetTileCol 19,9,8 SetTileCol 19,10,8 SetTileCol 19,11,8 SetTileCol 19,12,8 SetTileCol 20,8,8 SetTileCol 21,8,8 ms=0 Return --v It's not as perfectly smooth as I'd've liked, nor is it optimised and fast, or really all that useful in terms of transitions or whatnot, but it's certainly a nifty effect! \|update\| It's been brought to my attention that the Scroll function is very broken! Sorry, I've commented out the Scroll line. Still works fine without it! \|update\| -=-=- ''Load, Next List!''
Thu, 18 Jul 2024, 02:29
Jayenkai	Day Eighteen - Glitch // Glitch // by Jayenkai // Created 2024/7/14 // GotoJSE.com/3qbtW2b8.BAS Dim stack(100,10) Graphics 512,512,1 sp=0 debugmode 1 glitch=1.5 gspin=0 gl=0 Repeat CLS;ResetDraw;AA True spin2=Cos(Cos(Mills(1)0.01)90)60 SetRot spin2 x=256;y=280;size=180;depth=5 sto=0 Gosub sierpinski if Rnd(0,60)<1 then glitch=Rnd(1.2,1.8);gspin=Rnd(0,360) ScreenEffect "Noise+Glitch" Flip Forever .sierpinski InkRot depth45,1,1 if depth<1 then return Oval(x,y,size,size,3) if depth>0 newsize=size/2 sto=sto+1 stack(sto,1)=x;stack(sto,2)=y; stack(sto,3)=size;stack(sto,4)=depth; stack(sto,5)=size/2 depth=depth-1;newsize=stack(sto,5);movesize=newsizeglitch spin=depthspin2+gspin x=x+Sin(0+spin)* movesize;y=y-Cos(0+spin)movesize;size=newsize Gosub sierpinski x=stack(sto,1);y=stack(sto,2) newsize=stack(sto,5);movesize=newsizeglitch spin=depthspin2+gspin x=x+Sin(120+spin)movesize;y=y-Cos(120+spin)movesize;size=newsize Gosub sierpinski x=stack(sto,1);y=stack(sto,2) newsize=stack(sto,5);movesize=newsizeglitch spin=depthspin2+gspin x=x+Sin(240+spin)movesize;y=y-Cos(240+spin)*movesize;size=newsize Gosub sierpinski size=stack(sto,3);depth=stack(sto,4) sto=sto-1 endif return --v After yesterday's disaster with a Scrolling issue, comes today's Glitch. Though JSE does have a Glitch effect, so it did make it infinitely easier. Just a generic little triangularium with a ScreenEffect "Glitch" on top! : Download \| Suno Link -=-=- ''Load, Next List!''
Fri, 19 Jul 2024, 02:04
Jayenkai	Day Nineteendo - Sway // Sway // by Jayenkai // Created 2024/7/15 // GotoJSE.com/SRPqxnjS.BAS Symbol 0,"2__0?Q0_0_0_0.Q0!Q0/QQ0_0?QQ0!QQ0!Q0/Q0/Q0@Q0?QQ0/Q0/Q0@Q0?Q0@Q0!QQ0@Q0?Q0_Q0?Q0_Q0!Q0@Q0?Q0@QQ0!QQ0/Q0?QQ0/Q0@Q0!QQ0!Q0!QQ0@QQ0?Q0/Q0!Q0_0Q0.QQ0/Q0?QQ0_0Q0.Q0@Q0?Q0_00Q0.Q0@Q0!Q0_QQ0.Q0@Q0!Q0_Q0?Q0@Q0!Q0_Q0?Q"; Symbol 1,"2__0_0_0_0_0_0@l0_0_0_0,l,0_0_0_00l.0_0@ll0_0l,0_0@ll0_00ll0_0@ll0_00ll0_0/l.0_0ll0_0/l.0_0ll0_0/l.0_0ll0_0/l.0_0ll0_0/l.0_0ll0_0@ll0_00ll0_0@ll0_00ll0_0@ll0_00ll0_0@ll0_00ll"; Symbol 2,"23_9_9_9_9_9.J9/B99Q9_9_9_9_9_9_Q9_9.JB9_9_9_9_9,B9_9?J9_9_9_9_9/J9_9!J9.B9_9/JQ9_9_9_9@BB9_9_9_9_9_99J9_9_9_9@J9_9_9_9?Q9_9,Q9_9J99B9_9!J9_9_9_9_9_9_9_9_9_9?B9_9!J9_9_9_9,B9?Q9_9_9_9_J9_9_J9_9_9,J9_9_9B9_9Q9_9_9_9@B9_9_9!J9!B9/J9B9_9?J9_9_9_9?B9_99Q9_9?Q9_9_9_9_9_9B9_9_9.B9_9_99J9!B9_9_9?B9_9_9_9_9/"; 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_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0e_0@e_e!0_e?"; 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_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0/Y_YY0_0_0_0?Y?0_0Y,0_0_0Y_Y"; 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_0_0_0_0_0_0_00u273tt0_0_0!Yt3,5,q00Zx0_0@g;8;.56tZY;3n0_0/U92t2;,A33;;tY0_0/n192ttuy;335;;t0_0_u33y3x335uwZyxu0_0_Zwt4t3tnt,Xz3v0_0_003s00Yun0,gtZ0_0_0X7"; 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_ZgZz.0_0_0.YZ;5,YYZ0.Zy0_0@:;;29,3uY0gZs0_0/g:;:;22y23.YZ0_0@YzF8;3t3,6f0Zvy0_0_wz:5wssxZ0.Ys0_0_00ttZ0Y,0_0_0@un"; 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,X0VVZYYZ0_0_0?zx:ZyTgZ0.ZZ0_0/X;,TYZyTYZ,UY0_0@T:T;;ZvZ;;::ZZ0_0_0Z;;zg,TzY0XYZ0_0_0ZZxgZZYYZ0,ZZ0_0_00Y0.g"; 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?Y:MyxZ0_0_0!ZUNNOSRx0.Z0_0_Y;.MGHY0,yD0_0@a;xv;;YXAJxvxA0_0_T;;v;xYXAAJzJA0_0_0;;vZXYYCv0,wx0_0_Yx:ZZgZZY0.Z0_0_00ZYUggZ0Y0_0_0@ZxZ"; 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,ZZzg0_0_0_:AgAAZ0xL0_0_0.yvAgAHxEJZ0_0_0.ZEAgAAY0xZ0_0_0!Z,0.Y"; 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_0xY0_0_0_0YTyUyY0_0_0@TU0xYZ0.Y0_0_0Y;.TZZY00VZ0_0_x:;!xZ0UY0_0@ZTw;:;@0Z0_0@T;,:wZw;;:TV0Z0_0@YT::zxYUU:wxZZYZ0_0_y::yzUUZZ0,ZZ0_0_00Zy0yUZn0.Y0_0_0.UY0Z0_0_0_00Y"; 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_0YY0_0_0_00:9w0_0_0_T;zYY00gZ0_0_0.TvT;;::TxZ0_0_0.xTU00ZXZxZ0_0_0?ZXZgY00gZ0_0_0/ZZ"; 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!ZA7Y0_0_0@w;:AA9Z00Z0_0_0,y9y:A.99:0_0_0,yAD9AABC,x0_0_0.gCCBC300ZD0_0_0!ZC0_0_0_0.E"; 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.V0_0_0_0,W0W0_0_0_0,X"; SetControlMethod Touch Graphics 512,512,2 Repeat CLS 0,30,70;ResetDraw;AA True SetGradient 0,60,120,0,30,70 Rect 0,0,jscrw,jscrh SeedRnd Mills();q=Rand(0,50) SeedRnd 3716 for x=0 to jscrw+32 step 40 SetSize Rnd(1.3,1.6);SetAlpha 1 DrawImg x,jscrh-16,2 e=Mills()Rnd(0.01,0.1) if Rnd(0,10)<5 then e=0-e SetSize 4,1;SetAlpha 0.5 DrawImg Wrap(Rnd(0,jscrw)+e,0,jscrw+128)-64,Sin(Mills()0.023+x7)16+Rnd(0,jscrh0.8),Rand(3,4) next ResetDraw SeedRnd 3717 for x=0 to 50 m=Mills()Rnd(0.06,0.15) o=Sin(m+(x3)) o2=Sin(m+(x11)) g=Rnd(0.2,0.5) SetSize Rnd(0.7,1.3),Rnd(0.7,1.3) if x%10==0 then SetSkew og,0 DrawImg Rnd(jscrw)+(og),jscrh-30+(x0.33),Rand(0,1) SetSkew o0.04,o20.04 SetSize 0-1,1;d=Rnd(0.1,1.0); if Rnd(0,100)<50 then d=0-d;SetSize 1,1 dx=Wrap(Rnd(jscrw2)+dMills()0.1,0,jscrw2)-128 dy=Rnd(0,jscrh-48)+Sin(Mills()Rnd(0.01,0.04))Rnd(5,12) bx=dx+Sgn(d)12 DrawImg dx,dy,Rand(5,12),Rand(0,7) if q==x then ThrowParticle bx,dy,7,Sgn(d)*90,0.2,13,0 next SetParticleGravity 0.5 Flip Forever --v Just a little aquarium. Nothing magical. Swaying plantlife at the bottom, just about manages to fulfil the word of the day! -=-=- ''Load, Next List!''
Page : 1 2 Next Prev

D'you Like Creation - July 2024

Day One : Ripples

Day Two : Spark

Day Three : Whisper

Day Four - Bloom

Day Five - Shadow

Day Six - Twist

Day Seven - Echo

Day Eight - Glow

Day Nine - Knot

Day Ten - Burst

Day Eleven - Haze

Day Twelve - Pulse

Day Thirteen - Flicker

Day Fourteen - Splash

Day Fifteen - Breeze

Day Sixteen - Spiral

Day Eighteen - Glitch

Day Nineteendo - Sway