D'you Like Creation - July 2024 - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|134\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> On Topic
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!''

Copyright Jayenkai - 2017+ | Thanks to Shroom_Monk for CSS/Dev Tips | Uses a Jay-Tweaked version of CBParser.
Page Took : 0.088

D'you Like Creation - July 2024 - Socoder