Advent of Creativity 5 - BlitzCoder.net

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|443\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Festive Threads -> Advent of Creativity 5
Page : 1 2 Prev 3 4 Next 5 6 7
Thu, 08 Dec 2022, 22:40
rockford	I didn't get two of those, 5 and 8. I couldn't tell it was a safe until you said. I knew it was a cracker though. Can you tell that I enjoy Catchphrase? Nice one
Fri, 09 Dec 2022, 04:21
cyangames	Well done! Aww, gutted you didn't get #5 there but I'm glad you didn't get all of them We're theming it around other quiz shows so, Round 1: The Price is Right, 10 items from Charity Shops, guess if it's hi / lo compared to the last item and guess the price, dead on = 2bonus points, 1 for 25p either way Round 2: Are You Smarter Than 10 Year Old, 10 xmas themed questions based around school subjects Round 3: Catch Phrase Round 4: Music Round, guess the song that's being sung in the classic reeves and mortimer club style Top 3 and best team name get prizes, determined by velcro darts thrown at a board attached to one of us, gotta have a bit of bully 1st place 3 darts, 2nd 2, 3rd and best team name 1. The prizes will essentially be the first 8 items from the Price is right round -=-=- Web / Game Dev, occasionally finishes off coding games also!
Fri, 09 Dec 2022, 05:15
rockford	Cool
Fri, 09 Dec 2022, 15:23
Dan	Today the challenge from yesteryear ... // 9Advent of Creativity // by Dan // Created 2022/12/9 //Graphics 440,250,1 Mode 0,"c64" SetFontSize 7 Text 0,10,"https://logiker.com/Vintage-Computing-Christmas-Challenge-2021" For y=0 to 2;for x=0 to 3;z=x+(mid$("135",y,1)(x+1));tmp$="";tmp$=""z;Text 91-(((len(tmp$)-1)/2)7),40+(y20+(x5)),tmp$;next;next for x=1 to 2;Text 84,94+(x5),"**";Next --v Btw, Jay ... a string repeat function would be useful, sometime Edit: Updated the post with the String repeat thingie !
Fri, 09 Dec 2022, 16:37
Jayenkai	Graphics 512,512,1 Write "Hello World "*100 --v -=-=- ''Load, Next List!''
Fri, 09 Dec 2022, 16:40
Jayenkai	Additional : Linkage from last year. GotoJSE -=-=- ''Load, Next List!''
Fri, 09 Dec 2022, 17:00
Jayenkai	"Sesame Street at Christmas, with a large number 10" 1om0! -=-=- Obligatory theme -=-=- ''Load, Next List!''
Fri, 09 Dec 2022, 17:55
shroom_monk	Running a little behind this evening but I haven't gone to bed yet so it's definitely still Day 9, right? Day 9, 16 rectangles: > Reveal 🔎 -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Fri, 09 Dec 2022, 19:08
Jayenkai	Awww, so elfy
Sat, 10 Dec 2022, 08:24
Jayenkai	Graphics 560,560,1:Border 30,30,90 CLS:ResetDraw SetFontSize 8 Print x=jscrw0.25:y=16 For n=1 to 12 if n==1 then Text x,y,"On the 1st day of Christmas",1:y=y+8 if n==2 then Text x,y,"On the 2nd day of Christmas",1:y=y+8 if n==3 then Text x,y,"On the 3rd day of Christmas",1:y=y+8 if n>3 then Text x,y,"On the "+n+"th day of Christmas",1:y=y+8 Text x,y,"My true love gave to me",1:y=y+8 For m=n to 1 step -1 if m==12 then Text x,y,"Twelve Lords a Leaping",1:y=y+8 if m==11 then Text x,y,"Eleven Ladies Dancing",1:y=y+8 if m==10 then Text x,y,"Ten Pipers Piping",1:y=y+8 if m==9 then Text x,y,"Nine Drummers Drumming",1:y=y+8 if m==8 then Text x,y,"Eight Maids a-Milking",1:y=y+8 if m==7 then Text x,y,"Seven Swans a-Swimming",1:y=y+8 if m==6 then Text x,y,"Six Geese a-Laying",1:y=y+8 if m==5 then Text x,y,"Five Gold Rings",1:y=y+8 if m==4 then Text x,y,"Four Colly Birds",1:y=y+8 if m==3 then Text x,y,"Three French Hens",1:y=y+8 if m==2 Text x,y,"Two Turtle Doves",1:y=y+8 Text x,y,"and",1:y=y+8 endif if m==1 then Text x,y,"A Partridge in a Pear Tree",1:y=y+16 if y>jscrh-16 then y=16:x=x+jscrw0.5 Flip Next Print Next --v -=-=- ''Load, Next List!''
Sat, 10 Dec 2022, 09:08
rockford	@Jay - Yay! Song in code. @Shroom - Nice Elf. > Reveal 🔎 I really hate Elf (the movie)
Sat, 10 Dec 2022, 15:14
Dan	The Tenth // 10Advent of Creativity // by Dan // Created 2022/12/10 Symbol 0,"1__0/;;0_0.Q.0_00Q!0_0Q,cQQ0_Q@0/Q!oQ,0!Q_Q0?QQ4Q_0.Q.HQ/0,Q_QlQ,00QoQ_Q,0P_P_P_P?0/EE0_0?EE0_0?EE"; Symbol 1,"0__0vv00vv0.vv0,v_0!vv0!vv0!vv0!v_"; Symbol 2,"0__0_0_0/PPRRPP0R@0PPRRPP00PPRRPP"; Symbol 3,"0__0,I0/I0!I,0,I/0,I,0.II0II0,I0,I"; Symbol 4,"0__0_0_0/R0,R0.R0R0!RR0!R"; Symbol 5,"0__0_0_0/R0.R0,R00R0?RR0/R"; Graphics 640,480,3 SetClsColor 0,15,55 repeat Cls SetScale 0.4,0.4 for x=1 to 40 DrawImage Rand(1,640),Rand(0,220),3 next resetdraw SetAlpha 1 Color 0,200,0 For x=0 to 640 y=480-200-Sin(x0.8)22 Line x,y,x,480 if (x mod 60)==0 then;SetScale 0.4,0.4; DrawImage x,y+Rand(200),Rand(4,5);endIf if (x mod 20)==10 then;SetScale 1,2; DrawImage x,y+Rand(200),0;EndIf Next SetFontSize 30 Color (200+Rand(1,50)),0,0 Text 110,100,"Merry Christmas" Color 110,(100+Rand(1,150)),60 Text 108,98,"Merry Christmas" flip wait 1 forever --v
Sat, 10 Dec 2022, 15:14
shroom_monk	Day 10, 15 rectangles: > Reveal 🔎 -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Sat, 10 Dec 2022, 17:02
Jayenkai	"Mario dances around a large number 1, decorated in Christmas lights" DallE failing to draw a number 1, there.. -=-=- Carefully does it, ensign.. -=-=- ''Load, Next List!''
Sun, 11 Dec 2022, 07:15
shroom_monk	Day 11, 14 rectangles: > Reveal 🔎 -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Sun, 11 Dec 2022, 08:17
Jayenkai	It's a cracker!
Sun, 11 Dec 2022, 15:00
Dan	Tenth again, but +1 // 11Advent of Creativity // by Dan // Created 2022/12/10 Symbol 0,"1__0/;;0_0.Q.0_00Q!0_0Q,cQQ0_Q@0/Q!oQ,0!Q_Q0?QQ4Q_0.Q.HQ/0,Q_QlQ,00QoQ_Q,0P_P_P_P?0/EE0_0?EE0_0?EE"; Symbol 1,"0__0_0_0/R0,R0.R0R0!RR0!R"; Symbol 2,"0__0_0_0/R0.R0,R00R0?RR0/R"; Symbol 3,"0__0vv00vv0.vv0,v_0!vv0!vv0!vv0!v_"; Symbol 4,"0__0,I0/I0!I,0,I/0,I,0.II0II0,I0,I"; Symbol 5,"0__0_0_0/PPRRPP0R@0PPRRPP00PPRRPP"; Dim SC(5,2) SC(0,0)=2;SC(0,1)=2 SC(1,0)=0.5;SC(1,1)=0.5 SC(2,0)=0.5;SC(2,1)=0.5 SC(3,0)=0.8;SC(3,1)=0.8 SC(4,0)=0.3;SC(4,1)=0.3 SC(5,0)=SC(3,0);SC(5,1)=SC(3,1) QM=100 Dim Queue(QM+1,10) Graphics 640,480,3 SetClsColor 0,15,55 Gosub AddItems repeat Cls Color 0,200,0 For x=0 to 640 y=480-200-Sin(x0.8)22 Line x,y,x,480 Next Gosub runqueue If Moving==0 Then tx=15;ty=100 SetRotation 0 SetFontSize 20;Color Rand(220,255),10,80 For x=-1 to 1;for y=-1 to 1 Text tx+x,ty+y,"Merry Christmas" next;next Color 0,255,0 Text tx,ty,"Merry Christmas" EndIf flip forever end .AddItems For QAX=0 to QM if QAX<50 then QQ=4 IF QAX>49 and QAX<59 Then QQ=3 IF QAX>58 and QAX<68 Then QQ=RAND(1,2) IF QAX>67 THEN QQ=0 QX=Rand(-1000,1000);QY=Rand(-1000,1000) QR=SC(QQ,0);QS=SC(QQ,1) QP=0 QU=Rnd(0.0,360.0) If QQ<4 then;QTX=Rand(10,630);QTY=Rand(280,480);EndIf If QQ==4 then;QTX=Rand(10,630);QTY=Rand(10,220);EndIf Gosub AddQueue If QQ==3 THEN;QQ=5;QP=Rand(0,8);Gosub AddQueue;EndIf Next Return .Addqueue for QLX=0 to QM If Queue(QLX,0)==0 Queue(QLX,0)=1;Queue(QLX,1)=QX;Queue(QLX,2)=QY;Queue(QLX,3)=QTX;Queue(QLX,4)=QTY;Queue(QLX,5)=QR;Queue(QLX,6)=QS;Queue(QLX,7)=QP;Queue(QLX,8)=QQ;Queue(QLX,9)=QU exit EndIf Next Return .runqueue moving=0 rotating=0 For QLX=0 to QM If Queue(QLX,0)>0 IF QUEUE(QLX,1)>QUEUE(QLX,3) THEN;QUEUE(QLX,1)=QUEUE(QLX,1)-1;moving=moving+1;EndIf IF QUEUE(QLX,1)<QUEUE(QLX,3) THEN;QUEUE(QLX,1)=QUEUE(QLX,1)+1;moving=moving+1;EndIf IF QUEUE(QLX,2)>QUEUE(QLX,4) THEN;QUEUE(QLX,2)=QUEUE(QLX,2)-1;moving=moving+1;EndIf IF QUEUE(QLX,2)<QUEUE(QLX,4) THEN;QUEUE(QLX,2)=QUEUE(QLX,2)+1;moving=moving+1;EndIf if moving>0 then Queue(QLX,9)=Queue(QLX,9)+1 If Queue(QLX,9)>360 then Queue(QLX,9)=0 SetRotation Queue(QLX,9) EndIf if Queue(QLX,9)>0 then rotating=rotating+1 if moving==0 and rotating>0 then SetRotation 0 if queue(QLX,9)>0 then Queue(QLX,9)=Queue(QLX,9)+1;SetRotation Queue(QLX,9);EndIf If Queue(QLX,9)>360 then Queue(QLX,9)=0 EndIf SetScale QUEUE(QLX,5),QUEUE(QLX,6);DrawImage QUEUE(QLX,1),QUEUE(QLX,2),Queue(QLX,8),Queue(QLX,7) EndIF Next Return --v Edit: Added rotation !
Sun, 11 Dec 2022, 17:18
Jayenkai	"Thomas the Tank Engine loops around two giant number 1's in the snow" -=-=- Blub.. -=-=- ''Load, Next List!''
Mon, 12 Dec 2022, 14:28
Dan	Santa's delivery // 12Advent of Creativity // by Dan // Created 2022/12/12 //Image Licence CC0: https://opengameart.org/content/holiday-expansion-set Symbol 0,"2__0!6@0_0_0.;6_0_0_0!;@0_0_0C.0;11711710110_0@644CC;1?;0110_0@64.C;!0110_0_64.C;.40_0.Z0/64?C;;44CC0S!0!S0.64/C44C44CS?0S_0064/CI7C46CS_S!064_CC460_0?S,064_4.60_0?S_S_S_S@6,4_446SS0S_S.006_6.0660_0_6_0,6"; Symbol 1,"2__0?6@0_0_0.;6_0_0_0!;@0990_0@C.;99v91v90910_0_644CC;1?0910_0_64.C;?0_0_0.64.C;.40_0.Z0/64?C;;44CC0S!0!S0.64/C44C44CS?0S_0064/CI7C46CS_S!064_CC460_0?S,064_4.60_0?S_S_S_S@6,4_446SS0S_S.006_6.0660_0_6_0,6"; Symbol 2,"2__0_0_0_0_0_0_0_0_0_0_0_0?E0/E0_0_0!E0.EE0_0_0@EE0E0_0_0_00CC0_0_0.Z0.I0C;vCC0_0@S,0S,066C?40_0/S@5I6C.0_0@S0CCDD5,C660_0_00S@5CCI0_0_00S,0CC5,C,0_0_00S,0C,6DDCCD0_0_0.DDC0!CD0_0_00D00C0!C0_0_0!C"; Symbol 3,"2__0_0_0_0_0_0_0_0_0_0_0_0?E0/E0_0_0!E0.EE0_0_0@EE0E0_0_0_00CC0_0_0.Z0.I0C;vCC0_0@S,0S,066C?40_0/S@5I6C.0_0@S0CCDD5,C660_0_00S@5CCI0_0_00S,0CC5,C,0_0_00S,0C,6DDC,0_0_0?CC0?D0C0_0_0,CD0!D00C0_0_0C0@D"; Symbol 4,"1__0PP0P0PP0_0QP0PQ0P0_0SS0_00B,QRBBD0_00SS0_0,BCQRCD0_0BCQRCD0_0BCQRCD0_0BCQRCD0_0BCQRCD0_0,SS"; Symbol 5,"2__0_0,vHH0_0_0_00H.0_0_0_vH.v0_0_0@vQHHRv0_0_0/vQR.Sv0_0_0!vQR.Sv0_0_0?vQR!Sv0_0_0.vQR!Sv0_0_0,vQR.UR,Sv0_0_00vQR@Sv0_0_0vQR_RSv0_0_vQR4R@Sv0_0@vQR_R,Sv0_0/vQR@eR,Sv0_0!vQR_R?Sv0_0?vQR_R?Sv0_0.vQR_R/Sv0_0,vQR!UR_Sv0_00vQR_R_Sv0_0vQR_R_Sv0_vQR_R!4R.Sv0@vQR_R_RRSv0/vQR_R_R.Sv0!vQR.eR_R@Sv0?vQR_R?UR_Sv0.vQR_R_R!Sv0.v_v_v_v0_0?vCD,Ev0_0_0/vCD,Ev0_0_0/vCD,Ev0_0_0/vCD,Ev0_0_0/v/"; Symbol 6,"2__0_0_0_0_0_0_:?0_0_:_::;,:0_0/:;_;?:0_0/:;_;?:0_0/:;!:_0_0/:;:!4/50_0/::4_4.50_0/34_4?50_0/34_4?50_0/34_4?50_0/34_4?50_0/34_4?50_0/34_4?50_0/34_4?50_0/34_4?50_0/34_4?50_0.3,4_4!50_0034_4_450_034_4_4450@34_4_4.50/34_4_4?50!34_4_4?50/34_4_4?50/34_4_4?50/34_4_4.550/34_4_4.550/34_4_4.550@34_4_4,50_34_4_4450_005?4@5!0_0_5_"; SPRX=20;SPRY=10;SPRF=0;sprt=millisecs();spawn=sprt;offs=0;txts=0;txtr=0; qm=20 Dim queue(qm+1,4) Graphics 160,90,1 DoubleBuffer Repeat SetClsColor 20,20,20;cls;resetdraw;offs=offs-1 if offs<-30 then offs=0 if txtr==0 then txts=txts+1; if txtr==1 then txts=txts-1; if txts>830 then; txtr=1;SetFont Rand(1,8);EndIf if txts<-10 then; txtr=0;SetFont Rand(1,8);endIf Color scor,scor,scor;SetFontSize 45;Text 160-txts,25,"Merry Christmas" for x=1 to 7;SetScale 1.4,1.2;DrawImage 0-25+(x*30)+offs,73,5;next if millisecs()-spawn>950 then;spawn=millisecs();qt=1;gosub addqueue;;EndIf if millisecs()-sprt>1650 then;sprt=millisecs();qt=2;gosub addqueue;sprf=sprf+1 mod 2;EndIf SetScale 0.5,0.5 DrawImage SPRX,SPRY+sprf,0+sprf;DrawImage SPRX+15,SPRY+sprf,2+sprf Gosub Runqueue Flip forever end .addqueue For qx=0 to qm if queue(qx,0)==0 then if qt==1 then queue(qx,0)=qt;queue(qx,1)=160;queue(qx,2)=73;queue(qx,3)=Rand(0,8);exit EndIf if qt==2 then queue(qx,0)=qt;queue(qx,1)=sprx+8;queue(qx,2)=spry-4;queue(qx,3)=Rand(0,8);PlaySFX("Pop_High");exit EndIf EndIf Next Return .runqueue For qx=0 to qm If queue(qx,0)==1 queue(qx,1)=queue(qx,1)-1 if queue(qx,1)<-80 then queue(qx,0)=0 SetScale 0.4,0.4;Drawimage queue(qx,1),Queue(qx,2),6 EndIf if queue(qx,0)==2 Queue(qx,2)=Queue(qx,2)+1 If queue(qx,2)>90 then Queue(qx,0)=0 SetScale 0.2,0.2 Drawimage queue(qx,1),Queue(qx,2),4,queue(qx,3) qcx=queue(qx,1);qcy=queue(qx,2) for col=0 to qm if queue(col,0)==1 if qcx=>queue(col,1)+6 and qcx<=queue(col,1)+15 then if qcy>=queue(col,2) and qcy<=queue(col,2)+5 then queue(qx,0)=0;scor=scor+25; if scor>255 then scor=0 endif endif endIf next EndIf Next Return --v
Mon, 12 Dec 2022, 14:48
Jayenkai	// Ho Ho Ho // by Jayenkai // Created 2022/12/12 // GotoJSE.com/BWGZGJhP.BAS Symbol 0,"0__0_0_0?;"; Graphics 600,300,1 Repeat CLS 80,150,255 ResetDraw SetSize 0.4 Starfield 0,0.5 // Very simple snow effect using a pixel. ResetDraw:SetFontSize 64 For m=0 to ScreenWidth()/48 h=1 if Sin(Mills()0.3-m30)>0.3 then h=1.3 SetSize 1,h Emoji m48,ScreenHeight()-h36,"1F384" Next ResetDraw:SetFontSize 32 Txt="Merry Christmas!" for m=0 to Len(Txt) y=64-Sin(Mills()0.4-m64)32 if y>64 then y=64 Text (m+2)32,y,Mid$(Txt,m,1),1 Next ResetDraw:SetFontSize 128 SetRot Sin(Mills()0.2)16 Emoji ScreenWidth()0.5,ScreenHeight()0.5,"1F385" Flip Forever --v You might have to refresh GotoJSE for that to show up. v.3ggo New Command -=-=- ''Load, Next List!''
Mon, 12 Dec 2022, 14:55
Dan	It needed few refreshes, but it's Great ! edit: sigh.the timing in my last post is not right, now !
Mon, 12 Dec 2022, 15:00
Jayenkai	Sorry, I do try my best to keep things running as expected, but optimisations aren't always a bad thing!! -=-=- ''Load, Next List!''
Mon, 12 Dec 2022, 15:06
Dan	ye dw, just noticed it >.<
Mon, 12 Dec 2022, 16:50
shroom_monk	Day 12, 13 rectangles: > Reveal 🔎 I've been waiting for this day to come around! At the start I thought to myself 'hmm, how can one draw an advent calendar, which has 24 slots before you even consider the backing, when you have at most 24 rectangles to work with?'. And then I realised the answer was obvious: overlapping! -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Mon, 12 Dec 2022, 17:01
Jayenkai	Epic!!! Also, bit Tardis'y, so bonus points!
Mon, 12 Dec 2022, 17:04
Jayenkai	"An incredibly unlucky number 13 has a mishap in the snow (Digital art by L.S.Lowry)" Crazy AI decided that "Mishap" means "dismembered in a horrific car accident" -=-=- Doodle Time! -=-=- ''Load, Next List!''
Page : 1 2 Prev 3 4 Next 5 6 7