Happy Birthday - Wednesday Workshop

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|36\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Site & Server -> Happy Birthday - Wednesday Workshop
Mon, 12 Jun 2023, 04:46
Jayenkai	Happy Birthday - Wednesday Workshop On the 15th June, it'll be 18 years since HoboBen (I think..!?!) suggested we have a quick week-long coding challenge, over at CodersWorkshop. The Wednesday Workshop was born, and eventually petered out about five years later, but it was certainly a fun ride while it lasted. This week, to celebrate (either that or I had no idea the birthday week was this week, and this is entirely co-incidental!) I've remade the first four games that I created for the workshop. Ball-Up, Vortex Game, Platfire and Marvin have all had a quick and dirty remake, and are all playable in GotoJSE. What are your fondest memories of the workshop? Do you think it oughta return again, for another round of chaos? .. Maybe you could try your own remake of a classic Workshop game. > Reveal 🔎 // Wednesday Workshop // by Jayenkai // Created 2023/6/5 // GotoJSE.com/XMZmpRlk.BAS Symbol 0,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0.;;0_0_0_00;.0_0_0_0;.0_0_0_00;;"; Symbol 1,"1__0@990_0.9,0_0,99;;0_0,99;v0_0,99;v0_0,99;;0_0,9.0_0,9.0_0,4.0_0,;,40_0?;40_0?;40_0?;40_0?;40_0?;"; Symbol 2,"1__0_0_0_0_0_0_0_0_0_0_0_0_0?550_0550,5,0!5,0.5.0.5.0?5,44005,0@5440050_00440_0?440_0?440_0!44"; Symbol 3,"1__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_5!0.5!005.44005.0!554400550_5440050_00440_0?440_0!44"; Symbol 4,"1__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0?50.50/5.44005.0,5?44005?05005,44005,0050!440_0?440_0!44"; Symbol 5,"1__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_00554400550/5,44005,0?5.44005.0.50,440?50,50.440!50@44"; Symbol 6,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0/2.0_0_0_0_0_0_0!2.0_0_0_02.0_0_0_0_0_0_0_0_0_0_002.0_0_0_02.0_0_0_02.0_0_0_02.0_0_0_02.0_0_0_02.0_0_0_02.0_0_0_02.0_0_0_02.0_0_0_02.0_0_0_02.0_0_0_02.0_0_0_0_0_0_0_0_0_0_002.0_0_0_02.0_0_0_0_0_0_0!2."; Symbol 7,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0330_0_0_0,330_0_0_0,330_0_0_003,0_0_0_003,0_0_0_00330_0_0_0,330_0_0_0,330_0_0_003,0_0_0_003,0_0_0_00330_0_0_0,330_0_0_0,330_0_0_0,33"; Symbol 8,"0__0030?3,0/33"; Symbol 9,"0__0_00440!440.440044004400440.440!44"; Symbol 10,"2__;_;_;_;!:_:_:_:,;;:;_;_;_;:;;:;_;_;_;:;;:;_;_;_;:;;:;_;_;_;:;;:;_;_;_;:;;:;_;_;_;:;;:;_;_;_;:;;:;_;_;_;:;;:;_;_;_;:;;:;_;_;_;:;;:;_;_;_;:;;:;_;_;_;:;;:;_;_;_;:;;:;_;_;_;:;;:;_;_;_;:;;:;_;_;_;:;;:;_;_;_;:;;:;_;_;_;:;;:;_;_;_;:;;:;_;_;_;:;;:;_;_;_;:;;:;_;_;_;:;;:;_;_;_;:;;:;_;_;_;:;;:;_;_;_;:;;:;_;_;_;:;;:;_;_;_;:;;:;_;_;_;:;;:_:_:_:,;_;_;_;!"; Symbol 11,"1__A,B.CA,B.CAB!CAB!CB/CB/C_C@B,CA,B.CA,B.CAB!CAB!CB/CB.C_C/A,B.CA,B.CAB!CAB!CB/CB/C_C@B,CA,B.CA,B.CAB!CAB!CB/CB.C_C/"; Symbol 16,"1__0@B0_0?B,0_0.B,0_0,B?0_00B?0_0B/0_B/0_B/0_B/0@B_0/B_0!WWB/WW0.W0B.WB.0W0,W00B,WB,00W0.W0.W0.W0_0W"; Symbol 17,"0__0_00660?65560,654456006544560,65560?66"; Tune1$="[0][L][z2K1z3G1z5K1z5P1z3K1z5G1z3][K1z1G1z1D1z3K1z3K1z1M1z1P1z3N1z3K1z7][D1z1D1z1F1z1G1z1K1z3G1z3D5zB][H][DGB888][88B8D8G8][z4D4z4D4z4G4z4K4][B][z2D1z1D1z3D1z1D1z3D1z3K1z1K1z3K1z1K1z3K1z1][D1z5D1z5D1z3K1z5K1z5K1z3][D][11z131z311z121z131z121z131z111z131z131z1111121z131z121z121z1][11z331z131z121z331z131z111z331z131z121z331z131z1]" Tune2$="[0][L][G1z5G1z5G1z1F1z1D1z5D1z5D1z1F1z1][K4z4D1z1F1z1G1z1I1z1K4z4D4z4][K1z1K1G1K1G1D1z9D1z1D1G1K1G1D1z9][H][D8z4G8z4K5z3][z4D3z5D3z5K3z5K3z1][P5z3K5z3D5z3K5z3][B][D1z1G1z1K1z1D1z1G1z1K1z1D1z1G1z1D1z1G1z1K1z1D1z1K1z1G1z1D1z1G1z1][D1z1D1z1D1z1D1z1D1z781z581z581z3][z2D1z1F1z1G1z1K1zN][D][11z311z311z311z311z311z311z311z111z1][11z311z131z121z311z131z111z311z131z121z311z131z1][11z331z111z121z311z311z331z111z121z321z131z1]" Tune4$="[0][L][D2z1F2z1G3z3D1z1D1z1D1z3D1z1D1z1D1z3D1z1D1z1][zGK4z2G4z2D3z1][D1z1F1z1G1z1K3z1G1z1K1z1G1z1K3z5G3z5][z4D1z1K1z3K1z1G1z1D1z581zB][H][zCD1z1B1z181z3D1z1B1z181z3D1z3][zCK1z3K1z3K1z3K1z1G1z1D1z3][D4z4G4z4D3B3D2G4K4][B][D1z1D1z3D1z1D1z3D1z1D1z3D1z1D1z3D1z3D1z1B1z1][z2D1z1D1z1D1z3D1z1D1z1D1z3K1z1K1z1K1z3K1z1K1z1K1z1][D][11z331z111z531z311z331z111z531z3][11z331z111z121z331z311z331z111z121z321z131z1]" Dim Obj(100,10) Dim Plr(100) Graphics 1024,768,2 GameHandler("Wednesday Workshop","1. Ball Up\|2. Vortex\|3. Platfire\|4. Marvin") .StartGame Started=0 cx=ScreenWidth()/2 cy=ScreenHeight()/2 ag=0 for m=0 to 100 Obj(m,0)=0 Plr(m)=0 next plr(10)=1 if GameType==1 plr(11)=ScreenWidth()/2 plr(1)=plr(11) plr(2)=0 plr(4)=0 plr(12)=0 plr(13)=3 for m=0 to 25 Gosub BallUpNext next Lives=0 JMTrackr 156,"Retro",Tune1$ endif if GameType==2 then Plr(0)=1;Plr(1)=18;JMTrackr 120,"Classic",Tune2$ if GameType==3 then Plr(1)=ScreenWidth()0.5;JMTrackr 132,"Hedgehog",Tune2$ if GameType==4 plr(1)=ScreenWidth()Rnd(0.4,0.6) plr(2)=ScreenHeight()0.5 plr(11)=ScreenWidth()Rnd(0.4,0.6) plr(12)=ScreenHeight()0.3 plr(91)=plr(11) for n=0 to 50 Obj(n,1)=Rnd(0,ScreenWidth()2)-ScreenWidth()0.5 Obj(n,2)=Rnd(64,128) Obj(n,3)=Rnd(16,48) next endif Lives=3 scrx=0;scry=0;aimx=0;aimy=0 Return .Ingame CLS;ResetDraw if GameType==1 then Gosub BallUp if GameType==2 then Gosub Vortex if GameType==3 then Gosub Platfire if GameType==4 then Gosub Marvin if GameType==5 then Gosub LightDark Return .BallUpNext plr(66)=plr(66)+1 md=200 ld=md0.3 plr(11)=plr(11)+plr(12) if plr(11)<32 then plr(11)=32;plr(12)=Rnd(ld,md);plr(14)=1;plr(13)=Rand(3,5) if plr(11)>ScreenWidth()-32 then plr(11)=ScreenWidth()-32;plr(12)=0-Rnd(ld,md);plr(14)=0;plr(13)=Rand(3,5) plr(13)=plr(13)-1 if plr(13)<1 plr(13)=Rand(2,4) plr(12)=Rnd(ld,md) plr(14)=1-plr(14) if plr(14)=1 then plr(12)=0-Rnd(ld,md) if plr(11)<ScreenWidth()0.3 then plr(12)=Rnd(ld,md) if plr(11)>ScreenWidth()0.7 then plr(12)=0-Rnd(ld,md) endif for t=0 to 24 Obj(t,0)=Obj(t+1,0) Obj(t,1)=Obj(t+1,1) Obj(t,2)=Obj(t+1,2) Obj(t,3)=Obj(t+1,3) Obj(t,4)=Obj(t+1,4) Obj(t,5)=Obj(t+1,5) next Obj(25,0)=plr(11) Obj(25,1)=jRand(0,ScreenWidth()) Obj(25,2)=jRand(0,360) Obj(25,3)=Rnd(4,8) Obj(25,4)=Rnd(16,80) Obj(25,5)=Rnd(0.05,0.2) if plr(66)<10 then Obj(25,4)=0 plr(66)=plr(66)+1 scry=scry+128 Return .BallUp if scry>aimy then scry=scry-8;plr(2)=plr(2)+7;ScrollParticles 0,8 SetThick 64 for m=0 to 25 x=Obj(m,1) y=(((jscrh-64)-(m128))-scry) dy=y+1024 SetCol 0,0,0,0.3 Line x-508,dy+604,x+516,dy-596 InkRot Obj(m,2),1,0.5 SetAlpha 0.75 Line x-512,dy+600,x+512,dy-600 next for m=0 to 5 x=Obj(m,0)+Sin(Mills()Obj(m,5))Obj(m,4) y=(jscrh-64)-(m128) SetCol 0,0,0,0.4 Rect x,(y-scry)+3,52,13,1 SetCol 220,255,220,1 Rect x,y-scry,48,8,1 next m=0;x0=Obj(m,0)+Sin(Mills()Obj(m,5))Obj(m,4) m=1;x1=Obj(m,0)+Sin(Mills()Obj(m,5))Obj(m,4) for g=0 to 10 plr(4)=plr(4)+0.035 plr(2)=plr(2)+plr(4)0.07 fy=0-((1128)-12) SetCol 180,220,255 Oval plr(1),((jscrh-80)+plr(2)),32,32,32 if Abs(plr(1)-x0)<36 and plr(2)>0-10 and GameOver==0 plr(2)=0-10;plr(4)=0-12;Combo=0 PlaySFX("Beeper_2tone_Up") endif if Abs(plr(1)-x1)<36 and plr(4)>0 and Abs(plr(2)-fy)<12 and GameOver==0 plr(4)=0-12 plr(2)=fy Gosub BallUpNext Combo=Combo+1 PlaySFX("Beeper_4tone_Up",1+Combo0.1) Gimme Combo,plr(1),(jscrh-96)+plr(2) for q=0 to 23 ThrowParticle plr(1),(jscrh)+(fy-40),2,q7-80.5,jRnd(0.4,0.8),9,Rand(0,7) next endif next plr(3)=plr(3)0.9+(GamePad(ButtonRight)-GamePad(ButtonLeft))0.7 plr(1)=plr(1)+plr(3) if plr(2)>32 and GameOver==0 then EndGame;PlaySFX("Beeper_Fall");MusicStop SetParticleGravity 0.3 ResetDraw TextScore ScreenWidth()/2,16,1 Return .Vortex SetSize 0.5 Starfield 1.5,0 z=ScreenHeight()0.4 if ScreenWidth()<ScreenHeight() then z=ScreenWidth()0.4 ResetDraw ag=Wrap(ag+1,0,36) wx=cx+Sin(0)z wy=cy-Cos(0)z wx1=cx+Sin(0)z0.2 wy1=cy-Cos(0)z0.2 SetThick 1;SetAlpha 1 for a=1 to 36 d=WhichWayDoIGo(a,ag,0,36) if d>0 then d=0 d=0.75-(d0.015) if d>1 then d=1 InkRot 140,0.9,d0.6 x=cx+Sin(a10)z y=cy-Cos(a10)z x1=cx+Sin(a10)z0.2 y1=cy-Cos(a10)z0.2 SetThick 3 Line wx,wy,x,y Line wx1,wy1,x1,y1 Line x1,y1,x,y InkRot 140,0.9,d0.8 SetThick 1 Line wx,wy,x,y Line wx1,wy1,x1,y1 Line x1,y1,x,y wx=x;wy=y wx1=x1;wy1=y1 next SetThick z0.3 SetCol 0,0,0,0.2 for x=0 to 0.9 step 0.1 DrawOval cx,cy,xz,xz,32 next SetThick 2 for m=0 to plr(0) if obj(m,0)==0 if Rnd(0,100)<5 then obj(m,0)=1;obj(m,1)=Rand(0,35)+0.5;obj(m,2)=0.2;obj(m,3)=Rnd(0.003,0.006);Obj(m,4)=Rnd(0.25,0.4);PlaySFX("Beeper_2tone_Down") endif if obj(m,0)==1 obj(m,2)=obj(m,2)+obj(m,3)0.3 e=Obj(m,1)10 x=cx+Sin(e)Obj(m,2)z y=cy-Cos(e)Obj(m,2)z a=m37+Mills()Obj(m,4) d=12Obj(m,2) if Pyth(plr(41)-x,plr(42)-y)<d+6 obj(m,0)=0;plr(22)=plr(22)+1;Gimme(5^plr(22),x,y);plr(0)=plr(0)+0.1 for q=0 to 10 ThrowParticle x,y,4,180+(e)+Rnd(-32,32),Rnd(0.3,0.6),0,0 next PlaySFX("Beeper_Die") endif SetCol 255,60,60,1 if Floor(Mills()/500)%2<1 then SetCol 200,180,100 Line x+Sin(a)d,y-Cos(a)d,x+Sin(a+180)d,y-Cos(a+180)d Line x+Sin(0-a)d,y-Cos(0-a)d,x+Sin(180-a)d,y-Cos(180-a)d SetCol 255,40,40,0.5 Light x,y,d4 if obj(m,2)>=1 obj(m,0)=2;Lives=Lives-1;PlaySFX("Explode_Low_6");PlaySFX("Beeper_Jingle_Down") for q=0 to 10 ThrowParticle x,y,4,180+(e)+Rnd(-4,4),Rnd(0.3,0.6),0,0 next endif endif if obj(m,0)>1 obj(m,2)=1 x=cx+Sin(Obj(m,1)10)Obj(m,2)z y=cy-Cos(Obj(m,1)10)Obj(m,2)z if Pyth(plr(41)-x,plr(42)-y)<16 then obj(m,0)=0;plr(22)=plr(22)+1;Gimme(5^plr(22),x,y);PlaySFX("Explode_Low_2");plr(0)=plr(0)+0.1 a=Rnd(0,360) d=24 Line x+Sin(a)d,y-Cos(a)d,x+Sin(a+180)d,y-Cos(a+180)d Line x+Sin(0-a)d,y-Cos(0-a)d,x+Sin(180-a)d,y-Cos(180-a)d obj(m,0)=obj(m,0)+1 if obj(m,0)>30 then obj(m,0)=0 endif next if Lives>-1 plr(3)=(plr(3)0.8)-(GamePad(ButtonRight)-GamePad(ButtonLeft))0.5 if Abs(plr(3))<0.3 then plr(3)=0 plr(1)=Wrap(plr(1)+plr(3)0.1,0,36) x=cx+Sin(plr(1)10)(z+16) y=cy-Cos(plr(1)10)(z+16) SetCol 100,180,255 SetAlpha 0.5 Light x,y,64 x=cx+Sin(plr(1)10)(z+8) y=cy-Cos(plr(1)10)(z+8) SetAlpha 1 SetThick 8 x1=cx+Sin(plr(1)10-2)(z+24) y1=cy-Cos(plr(1)10-2)(z+24) Line x,y,x1,y1 x1=cx+Sin(plr(1)10+2)(z+24) y1=cy-Cos(plr(1)10+2)(z+24) Line x,y,x1,y1 SetThick 2 SetCol 255,255,100 if GamePad(ButtonA)<0.5 then plr(10)=0 if GamePad(ButtonA)>0.5 and plr(10)==0 and plr(20)<0.2 PlaySFX("Lazer_12") plr(10)=1 plr(20)=1 plr(21)=plr(1) plr(22)=0 endif endif plr(41)=0;plr(42)=0 if plr(20)>0.2 plr(20)=plr(20)-0.05 x=cx+Sin(plr(21)10)(zplr(20)) y=cy-Cos(plr(21)10)(zplr(20)) Line x-8,y-4,x+8,y+4 Line x+8,y-4,x-8,y+4 Line x,y-8,x,y+8 plr(41)=x;plr(42)=y endif endif if Lives<0 and GameOver==0 then EndGame;PlaySFX("Beeper_4tone_Down");MusicStop ResetDraw TextScore ScreenWidth()/2,16,1 SetCol 255,100,100 SetFontSize 32 for x=0 to 2 if Lives>x then Emoji ScreenWidth()/2+96+x24,8,"2764" next Return .Platfire r=Limit((plr(93)-60),0,64) CLS r,0,0 for y=0 to ScreenHeight() step 16 SetCol r,r0.5,(y0.2)+r0.5 Rect 0,y,ScreenWidth(),18 next Starfield 0,2 u=plr(0)+5 if u>30 then u=30 for m=0 to u if obj(m,0)==0 and Rnd(0,60)<1 obj(m,0)=Rand(1,3) obj(m,1)=Rand(ScreenWidth()) obj(m,2)=-64 obj(m,3)=Rnd(0.1,0.3) obj(m,4)=Rnd(64,160) obj(m,5)=Rnd(1.3,2.5) obj(m,7)=obj(m,0)+2 obj(m,9)=4 if obj(m,0)==2 then obj(m,9)=3 if obj(m,0)==3 then obj(m,9)=0 obj(m,8)=Rand(0,3) endif if obj(m,0)>0 obj(m,1)=Limit(obj(m,1)+Sin(obj(m,3)Mills())obj(m,5),8,ScreenWidth()-8) obj(m,2)=obj(m,2)+obj(m,5) if obj(m,2)>ScreenHeight()+64 then obj(m,0)=0 ;plr(0)=plr(0)+0.1 SetSize 1.5,1.5;if obj(m,1)>plr(1)+8 then SetSize 0-1.5,1.5 DrawImg Obj(m,1),Obj(m,2),1 obj(m,8)=obj(m,8)-Rnd(0.2,0.3) if obj(m,8)<0 then obj(m,8)=3.9 DrawImg Obj(m,1),Obj(m,2),2+Floor(obj(m,8)),obj(m,9) if obj(m,2)>ScreenHeight()0.7 if Obj(m,1)<plr(1)-4 then Obj(m,1)=Obj(m,1)+Obj(m,5) if Obj(m,1)>plr(1)+4 then Obj(m,1)=Obj(m,1)-Obj(m,5) endif if Rnd(0,160)<obj(m,0) and plr(95)>-1 and obj(m,2)<ScreenHeight()0.6 i=plr(95) obj(i,0)=1 obj(i,1)=obj(m,1) obj(i,2)=obj(m,2) obj(i,3)=0 obj(i,4)=9 PlaySFX("Lazer_2") endif if Pyth(obj(m,1)-plr(1),obj(m,2)-plr(2))<32 and plr(93)<1 plr(93)=120;Lives=Lives-1 for q=0 to 63 ThrowParticle plr(1),plr(2),2,Rnd(-90,90),Rnd(0.8,1.3),8,0 next PlaySFX("Explode_Low_6") PlaySFX("Explode_Low_3") PlaySFX("Explode_Low_1") endif for b=31 to 39 if obj(b,0)>0 if Pyth(obj(b,1)-obj(m,1),obj(b,2)-obj(m,2))<24 obj(b,0)=0 obj(m,7)=obj(m,7)-1 for q=0 to 3 ThrowParticle obj(m,1),obj(m,2),4,Rnd(-32,32),Rnd(0.8,1.3),7,obj(m,9) next PlaySFX("Hit_3") Score=Score+5 if obj(m,7)<1 Gimme(25,obj(m,1),obj(m,2)) PlaySFX("Explode_High_"+Rand(1,5)) obj(m,0)=0 for q=0 to 15 ThrowParticle obj(m,1),obj(m,2),4,q22.5,Rnd(0.8,1.3),7,obj(m,9) next plr(0)=plr(0)+0.1 endif endif endif next endif next plr(95)=-1 plr(94)=-1 if plr(93)>0 then plr(93)=plr(93)-1 c=3 for m=31 to 99 if m<40 and obj(m,0)==0 then plr(94)=m if m>39 and obj(m,0)==0 then plr(95)=m if m==40 then c=4 if obj(m,0)>0 obj(m,2)=obj(m,2)+obj(m,4) if obj(m,2)<-32 or obj(m,2)>ScreenHeight()+32 then obj(m,0)=0 DrawImg obj(m,1),obj(m,2),6,c if m>39 and Pyth(obj(m,1)-plr(1),obj(m,2)-plr(2))<24 and plr(93)<1 plr(93)=120;Lives=Lives-1 for q=0 to 63 ThrowParticle plr(1),plr(2),2,Rnd(-90,90),Rnd(0.8,1.3),8,0 next PlaySFX("Explode_Low_6") PlaySFX("Explode_Low_3") PlaySFX("Explode_Low_1") endif endif next if GameOver>0 then plr(95)=-1; plr(94)=-1 if Lives>-1 if plr(15)>0 then plr(15)=plr(15)-1 if GamePad(ButtonA)<0.5 then plr(15)=0;plr(16)=2 if GamePad(ButtonA)>0.5 and plr(15)<1 and plr(94)>-1 PlaySFX("Lazer_12") plr(16)=plr(16)+2 plr(15)=plr(16) m=plr(94) obj(m,0)=1 obj(m,1)=plr(1);obj(m,2)=plr(2)-32 obj(m,4)=0-10 endif plr(3)=plr(3)0.9+(GamePad(ButtonRight)-GamePad(ButtonLeft)) plr(1)=Limit(plr(1)+plr(3),16,ScreenWidth()-16) plr(2)=ScreenHeight-32 ResetDraw;SetSize 2;SetAlpha 1 if plr(93)>0 and plr(93)%30>15 then SetAlpha 0.7;SetSize 1.5 DrawImg plr(1),plr(2),16 endif if Lives<0 and GameOver==0 then EndGame;PlaySFX("Beeper_4tone_Down");MusicStop ResetDraw TextScore ScreenWidth()/2,16,1 SetCol 255,100,100 SetFontSize 32 for x=0 to 2 if Lives>x then Emoji ScreenWidth()/2+96+x24,8,"2764" next SetParticleGravity 0.3 Return .Marvin for y=0 to ScreenHeight() step 16 SetCol y0.03,y0.05,y0.08 Rect 0,y,ScreenWidth(),18 next aimx=plr(11)-ScreenWidth()0.5 dx=(scrx-aimx)/8 scrx=scrx-dx ScrollParticles dx,0 plr(1)=plr(1)+(dx1.5) Starfield dx+1,0 ResetDraw for n=0 to 50 Obj(n,1)=Obj(n,1)+(dx(n+19)0.03) if Obj(n,1)<-ScreenWidth()0.5 then Obj(n,1)=Obj(n,1)+ScreenWidth()2 if Obj(n,1)>ScreenWidth()1.5 then Obj(n,1)=Obj(n,1)-ScreenWidth()2 InkRot(n37,0.4,0.3) Rect Obj(n,1),jscrh-Obj(n,2),Obj(n,3),Obj(n,2)2,1 next if Started==1 plr(11)=plr(11)+plr(13)0.1 plr(12)=plr(12)+plr(14)0.3 plr(14)=plr(14)+0.3 plr(13)=plr(13)0.96 plr(16)=ATan(plr(13),-plr(14)) endif ResetDraw SetThick 4 SetCol 180,220,255 d=Limit(WhichWayDoIGo(plr(15),plr(16),0,360),-8,8) plr(15)=plr(15)+d x1=plr(11)+Sin(plr(15))16 x2=plr(11)+Sin(plr(15)+140)16 x3=plr(11)+Sin(plr(15)+220)16 y1=plr(12)-Cos(plr(15))16 y2=plr(12)-Cos(plr(15)+140)16 y3=plr(12)-Cos(plr(15)+220)16 x1=x1-scrx x2=x2-scrx x3=x3-scrx Line x1,y1,x2,y2 Line x1,y1,x3,y3 fr=-1 for m=0 to 0 sx=plr(60+m)-scrx if plr(50+m)==0 then fr=m if plr(50+m)>0 plr(60+m)=plr(60+m)-dx plr(70+m)=plr(70+m)-dx DrawImg plr(60+m),plr(65+m),16 plr(60+m)=SmoothTo(plr(60+m),plr(70+m),8) plr(65+m)=SmoothTo(plr(65+m),plr(75+m),8) if Pyth(plr(60+m)-plr(70+m),plr(65+m)-plr(75+m))<16 plr(50+m)=0 c=Rand(0,7) rx=plr(60+m) ry=plr(65+m) for q=0 to 7 ThrowParticle rx,ry,4,q45+Rnd(-28,28),Rnd(0.3,0.7),17,c ThrowParticle rx,ry,4,q45+Rnd(-28,28),Rnd(0.2,0.5),17,c next PlaySFX("Explode_Low_5") PlaySFX("Sonniss_Pop_"+Rand(1,2)) d=Pyth(rx-x1,ry-y1) a=ATan2(x1-rx,ry-y1) d=(320-d) if d>=0 and d<320 dx=Sin(a)d dp=dx if Abs(dx)<2.5 dx=2.5 if dp<0 then dx=-2.5 endif plr(13)=plr(13)+dx dy=0-Cos(a)(d0.6) if dy<-16 then dy=-16 if dy<0 then plr(14)=dy endif if Started==0 Started=1 JMTrackr 96,"Retro",Tune4$ endif endif endif next if plr(12)>ScreenHeight()+96 and GameOver==0 then EndGame;PlaySFX("Beeper_Fall");MusicStop plr(1)=Limit(plr(1)+(GamePad(ButtonRight)-GamePad(ButtonLeft))12,8,ScreenWidth()-8) plr(2)=Limit(plr(2)+0.5+(GamePad(ButtonDown)-GamePad(ButtonUp))12,ScreenHeight()0.4,ScreenHeight()-8) ResetDraw SetThick 2 SetRot Mills()0.2 DrawOval plr(1),plr(2),24,8,4 DrawOval plr(1),plr(2),8,24,4 if GamePad(ButtonA)<0.5 then plr(10)=0 if GamePad(ButtonA)>0.5 and plr(10)==0 and fr>-1 plr(10)=1 plr(50+fr)=1 plr(60+fr)=ScreenWidth()0.5 plr(65+fr)=ScreenHeight() plr(70+fr)=plr(1) plr(75+fr)=plr(2) endif ResetDraw SetFontSize 64 if GameOver==0 Score=Floor(plr(11)-plr(91))) if Score<0 then Score=0 endif Text ScreenWidth()/2,48,Score,1 Return --v The Wednesday Workshop section of this site is still up and running, and if you want to attempt to play any of the many entries that have been submitted over the years, they can all be found right here! Be aware that a lot of the games are posted as plain BlitzBasic sourcecode, so you'll have to grab that to play many of them. You can Grab Blitz3D here. -=-=- ''Load, Next List!''
Mon, 12 Jun 2023, 05:36
cyangames	Might have a looksy at these tonight
Mon, 12 Jun 2023, 14:30
Kuron	18 years? Dear God, how old is Socoder itself? sighs We are so old we fart dust and cobwebs. I know I come and go, but even when gone often still read the forums, Never been associated with a finer bunch of people in my life and it is truly a pleasure to be around you folks, and have learned so much from all of you. 01010010 01101111 01100011 01101011 01100110 01101111 01110010 01100100 00100000 01100111 01100101 01110100 00100000 01111001 01101111 01110101 01110010 00100000 01100001 01110011 01110011 00100000 01100010 01100001 01100011 01101011 00100000 01101000 01100101 01110010 01100101
Mon, 12 Jun 2023, 15:18
cyangames	Vortex is my fave out of them
Mon, 12 Jun 2023, 15:33
Kuron	Agree, Vortex is fun.
Mon, 12 Jun 2023, 17:04
Jayenkai	SoCoder is this old Wednesday Workshop was started on CodersWorkshop, and thought Hobo originally suggested it, (I think. It's very hazy and Archive.org deleted their archive) I somehow randomly ended up being the one to organise it. That somehow lead to me becoming a moderator there, and then when the evil Idigidragon unceremoniously pulled the plug on the whole damn forum overnight, people headed to the cheaply designed "Wednesday Workshop Archive" site that I'd built up. That .. extremely hastily, I might add.. became SoCoder once I added a forum to what was originally "The Jay Site". -=-=- ''Load, Next List!''
Mon, 12 Jun 2023, 17:28
Kuron	when the evil Idigidragon unceremoniously pulled the plug on the whole damn forum overnight I missed that aspect of the mess or don't remember it. Just remember it was suddenly gone, no idea of the why. Was dealing with Idiotcon in another language community, where they were making crazy demands and all but killed off much of the community. They also left me on the hook for the $$ for a BlitzCon at a hotel they later never bothered to cancel or reimburse me for. There is no great way to end a community or a product, as you will never make everybody happy. That said, in retrospect, between Mark Sibly and Simon Armstrong, they did a hell of a job and an effort of goodwill. Simon posted the archives and AFAIK he is still hosting them and Mark kept his word and open sourced all of the products. Much respect to both of them, although at the time I was ticked like everybody else.
Mon, 12 Jun 2023, 17:31
Kuron	Socoder is still chugging along, everything else Blitz related died, although Qube did resurrect SyntaxBomb and has kept it going after its original incarnation. 2006... Were darn near carving forum posts in stone back then.