Forum - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|382\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Festive Threads -> Advent of Creativity 5
Page : 1 2 3 Prev 4 5 Next 6 7
Tue, 13 Dec 2022, 08:18
Jayenkai	// Landscape // by Jayenkai // Created 2022/12/13 // GotoJSE.com/dhBQxhFv.BAS // Settings Rez=320 // Resolution of Landscape. This can safely go up to 1024, but .. Gosh it gets slow!! WorldHue=0 // Changes Colour!! Bumpiness=1 // How bumpy shit gets! Graphics 1920,1080,2 if Rez>ScreenWidth() then Rez=ScreenWidth() if Rez>ScreenHeight() then Rez=ScreenHeight() CLS;ResetDraw Process=128/Rez Bumpiness=(BumpinessProcess) Dim Map(Rez,Rez,10) Highest=0 Lowest=255 CLS;ResetDraw SetAlpha 0.1 for hill=0 to 256 SetSize Rnd(2,2) Light Rnd(0,Rez),Rnd(0,Rez),Rnd(0,Rez0.25),Rnd(0.1,0.4) next Flip c=0 for x=0 to Rez for y=0 to Rez Map(x,y,0)=ReadPixel(x,y,0) if Map(x,y,0)>Highest then Highest=Map(x,y,0) if Map(x,y,0)<Lowest then Lowest=Map(x,y,0) next c=c+1 if c>Rez/64 c=0 SetAlpha 0.25 Rect x-4,0,1,Rez Flip endif next Water=(((Highest-Lowest)Rnd(0.1,0.3))+Lowest)/Highest Ice=Rnd(0.8,1) ResetDraw InkRot WorldHue+240,0.7,0.6 CLS GetRed,GetGreen,GetBlue w=ScreenWidth()/(Rez0.8) h=ScreenHeight()/Rez SetWidth w+1 for x=0 to Rez for y=0 to Rez m=Map(x,y,0)/Highest InkRot 0,0,m0.7:SetAlpha 1 if m<Rnd(0.8,1)Ice then InkRot (WorldHue+Rnd(115,125)) mod 360,1-Rnd(m),mRnd(0.5,0.8) bx=(xw)-yh0.3 by=(ScreenHeight()0.1)+(yh) tx=bx ty=by-(mRezBumpiness) if m<WaterRnd(1,1.3) then InkRot (WorldHue+Rnd(40,70)) mod 360,1-Rnd(m0.25),mRnd(1,1.2) if m<Water then InkRot (WorldHue+230) mod 360,0.8,0.4:ty=by-(WaterRezBumpiness) by=by+ScreenHeight()0.5 Line tx,ty,bx,by next if x mod 6==0 then flip next End --v -=-=- ''Load, Next List!''
Tue, 13 Dec 2022, 14:35
shroom_monk	That landscape looks amazing Jay! Awesome job. Day 13, 12 rectangles: > Reveal 🔎 I saw this one looking a bit better in my head. I'm going to blame the fact I have half as many rectangles as I started with, and not the fact I'm a terrible artist. -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Tue, 13 Dec 2022, 15:07
Jayenkai	Peep Peep!!! (It's meant to be a Robin, right?!) -=-=- ''Load, Next List!''
Tue, 13 Dec 2022, 17:08
Jayenkai	"A magical number 14 and Scooby-Doo at Christmas" .. Well, at least it managed the number.. -=-=- \o/yeay\o/ OpenAI helped with this one, and it's one of my favourites. -=-=- ''Load, Next List!''
Wed, 14 Dec 2022, 02:28
rockford	I've noticed that the AI art appear to be deliberately avoiding using true licensed images likenesses. Do you think this is down to copyright reasons, or fear of being sued if certain images are used out of context or in a damaging way?
Wed, 14 Dec 2022, 02:34
Jayenkai	I expect it's a copyright thing. OpenAI's DallE seems to avoid copyright more than most of the Stable Diffusion based ones, so I guess they're trying to be the good guys! -=-=- ''Load, Next List!''
Wed, 14 Dec 2022, 15:37
Dan	Day 14 - code #13 Santa's Giftsgeon // 13Advent of Creativity // by Dan // Created 2022/12/13 //santa's sprite from https://opengameart.org/content/santa-sprite-sheet-8-bit Symbol 0,"1__004_40!4_40.44;_;0.44;_;0!22vv2.vv0!22vv2.vv0!;_;0!;_;0.4_4.0,4_4.0,22v.G,vv220,22v.G,vv220?4_0/4_0/vv0?vv0/vv0?vv"; Symbol 1,"1__0_0_0_0_0_0_0_0!vv0,vv0_00v0v0_0v,wwv,0/vV,UUV,v0!wU@w0!wU@w0!vV,UUV,v0!vV,UUV,v0!vV,UUV,v0/v,wwv,"; Symbol 2,"1__E_E@D_D?EED_D?EED_D?EED_D?EED_D?EED_D?EED_D?EED_D?EED_D?EED_D?EED_D?EED_D?EED_D?EED_D?E_E@"; Symbol 3,"2__y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y/"; Symbol 4,"2__y_y_y_y_y_zzy_y_y_y,zzy_y_y_y_y_y_y_y_y_y_y_y_y_y.zzy_y_y_y,zzy_y_y_y_y_y_y_y_y@zzy_y_y_y,zzy_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y?zzy_y_y_y,zzy_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y,zzy_y_y_y,zzy_y_y_y_y_y_y!"; Symbol 5,"1__y_y_yv_vy!vD@vy?vD_Dvy.vD_Dvy,vD_D,vyyvD_D,vyyvD_D,vyyvDDvvD@vyyvDDvvD@vyyvD_D,vyyvD_D,vyyvD_D,vyyvD_D,vyyv_v?y_y@"; Graphic 640,330,3 Doublebuffer xsoff=25 ysoff=25 dim lvl$(21,11,2) dim l$(10) level=0 leveldata$="" l$(0)=" @ # ######### $ # $ # ######## # ##### # $ # $$# # ### $ # ##### # #$####### $ # # #$ # # $ # ####### # ####### $$#$# # x# #$# " l$(1)=" ######### $#### #$ $# # # #$ # ##### # # # #### # # $# # #$# $ # #@# # # ### #### # ### # # #$# #$ #$ $# # # #x$#### ####### # # ## ## # # # # #$ # # " l$(2)=" ### # # # # # # # # $#$#$#$#$#$#$#$#$# ################## # #$$ #$$# $$ # # #### #$$# $$ # # ######### ######## #$# #$ @x# ### " l$(3)=" x ### ###$ # ### #$# $$#$ # ### #$# # # # # # #@# # # # # # # # # # # #$# # # # # #$$# ### # # # #$# #### # # #$ ### ### #$ # ### ## #$ # " Gosub GetLevel kt=millisecs() giftpick=0 SetClsColor 100,100,100 .lop cls starfield 0.2,0,1,1 resetdraw xm=0 ym=0 mov=0 if millisecs()-kt>50 then xm=GamePad(DpadRight)-GamePad(DpadLeft) if xm==0 then ym=GamePad(DpadDown)-GamePad(DpadUp) kt=millisecs() EndIf if plx+xm<0 or plx+xm>19 then xm=0 if ply+ym<0 or ply+ym>9 then ym=0 if lvl$(plx+xm,ply+ym,0)==" " then mov=1 if lvl$(plx+xm,ply+ym,0)=="$" then mov=1 lvl$(plx+xm,ply+ym,0)=" " lvl$(plx+xm,ply+ym,1)=Rand(3,4) PlaySFX("Pickup_9") gifts=gifts-1 giftpick=giftpick+1 EndIf if lvl$(plx+xm,ply+ym,0)=="x" and gifts==0 then mov=1 goout=1 EndIf if mov>0 then;plx=plx+xm;ply=ply+ym;EndIf for y=0 to 9 for x=0 to 19 rc=0 if lvl$(x,y,0)=="$" then Drawimage xsoff+(x31),ysoff+(y31),3,rc rc=lvl$(x,y,1) im=1 endIf if lvl$(x,y,0)==" " then im=lvl$(x,y,1) endIf if lvl$(x,y,0)=="#" then im=2 if lvl$(x,y,0)=="x" then im=5 if gifts==0 then rc=3 EndIf Drawimage xsoff+(x31),ysoff+(y31),im,rc Next next DrawImage xsoff+(plx31),ysoff+(ply31),0 SetFont 3 SetFontSize 12 text 10,330,"Level: "+(level+1);text 475,330,"Gifts: "+Gifts;text 220,330,"Stored: "+GiftPick SetFont 6;SetFontSize 37;Text 4,370,"Santa's Giftsgeon" Flip if goout==1 For x=1 to 10;PlaySFX("Jump_9");wait 0.20;Next level=level+1 gosub getlevel endIf Goto lop .getlevel if level>7 then level=0 if level<=3 then leveldata$=l$(level) if level>3 then leveldata$=Reverse(l$(level-4)) EndIf z=0 gifts=0 goout=0 for y=0 to 9 for x=0 to 19 tmp$=Mid$(leveldata$,z,1) if tmp$=="@" then tmp$=" ";plx=x;ply=y EndIf if tmp$=="$" then lvl$(x,y,1)=rand(0,8);Gifts=Gifts+1 EndIf if tmp$==" " then ttt=0 if Rand(0,6)==3 then ttt=1;tmp$="$"; lvl$(x,y,1)=rand(0,8);Gifts=Gifts+1 EndIf if ttt==0 then lvl$(x,y,1)=Rand(3,4) EndIf lvl$(x,y,0)=tmp$ z=z+1 next next Return l$=" @ # ######### " l$=" $ # $ # " l$="######## # ##### # " l$=" $ # $$# # " l$=" ### $ # ##### # " l$=" #$####### $ # # " l$=" #$ # # $ # " l$=" ####### # ####### " l$=" $$ # x# " l$=" " --v
Wed, 14 Dec 2022, 16:37
Jayenkai	Nice! And great use of the Reverse function to flip the levels, too. \o/yeay\o/ -=-=- ''Load, Next List!''
Wed, 14 Dec 2022, 17:05
shroom_monk	Nice one Dan. And yes Jay, it was indeed meant to be a robin, so I guess I didn't complete mess it up! And on the subject of hard-to-recognise rectangle soup... Day 14, 11 rectangles: > Reveal 🔎 -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Wed, 14 Dec 2022, 17:17
Jayenkai	"A scene from the cartoon series, Wacky Races. Number 15 is in the lead." Yeah, that'll be that copyright thing again.. -=-=- cough With all this SpikeVent stuff going on, I've been neglecting my playing of the Daily Spike. tsk Naughty Jay -=-=- ''Load, Next List!''
Thu, 15 Dec 2022, 13:30
Dan	Thanks ! Here is todays one: // 14Advent of Creativity // by Dan // Created 2022/12/15 Symbol 0,"0__0,V0/V0/V0.V/0,V,0?V0V0.V0,V00V0?V"; Graphics 320,320,3;doublebuffer plx=1;ply=2;rx=1.4;ry=1.2;sm=0.5;sh=3.5;tc=millisecs();colsize=52;gx=rand(10,310);gy=rand(10,310);T=0 .lop cls SetFontSize 20 Text 0,100,Left$("Merry Christmas!",t) setScale 0.25,0.25;Starfield 0.5,0,0,1;resetdraw;plx=plx+rx;ply=ply+ry; if millisecs()-tc>50000 then;gx=rand(10,310);gy=rand(10,310);tc=millisecs();EndIf if plx<0 then;plx=0;rx=Rand(sm,sh);PlaySFX("Skid_1");endif if plx>320 then;plx=320;rx=rand(-sm,-sh);PlaySFX("Skid_1");endIf if ply<0 then;ply=0;ry=rand(sm,sh);PlaySFX("Skid_1");endif if ply>320 then;ply=320;ry=rand(-sm,-sh);PlaySFX("Skid_1");EndIf if colliderecttorect(plx,ply,colsize,colsize,gx,gy,colsize,colsize) then;Gimme 1,gx,gy;t=t+(t<17);PlaySFX("Sonniss_Ui_10");gx=rand(10,310);gy=rand(10,310);tc=millisecs();EndIf SetFontSize colsize;emoji gx,gy,"U+1F381";emoji plx,ply,"U+1F385" flip goto lop --v
Thu, 15 Dec 2022, 17:06
Jayenkai	\o/yeay\o/, Emoji usage
Thu, 15 Dec 2022, 17:08
Jayenkai	"The Magic Roundabout at Christmas. Zebedee bounces around a giant number 16." -=-=- A simple shape change makes for a really hard mode! -=-=- ''Load, Next List!''
Thu, 15 Dec 2022, 17:09
shroom_monk	Day 15, 10 rectangles: > Reveal 🔎 Getting more abstract! -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Fri, 16 Dec 2022, 10:24
rockford	@Shroom. Not one of your better ones. However, I get it and it's still not bad.
Fri, 16 Dec 2022, 15:40
Dan	Jingle Bells, jingle bells // 15Advent of Creativity // by Dan // Created 2022/12/16 //music notes taken from https://www.pianimals.com/free.htm PlaySFX("Animal_Quack");wait 2 dim xoff(4);fs=75;ty=1;mt=Millisecs();mp=0;mn="";mu$="0003330333035123000444443333223205033303330351230004444433355421000" Graphics 320,320,3;doublebuffer;SetEcho "Medium" .lop cls;SetFontSize fs;xf=1;for y=0 to 3;xf=-xf;xoff(y)=xoff(y)+xf mod fs;for x=0 to 10;Emoji 0-fs+(xfs)+xoff(y),10+(yfs)+12,("U+1F33"+(2+y));Next;next SetFontSize 21;ty=(ty+1) mod 360;Text 5+cos(ty)20,155+Sin(ty)150,"Merry Christmas" if millisecs()-mt>360 then;mp=(mp+1) mod len(mu$);mn=mid$(mu$,mp,1);if mn>0 then;PlaySFX("Error_2",0.5+Float("0."+mn));endIf;mt=Millisecs();endIf flip Goto Lop --v
Fri, 16 Dec 2022, 15:48
Jayenkai	Indeed.. !!!
Fri, 16 Dec 2022, 16:28
shroom_monk	It feels like I'm running out of seasonal items faster than I'm running out of rectangles! (There's a few obvious things I haven't done that I'm saving for days with fewer rectangles as they're pretty simple.) Day 16, 9 rectangles: > Reveal 🔎 -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Fri, 16 Dec 2022, 16:30
Jayenkai	\o/yeay\o/
Fri, 16 Dec 2022, 17:01
Jayenkai	"Charlie Brown, Snoopy, and a large Number 17 at Christmas (Digital Art)" ... Close enough with the number. Character wise, I think it's drawn Fred Basset.. -=-=- Swirly Atom! -=-=- ''Load, Next List!''
Sat, 17 Dec 2022, 02:22
rockford	When is the 77th day of December? Seeriously, I can understand copyright problems with characters, but this can't even get the number right most of the time.
Sat, 17 Dec 2022, 04:36
shroom_monk	Day 17, 8 rectangles: > Reveal 🔎 -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Sat, 17 Dec 2022, 04:41
Jayenkai	Awww
Sat, 17 Dec 2022, 14:02
Dan	A little remix from one of the previous post. move the mouse or touch-move. // 16Advent Of Creativity // by Dan // Created 2022/12/17 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?;00;00;;0,;00;00;;0,;00;00;;00;00;0;00;00;00;0;00;00;00;0;00;0;00;0;00;00;00;0;00;00;00;0;00;0;00;0;00;00;00;0;00;00;00;0;00;0;.0;00;00;.0;00;00;.0;00;0;00;0;00;00;00;0;00;00;00;0;00;0;00;0;00;00;00;0;00;00;00;0;00;0;00;0;00;00;00;0;00;00;00;0;00;0;00;00;;0,;00;00;;0,;00;00;;"; pi=3.14159265359;dim xoff(4);fs=45;ty=1;mt=Millisecs();pt=mt;emx=160;emy=120;sp=0.4;SetParticleSize 80;clscolor 10,20,30 Graphics 320,240,3;doublebuffer .lop cls SetFontSize fs;xf=1;for y=0 to 4;xf=-xf;xoff(y)=xoff(y)+xf mod fs;for x=0 to 10;Emoji 0-fs+(xfs)+xoff(y),10+(yfs)+12,("U+1F36"+(5+y));Next;next SetFontSize 50;rx=0;ry=0;mx=MouseX();my=MouseY() td=touchdown(0) if td==1 then if mx<0 then; mx=touchx(0);endIf if my<0 then; my=touchy(0);endIf EndIf if mX>int(emx) then rx=sp if mX<int(emx) then rx=-sp if mY>int(emy) then ry=sp if mY<int(emy) then ry=-sp emx=emx+rx;emy=emy+ry If emx<26 then emx=26 if emy<26 then emy=26 emoji emx,emy,"U+1F385";ex=emx-12;ey=emy+6;radius=1;RS=2;Gosub eye;ex=emx+8;ey=emy+6;radius=1;RS=2;Gosub eye if mx==int(emx) and my==int(emy) and millisecs()-pt>860 then;ThrowParticle emx,emy,7,Rand(1,5),0;PlaySFX("Metal_4",0.9);pt=Millisecs();EndIf flip Goto lop .eye aa1=ATan2(ey-my,ex-mx)(180/Pi);bb=Cos(aa1(Pi/180))radius;cc=Sin(aa1(Pi/180))*radius;Color 0,100,255;Oval ex-bb,ey-cc,RS,RS Return --v
Sat, 17 Dec 2022, 17:04
Jayenkai	"Garfield eats a lasagna at Christmas, and Jon holds a card with the number 18 on it." LMFAO.. This is absolutely my favourite. -=-=- Things aren't right, today.. -=-=- ''Load, Next List!''
Sat, 17 Dec 2022, 18:44
Kuron	The Garfield one is awesome!
Page : 1 2 3 Prev 4 5 Next 6 7

Santa's Giftsgeon