D'you Like Creation - July 2024

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|152\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> On Topic -> D'you Like Creation - July 2024
Page : 1 Prev 2 Next
Sat, 20 Jul 2024, 02:34
Jayenkai	Day Twenty - Bounce // Bounce // by Jayenkai // Created 2024/7/16 // GotoJSE.com/MwL5lj7R.BAS Symbol 0,"0__009,B0,9AAB,09AB?C9B!DB!CDB?CCE0B.CD0,DDEE"; Symbol 1,"0__40!404044040,40040,404404004044040,40040,404404040!4"; Symbol 2,"0__NNOONNOOPPQQPPQQPPQQDPQD,QDCDDC,DC_C_C_CC"; 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_0_0_0_0_0_0_0_;;0_0_0_0,;;"; SetControllerMethod Mouse Dim Trail(30,10) LoadFile Highscore=ReadFile(0) Graphics 320,180,1 Gosub Reset Repeat CLS 0,0,0;ResetDraw;AA False Starfield 0-0.5,0,3 ResetDraw for x=0 to 640 step 32 DrawImg x,jscrh-16,2 next SetFontSize 6 SetCol 40,90,40 if ComboTick>0 Rect jscrw0.5,18,ComboTick,3,1 ComboTick=ComboTick-1 if ComboTick<1 then ComboTick=0;Combo=0;SCombo=0;PlaySFX("Beeper_Toot_Lose",1) endif SetCol 180,255,180;TextScore jscrw/2,8,1 Text jscrw0.5,18,Floor(Combo),1 SetCol 200,220,255;Text jscrw0.1,8,Right$("00000000"+Highscore,8),0 but=0 if MouseDown()>0.5 or GamePad(ButtonA)>0.5 or GamePad(ButtonRight)>0.5 or GamePad(ButtonLeft)>0.5 then but=1 if but==0 then kdis=0 if kdis==1 then but=0 justaminute=Limit(justaminute-1,0,120) if dead==1 if kdis==0 and but==1 and justaminute<1 then gosub Reset but=0 endif if but==0 then scombo=0 if dead==0 wbounce=bounce bounce=Abs(Sin(Mills(1)0.16)112) if bounce>wbounce and bump==0 then PlaySFX("Jump_6",1);bump=1 if bounce<wbounce then bump=0 if but==1 then bx=bx+bgo6 if bx>jscrw-16 then bx=jscrw-16;bgo=0-1;PlaySFX("Jump_6",0.8);sx2=sx3;sy2=sy3;sx3=Floor(Rnd(jscrw0.3,jscrw0.6)/32)32;sy3=Limit(Floor(Rnd(0,jscrh)/32)32,16,jscrh-48);got=0; if bx<16 then bx=16;bgo=1;PlaySFX("Jump_6",1.2);sx2=sx3;sy2=sy3;sx3=Floor(Rnd(jscrw0.4,jscrw0.7)/32)32;sy3=Limit(Floor(Rnd(0,jscrh)/32)32,16,jscrh-48);got=0; if bx>=sx+32 and bgo==1 and got==0 then got=1 if bx<=sx-32 and bgo==-1 and got==0 then got=1 if got==1 combo=combo+1 scombo=scombo+1 if scombo<2 then PlaySFX("Beep_1",combo0.05+1) if scombo>1 then PlaySFX("Beeper_2tone_Up",combo0.05+1) combotick=90 score=score+comboscombo got=2 endif by=(jscrh-48)-bounce sx=SmoothTo(sx,sx2,8) sy=SmoothTo(sy,sy2,8) endif Trail(30,1)=bx;Trail(30,2)=by for n=0 to 29 SetAlpha n/60 Trail(n,1)=Trail(n+1,1) Trail(n,2)=Trail(n+1,2) if n%3==0 then DrawImg Trail(n,1),Trail(n,2),0 next SetAlpha 1 DrawImg bx,by,0 DrawImg sx,sy,1 SetAlpha 0.3 DrawImg sx3,sy3,1 if CollideCrossToCircle(sx, sy, 32, 32, bx, by, 32) and dead==0 dead=1;kdis=1 PlaySFX("Explode_High_4",1) PlaySFX("Explode_High_5",1) combo=0;combotick=0;scombo=0 justaminute=60 if score>Highscore Highscore=score WriteFile(0,Highscore) SaveFile PlaySFX("Beeper_Fruit_Extra",1) endif endif Flip Forever .Reset bx=32;bgo=1 by=jscrh-48 sx=jscrw0.5 sy=jscrh-48 sx2=jscrw*0.5 sy2=jscrh-48 sx3=sx2;sy3=sy2 got=0 score=0 combo=0 combotick=0 scombo=0 dead=0 kdis=1 for n=0 to 30 Trail(n,1)=-100 next return --v I mean.. ... Come on.. What did you expect!?! : Download \| Suno Link -=-=- ''Load, Next List!''
Sat, 20 Jul 2024, 10:09
steve_ancell	Holy fuck!
Sun, 21 Jul 2024, 02:01
Jayenkai	Day Twenty-One - Blend // Blend // by Jayenkai // Created 2024/7/18 // GotoJSE.com/gwL7X3fV.BAS // Note : This doesn't save, so maybe don't try to paint a masterpiece!!! Symbol 0,"2__0_0_0_0_0_0_0_0@d_d_0_0?d_d_0_0?dd;_;?dd0_0?dd;_;?dd0_0?dd;_;?dd0_0?dd;_;?dd0_0?dd;_;?dd0_0?dd;_;?dd0_0?dd;_;?dd0_0?dd;_;?dd0_0?dd;_;?dd0_0?dd;_;?dd0_0?dd;_;?dd0_0?dd;_;?dd0_0?dd;_;?dd0_0?dd;_;?dd0_0?dd;_;?dd0_0?dd;_;?dd0_0?dd;_;?dd0_0?dd;_;?dd0_0?dd;_;?dd0_0?dd;_;?dd0_0?dd;_;?dd0_0?dd;_;?dd0_0?dd;_;?dd0_0?dd;_;?dd0_0?d_d_0_0?d_d_"; Symbol 1,"2__0_0_0_0_0_0_0_0@4_4_0_0?4_4_0_0?44v_v?440_0?44v_v?440_0?44v_v?440_0?44v_v?440_0?44v_v?440_0?44v_v?440_0?44v_v?440_0?44v_v?440_0?44v_v?440_0?44v_v?440_0?44v_v?440_0?44v_v?440_0?44v_v?440_0?44v_v?440_0?44v_v?440_0?44v_v?440_0?44v_v?440_0?44v_v?440_0?44v_v?440_0?44v_v?440_0?44v_v?440_0?44v_v?440_0?44v_v?440_0?44v_v?440_0?4_4_0_0?4_4_"; SetControllerMethod Mouse Graphics 512,512,2 ir=255;ig=0;ib=0 ia=0.5 inky=1.0 inkb=1.0 Clear=1 Repeat ResetDraw cx=jscrw/2;cy=jscrh/2 cz=Max(cx,cy) DrawImg jscrw-32,32,0 if MouseIn(jscrw-32,32,20,32,1)>0.5 and MouseDown()>0.5 and mdis==0 then SetCol(255,255,255);Rect 0,0,jscrw,jscrh;mdis=1;Clear=1 DrawImg jscrw-32,96,1 if MouseIn(jscrw-32,96,20,32,1)>0.5 and MouseDown()>0.5 and mdis==0 then SetCol(0,0,0);Rect 0,0,jscrw,jscrh;mdis=1;Clear=1 SetCol 170,170,170 Rect cx-45,12,90,8 if MouseIn(cx-45,12,90,8)>0.5 and MouseDown()>0.5 and mdis<2 then mdis=1;inky=Limit(1+(MouseX()-cx)/45,0.1,2) SetCol 96,96,96 Rect cx-44,13,(inky44),6 SetCol 170,170,170 Rect cx-45,30,90,8 if MouseIn(cx-45,30,90,8)>0.5 and MouseDown()>0.5 and mdis<2 then mdis=1;inkb=Limit(1+(MouseX()-cx)/45,0.1,2) SetCol 96,96,96 Rect cx-44,31,(inkb44),6 ang=360/24 angb=360/18 for a=0 to 18 x=256 an=aang+30 if a==0 then an=340 if a==18 then an=320 InkRot aangb,1,1 r=Limit(128+Cos((a+1)angb)128,0,255) g=Limit(128+Cos(((a+1)angb)+120)128,0,255) b=Limit(128+Cos(((a+1)angb)+240)128,0,255) if a==0 then r=40;g=40;b=40 if a==17 then r=255;g=0;b=0 if a==18 then r=220;g=220;b=220 SetCol r,g,b px=Limit(cx+Sin(an)cz,32,jscrw-64) py=Limit(cy-Cos(an)cz,32,jscrh-32) if Clear==1 for m=0 to 8 Oval px+Rnd(-8,8),py+Rnd(-8,8),16,16 next endif if MouseIn_Radius(px,py,32)>0.5 and MouseDown()>0.5 and (mdis==0 or mdis==2) ir=r;ig=g;ib=b if a==0 then ir=0;ig=0;ib=0 if a==17 then ir=255;ig=0;ib=0 if a==18 then ir=255;ig=255;ib=255 endif next if MouseDown()>0.5 and (mdis==0 or mdis==2) if mdis==0 then wx=MouseX();wy=MouseY() mdis=2 SetCol ir,ig,ib,ia(inky0.03) d=Pyth(wx-MouseX(),wy-MouseY()) if d>2 for m=0 to 10 wx=SmoothTo(wx,MouseX(),8) wy=SmoothTo(wy,MouseY(),8) Oval wx,wy,Rnd(8,14)inkb,Rnd(8,14)inkb,32 Next ia=ia-d*0.0005 if ia<0 then ia=0 endif endif if MouseDown()<0.5 then mdis=0;ia=0.5 if Clear==1 SetFontSize 8;SetCol 128,128,128,1 Text cx+48,16,"Flow",0 Text cx+48,34,"Size",0 Clear=0 endif Flip Forever --v Warning : No save implemented. But it's a vague little arty thing. Give it a try, and if you post screenshots of your results, I'll add them to a Gallery Blog Post over at AGameAWeek! -=-=- ''Load, Next List!''
Mon, 22 Jul 2024, 02:14
Jayenkai	Day Twenty Two - Frost // Frost // by Jayenkai // Created 2024/7/20 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_0_0?;;0;0.;;0_0_00;0;;0!;;0_0_0,;;0,;;0,;;0_0_00;;0,;;0,;;0_0_0,;;0!;;0;0_0_00;;0.;0;;0_0_0?;;0.;;0_0_0!;@0;0_0_0?;0.;;0_0_0!;0;"; Symbol 1,"2__0_0_0_0_0_0_0_0_0_0,;0_0_0_0,;,0_0_0!;00;;00;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_0,;0.;;00;0,;,0.;0_0;,00;;0,;0,;,0?;;0@;;0;,0.;00;;0;0!;;0/;0,;.00;0;;0,;0?;;0!;0.;0,;?0.;0?;0!;0?;0.;?0,;0.;0!;;0?;0,;;0;00;.0,;0/;;0!;0;;00;0.;,0;;0@;;0?;,0,;0,;;00;,0_0;0.;,0,;00;;0.;0_0,;.00;;00;?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_0_0!;,0_0_0_0,;"; Symbol 2,"2__0_0_0_0_0_0_0_0_0_0_0_0/;0;.00;,0_0_00;!0,;!0_0/;.0;0!;.0_0?;.0;0_;.0_0.;.0;;00;0.;!0_0_;0/;;00;,0_0@;;0?;;0?;0_;;0/;0?;,0_0.;,0/;0?;0,;0_00;,00;0?;0,;0@;;0!;;0,;0?;00;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?;00;,0_00;0,;0?;0/;,0_0.;,0?;0/;;0_;0?;;0?;;0_0@;,00;;0/;0_0_;!0.;00;;0;.0_0.;.0_;0;.0_0?;.0!;0;.0_0/;!0,;!0_0_00;,00;.0;"; 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;00;0_0_0!;_0_0_0.;_;0_0_0,;.00;00;;0_0_0,;.00;00;,0_0_0;!0;0;.0_0_;.00;.00;,0_0_;,00;.00;.0_0_;.0;0;!0_0_0;,00;00;.0_0_0,;;00;00;.0_0_0,;_;0_0_0.;_0_0_0!;00;0;,"; Symbol 4,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_00;00;0!;00;0_0_;;0_0;;0_0_0;0_0;0_0@;00;;0@;0,;0_0_;0@;0_0_0?;0!;0_0_0!;;0.;;0_0_0!;;0;;0;;0_0_0/;!0_0_0/;_0_0_0.;,0;;0;,0_0?;;0.;_;_;,0.;_;_;,0.;;0_0?;,0;;0;,0_0_0?;@0_0_0/;!0_0_0/;;0;;0;;0_0_0!;;0.;;0_0_0!;0!;0_0_0?;0@;0_0_;0,;0@;;00;0_0@;0_0;0_0_0;;0_0;;0_0_;00;0!;00;"; 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?;,0_0/;;0.;;0.;;0_0!;0,;.0;;0;,0_0_0.;,0;?0_0_0@;.0_0_0_0;.0_0_0@;?0;,0_0_0.;,0;;0;.0,;0_0!;;0.;;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 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@;_;00;0_0@;.0!;.0_0_;.0!;.0_0_;,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_;"; Symbol 7,"2__0_0_0_0_0_0,;0_0_0@;0.;?0_0_0.;!0;,0_0_00;.0/;,00;0_0,;0;;00;0_;.0_00;.0,;0_0;,0_0;,0?;0_0;0;0_0;;0/;0@;00;;0_;;0/;0/;0.;,0/;;0/;;0?;0!;;0/;0_;0.;0@;;0?;0_0;0,;;0@;;0,;.0_0;0;;0_;;0?;0;!0.;,0_0;0!;0!;/0_00;0!;0_00;/0!;0!;0_0;,0.;!0;0?;;0_;;0;0_0;.0,;;0@;;0,;0_0;0?;;0@;0.;0_;0/;;0!;0?;;0/;;0/;,0.;0/;0/;;0_;;00;0@;0/;;0_0;0;0_0;0?;,0_0;,0_0;0,;.0_00;.0_;00;;0;0_0,;00;,0/;.0_0_00;,0;!0_0_0.;?0.;0_0_0@;"; Symbol 8,"2__0_0_0_0_0_0_0_0_0_0_0_0_0!;0_0_0_0.;0_0_0_0,;0_0_0_0.;0_0_00;0/;00;0_0_0,;0.;00;?0_0_00;00;0,;0;;0;0_0_00;?0,;0;00;0_0_;,0.;0,;0;0.;0_0,;;0;;0,;0?;!0_0,;0,;;00;0?;,0_0_00;;0;00;?0_0!;0;0.;?0,;;0_0/;;0,;?0.;0;0_0!;?00;0;;0_0_00;,0?;00;;0,;0_0,;!0?;0,;;0;;0_0,;0.;0;0,;0.;,0_0_;00;0;0,;?0_0_00;0;;0;0,;00;0_0_00;?00;0.;0_0_0,;00;0/;0_0_00;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_0_0_0_;0;;0_0_0_;0,;.0,;;0_0_0;0?;?00;0_0_;0_0,;0_0@;0?;,0?;0_0/;;0_0.;0_0!;;0;;0,;;0/;0_0,;;0,;0?;00;0;0;,0_00;0!;0,;0?;,0_0_;0/;;0.;0_0;;0_;,00;0.;;0_0;;0.;00;,0_;;0_0;0.;;0/;0_0_;,0?;0,;0!;0_00;,0;0;00;0?;0,;;0_0,;0/;;0,;;0;;0_0!;0_0.;;0_0/;0?;,0?;0_0@;0_0,;0_0_;00;?0?;0_0_0;;0,;.0,;0_0_0_;;0;"; Symbol 10,"2__0_0_0_0_0_0,;0_0_0_0.;0_0_0_0;00;0_0_0_0;!0_0_0@;00;00;0_0_0_0;0_0_0.;;0/;0;0_0@;.0@;0/;;0_00;;0_;0@;;0;0@;.0/;0@;,0@;;00;;0!;0!;.0/;00;0.;0?;0?;,0;;0_00;0,;;0,;0,;;00;00;0_0@;.0;;0.;0?;0_0!;.0_0_0_0;.0_0!;0?;0.;;0;.0_0@;00;00;;0,;0,;;0,;0_00;;0;,0?;0?;0.;00;0/;.0!;0!;;00;;0@;,0@;0/;.0@;0;;0@;0_;;0_00;;0/;0@;.0_0@;0;0/;;0_0_0.;0_0_0_0;00;00;0_0_0@;!0_0_0_0;00;0_0_0_0;0_0_0_0.;"; Symbol 11,"2__0_0_0_0_0_0@;0_0_0_00;,0_0/;0_0.;;0;0_0?;,0_0;,0_0/;,0_0;;0_0_;,0_;;0_0_0;,0/;;0_0_0,;;0/;;0_0_0.;;0?;,0_0_0.;,0.;,0_0_0?;,0,;;0_0_0/;,0;;0_0_0_;?0@;!0_0?;.0;_;.0_;0,;_;.0,;0.;0,;_;.0,;0_;_;.0;.0_0?;!0@;?0_0_0_;;0;,0_0_0/;;0,;,0_0_0?;,0.;,0_0_0.;,0?;;0_0_0.;;0/;;0_0_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;"; 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_00;!00;0_0_0?;_;0_0_0,;.0;!0_0_00;,0;,0;.0_0_0;_;0;;0_0_;.0;0;@0_0@;_0;?0_0_;;0;;0;_0_0@;@0;0;.0_0_;;0;_;0_0_0;.0;,0;,0_0_00;!0;.0_0_0,;_;0_0_0?;00;!0_0_0_00;;"; 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_00;@00;;0_0_00;@0;;0_0_0;!00;.0_0_0;?0?;.0_0@;;0.;0.;?0_0/;;0.;0,;;0;,0_0/;;0?;0;;0.;;0_00;!0?;,0.;,0_0?;_;0?;,0_0?;,0?;_;0_0?;,0.;,0?;!0_00;;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_00;;00;@0_0_00;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_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0;0_0_0_0,;;00;;0_0_0/;0!;0_0_0?;00;?0;0_0_0,;;0;!0;0_0_0!;!0_0_0@;!0_0_0!;0;!0;;0_0_0,;0;?00;0_0_0?;0!;0_0_0/;;00;;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_00;,0_0_0_00;?0;;0_0_0?;0;?00;,0_0_0;0;,0;/0_0_;0;;0;0.;;0;0_0@;0;;00;;00;.0;0_0!;;0;0,;?00;0;0_0!;.00;!00;,0_0!;0;@0;00;,0_0/;,00;0;@0;0_0!;,00;!00;.0_0!;0;00;?0,;0;;0_0!;0;.00;;00;;0;0_0@;0;;0.;0;;0;0_0_;/0;,0;0_0_0;,00;?0;0_0_0?;;0;?0_0_0_00;,"; 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_;;0.;0_0_0!;;0;;0;;0_0_0/;!0_0_0?;0;.0;.0_0_0,;0;00;,0;;0_0_00;_;;0;0_0_00;0;_;;0_0_00;;0;,00;0;0_0_0,;.0;.0;0_0_0?;!0_0_0/;;0;;0;;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_0_0!;;0.;0_0_0@;0,;;0_0_0_;?0!;0_0_00;;0;0;!0_0_0?;?00;0_0_;00;?0_0_0?;!0;0;;0_0_00;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 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!;_0_0_0.;!0;!0_0_0;,00;0,;.0_0@;.00;.0;.0_0@;,00;/0;,0_0/;!0;0;,0;,0_0/;;00;@00;;0_0/;;00;@00;;0_0/;,0;,0;0;!0_0/;,0;/00;,0_0@;.0;.00;,0_0_;.0,;00;,0_0_0;!0;!0_0_0.;_0_0_0!;?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_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.;;00;,0;;0_0_0.;.0,;.0_0_0.;,0;?0_0_0.;@0_0_0_;.0_0_0_0.;"; Dim flake(100,20) Graphics 800,600,2 for n=0 to 100 flake(n,0)=Rand(0,19) flake(n,1)=Rnd(0-32,jscrw+32) flake(n,2)=Rnd(0-32,jscrh+32) flake(n,3)=Rnd(0,360) flake(n,4)=Rnd(1,3) flake(n,5)=Rnd(0,360) flake(n,10)=Rnd(0,360) flake(n,11)=Rnd(-4,4) flake(n,12)=Rnd(0,360) flake(n,13)=Rnd(-4,4) next repeat CLS 96,118,128,0.6 for n=0 to 100 flake(n,2)=Wrap(flake(n,2)+Rnd(0,1)+flake(n,4),0-32,jscrh+32) flake(n,1)=wrap(flake(n,1)+Sin(flake(n,3)),0-32,jscrw+32) flake(n,5)=wrap(flake(n,5)+Rnd(0,1.5),0,360) flake(n,3)=wrap(flake(n,3)+Rnd(0,1.5),0,360) SetRot flake(n,5) flake(n,10)=wrap(flake(n,10)+flake(n,11)+Rnd(0,0.5),0,360) flake(n,12)=wrap(flake(n,12)+flake(n,13)+Rnd(0,0.5),0,360) SetSize Sin(flake(n,10)),Cos(flake(n,12)) DrawImg flake(n,1),flake(n,2),flake(n,0) next flip forever --v Really wasn't in the mental space for doing this, if I'm honest!!! And yes, I know this is more Snow than Frost. I'm so tired!!! It's all you're getting. -=-=- ''Load, Next List!''
Tue, 23 Jul 2024, 01:42
Jayenkai	Day Twenty Three - Tangle // Tangle // by Jayenkai // Created 2024/7/22 // GotoJSE.com/zhxCrpnC.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!440_0_0_0040040_0_0_040040_0_0_40.40_0_0@40.40_0_0/40!40_0_0!40!40_0_0?40@40_0_0.40@40_0_0,40_040_0_0040_040_0_040_0,40_0_40_0,40_0_04_4,"; 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_0,;;"; Tune$="[1][L][D8z2G5z1I4z2K4z2I3z1D8G8I4z2K4z2I3z1][P1z3P1z1K1z1P1z3P1z1K1z1P1z3P1z1K1z1P1z1N1z1K1z1N1z1P1z3P1z1K1z1P1z3P1z1K1z1P1z3P1z1S1z1R1z1P1z1N1z3][D2z4F1z1G2z4I1z1K2P2N2I2K2z6D2z4F1z1G2z4I1z1K3z1D3z1G2z2F2z2][H][K9z7I9z7B4D9zJ][D5z7I2z2K1z1K1z1K1z1D2z8D5z3I5z3K1z2K1z2K1z1D2z6][B][D1z3D1z3D1z3D1z1G1z1I1z3I1z3I1z1G1z1I1z1G1z1D1z3D1z3D1z3D1z1G1z1I1z3I1z3I1z1G1z1I1z1G1z1][D1D1z1D1P1z1P1D1z1P1D1z1P1z3D1D1z1D1P1z1P1D1z1P1D1z1P1z3D1D1z1D1P1z1P1D1z1P1D1z1P1z3D1D1z1D1P1z1P1D1z1P1D1z1P1z3][D][11z311z131z111z321z311z311z111z121z321z311z311z131z111z321z311z321z111z121z321z3][11z311z311z311z311z311z311z311z111z111z311z311z311z311z511z111z311z3]" Graphics 512,512,1 SetControllerMethod Touch SetControllerText "Best played with a mouse " SetScrollerText "Another game by Jayenkai - AGameAWeek.com - Guide the cross through the triangles, lighting each one up as you go, before reaching the second circle at the other side. Don't get tangled. And try not to go too slow." Dim Tangle(10,10) Dim grid(512,512) GameHandler "Tangle","Calendar" .StartGame Debugmode 1 t2=0 SeedRnd ThisLevel37 Gosub GetLev Return .GetLev t2=t2+1 SeedRnd ThisLevel370+t2 tries=0 for n=0 to 8 repeat x=Rnd(512-120)+60 y=Rnd(512-120)+60 if n>0 for m=0 to n-1 if Pyth(x-Tangle(m,1),y-Tangle(m,2))<100 then tries=tries+1;x=-100 next endif if tries>100 then x=50 until x>-100 Tangle(n,0)=60 Tangle(n,1)=x Tangle(n,2)=y Tangle(n,3)=Rnd(360) Tangle(n,4)=Rnd(360) Tangle(n,5)=0.5 next px=Tangle(7,1) py=Tangle(7,2) tx=px;ty=py CLS;Starfield 0-1,0,1;LoadingBar x/5,"Untangling","Triangular";Flip if tries>100 then goto StartGame for x=0 to 512 for y=0 to 512 grid(x,y)=0 next if x%10==0 if x%70==0 then PlaySFX("Pickup_7",1+x/500) CLS;Starfield 0-1,0,1;LoadingBar x/4,"Untangling","Triangular";Flip endif next SetBuffer BG CLS SetBuffer FG hit=0 hdel=0 win=0 start=0 LevA=Rnd(10,15) LevB=0.9-(LevA0.01) cpa=Line(-10,-10,-5,-5) cpb=Line(-10,-10,-5,-5) Return .Ingame CLS 0,0,0;ResetDraw Starfield 0-1,0,1 SeedRnd Mills() SetThick 2 SetCol 255,255,160 DrawOval Tangle(8,1),Tangle(8,2),30,30,16 SetCol 160,255,160 DrawOval Tangle(7,1),Tangle(7,2),30,30,16 in=0 ResetDraw mx=MouseX();my=MouseY() if MouseDown()>0.5 and mx>4 and mx<508 and my>4 and my<508 then in=1 pd=48 if in==1 and Pyth(px-mx,py-my)<pd if start==0 then start=1;score=2500;JMTrackr 108,"Classic",Tune$ tx=mx;ty=my endif all=1 for n=0 to 6 x=Tangle(n,1) y=Tangle(n,2) z=Tangle(n,0) r=Tangle(n,3) SetRot r InkRot Tangle(n,4),0.3,Tangle(n,5)0.6;SetAlpha 1 ct=Oval(x,y,z,z,3) If Collide(ct,cpa)>0.5 if Tangle(n,5)<1 then PlaySFX("Beeper_2tone_Up",(n0.2)+1) Tangle(n,5)=1 endif if Tangle(n,5)<1 then all=0 SetRot 0 InkRot Tangle(n,4),0.6,1;SetAlpha 1 x2=x+Sin(r+120-LevA)zLevB y2=y-Cos(r+120-LevA)zLevB Tangle(n,7)=Line(x+Sin(r+LevA)zLevB,y-Cos(r+LevA)zLevB,x2,y2) Tangle(n,8)=Line(x+Sin(r+120+LevA)zLevB,y-Cos(r+120+LevA)zLevB,x+Sin(r+240)z,y-Cos(r+240)z) Tangle(n,9)=Line(x+Sin(r+240)z,y-Cos(r+240)z,x+Sin(r+(360-LevA))zLevB,y-Cos(r+(360-LevA))zLevB) next for q=0 to 6 SetCol 255,180,180,0 if hit==0 then px=SmoothTo(px,tx,6);py=SmoothTo(py,ty,6) SetRot 0 cpa=Line(px-4,py-4,px+4,py+4) cpb=Line(px-4,py+4,px+4,py-4) ix=Round(px);iy=Round(py) m=Mills() for x=-3 to 3 step 7 for y=-3 to 3 step 7 if grid(ix+x,iy+y)>0 and grid(ix+x,iy+y)<m-750 and win==0 then hit=1 next next SetBuffer BG SetCol 255,120,120,1 for x=-1 to 1 for y=-1 to 1 grid(ix+x,iy+y)=m next next Oval px,py,5,5,8 SetBuffer FG for n=0 to 6 if Collide(tangle(n,7),cpa) and win==0 then hit=1 if Collide(tangle(n,8),cpa) and win==0 then hit=1 if Collide(tangle(n,9),cpa) and win==0 then hit=1 if Collide(tangle(n,7),cpb) and win==0 then hit=1 if Collide(tangle(n,8),cpb) and win==0 then hit=1 if Collide(tangle(n,9),cpb) and win==0 then hit=1 next next SetCol 255,180,180,1 cpa=Line(px-4,py-4,px+4,py+4) cpb=Line(px-4,py+4,px+4,py-4) if hit==0 and hit==0 and Rnd(0,10)<2 ThrowParticle px,py,8,Rnd(360),0.5,0,3 endif if hit==1 and all==0 if hdel==0 then PlaySFX("Beeper_Fruit_Lose") hdel=hdel+delta if hdel>60 then EndGame ThrowParticle px,py,4,Mills()0.15,1.5,0,0 ThrowParticle px,py,4,Mills()0.35,1.5,0,0 ThrowParticle px,py,4,Mills()0.6,1.5,0,0 endif if (Pyth(px-Tangle(8,1),py-Tangle(8,2))<16 or win==1) and all==1 if win==0 then PlaySFX("Beeper_Powerup") win=1;hdel=hdel+delta;WinLevel ThisLevel ThrowParticle px,py,4,Mills()0.15,Abs(Sin(hdel8))2,0,3 ThrowParticle px,py,4,Mills()0.35,Abs(Sin(hdel8))2,0,3 ThrowParticle px,py,4,Mills()0.6,Abs(Sin(hdel8))*2,0,3 if hdel>60 then EndGame endif ResetDraw SetAlpha 0.75 DrawBG 512,512 SetFontSize 8 if hit==1 or win==1 then JMStop if start==1 and hit==0 and win==0 then score=score-1 if hit==1 and win==0 then Score=0 Text 502,10,"Bonus",2 Text 502,20,Score,2 SetParticleGravity 0.2 Return --v Best played with a Mouse! -=-=- ''Load, Next List!''
Wed, 24 Jul 2024, 01:53
Jayenkai	Day Twenty Four - Buzz // Buzz // by Jayenkai // Created 2024/7/23 // GotoJSE.com/gHFltFn9.BAS Symbol 0,"2__0/v!0!v!0_0?vv0,v@0,vv0_0_v_v0_0_0.vv;;vv;;vv0_0_0.vv;;vv;;vv0_0_0.v_v0_0_0.v_v0_0_0?v@0_0_0_vv0_0_0!v_v?0_0@v_v/0_0!v,I_I,v,0_0?vvI_I?vv0_0?v_v_0_0?v_v_0_0?vvI_I?vv0_0?v,I_I,v,0_0?v_v@0_0/v_v!0_0_vvI_Ivv0_0_vvI_Ivv0_0_v_v?0_0@v_v/0_0!v,I_I,v,0_0?vvI_I?vv0_0?v_v_0_0?v_v_0_0?vvI_I?vv0_0?v,I_I,v,0_0!v_v/0_0@v_v?0_0_0v0_0v"; 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?:,z?::0_0_0,:,z:?z::0_0_0:_z:,0_0_0:!z:,z::0_0@:_z,:,0_0@:_:?0_0_0:_:.0_0_00:_::0_0_0.:/z:0_0_0?:!z::0_0_0?:z?:,0_0_0?:!z::0_0_0.:@z::0_0_00:_:.0_0_:_:?0_0_:_z,:,0_0_00:?z:,z::0_0_00:@z:,0_0_0,::z:?z::0_0_0.::z?::0_0_0!:/0_0_0_:."; 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_00;?0_0_0@;/0/;?0_0,;_;0,;@0_0;_;_;?0@;_;_;!0@;_;_;/0!;_;_;@0!;_;_;@0!;_;_;/0@;_;_;!0_;_;_;."; Graphics 1024,640,1 px=jscrw/2;py=jscrh-40 prot=0 prot2=0 pys=0 flap=0 pland=0 kdis=1 Repeat CLS 80,160,255:ResetDraw;AA False SetCol 80,220,80;Rect 0,jscrh-16,jscrw,16 prot2=pxs4 prot=SmoothTo(prot,prot2,16) if pland>0 then flap=flap+5 if pland<1 then flap=flap+13 If GamePad(ButtonA)>0.5 and kdis==0 then pys=Limit(pys-1delta,-10,12);flap=flap+13 if GamePad(ButtonA)<=0.5 then pys=Limit(pys+1.5delta,-10,12);kdis=0 if flap>360 then flap=flap-360 pxs=Limit((pxs0.9)+(GamePad(ButtonRight)-GamePad(ButtonLeft)),0-10,10) pland=pland-1 if py<=40 py=40 if pys<=0 then pys=0 endif if py>=jscrh-40 pland=3 py=jscrh-40 pxs=0;prot2=prot20.8;prot=prot0.8 if pys>0 then pys=0 endif px=Limit(px+pxs0.5delta,16,jscrw-16) py=py+pys0.5delta SetSize 3 SetAlpha 0.5 SetRot prot ox=px+Sin(prot+180)8 oy=py-Cos(prot+180)8 SetSize Abs(Sin(flap))2,2 DrawImg ox+Sin(prot+90)13,oy-Cos(prot+90)13,1 SetRot prot+180 DrawImg ox+Sin(prot+270)13,oy-Cos(prot+270)13,1 SetSize 2 SetAlpha 1 SetRot prot DrawImg px,py,0 ResetDraw SetSize 8;SetAlpha 0.3 SeedRnd 37171 for n=0 to 20 x=Wrap(Rnd(2048)-Mills()Rnd(0.02,0.06),0,2048)-256 DrawImg x,Rnd(0,480),2,0 next Flip Forever --v Let's just call this 95% unfinished, and move on, shall we!?! On the plus side, I got a new bed yesterday, so that's ok. -=-=- ''Load, Next List!''
Thu, 25 Jul 2024, 01:43
Jayenkai	Day Twenty Five - Fold // Fold // by Jayenkai // Created 2024/7/24 // GotoJSE.com/sXkl2nHj.BAS Symbol 0,"2__z_z_z_z.xzy_y_y_y,xzy_y_y_y,xzy_y_y_y,xzy_y_y_y,xzy_y_y_y,xzy_y_y_y,xzy_y_y_y,xzy_y_y_y,xzy_y_y_y,xzy_y_y_y,xzy_y_y_y,xzy_y_y_y,xzy_y_y_y,xzy_y_y_y,xzy_y_y_y,xzy_y_y_y,xzy_y_y_y,xzy_y_y_y,xzy_y_y_y,xzy_y_y_y,xzy_y_y_y,xzy_y_y_y,xzy_y_y_y,xzy_y_y_y,xzy_y_y_y,xzy_y_y_y,xzy_y_y_y,xzy_y_y_y,xzy_y_y_y,xzy_y_y_y,x_x_x_x!"; Symbol 1,"2__1_1_1_1.312_2?662_2?312_2.6.2_2.312_2,6!2_2,312_226@2_22312_26_62_2312_6_6,2_312@6_6?2@312/6_6/2/312!6_6_2!312?6_6_662?312.6_6_6.2.312,6_6_6!2,312,6_6_6!2,312,6_6_6!2,312,6_6_6!2,312_226@2_22312_226@2_22312_226@2_22312_226@2_22312_226@2_22312_226@2_22312_226@2_22312_226@2_22312_226@2_22312_226@2_22312_226@2_22312_226@2_22312_2_2_2,312_2_2_2,312_2_2_2,3_3_3_3!"; Symbol 2,"2__F_F_F_F.HFG_G_G_G,HFG_G_G_G,HFG_G_G_G,HFG_G!K.G_GGHFG_G!K?G_GHFG_G!K!G_HFG_G!K/G@HFG_G!K@G/HFG_G!K_G!HFG_G!K_KG?HFG_G!K_KKG.HFG,K_K_K!G,HFG,K_K_K/GGHFG,K_K_K@GHFG,K_K_K_HFG,K_K_K_HFG,K_K_K@GHFG,K_K_K/GGHFG,K_K_K!G,HFG_G!K_KKG.HFG_G!K_KG?HFG_G!K_G!HFG_G!K@G/HFG_G!K/G@HFG_G!K!G_HFG_G!K?G_GHFG_G!K.G_GGHFG_G_G_G,HFG_G_G_G,HFG_G_G_G,H_H_H_H!"; Symbol 3,"2__M_M_M_M.OMN_N_N_N,OMN_N_N_N,OMN_N_N_N,OMN_NNR@N_NNOMN_NNR@N_NNOMN_NNR@N_NNOMN_NNR@N_NNOMN_NNR@N_NNOMN_NNR@N_NNOMN_NNR@N_NNOMN_NNR@N_NNOMN_NNR@N_NNOMN_NNR@N_NNOMN_NNR@N_NNOMN_NNR@N_NNOMN,R_R_R!N,OMN,R_R_R!N,OMN,R_R_R!N,OMN,R_R_R!N,OMN.R_R_R.N.OMN?R_R_RRN?OMN!R_R_N!OMN/R_R/N/OMN@R_R?N@OMN_R_R,N_OMN_NR_RN_NOMN_NNR@N_NNOMN_N,R!N_N,OMN_N.R.N_N.OMN_N?RRN_N?O_O_O_O!"; Symbol 4,"2__T_T_T_T.VTU_U_U_U,VTU_U_U_U,VTU_U_U_U,VTU_UUY.U_U!VTU_UY?U_U!VTU_Y!U_U!VTU@Y/U_U!VTU/Y@U_U!VTU!Y_U_U!VTU?Y_YU_U!VTU.Y_YYU_U!VTU,Y_Y_Y!U,VTUUY_Y_Y/U,VTUY_Y_Y@U,VTY_Y_Y_U,VTY_Y_Y_U,VTUY_Y_Y@U,VTUUY_Y_Y/U,VTU,Y_Y_Y!U,VTU.Y_YYU_U!VTU?Y_YU_U!VTU!Y_U_U!VTU/Y@U_U!VTU@Y/U_U!VTU_Y!U_U!VTU_UY?U_U!VTU_UUY.U_U!VTU_U_U_U,VTU_U_U_U,VTU_U_U_U,V_V_V_V!"; Symbol 5,"2__z_z_z_z.xzy_y_y_y,xzy_y_y_y,xzy_y_y_y,xzy_y_y_y,xzy/v_v/y/xzy!v_v_y!xzy?v_v_vvy?xzy.v_v_v.y.xzy,v_v_v!y,xzyyv_v_v@yyxzyv_v_v_vyxzy,;_;_;!y,xzy,;_;_;!y,xzy,;;y_yy;.y?;;y,xzy,;;y_yy;.y?;;y,xzy,;;y_yy;.y?;;y,xzy,;;y_yy;.y?;;y,xzy,;;y_yy;.y?;;y,xzy,;_;_;!y,xzy,;_;_;!y,xzy,;?y.;,y_;,y,xzy,;?y.;,y_;,y,xzy,;?y.;,y_;,y,xzy,;?y.;,y_;,y,xzy,;?y.;_;!y,xzy,;?y.;_;!y,xzy_y_y_y,xzy_y_y_y,xzy_y_y_y,xzy_y_y_y,x_x_x_x!"; Symbol 6,"1__0_0@j.0!j.00oo0j0!j0oo00Wo0j0!j0oW0.j_j0?j_j,0,j?ljjlj?00jj55j!55jj00jj5_5jj00j,5@j,0,j_j,0?j_j0_j00j0_0,j00j0_0j,00j,0/j.00j."; Symbol 7,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_j@0_0,j@0.j@0_0,j@0.o.00jj0_0,jj00o.0.o.00jj0_0,jj00o.0.WWoo00jj0_0,jj00ooWW0.WWoo00jj0_0,jj00ooWW0@j_j_jj0_0,j_j_jj0_0j_j_j!0@j_j_j!0!j_jllj.llj_j0.j_jllj.llj_j0.j.5.j_j,5.j.0.j.5.j_j,5.j.0.j.5_5_55j.0.j.5_5_55j.0.j!5_5/j!0.j!5_5/j!0!j_j_j!0@j_j_j!0_0j_j_jj0_0,j_j_jj0_0_jj0.jj0_0_00j!0.j!0_0/j!0.j!0_0?j@0.j@0_0,j@0.j@"; Graphics 512,512,1 Dim Maze(32,32) GameHandler "Fold","Calendar" .StartGame Tries=0 fold=0 foldb=1 kdis=1 Gosub GetLev Return .GetLev Tries=Tries+1 SeedRnd ThisLevel370+Tries gw=15;gh=15 px=0;py=gh;pd=Rand(0,1) a=0;b=0;c=0 ba=0;bb=0;bc=0; for x=0 to gw for y=0 to gh Maze(x,y)=0 next next for n=0 to 250 did=0 Maze(px,py)=pd+1 if pd==0 and Maze(px,py-1)==0 and Maze(px,py-2)==0 and py>0 then py=py-1;did=1 if pd==1 and Maze(px+1,py)==0 and Maze(px+2,py)==0 and px<gw then px=px+1;did=1 if pd==2 and Maze(px,py+1)==0 and Maze(px,py+2)==0 and py<gh then py=py+1;did=1 if pd==3 and Maze(px-1,py)==0 and Maze(px-2,py)==0 and px>0 then px=px-1;did=1 if did==0 or Rnd(0,10)<5 did=0 q=Rand(0,3) for e=0 to 3 pd=(e+q)%4 if pd==0 and Maze(px,py-1)==0 and Maze(px,py-2)==0 and py>0 then did=1 if pd==1 and Maze(px+1,py)==0 and Maze(px+2,py)==0 and px<gw then did=1 if pd==2 and Maze(px,py+1)==0 and Maze(px,py+2)==0 and py<gh then did=1 if pd==3 and Maze(px-1,py)==0 and Maze(px-2,py)==0 and px>0 then did=1 if did==1 then e=4 next if did==0 then n=500 endif if px<3 and py<3 then a=1 if px>gw-3 and py<3 then b=1 if px>gw-3 and py>gh-3 then c=1 if Abs(px-gw/2)<3 and Abs(py-gh/2)<3 then ba=1 if n%80==0 then CLS;LoadingBar 0,"Folding","Ribbon";Flip next Maze(px,py)=5 px=0;py=gh;pd=Maze(0,gh) if a==0 or b==0 or c==0 then goto GetLev if ba==0 then goto GetLev for m=0 to 2 hx=Rand(0,gw) hy=Rand(0,gh) w=Rand(3,5);h=Rand(3,5) f=Rand(0,1) f=0 for x=0-w to w for y=0-h to h dx=hx+x;dy=hy+y if dx>-1 and dx<gw and dy>-1 and dy<gh tx=gw-dx;ty=dy if f==1 then tx=dx;ty=gh-dy s=1;if (dx==0 and dy==gh) or (tx==0 and ty==gh) then s=0 if Maze(dx,dy)==5 or Maze(tx,ty)==5 then s=0 if s==1 ta=Maze(tx,ty) tb=Maze(dx,dy) if f==0 if ta==2 or ta==4 then ta=ta+2 if tb==2 or tb==4 then tb=tb+2 endif if f==1 if ta==1 or ta==3 then ta=ta+2 if tb==1 or tb==3 then tb=tb+2 endif Maze(tx,ty)=((tb-1)%4)+1 if tb==0 then maze(tx,ty)=0 Maze(dx,dy)=((ta-1)%4)+1 if ta==0 then maze(dx,dy)=0 endif endif next next next pdx=16;pdy=jscrh-16 Return .InGame CLS;ResetDraw for x=0 to gw for y=0 to gh t=maze(x,y) dx=x32+16;dy=y32+16 if foldb==1 and dy>240 dy=240+(Cos(fold)(y-7))32 endif if foldb==2 and dx>240 dx=240+(Cos(fold)(x-7))32 endif DrawImg dx,dy,t next next SetCol 0,0,0,0.2 for e=1 to 5 SetThick e Line 0,256,512,256 Line 256,0,256,512 next SetCol 255,255,255,1 dx=px32+16;dy=py32+16 if foldb==1 and dy>240 dy=240+(Cos(fold)(py-7))32 endif if foldb==2 and dx>240 dx=240+(Cos(fold)(px-7))*32 endif pdx=SmoothTo(pdx,dx,6) pdy=SmoothTo(pdy,dy,6) DrawImg pdx,pdy-12,(Floor(Mills(1)/600)%2)+6 if fold>0 and fold<360 then fold=fold+24 if fold>330 and fold<360 PlaySFX("Tap_1") if foldb==1 then py=gh-py if foldb==2 then px=gw-px fold=360 endif if GamePad(ButtonUp)<0.5 and GamePad(ButtonDown)<0.5 and GamePad(ButtonRight)<0.5 and GamePad(ButtonLeft)<0.5 and fold>=360 then fold=0 if fold==0 if (GamePad(ButtonUp)>0.5 or GamePad(ButtonDown)>0.5) and fold==0 fold=1;foldb=1;PlaySFX("Whistle_Up",1.2) endif if (GamePad(ButtonLeft)>0.5 or GamePad(ButtonRight)>0.5) and fold==0 fold=1;foldb=2;PlaySFX("Whistle_Up",0.8) endif endif if GamePad(ButtonA)<0.5 then kdis=0 if fold==0 and GamePad(ButtonA)>0.5 and kdis==0 d=0 If Maze(px,py)==0 then PlaySFX("Eat_2",1);d=1 if Maze(px,py)==1 and d==0 then py=py-1;d=1 if Maze(px,py)==2 and d==0 then px=px+1;d=1 if Maze(px,py)==3 and d==0 then py=py+1;d=1 if Maze(px,py)==4 and d==0 then px=px-1;d=1 kdis=1 endif if Maze(px,py)==5 and GameOver==0 then WinLevel ThisLevel;PlaySFX("Beeper_Powerup");EndGame "Congratulations" Return --v Another abandoned idea, today. I think this could've done with planned levels instead of pseudo-generated ones. That likely would've wound up working much better. Controls. A to move in the direction of the arrow. DPad to fold the level and flip yourself to the opposite side. -=-=- ''Load, Next List!''
Thu, 25 Jul 2024, 21:29
steve_ancell	That one mashed my swede mate.
Fri, 26 Jul 2024, 03:55
Jayenkai	Day Twenty Six - Sprout // Sprout // by Jayenkai // Created 2024/7/25 // GotoJSE.com/2DGM3FT9.BAS Symbol 0,"25_0_0_0_0_0_0!XX0_0_0Q/0,X@0_0,Q_QQ0X_X0_Q_Q.EEX_0!Q@KKQ.E.X_0?Q/KE,K,E?X_0,Q?E?P_E,X/0,Q.E,P_P.E,X!0,Q.EP_P?K,EEX?0.QQEEP_P.K?EEX.0.QP_P/K!EEX,0.P_P?f?eeK.X,0,P_PPE,M,fe?K.X0.P@JPEEM?e/K.0.P!J.EM!e/K.0.P?J!M!e/K?0,P,K.J.M?e,KEKeeK?0,P,K,J?M?eeKEEXXeK?0,K!J?KMMffeKEEX,K!0,K?J!KY,eKEEX.KKEII0.K.J/K.E,X?KEEI,0,K.J@XXEEX/EEI.0,K.J!X_X.EEI.0,K.EJ?X_X,EEI?0.K.EJ.X_XXEEI?0/K,EJ,X_XEEI!0/K.EJ,X/I_0_0.EEJ,X.I_0_0_0.I/"; Symbol 1,"2__0_0!z0_0_0_0,z,0_0_0_00z,0_0_0_00z,0_0_0_00z,0_0_0_00z,0_0_0_00z,0_0_0_00z,0_0_0_00z,0_0_0_00z,0_0_0_00z,0_0_0_00z,0_0_0_00z,0_0_0_00z,0_0_0_00z,0_0_0_00z,0_0_0_00z,0_0_0_00z,0_0_0_00z,0_0_0_00z,0_0_0_00z,0_0_0_00z,0_0_0_00z,0_0_0_0z?0_0_0@z/0_0_0/z/0_0_0/z/0_0_0/z0z0z0z0_0_0/z0z0z0z0_0_0/z0z0z0z0_0_0/z0z0z0z0_0_0/z0z0z0z"; 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_0_0_0_0_0_0_0;SQQS;0_0_0@;;QQ;;0_0_0/Q@0_0_0!Q@0_0_0!Q@0_0_0!Q@0_0_0/Q!0_0_0_Q."; 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_00;.0_0_0_;;vv;;0_0_0/;,vv;,0_0_0!;@0_0_0!;@0_0_0!;@0_0_0/;!0_0_0_;."; Graphics 640,400,1 SetScrollyText "Another Game by Jayenkai - AGameAWeek.com - Poor Sprouty's having a bad day. Be sure to ward off the evil forks with a good dose of pea. Fight for your survival, as the last sprout on the plate." Dim Bul(20,10) Dim Bad(50,10) GameHandler "Sprout","Sprout" .StartGame px=jscrw0.5 py=jscrh-32 prot=0 erot=0 pxs=0 pys=0 pbump=90 pfire=0 peas=10 for m=0 to 50 bul(m,0)=0 bad(m,0)=0 next bulto=0 bf=-1 bdel=30 badhard=2 badhard2=0 dead=0 kdis=1 Return .InGame CLS;ResetDraw;AA False ResetDraw bf=-1;bc=0;pf=-1;pc=0 for n=0 to 49 if bad(n,0)==0 and bf>-1 and pf==-1 then pf=n if bad(n,0)==0 and bf==-1 then bf=n if bad(n,0)==1 bc=bc+1 bad(n,2)=bad(n,2)+4 if bad(n,2)>jscrh-80 if bad(n,5)==0 then PlaySFX("Sonniss_Thunk") bad(n,2)=jscrh-80;bad(n,5)=bad(n,5)+Rnd(2,3) if Abs(bad(n,1)-px)<20 and dead==0 and bad(n,5)<70 dead=1 PlaySFX("Beeper_Toot_Lose") endif endif SetSize 2,3Abs(Cos(bad(n,5))) DrawImg bad(n,1),bad(n,2)+Abs(Sin(bad(n,5)))48,1 if bad(n,5)>90 then bad(n,0)=0;badhard2=badhard2+0.3 for m=0 to 19 if bul(m,0)==1 if Abs(bul(m,1)-bad(n,1))<16 and Abs(bul(m,2)-bad(n,2))<30 and bad(n,5)==0 bad(n,0)=0;bul(m,0)=0 PlaySFX("Sonniss_Bottle_1") PlaySFX("Sonniss_Bottle_"+Rand(2,4)) Gimme 25,bad(n,1),bad(n,2) badhard2=badhard2+1 endif endif Next endif if bad(n,0)==2 pc=pc+1 bad(n,2)=bad(n,2)+4 if bad(n,2)>jscrh-50 if bad(n,5)==0 then PlaySFX("Hit_2") bad(n,2)=jscrh-50;bad(n,5)=bad(n,5)+Rnd(1,2) if Abs(bad(n,1)-px)<20 and dead==0 then bad(n,0)=0;peas=Limit(peas+1,0,15);PlaySFX("Beeper_2tone_Up");Score=Score+1 endif SetSize 1 DrawImg bad(n,1),bad(n,2)+bad(n,5)0.3,2 if bad(n,5)>90 then bad(n,0)=0 endif next bd=0;pd=0 bdel=bdel-1 if Rnd(0,180)<3 then pd=1 if Rnd(0,180)<3 then bd=1 if bdel<0 then bd=1 if bf>-1 and bc<badhard and bd==1 bdel=Rand(30,70) bad(bf,0)=1 bad(bf,1)=Limit(px+Rnd(-96,96),16,jscrw-16) bad(bf,2)=-32 bad(bf,3)=0 bad(bf,5)=0 endif if pf>-1 and pd==1 and pc<6 bdel=Rand(30,70) bad(bf,0)=2 bad(bf,1)=Rnd(16,jscrw-16) bad(bf,2)=-32 bad(bf,3)=0 bad(bf,5)=0 endif ResetDraw SetRot prot c=0 if dead>0 then c=8;SetSize 1+Sin(Mills()0.4)0.2,1+Cos(Mills()0.2)0.5;SetAlpha 0.6;SetRot 0 DrawImg px,py,0,c SetRot erot DrawImg px+Sin(erot-40)14,py-Cos(erot-40)14,3 DrawImg px+Sin(erot+40)14,py-Cos(erot+40)14,3 pxs=(pxs0.8)+(GamePad(ButtonRight)-GamePad(ButtonLeft)) if dead>0 then pxs=Sin(Mills()0.3)2 px=px+pxs pys=pys+1 if dead>0 then pys=-2;pland=0 py=py+pys if py>jscrh-32 then py=jscrh-32;pland=4;pys=0 prot=Wrap(prot+pxs3,0,360) erot=erot0.9+pxs0.5 pland=pland-1 if Abs((prot%pbump)-45)<3 and Abs(pxs)>0.2 and pland>0 pys=-Abs(pxs)Rnd(0.8,1.3);pland=0;pbump=Rand(70,120) PlaySFX("Sonniss_Squish_"+Rand(1,3)) endif pfire=Limit(pfire-1,0,90) if GamePad(ButtonA)<0.5 then kdis=0 if GamePad(ButtonA)>0.5 and pfire<1 and peas>0 and dead==0 and kdis==0 pfire=20 peas=peas-1 bul(bulto,0)=1 bul(bulto,1)=px bul(bulto,2)=py-16 bulto=(bulto+1)%20 PlaySFX("Lazer_8") endif for n=0 to 19 if bul(n,0)==1 bul(n,2)=bul(n,2)-12 if bul(n,2)<-32 then bul(n,0)=0 DrawImg bul(n,1),bul(n,2),2 endif next if badhard2>5 then badhard2=badhard2-5;badhard=badhard+1 if dead>0 and py<jscrh0.5 then EndGame ResetDraw SetFontSize 8 Text jscrw-16,16,peas,1 if peas==0 and (Mills()%750)<350 then Text jscrw-32,16,"I need peas",2 TextScore jscrw/2,16,1 Return --v Be the Sprout Fight the Fork Peas for Glory! Sprouting Talk! : Download -=-=- ''Load, Next List!''
Sat, 27 Jul 2024, 03:17
Jayenkai	Day Twenty Seven - Swirl // Swirl // by Jayenkai // Created 2024/7/26 // GotoJSE.com/jrmQJPxb.BAS Symbol 0,"2__0_0_0_0_0_v/70_0_0,v,764,67v,w0_0/vv71258,113557vv0_0?vv8118831823423567v70_00vD18;/8,3,467vv0_v338;_;88143466vv0/v568E;?y7677881244567v0!v711;z;.z8;887718133456vv0.vv2582y;@887781254656vv0,v71388y8;;8;?827812545567v0,v31288DD8;;82E;;8171125456,v007v3258;ExD882xw;81171125456,vv0v72161;8665DDx8;81671225456,7v0v531611;,818;,11771235456,7v0v53165118;.8811772,4,576,v0v542176211881,2772,3645576,v0v663216751212267712234,5676,v0v654221276!12,34545567667v0v75633221?2?445445676,7v0v76464332/33455445567565vv0vv65565443.43456445,676.vv00v665446,556,54,5,676,57v0,vv665,4_5,6676,55vv0.v7765,4.5!6776,557v0?vv677665!6.776,556vv0!vv567,6!7,6,5.vv0@vv56,7?6!5.vv0_0vv756_5.47vv0_0,v,645@456v,0_0!v,765!v.0_0_0v_vv"; Symbol 1,"2__0_0_0_0_0_v/0_0_0.v?7667v,70_0@v,58;,81?7vv0_0?vv43;;8321,24,27v0_0,vv33;;1;?84423437v0_0v733;_;;8843357v0@v733;_;.883534vv0!vv33;;3;?8112,8812644vv0?v442;;1;.13,443,113556vE0,v7248;3;,84435545,3322456vv0,v4248;4;,34;!5566423646v0,v343;;38;34;,558,156533465vv0vv251;;3;;38;?468826643375vv0v6351;;4;84;448;88568156633757v0v53438;3;8434558;8561136634757v0v53351;54884825388362136734756v0v543528;48,124881366136633756v0v66365288543556811566236734757v0v763363118;5588113572346735757v0vv5636641@3567234773565vv00v55337653212,45672335764755v700v766326765?67722347745657v0,vv5573327667?23446755755vv0.v765743,2?34457754745Ev0?vv665764,3,445577557455vv0!vv56567765,67,6457455vv0@vv5665567.65,76455vv0_0vv7567766566775,45vv0_0,v,5_5445v,0_0!v.5/7v.0_0_v_vv"; Symbol 2,"2__0_0_0_0_0_v@0_0_0,v?76E77v.0_0/v,38/1,7vv0_0?vv3;;x37,56711227vv0_00vv8;1Ez1;;8117572123vv0_v78;171;.1181176v123vv0/vv1;172;,18,1131677224vv0!v1;;2521;/8812377336v0?v71;11531x;81,;,812377257v0,vv21;1263323.572188127,25v0,vv2;;827653,5.6v211237v55vv00vv28;;16_6,771126v736v00vv218;8127?6/72,vv46v0v,728;,1.227?6775227v66v0v,72188;.8.167?v233v75v0v.6218_113v7?33vv5v0v.76221_1137.v33vv6v0v.776776,77622112v?54v.00v,7v776@v3223v.74v.00v.7_7.323v.75v.00v?7/vv7.33v.75v7vv00v!7@v.44v.76v7vv0,v_7,v?44v.7v77v0.vv7v_v?45v?76vv0?vv7v_v.5v?66vv0/vv77v_v66v,7657v0@wvv67v@77vv76657vv0_wvv557,v!76653v,0_0,v,55676?533v,0_0!v.753,537v.0_0_0v_v"; Symbol 3,"2__0_0_0_0_0_00v/0_0_00v?DDE7v.0_0@vv72212355323Dv,0_0?v71,3,223566536vv0_0,vE22;.8;881235663vv0_0vE88;!2/3662vv0@v781;/823553.662vv0!vv28;_8813653,673vv0?v211;@8?366235673v0.vv3;1;/12,88236633576vv0,v328;1;?23455228336633573v0,v33182,18812112522336635573v00wv33118?;1?453.665566v77vv341,;88;1?22523,663566v.73621?21,221252335665566Ev,736321/2,1352335566556Dv,7D26221?22311252335566566Dv.633542.3,1123625.6?7v0vv3622554,551,35635,6!vv00v3653225521,235635?6.3v0,v336532?33456335.665663v0,v75366533445566335?6!v0.v3636@335!6?3vv0.vv3653/5/667663Ev0!vD565,335@6,7553vv0!vv26,5_6.7553vv0@vv336_6?322vv0_0vv626_65332Dvv0_0,v,3,65!323v,0_0!v,7323,237v,0_0_0v_vv"; Symbol 4,"2__0_0_0_0_0_0,v/0_0_00v?7,v?0_0/v,667765567,v,0_0?vv5771;37v?7,vv0_0,vv77;!236v35677vv0_0v7v3;/53.73577vv0@vv76;@665.v5577vv0!vv7v2;/7v,7766v5676vv0?v77632;?13,67vv77v56v7v0.v,373!67356?v,6,v,0,v6v3v76,7736vv23,567v76677v00wv7v36v7vv35v71213,5567v676v,0vv7v6357526v3123556655667766v,0v7,65335677336.7,6,7v66v7v0v773v6.7v33566v!776776v7v0v7v3vv77v,5566v_7,6v7v0v7v63v!6,v.3357vv7,6v7v0vv763377v,6,v,35,67v.7v7v0vv5v6536v,7667v6367v767v,7v7v0vv7v7.v.766v7557vv77v.7vv00v75v_767v7,vv77v.6vv00vv75v776336vv7,v77vv7v.77v0,v,66v76766v.77v.7v,76vv0.v,65vv7,v_77vv7,v0?vv7v776v@7v,6vv766vv0!vv7v7?v!767vv675vv0@vv77vv77v,7767vv7665vv0_0v,677v@76636vv0_0,v,65676776,335v,0_0!v,763.55v.0_0_0v_vv"; Symbol 5,"2__0_0_0_0_0@v_0_0_0,v,731,D7v,0_0@v,88363346411v,0_0?7v88522;;81421621vv0_00wvD8142;@851527v0_0v8,3;_;,83526v0@v2;;31;_;.15627v0!v71;53;?8544556;,1462vv0.778;;54;?445?6;;81552v0.v75;;548;,84;8;865568812637v0,v158;641;;88588;;81566812633v00vv83;,451;;882518816,812463v70v684;,655118125;381266881264vv0v41518;;75/;1812661123647v0v321488;;865,6;;3812661123645v0v3712481;@151226682,635v0v361134188;,88141126,1223635v0v5362115441,34511236,2,5647v0v6266211835,21122367612236637v0vv32662,1?2,47,12,3632vv0Ev53276632!36767122336643v0,v652267,6?7.12.4742vv0,vv532216.7767612.326632vv0.775432_2.3346642vv0!v56632_2233676327v0/vv3565332.3.5665323v70@vv536,54.6?3327vv0_0vv73446/3,22vv70_0.vv722344332.v,0_0/v.732,3v.E0_0_0v_v"; Symbol 6,"2__0_0_0_0_0@v_0_0_0,v.11881v7v,0_0/v,;?8388;57vv0_0?vv;@8381845vv70_00vv;83281;,835882362vw0_v7;14;/3,8113456vD0/vv;13;/332;8113353vv0!vv;83;!834;;838143523vv0?v2832;?84;,21282334636v0.v78;38;.83;;8282123,5626vv0,v48;31;;823;;31.23,456236v0,v38;3,233;;41,23?456246vv0v748;83,4;;32113/466236vv0v7348;?882123/45663367v0v63448!3223/456673467v0v6434331133223/446,23566v0v653?443_446,7236,v0v66443_3,4,6.334657v0vv654343!4?56.733564vv00v665443.4?556.7334655vv00v46,54/56?7E2345645v0,v76_6/7733446557v0,vv46_6.7743,465,vv0.v736_7,3,4,6554vv0!v6337@3,434564547v0/vv553@434,653547v70@vv7443/456544536vv0_0v,545/435545v,0_0.v,4344554?7vv0_0/v?64556v.E0_0_0wv@7"; Symbol 7,"2__0_0_0_0_0_v_0_0_00v.28.17v,0_0/v,88;!82817v70_0.vv8;_;;81,vv0_00vv8;_;88;;8317v0_vv;/82211218181317v0/v78;_;821;1?427v0!713;_;.288221152vv0.v7;1;/818;.218221225v0,wv2;28;.8;,83;,82812,52vv00v71;188;@13;881382,425v00v21;;38;.8;,83;88128123353v0uv128;,2,3;.128,123122352v0Ev2418;;8;!8228,12512235370vv21218;,8;;8822388112312255370vv2142118;,8113388112312,55370vv3213321.23.812,4123355370vv522143_812,352324543700v33221143?1,2.513,5533v00v3532,1!2?3413,5,33v00v725332_233523.553,v00vv3253!2,3,523.5,22vv0,v532543@523.45,322v0.vv334235?223?5565332vv0?7v3!23/5.3,2vv0/vv343_5?3,2vv0_vv335/65,32.vv0_00vv52345.4432?vv0_0.v,52,3.2,3v,0_0/v,7632237v.0_0_00v_v"; Symbol 8,"2__0_0_0_0_0@wv/w0_0_0,v_v.0_0@v,7v7,67?v,0_0?vv66756566v767.vv0_0,vv5y7;?567v67v77vv0_0vv52D;/667757.vv0@vv727;@667vE67v77vv0!v,637;@5677v367v77vv0?v77637;/367,v3667,vv0.vv7763v6;.367,v,3567v77vv0,v7,63v7723567v772335567vv7vv0,v76763.5677vv2,356,7vv7vv0v,75v7656,7v,32356,7,vv7v!76v7,667v,7335667v,7v_765v7.v.655667v@7v?7753vv7vv5vv65667v_v!7765367336vv6567vv567v?7v!7765?7vv7667v56,v?7v!7,6.57vv7667v7?v.7vv00v,776?7vv7.v,7,v,77v0,v.7/vv7.v.77v,77v0,v!7?v.77v.7v,76vv0.v_v_v?776v0?v_v_v.766vv0!v_v_vv6,vv0@v_v_6657vv0_vv7v_v,7665vv0_0,vv667,v,7766545vvx0_0.v,5,6,53345vvw0_0/Ev?6677v.0_0_0,v_"; Symbol 9,"2__0_0_0_0_0_v/0_0_0.v,7,677v.0_0@v,32345,3525v,0_0?vv2361,;82564536v70_0,v723?22358837363vv0_0v7331;?25225827363vv0@v743;.2,;;8536;37473vv0!vv3;,23;.32;8635147574vv0?v2;,3;@388541155656v0.v73;;3;.18;.58636157575vv0,v2;;5;;256676;,261752455765v00wv3;6;;1615,76;;261751257675vv0wv;83;36162;47E;;1517522576v5vv0v7;6;;5171;;263;;1517522575v67v0v6;6887272;!12737522575v67v0v3;71161723;?237466255v5v66v0v38712617432211336375635576v66v0vE1712617753?73656325676767v0vv87316317756,5576,255v6765vv0vv157276;57.677566365676v63vv00v11v336512566556623465v67765v0,vv16627655113323,5,v567657v0,7v2376277556535565667567665vv0.vv25v6337765,6,7756v654vv0!v723v75337!566v75536v0/vv3237v7665?67765535vv0@vv73357v/7675526vv0_0v,23356677675,33v,0_0.v,2234,343,7vv0_0/v.753,47v.0_0_0Ev_w"; Symbol 10,"2__0_0_0_0_0_0_0_0_0.Ev@0_0_0,v.2!v.0_0@vv2,y::zyD23xvv0_0!v72;_;173vv0_0.v318;3476?D;1257v0_00v38;232zz2256766;1z77v0_vvz;32;!2367,;116vv0@v5;D3;@2367,;zE7vv0!v7;832;,2C;,13667,;2v,0!v6;5528;213z;,3467,8167vE0.vvD;53123,2z;,3367v78:3v,0.vv1763z;z2yD;,x3467vvx:3v7v0.v787632;@33667vvE:3v7v0.v7;v632y;!635677vvx:2v7v0.v78763363.5235667v,8:2v7v0.vv2v773@6,7v,7823v7v0.vv71v7663.6.77vv77123v,0?v71vv76.7767,v.8:26v,0?v7y:v,7!v?78824v7v0!v,z7v_v.18236v,0/v7v8yv_vv8:225v7vv0/vv731:v/7:81235v7vv0_vv73D:1:!12255v6vv0_00vv7v651,2.557v6vv0_0.vv7vv5565.vv67vv0_0!v,767?667v,0_0_v_v,0_0_0?v!"; Symbol 11,"2__0_0_0_0_0_0_0_0_0.Ev@0_0_0,v7v72,6637vv70_0@vv11E661?227vv0_0?v7165381334454523v70_0,v1122D8131.2,354vv0_0v11x2;,1812x65667745v0_v72x7;?88336567.67v0/vv2wv8;?1155v7E77v776vv0!v3v613;.135x1!2v776v0!v363122;;226E8112!vv7vv0.v76623221137718221354323vv7v0.v6vw263211371823,2374327v7v0.v377273221.234642276535v7v0.v3v7264322112347v5227v545v7v0.v4v7327433223457v5237v554v7v0.v5v74277534,57vv327,5,77v0.v7.32v77667v,63377v5566vv0.vv5v7522v/323757v5566vv0?v5vv763225763235v67v75566vE0?v76vv7753323367667vv5665vv0!vv57vv7.vv7567,v65665vv0/vv57vv7_vv65665vv0_v756v_v756,47v0_00v756,7vv776?547v0_0,Evv556_545vv0_0!v,5_6v,0_0_v.7,v?0_0_0.v/"; Symbol 12,"2__0_0_0_0_0_0_0_0_0?v_0_0_00v,78;;8,Ev,0_0@vv;.37718,1v,0_0?vE8,11;;2vv88312vv0_00wv117E;?8357817237v0_0v18v;/8276v17733vv0@vE8E187638;,2757126744v0/vv1v8CE;.3;;2v371167v37v0!v17185856;8.2v373257v55v0!v278v62257;;812v372757v75vv0.v,28756673;;1137571767vv56v0.v3v21v667v2;812v667w677vv76v0.v3v611v7v8;;115v36v667v,76v0.v3v728!11556676677v,75v0.v3v7721?3736?77v.65v0.v5776732337256?77v?56v0.v75v7667756/7v!766v0.vv4vv776@77v!6,7v0?v55vv7_v!75665vv0?7757v.7,v!7645665670!vv557v_v7446?5vv0/vv556v/7456!57v0_vv5,67.556/46vE0_07v56,5,6/547vv0_0,vv656_545v,0_0?v,65?4,57vv0_0_7v.7,v.70_0_0.v!"; Symbol 13,"2__0_0_0_0_0_0_0_0_0.v_v0_0_07vv78?117v7v0_0/vv;;822812313227v0_0?v2;;1;8,21,32237v70_00v8;1;,1,8;13124255v0_0v21;@12184224255v0@vv8;@8822314224257v0!Ev828;/1;82282523434vv0?v78,;/1;822314233457v0?v228;2;,2;;11812313524545v0.vv228;2;!18112312525455vv0,v7128;28;,81288223225253667v0,v51218328,12181224135254656v0,v52,8832,328122351462546,v0,v6242288131.22345246354656v0,v7423221?2.35235535,67v0,v74242_23552463456567v0.v54232/34552465355654vv0.v64254,3344553245635565,v0?vv64335/2245634556557v0!v66542/4466345565,v0/vv665.4,56,45,6554vv0@vv56,556,545,66554vv0_0vv556.5,655665,vv0_0,vv5,65,65665546vv0_0?v,65!4,6v,0_0@v?7.v.0_0_0.v/"; Symbol 14,"2__0_0_0_0_0_0_0_0_0.v@w0_0_00v,73223237v,0_0@vv8;;2?;;347v0_0!v7;853234.3832vv0_0.v18558;,2,4358346v0_00v;85;@224241446v0_v6851;@822536152vv0/vv858;_;123541553v0/v133;1;.11;,122531263vv0?vv161;?854;,1225312655v0?v7252;2;,832;,1225412654v0?v255;11;/811245522653vv0.v255;248;!113246525654vv0.v255824218;;1,32456225655vv0.v255282532/5562256525vv0.v2562;334542,45,22456455vv0.v3452313,45?2,5565365vv0.v72652;543.23324456525,v0?vv26632854,54.5,234657v0!v336533115?6653234655vv0!vv25654332,32.4346656v0@v736,434,34?56655vv0_v736,554!5,654vv0_0vv7356.5?6,43vv0_0,wvv3346@435vv0_0!v,53@5v,0_0_7v_vv0_0_0?v!"; Symbol 15,"2__0_0?wv,w0_0_0!v.7,v.0_0_0v,3327v77v7v,0_0!vv7x2133677v@0_0,vv751;,5667v_0_0vv748;?63112,33v.0@v7v61;!88112,3,4v,0/v576;/11v?73.vvE0?v5v773;?1wv@7334vv0.vv2v7231?v.5127v.445vv0,v5vv7331.v,68133226v,44vv0,v3vv7331.v,227vv3,6v,45v00vv3vv7732121vv72446vv533v,54vv0v73v,7332117vv33437vv335vv74vv0v73v,76332,vv75735vv534v,47v0v733v.3,2.3.6vv733v,57v0v732v.743@4v,634v,57v0vv3,v?643.45v.334v,57v0vv533v/7,v!7335vv75vv0v,332v_v!3347vv66vv00vv64337v_vv73345v,56v0,v,543327v@3,44v,66vv0,v.7443.2,3?55v,766vv0.v.75443/4,6v,766vv0?Ev?754!556v?667vv0!v_7.v!7667vv0@v!7v?7v,76,7vv0_0v,7v_7,667vv0_0,v.7/6.7v,0_0!v.76!v.0_0_0v_vv0_0_0@E"; Symbol 16,"2__0_0!v,0_0_0/v.7v!0_0_0vv78;;8!vv7v0_0?vv7;/8.11Dvv0_0,vv8;?88123321.vv0_0vv8;?112?334311vv0@vv1;!1,2.3.422vv0!7v1;/1135535,443433vv0?v221;!218;8?1554536v0.vv184;?2;?8.1,5,3vv0,v238381;83;.811221?5,3v0,v838382,5;,1545?2.653v00w7838482,1;;858,116552,366vv0v31314112218,22441816552,667v0v31411312258,6225311265422665v0v21418412241,8124231165623455v0v321412312252,354251255623365v0v361518542,355342?56623365v0v7621518253?52251226,23466v07v3521521,5,112412246632365vv00v3621153221,225112356623363vv00v426321254334551122556223453v0,vv4264221/224556524353v70.v7325532/355663244635v0?vv52265_5662234543vv0!vv54236_32244553vv0@vv4,2,3532,34,533vv0_0vv634_445522vv0_0,v,434?5,322v,0_0!v,7332?37v,0_0_v_v,0_0_0!7v7"; Symbol 17,"2__0_0!v,w0_0_0!v_v,0_0_v,;.8,;,v,0_0?v,;_1,8;v,0_00vv;,133221;.1218;vv0_vv;;3_1;,13128vv0/vv;;33;/432;,23238vv0!v;;32;_838;;134148v0?vv;13;/8;,33;;823532vv0,wv8133;?3?;;3;,134132v0,vv8832;.33;,33;3;,134634vv00v82332;,13;.33;3;,1345132v00v84331;,23;;1;31848;;1345132v0vv84332;,138;38;83;1;82345133v0v7153,;,848;;33;;1;;1335413470v7213,;.1328;112;,2344513470v73843,;.13.2;,23443513470v73853.;_;;2334545134v0vv32843.;@123344256243v00v22;543.2,1223.446351342v00v342;643_334,63461342v00vv342;654,3.4.533558343vv0,v2353886554?565134583442v0.vv344328,2676188233583343vv0?v73453,21,223,46833436v0/v5335543/463133533vv0/vv623,5?6512334533vv0_vv73_3.4337vv0_0,vv73343?44234v,0_0?v.42.3227v,0_0_7v_vv0_0_0!E7E"; Symbol 18,"2__0_0!v,0_0_0/v_v,0_0_v,233Ev.Ev,0_0!vv7323v72112,37v,0_0,vv3;8v728;2,3C33DEvv0_0vvC82;.8237v.766Evv0@vv328;?57v,EDEv,E7vv0/v3718;?vv282212323v77v70?vv7328;.v2;8.23?77vv0.7v3v31;82vE8;;237v,7C33CEEvv0,vv3v31;8v78;;37v@D,v7v0,vCEv3188v2;13vC82,17v,6,7v0,vD7v5328v2;3w812.323v,D67v0v,3DvD328v283v26v7v3233Dv,67v?33vD3228733v3D3vDv3,Dv,677v.32vvD3328733EC3v3v3.Dvv7,v.53Cv7DC32!Ev37v33CDv,77v.6D27vv65D3,67vv3vv33CDv,77v.7D33v.7E77v,25vv33DDvv77vv0vv76332Ev@336vv33D6vv76v0,vv76D3223D77C3,6vvD33D6vv76v0,v,76D3@56v,33D6EvvE7v0,7v7vvE6D?667v,3,D6vv76vv0.wv7v,7!v.E33D6Ev76vv0!v7,v_vD336,vv67v0/vv7!v.73,6676v66vv0@vv77v.7D3,6D676v66vv0_0vv77E6DD6?776767vv0_0,v,667/6.v,0_0!v.6D?6v.0_0_0v_vv"; Symbol 19,"2__0_0?wv,0_0_0!wv.7.v,0_0_v,62,3?5v,0_0!vv531122435,6,v,0_0,vv352813?56656,vv0_0v732;.237v,7,vv67vv0@vv53;?6v32.3,6vv7vv0!vv36;!71,812,3357v7vv0?v3v52;/81223554,56v7v0.vv5733;,68;;23v@6677vv0,v3v63113v28;27v,7677v.7,v00vv3v531137212v,33223,v.77v00vv3v53113v213vv3356653537v!0v73v63313v314vv26657v7564v!0v63v75413v313v746v63v,557v?0v73vv531175525v776v35vv665v?0v755v64411v553354v735v,55v?0v753vv53322v7767vv326v,56v,7v0vv743vv6432233653,67v,56v?0vv7533vv74543223,67v.56vv7vv0wvv7533vv775.667,v.67vv7v0,v,76535v@67v.677v77v0,7v,7665,3,567v!77vv6vv0.v?7,667,v/77vv6vv0?v_v_v7,v67vv0!vv7v_v.7.v67vv0@v.77v/7!66vv0_0vv77vv7@vv567vv0_0,v,7.v7vv76557v,0_0!v,765?6v.0_0_0v_vv0_0_0@Ew"; Symbol 20,"2__0_0!v,0_0_0/v_vv0_0_0v,;_v,0_0!v,;!77v7v;;v,0_0,vv;!73.567vy8vv0_0v7;!22365667.v1vv0@v78;?2,3667!vv:vv0!vv8w;.521467v_v:vv0?v1v7;.5356vv;!v,wv,0.vv1v1;.737v8;_v,zvv0,v8vv;?v67v;;7xv,8;;:v,wv0,v;vv1;.77v;;v;.vv;,v,zv00vv;vv7;.v,;;D;v;;xvv;;:vv1vv0vE;v,;?v,;;2v;,vv;;2vvzvv0vz;vv7;!v,:v;.vv3;1vv1wv0v:;v.8;_;,v,1;1vv1yv0vz;1v.;_;,7vv;;2vv1yv0vv8;v?8;_v.8:yvv26v0vv:;;v,7vv;?2v?8;1v,3vv0vv:1;;v.7v!7v,2;;yvv72vv07vw1;,v!7v!8;;1v,22vv00v,z;.v_v;811v,632v0,v.1:;?2ED8;,812v.22vv0.v,w1,:;!81,7v.22yv0?v!x12?117vv7v,322vv0!v_v?77v,E3,vv0@v_v/723,vv0_0vvyv_vx25322vv0_0,vv722753,5,4227vv0_0?v,62?3322v.0_0@v_v.0_0_0.v/"; Symbol 21,"2__0_0!wv70_0_0/v_vv0_0_0vv718?112v,0_0!v,;8543.565117vv0_0,vv814D;@82421vv0_0vv833;_;8,352vv0@vv851;/81181881842vv0!wv115;!11;;8242112143v0!v215;_;,8;14112,7v0.v75858;_;.81512242vv0,v15852;!865,6;;81516237v0,v83;648;.855665,881322343v00vv8488558.248;;845688262623vv0v3848;354315,;,15,812625237v0v28518;;554556;,15,812624345v0v285418;@8815,812624544v0v21;55188;?8815,6812624544v0v5281551,8,1,5.8122624544v0v72885.1?65.81125636346v0vv228;865_688223635323vv00v6221;;365?62812,6626243v700v5522118;.8.2,356236343v0,v775221.88112.356426243vv0,Ev566232_336642663,v0?vv46,3@56,3266343vv0!v73656_62,66343vv0@v735643466532,665342vv0_0v73356,5456,52322vv0_0,vv523,5.3,223vv0_0?v,62_6v,0_0@v?7,v?0_0_0.v/"; Symbol 22,"2__0_0/vvw0_0_0/v_vv0_0_v,76435,6v?0_0!vv6531881,357,vv0_0.vv6311676543113776v,0_0v752178;.765115776v,0@v75217;!6676815766vv0/vv53126;!5,75147767vv0?vv642177;?6655761277567vv0.v7638176326731164661277557vv0,vv752877523v621565661377557v,00vv742;77525v5136567314775567vv00v7632;7753277422553226765567vv0Ev76428775335v632.36775,67vv0v,742867632557765567765.77vv0v,752217765345667,665?77vv0v,754217v64335_35577v7v0v,76421377643,5?434567vv7v00v7765421vv76443/4567,v7v00v7v774422vv7654!557,vv77v00v6vv664423vv7,6?7.v,77v00vv7v7765423v.7@v,76vv00wv5vv7765433v_v.6,vv0,vv5vv77665546v_6,5vv0?v667v.7,v.67665,656v0!vv4677v@7665,65,vv0/vv357,67.65?6544vv0_v7646776?565.35vv0_00v,43565@33v,0_0?v,53_v.0_0/7v?77v!0_0_0,Ewv.ww"; Symbol 23,"2__0_0!v,0_0_0/v!7v.0_0_0v,53,443,v,0_0!Ev7335321,225257vv0_0,vv4341,881.23535vv0_0vv23388;;1@4556vv0_v4458;.8124211225356vv0/v5238;!318341,25256vv0?vv2418;?2881,412242567v0?v51418;.22181,441135456vv0,vv443881288232,112412253667v0,v625281121813,4113411353556v0,v525281832181181,4521353557vvwvv525381,221?2351213536577v,753352818232?3412214,6677v,75515288188434,5112,5256576v,75615421.8?12.43247577v,7654154221?2?1352457577vwvv655234432,3,22313524576577v0vv65642254.3224114534456566vv00v665642,554431134,54576575v0,v765564432.345446645755766v0,vv6756654/566546656.vv0.v76654676!754566566766v0?vv6,5@455665567665vv0!vv5676,5.6!77665vv0@vv56776,56?776655vv0_0vv55667/665655vv0_0,vv7556,5,665457vv0_0?v,765?4457v,0_0@v_v.0_0_0.v/"; Symbol 24,"2__0_0!77E0_0_0/v_vv0_0_0v,32?335v,0_0!vv7123;.83.5v,0_0,vv224;@232465vv0_0vv223;?25;,323565vv0@vv313;/4;,2323565vv0!372;3;@4;,24225575vw0?v7383;@4;,143245676v0.vv3;;43;!43;,243245675vv0,v53;;633;;8543;,24332465676v0,v21;,753456;?14132465675v00v731;_;.144132465766vv0v743;_;,13413324657667v0v5331;_21243132246576,v0v53521;!212243133245656765v0v525431!224531233245656,5v0v5225432.35441,332346557656v0v73325@31,332255656?v0vv533225.12113,22556.766vv07v54332@3.25,6566754vv00v65343_2,56576657654v0,vv653_225655665567447v0.v6.43?4665,675,7553vE0.vv476/5,6.5567544vv0!vv5676,565667765567453vv0@vv4677667,6.776453vv0_0vv447_775533vvx0_00vv63456.5445325vv0_0?v,63!2335v,0_0@v?7,v?0_0_0.v/"; dim Grid(50,50,20) dim Lev(10,3) SetScrollerText "Another game by Jayenkai - AGameAWeek.com - Click clusters of swirls to collect points. The larger the cluster the more points you'll earn. Try to get over 5,000 points to earn a star on the level." SetControlMethod Mouse Graphics 352,380,1 GameHandler "Swirl","Calendar" .StartGame gw=10;gh=10 SeedRnd ThisLevel39 wscore=0 for n=0 to 9 Lev(n,0)=Rand(0,23) Lev(n,1)=Rand(0,23) Lev(n,2)=Rnd(0.3,0.6) next c=Rnd(360) SetBuffer BG for x=0 to 63 for y=0 to 63 d=0;if (x+y)%2==0 then d=0.1 InkRot c,Rnd(0.2,0.23),Rnd(0.2,0.23)+d Rect x16,y16,17,17 next next SetBuffer FG cols=Rand(3,5);colb=Rand(0,7) if cols==3 then cpick=" 036" if cols==4 then cpick=" 0247" if cols==5 then cpick=" 02467" f=0-jscrh for y=gh to 0 step -1 for x=0 to gw a=Rand(1,cols) grid(x,y,5)=0 grid(x,y,6)=Lev(a,2) grid(x,y,7)=Lev(a,0) grid(x,y,8)=Lev(a,1) grid(x,y,9)=(Int(Mid$(cpick,a,1))+colb)%8 if (Int(Mid$(cpick,a,1))+colb)%8==5 then grid(x,y,9)=8 grid(x,y,2)=f+Rnd(0,40) next f=f-Rnd(60,120) next woo=0 kdis=1 return .Ingame CLS;ResetDraw;AA Fast SetSize 0.7 woo=woo+0.02 WrapBG Sin(woo)512,Cos(woo3.7)512 ResetDraw won=1 wfall=fall fall=Limit(fall-1,8,0) for x=0 to gw for y=0 to gh dx=(x32+16) dy=(y32+16)+grid(x,y,2) if grid(x,y,2)<0 fall=8 grid(x,y,2)=grid(x,y,2)+Rnd(11,20)delta if grid(x,y,2)>=0 then grid(x,y,2)=0;PlaySFX("Pop_High",Rnd(0.5,2)) endif if grid(x,y,1)>0 fall=8 grid(x,y,1)=grid(x,y,1)-Rnd(11,20)delta if grid(x,y,1)<=0 then grid(x,y,1)=0;PlaySFX("Sonniss_Click",Rnd(0.5,2)) endif if wfall<7 and y<gh if grid(x,y+1,7)==30 and grid(x,y,7)<30 for n=0 to 9 grid(x,y+1,n)=grid(x,y,n) grid(x,y,n)=0 next grid(x,y,7)=30 grid(x,y,8)=30 grid(x,y,9)=-1 grid(x,y+1,2)=-32 fall=8 endif endif grid(x,y,5)=Wrap(grid(x,y,5)+grid(x,y,6),0,360) if grid(x,y,7)<30 then won=0 SetRot grid(x,y,5)2;SetAlpha 1 DrawImg dx,dy,grid(x,y,7),grid(x,y,9) SetRot grid(x,y,5);SetAlpha 0.4 DrawImg dx,dy,grid(x,y,8),grid(x,y,9) if fall>0 if fall==7 then grid(x,y,10)=(x30)+y if fall==6 if y>0 and grid(x,y,9)==grid(x,y-1,9) then grid(x,y,10)=Min(grid(x,y,10),grid(x,y-1,10)) if x>0 and grid(x,y,9)==grid(x-1,y,9) then grid(x,y,10)=Min(grid(x,y,10),grid(x-1,y,10)) endif if fall==5 if y<gh and grid(x,y,9)==grid(x,y+1,9) then grid(x,y,10)=Min(grid(x,y,10),grid(x,y+1,10)) if x<gw and grid(x,y,9)==grid(x+1,y,9) then grid(x,y,10)=Min(grid(x,y,10),grid(x+1,y,10)) endif if fall==4 if y>0 and grid(x,y,9)==grid(x,y-1,9) then grid(x,y,10)=Min(grid(x,y,10),grid(x,y-1,10)) if x<gw and grid(x,y,9)==grid(x+1,y,9) then grid(x,y,10)=Min(grid(x,y,10),grid(x+1,y,10)) endif if fall==3 if y<gh and grid(x,y,9)==grid(x,y+1,9) then grid(x,y,10)=Min(grid(x,y,10),grid(x,y+1,10)) if x>0 and grid(x,y,9)==grid(x-1,y,9) then grid(x,y,10)=Min(grid(x,y,10),grid(x-1,y,10)) endif if fall==2 if y>0 and grid(x,y,9)==grid(x,y-1,9) then grid(x,y,10)=Min(grid(x,y,10),grid(x,y-1,10)) if x>0 and grid(x,y,9)==grid(x-1,y,9) then grid(x,y,10)=Min(grid(x,y,10),grid(x-1,y,10)) endif endif next next if fall==2 for x=gw to 0 step -1 for y=gh to 0 step -1 if y<gh and grid(x,y,9)==grid(x,y+1,9) then grid(x,y,10)=Min(grid(x,y,10),grid(x,y+1,10)) if x<gw and grid(x,y,9)==grid(x+1,y,9) then grid(x,y,10)=Min(grid(x,y,10),grid(x+1,y,10)) next next endif if fall==1 for x=gw-1 to 0 step -1 if fall==1 any=0 any2=0 for y=0 to gh if grid(x,y,7)<30 then any=1 if grid(x+1,y,7)<30 then any2=1 next if any==0 and any2==1 for y=0 to gh for n=0 to 19 grid(x,y,n)=grid(x+1,y,n) grid(x+1,y,n)=0 next grid(x,y,1)=32 grid(x+1,y,7)=30 grid(x+1,y,8)=30 grid(x+1,y,9)=-1 next fall=8 endif endif next endif gx=Floor(MouseX()/32) gy=Floor(MouseY()/32) if MouseDown()<0.5 then kdis=0 if grid(gx,gy,7)<30 and MouseDown()>0.5 and kdis==0 and wfall<1 for n=0 to 9 grid(gx,gy,n)=0 next f=grid(gx,gy,10) c=0 for x=0 to gw for y=0 to gh if grid(x,y,10)==f and grid(x,y,9)>-1 grid(x,y,7)=30 grid(x,y,8)=30 for q=0 to 3 ThrowParticle x32+16,y32+16,2,Rnd(0-60,60),Rnd(0.5,1.5),Rand(0,24),grid(x,y,9) next grid(x,y,9)=-1 grid(x,y,10)=-1 c=c+1 endif next next fall=8 p=Limit(Floor(c/3),0,4)+1 pp=((c/3)%1)+1 PlaySFX("Powerup_"+p,pp) // Gimme cc5,jscrw0.8,jscrh-16 Gimme cc5,gx32+16,gy*32+16 kdis=1 endif SetParticleGravity 0.7 SetParticleSize 16 ResetDraw if Score<5000 then SetCol 255,100,100 if Score>=5000 then SetCol 255,255,180 TextScore jscrw/2,jscrh-16,1 if won==1 and fall<1 if Score>=5000 then WinLevel ThisLevel EndGame endif if wscore<5000 and score>=5000 then PlaySFX("Beeper_Fruit_Win") wscore=score Return --v Say "Swirl" to me, and my head leaps to Sega Swirls, the free game that came on the cover of an issue of the Dreamcast Magazine. So I made that. -=-=- ''Load, Next List!''
Sun, 28 Jul 2024, 03:14
Jayenkai	Day Twenty Eight - Crackle // Crackle // by Jayenkai // Created 2024/7/26 // GotoJSE.com/QZLqlCBN.BAS Symbol 0,"2__0_0.5!0_0_0?5_5,0_0_5_5/0_0!5_5_0_0.5.vv5,v5v,5!0_005,v!5,v5v5v5v5,0_5.v5,vv5,v5,vv5?0/5_5_5@0?5_5_5_50.5_5_5_50,5_5_5_5,005_5_5_5,0055vv5vv5_5!v.5v5505_5_5_5_5_5_5_5_5_5_5!G_G_G_G_G_G_GGvvGvvG_G_G_vvGvvG,0G_G_G?vvGvvGG00G_G_G_G,00G_G_G_G,0,G_G_G_G0.G_G_G_G0?G@vG_G@0/G,vvGGvGGvGvvG.vG!0@G,vvGvG.vGGvvG,vG,0_0G,vG,vG/vGGvGG0_0,G?vG_G.0_0?G_G/0_0_G_G,0_0_0?G!"; Graphics 512,512,1 Border 80,50,20 ra=Rnd(90) rb=Rnd(90)+90 rc=Rnd(90)+180 rd=Rnd(90)+270 r=0 Repeat CLS 180,100,40;ResetDraw;AA false r=r+4.5delta if Abs(ra-r)<6 then PlaySFX("Noise_Rustle",Rnd(2.5,2.55),Rnd(0.01,0.04));ra=Wrap(ra+Rnd(-15,15),0,360) if Abs(rb-r)<6 then PlaySFX("Noise_Rustle",Rnd(2.6,2.65),Rnd(0.01,0.03));rb=Wrap(rb+Rnd(-15,15),0,360) if Abs(rc-r)<6 then PlaySFX("Noise_Rustle",Rnd(2.9,2.95),Rnd(0.01,0.04));rc=Wrap(rc+Rnd(-15,15),0,360) if Abs(rd-r)<6 then PlaySFX("Noise_Rustle",Rnd(3.1,3.15),Rnd(0.01,0.03));rd=Wrap(rd+Rnd(-15,15),0,360) if r>=360 PlaySFX("Noise_Rustle",Rnd(1.1,1.7),Rnd(0.2,0.3)) r=r-360 endif n=51 SetCol 0,0,0 Oval 256+sin(n10+r)4,256-Cos(n10+r)4,n10,n10,64 SetCol 48,48,48 for n=18 to 50 SetRot r+n37 DrawOval 256+sin(n10+r)4,256-Cos(n10+r)4,n10,n10,16 next SetCol 120,0,0 Oval 256+sin(r+90)2,256-Cos(r+90)2,140,140,32 SetRot r SetSize 4.2 DrawImg 256+sin(r+90)2,256-Cos(r+90)2,0 SetSize 1 SetCol 0,0,0 Oval 256,256,18,18,16 SetCol 150,90,0 Oval 256,256,16,16,16 SetCol 120,120,120 SetRot 20 armx=256+86 Rect armx,0,8,260 Rect armx-2,256-32,12,32 Flip Forever --v No interactivity, today. Just relax to the sound of the needle. -=-=- ''Load, Next List!''
Mon, 29 Jul 2024, 02:17
Jayenkai	Day Twenty Nine - Stretch // Stretch // by Jayenkai // Created 2024/7/28 // GotoJSE.com/jtVHzhbF.BAS Graphics 512,512,1 sw=1;sw2=1 sh=2;sh2=1 sx=-100 Repeat CLS;ResetDraw;AA True ResetDraw k2=sw2 k=sw20.95 sw2=k;if k2>0 then sw2=0-k k2=sh2 k=sh20.95 sh2=k;if k2>0 then sh2=0-k if MouseDown()<0.5 if Pyth(sw,sh)>1 and sx>-1 then PlaySFX("Jump_9") sx=-100 endif if MouseDown()>0.5 if sx<0 then sx=MouseX();sy=MouseY() sw2=Abs(MouseX()-sx)0.03 sh2=Abs(MouseY()-sy)0.03 if Pyth((sw2+1)-sw,(sh2+1)-sh)>0.5 p=((sh2+sw2)*0.03)+1 PlaySFX("Sonniss_Spark_3",p) endif endif sw=SmoothTo(sw,sw2+1,6) sh=SmoothTo(sh,sh2+1,6) SetSize sw,sh SetGradient 255,255,128,128,255,255 SetFontSize 64 Text 256,256,"Stretch",1 Flip Forever --v I think my brain has been stretched to its limit, by this point, if I'm honest! Not much to see, here. -=-=- ''Load, Next List!''
Tue, 30 Jul 2024, 09:40
Jayenkai	Day Thirty - Bubble // Bubble // by Jayenkai // Created 2024/7/28 // GotoJSE.com/kXkT5BvD.BAS Graphics 512,512,2 SetBuffer BG SetEcho "Factory" SetControlMethod Mouse CLS ResetDraw SetGradient 200,0,0,0.7,0,120,200,0.7 for n=0 to 100 x=Rnd(0,1024) y=Rnd(0,1024) for mx=-1 to 1 for my=-1 to 1 Oval x+mx1024,y+my1024,24,24,64 next next next SetBuffer FG scry=Rnd(37171650) Repeat ResetDraw;AA True SetGradient 120,0,0,0,0,120 Rect 0,0,jscrw,jscrh ResetDraw scry=scry-1 for n=0.2 to 0.7 step 0.1 SetSize n SetAlpha n WrapBG (3717(1-n)+Sin(Mills()n0.05)n16),(scryn)+n*3222 next if Rnd(0,10)<1 then PlaySFX("Sonniss_Pop_2",Rnd(0.5,1.5),0.05,Rnd(-1,1)) If MouseHit() then Say "Bubble",Rnd(VoiceCount()),0.6,Rnd(0.5,1.5) Flip Forever --v Oops. Good job one of the AGameAWeek regulars picked up on the fact I hadn't posted this, this morning. Truth be told, I've already finished tomorrow's, too, and my head's already started on my Advent project!!! Gotta keep coding!!!!!! -=-=- ''Load, Next List!''
Tue, 30 Jul 2024, 14:49
steve_ancell	Buuubles!
Wed, 31 Jul 2024, 01:55
Jayenkai	Day Thirty One - Curve // Curve // by Jayenkai // Created 2024/7/28 // GotoJSE.com/jRrJbFmf.BAS Graphics 512,512,1 SetBuffer BG CLS;ResetDraw;AA True for n=0 to 1024 step 8 SetCol 96,96,96 if (n%32)==0 then SetCol 255,255,255 Line n,0,n,1024 Line 0,n,1024,n next Dim prm(10,2) prm(m,0)=Rnd(-1,1) prm(m,1)=Rnd(-1,1) prm(1,0)=Rnd(-0.2,0.2) prm(1,1)=Rnd(-0.2,0.2) ta=60 tb=90 SetFont "Segment8" SetBuffer FG Repeat CLS;ResetDraw;AA False WrapBG 256,256 SetThick 2 Line 256,0,256,512 Line 0,256,512,256 SetCol 150,200,255 wx=-260 wy=0 txt="Y=" txt=txt+"Sin(x"+Right$(" "+Round(prm(0,0),2),5)+")" txt=txt+" Cos((x"+Right$(" "+Round(prm(1,0),2),4)+")^2)" ta=ta-1;if ta<0 then prm(0,1)=Rnd(-1,1);ta=Rnd(40,60) tb=tb-1;if tb<0 then prm(1,1)=Rnd(0.02,0.3);tb=Rnd(40,60) for m=0 to 10 a=prm(m,0);b=prm(m,1) prm(m,0)=a-((a-b)/32) next for x=-256 to 256 step 2 y=Sin(xprm(0,0)); y=yCos(Power(xprm(1,0),2)); y=y*128 Line x+256,y+256,wx+256,wy+256 wx=x;wy=y next ResetDraw SetCol 128,148,128 Rect 0,jscrh-20,jscrw,20 SetSize 0.8,1 SetCol 0,0,0 Text 20,jscrh-8,txt,0 Flip Forever --v And so ends the craziest, least planned months of coding that I've done in a long while. A few experimental games, some crazy little "Toys" and a whole host of mostly abandoned ideas. Hurrah for July. Roll on Advent. ... ..... .. nngh... -=-=- ''Load, Next List!''
Page : 1 Prev 2 Next

Day Twenty - Bounce

Day Twenty-One - Blend

Day Twenty Two - Frost

Day Twenty Three - Tangle

Day Twenty Four - Buzz

Day Twenty Five - Fold

Day Twenty Six - Sprout

Day Twenty Seven - Swirl

Day Twenty Eight - Crackle

Day Twenty Nine - Stretch

Day Thirty

Day Thirty One - Curve