Forum - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|553\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> On Topic -> AGameAWeek 2022
Page : 1 2 3 4 Prev 5 Next
Sun, 09 Oct 2022, 06:59
Jayenkai	GotoJSE Balls and a Chain View on YouTube Avoid the ants, and hurl the marbles towards them using your epic "Chain of Destiny". Playable via Mouse or Touchscreen. Grab either side of the chain, then drag it along. Would've liked to have had a more chain-physics like chain, but I'm already at the upper-limit of what I like to do with GotoJSE, hitting about 18,000 instructions per frame.. (I typically try to stick to under 12,000) Apologies if the game runs a little slow, as a result. > Reveal 🔎 // Balls and a Chain // by Jayenkai // Created 2022/1/10 // GotoJSE.com/Kd4FSMMF.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!y!0_0_0/y;!y0_0_0?y;y!;y0_0_0,y;y0!y;y0_0_00y;y0!y;y0_0_00y;y0!y;y0_0_00y;y0!y;y0_0_00y;y0!y;y0_0_00y;y0!y;y0_0_0,y;y!;y0_0_0?y;!y0_0_0/y!"; Symbol 1,"2__0_0_0_0_0_0_0_0_0_0,EE0E00E0EE0!D00D0D00D00D0D00D0D/0_0_0_0_0_00E0,EE0_0_0.E0_E0_0_0_0_0_0?D0@D0_0_0_0_0?D0?D0_0_0_0_0?E,0E0E0E0_00E0_0_0_0@D,0.D0!D0_0_0_0_00D0_0_0_0_0_0_0EE0E0E0E!0_EE0_0_0_0.EE0_0_0_0_0_0_0.D!0.D0,D0?D0.D0_0_0_0_0_00EE0E0,E0E0_0_0_0_0_0_0_0_0_D0DD0D.0_0_0_0_0!EE0!E0_0_0_0_0_0_0_0_0_0,DD00D0@E,0EE0_0_0?D"; Symbol 2,"1__0!:.0_0:!zz0/:.z!0?::;:z@0,::;:z@yy00:,z_yy0:,z_zy,::z_zy.:z_zzy.:z_zy?0z_zy.00z_y?0,z@y.0?z?y?0/zy/0_0y."; Symbol 3,"1__0!:.0_0:?z,0/:,z/0?::;z_0,::;z_yy00::z_zyy0::z_zy.:z_zzy.:z_zy?:z_zy?0z_y?00z_y?0,z/y?0?z.y!0/y@0_0y."; Symbol 4,"2__0_0_0_0_0_0_0_0_0_0_0_0_0,30_0_0_0.330_0_0_003,0_0_0_003,0_0_0_003,0_0_0_003,0_0_0_00330_0_0_0,330_0_0_003,0_0_0_03,0_0_0_003,0_0_0_003,0_0_0_003,0_0_0_003,0_0_0_003,0_0_0_0,330_0_0_0,330_0_0_0,3,0_0_0_0.30_0_0_0.330_0_0_0.330_0_0_0,330_0_0_0,330_0_0_0,330_0_0_0,30_0_0_0,330_0_0_0,30_0_0_0.3"; Symbol 5,"2__0_0_0_0_0_0_0_0_0@30_0_0_0.3,0_0_0_0,3,0_0_0_0,3,0_0_0_003.0_0_0_003,0_0_0_003.0_0_0_03.0_0_0_03.0_0_0_003,0_0_0_003,0_0_0_00330_0_0_0,330_0_0_003,0_0_0_00330_0_0_003,0_0_0_03,0_0_0_0330_0_0_00330_0_0_003,0_0_0_03,0_0_0_003,0_0_0_03,0_0_0_003,0_0_0_003,0_0_0_0,330_0_0_0,3,0_0_0_0,33"; Symbol 6,"2__0_0_0_0_0_0_0_0_0_0_0_0_0,330_0_0_00330_0_0_00330_0_0_003,0_0_0_03.0_0_0_03,0_0_0_03.0_0_0_03.0_0_0_03,0_0_0_03.0_0_0_03.0_0_0_03.0_0_0_03.0_0_0_03.0_0_0_03.0_0_0_03.0_0_0_03?0_0_0_3?0_0_0_3?0_0_0_3?0_0_0_03?0_0_0_3?0_0_0_03.0_0_0_003,0_0_0_003,0_0_0_0,3,0_0_0_0,330_0_0_0,3,"; Symbol 7,"1__0_0_0?vv0_0.4vv40_0,v.0_0,v.0_0.vv0_00v@0/v00v.00v0_v.0_0v@0/v00v.00v0_v.0_0v@0/v00v.00v0_0vv"; Symbol 8,"1__0_0_0?vv0_0.4vv40_0,v.0_0,v.0_0vv0vv0_0v00v!0_0v.00v0_v.0_0v@0/v00v.00v0_v.0_0v!0_v00v!0_00vv0,v"; Symbol 9,"1__0_0_0?vv0_0.4vv40_0,v.0_0,v.0_0.vv0_00v!0_v00v!0_0v.00v0!v/0_0,v!0@v!00v0!v00v!0_0v.00v0_0vv"; Symbol 10,"1__0_0_0?vv0_0.4vv40_0,v.0_0,v.0_0.vv0vv0@v!00v0!v00v.0_0,v.0v0@v/0v0!v00v.0_0,v.0_0v@0/v00v.00v0_0vv"; Symbol 11,"1__0_0_0,44::440_044::440@600:.0060!:00:.0@:0:00::0,:,00:0,:/0_:!4060.::4:!0!:00:_:0.600:!0,:00:0,:!0060.:.4:?0_0:.00:0_0::0,:0@60/:"; Symbol 12,"0__0_0_:0/::0/:0/::"; Tune$="C8C16C16C8C16C16C16r32C16r32C16C8C16C16C8C16C16C8C16C16C16r32C16r32C16C8C16C16\|r8G16G8r16G4G16G8r16G4G16G8r16G16G8r16G4G16G16\|>G16G8r16<C16C8r16>G16G8r16C4G16G8r16<C16C8r16>G4C4\|G16F16G16A16<C8r2r8>G16F16G16A16<C8>A8r2\|r1\|[d]\|C16G+16D16G+16C16G+16D16G+16C16G+16D16G+8C16D16D16C16G+16D16G+16C16G+16D16G+16C16G+16D16G+8C16D32G+32D32D32\|C8D8C8D8C8D8r16C16D16D16C8D8C8D8C8D8r16C16D16D32D32\|r1\|" Dim Chain(50,5) Dim Ball(20,20) Dim Bugs(50,10) BallCount=3 BugCount=9 Graphics 1280,720,2 GameHandler("Balls\|and a\|Chain","Start") .StartGame LevSeed=Rand(37171650) chx=jscrw/2:chy=jscrh/2 Hard=2 z=240 if jscrw0.4<z then z=jscrw0.4 if jscrh0.4<z then z=jscrh0.4 a=360/(BallCount+1) for m=0 to BallCount Ball(m,1)=(jscrw/2)+Sin(ma)z Ball(m,2)=(jscrh/2)-Cos(ma)z Ball(m,3)=0:Ball(m,4)=0 Ball(m,5)=Rand(0,360) Ball(m,10)=Rand(4,6):Ball(m,11)=Rand(0,360):Ball(m,12)=Rnd(0,360):Ball(m,13)=Rnd(0,360):Ball(m,14)=Rand(0,7) Ball(m,15)=Rand(4,6):Ball(m,16)=Rand(0,360):Ball(m,17)=Rnd(0,360):Ball(m,18)=Rnd(0,360):Ball(m,19)=Rand(0,7) Ball(m,17)=Ball(m,12) next for m=0 to 50 Chain(m,1)=chx+Tan(m-22.5)z2 Chain(m,2)=chy-Cos(m3.6)z0.5 Bugs(m,0)=0 next chto=0 MouseUp=2 chside=1 Health=99 JMTrackr 120,Tune$ Return .InGame CLS 128,80,0:ResetDraw AntiAlias True SetSize 16,2:SetAlpha 0.4 SeedRnd LevSeed for e=0 to 20 DrawImg Rand(0,ScreenWidth()),Rand(0,ScreenHeight()),1 if e==10 then SetSize 0-16,0-2 next SeedRnd // Release chain if MouseDown()==0 then MouseUp=1:grip=0 // Add an 8 pixel "safe zone" around the edge of the screen so we can't drag the chain out of the screen. safezone=1 if MouseX()<8 or MouseY()<8 or MouseX()>ScreenWidth()-8 or MouseY()>ScreenHeight()-8 then safezone=0 // Chain dragging if MouseDown()>0 and MouseUp<2 and MouseX()>0 and grip==1 and safezone==1 and GameOver==0 MouseUp=0 for e=0 to 9 // Do this 10 times so we get a faster chain last=(chto+49) mod 50 if (chside==49) then last=(chto+1) mod 50 if chx<MouseX() then chx=chx+Rnd(3,5) if chy<MouseY() then chy=chy+Rnd(3,5) if chx>MouseX() then chx=chx-Rnd(3,5) if chy>MouseY() then chy=chy-Rnd(3,5) if Pyth(chx-Chain(last,1),chy-Chain(last,2))>8 Chain(chto,1)=chx Chain(chto,2)=chy chto=(chto+chside) mod 50 endif next endif // Which side is being held? chtob=(chto+49) mod 50 if chside==49 then chtob=(chto+20) mod 50 ResetDraw() // Draw the Chain for m=0 to 49 x=Chain(m,1):y=Chain(m,2) if m==(chto+49) mod 50 if MouseIn_Radius(x,y,64)>0 and MouseDown()>0 and grip==0 grip=1:chx=x:chy=y:chside=1 PlaySFX("Sonniss_Snap",2) endif endif if m==(chto+1) mod 50 if MouseIn_Radius(x,y,64)>0 and MouseDown()>0 and grip==0 grip=1:chx=x:chy=y:chside=49 PlaySFX("Sonniss_Snap",2) endif endif DrawImg x,y,0 next click=0;click2=0 // Balls ResetDraw(); e=2:if Mills() % 400<200 then e=3 b=(last mod 8) lx=ScreenWidth()-24:ly=ScreenHeight()-24 for m=0 to BallCount if Ball(m,1)<24 then Ball(m,1)=24:Ball(m,3)=Abs(Ball(m,3)):PlaySFX("Pop_High") if Ball(m,2)<24 then Ball(m,2)=24:Ball(m,4)=Abs(Ball(m,4)):PlaySFX("Pop_High") if Ball(m,1)>lx then Ball(m,1)=lx:Ball(m,3)=0-Abs(Ball(m,3)):PlaySFX("Pop_High") if Ball(m,2)>ly then Ball(m,2)=ly:Ball(m,4)=0-Abs(Ball(m,4)):PlaySFX("Pop_High") if Abs(Ball(m,3))>2 then Ball(m,3)=Ball(m,3)0.97 if Abs(Ball(m,3))>2 then Ball(m,4)=Ball(m,4)0.97 Ball(m,1)=Ball(m,1)+Ball(m,3) Ball(m,2)=Ball(m,2)+Ball(m,4) Ball(m,12)=(Ball(m,12)+(Sin(Ball(m,5))Ball(m,3)+Cos(Ball(m,5))Ball(m,4))) mod 360 Ball(m,13)=(Ball(m,13)-(Cos(Ball(m,5))Ball(m,3)+Sin(Ball(m,5))Ball(m,4))) mod 360 Ball(m,17)=(Ball(m,17)+(Sin(Ball(m,5))Ball(m,3)+Cos(Ball(m,5))Ball(m,4))) mod 360 Ball(m,18)=(Ball(m,18)-(Cos(Ball(m,5))Ball(m,3)+Sin(Ball(m,5))Ball(m,4))) mod 360 SetAlpha(0.75) SetRot Ball(m,5)+Ball(m,11) SetSize Sin(Ball(m,12))2,Cos(Ball(m,13))2:DrawImg Ball(m,1),Ball(m,2),Ball(m,10),Ball(m,14) SetRot Ball(m,5)+Ball(m,16) SetSize Sin(Ball(m,17))2,Sin(Ball(m,18))2:DrawImg Ball(m,1),Ball(m,2),Ball(m,15),Ball(m,19) SetSize 2;SetRot 0:SetAlpha(0.3) DrawImg Ball(m,1),Ball(m,2),e // Ball Vs Ball for n=0 to BallCount if n<>m dfx=Ball(m,1)-Ball(n,1) dfy=Ball(n,2)-Ball(m,2) a=ATan(dfx,dfy):d=Pyth(dfx,dfy) if d<64 Ball(m,3)=Ball(m,3)+Sin(a)2.5 Ball(m,4)=Ball(m,4)-Cos(a)2.5 Ball(n,3)=Ball(n,3)+Sin(a+180)2.5 Ball(n,4)=Ball(n,4)-Cos(a+180)2.5 if Ball(m,8)<1 then click=1;Ball(m,8)=Rnd(4,7) endif endif next Ball(m,8)=Ball(m,8)-1 // Ball Vs Chain for n=b to 48 step 4 dfx=Ball(m,1)-Chain(n,1) dfy=Chain(n,2)-Ball(m,2) a=ATan(dfx,dfy):d=Pyth(dfx,dfy) if d<36 Ball(m,3)=Ball(m,3)+Sin(a)2.5 Ball(m,4)=Ball(m,4)-Cos(a)2.5 if Ball(m,8)<1 then click2=1;Ball(m,8)=Rnd(4,7) endif next next z=jscrw0.6 if jscrw<jscrh then z=jscrh0.6 ResetDraw spd=2 spd2=0.1 hurt=0 for m=0 to BugCount if Bugs(m,0)==1 x=Bugs(m,3):y=Bugs(m,4) Bugs(m,1)=Bugs(m,1)+x Bugs(m,2)=Bugs(m,2)+y spd=Bugs(m,7) SetRot(ATan2(x,0-y)) SetAlpha(1) if Bugs(m,1)<Bugs(m,8) and Bugs(m,3)<spd then Bugs(m,3)=Bugs(m,3)+Rnd(0,spd2) if Bugs(m,1)>Bugs(m,8) and Bugs(m,3)>0-spd then Bugs(m,3)=Bugs(m,3)-Rnd(0,spd2) if Bugs(m,2)<Bugs(m,9) and Bugs(m,4)<spd then Bugs(m,4)=Bugs(m,4)+Rnd(0,spd2) if Bugs(m,2)>Bugs(m,9) and Bugs(m,4)>0-spd then Bugs(m,4)=Bugs(m,4)-Rnd(0,spd2) if Rand(0,100)<10 then Bugs(m,8)=chx:Bugs(m,9)=chy DrawImg Bugs(m,1),Bugs(m,2),Rand(7,10) for n=b to 48 step 4 if Abs(Bugs(m,1)-Chain(n,1))<16 and Abs(Bugs(m,2)-Chain(n,2))<16 and GameOver==0 for q=0 to 2 ThrowParticle Chain(n,1),Chain(n,2),4,Rnd(0,360),Rnd(0.25,1),12 Next Health=Health-jRand(1,3);hurt=1 endif next for n=0 to BallCount if Abs(Bugs(m,1)-Ball(n,1))<48 and Abs(Bugs(m,2)-Ball(n,2))<48 Bugs(m,0)=2;Bugs(m,6)=1;Gimme 5,Bugs(m,1),Bugs(m,2) PlaySFX("Beeper_Rise") endif next endif if Bugs(m,0)==2 SetRot(ATan2(x,0-y)) SetAlpha Bugs(m,6) Bugs(m,2)=Bugs(m,2)-1 Bugs(m,6)=Bugs(m,6)-0.01 if Bugs(m,6)<=0 then Bugs(m,0)=0 DrawImg Bugs(m,1),Bugs(m,2),11 endif if Bugs(m,0)<1 and Rnd(0,100)<3 Bugs(m,0)=1 a=Rand(0,360) Bugs(m,1)=jscrw/2+Sin(a)z Bugs(m,2)=jscrh/2-Cos(a)*z Bugs(m,3)=0:Bugs(m,4)=0 Bugs(m,8)=jscrw/2:Bugs(m,9)=jscrh/2 Bugs(m,7)=Rand(1,Hard) Hard=Hard+Rnd(0,0.1) if Hard>5 then Hard=5 endif next if hurt==1 and GameOver==0 then PlaySFX("Hit_2") if click>0 then PlaySFX("Sonniss_Snap") if click2>0 then PlaySFX("Sonniss_Snap",Rnd(1.8,2.2)) ResetDraw;SetFontSize 32;SetAlpha(0.5);SetCol 150,255,150 TextScore jscrw/2,16,1 SetCol 255,255,255,1 s=Health:if s<1 then s=0:EndGame:MusicStop Text jscrw-32,16,s,1 Return --v -=-=- ''Load, Next List!''
Sun, 09 Oct 2022, 07:08
rockford	LOL. That's total marble madness!
Mon, 17 Oct 2022, 07:03
Jayenkai	Shoebox of Games Club Disco View on YouTube (Warning : Youtube thumbnail is a massive clickbait!) Shuffle the decks and release the clubs so they can all get into the disco! It's a solitaire game with a silly name!! You can Play Club Disco in the Shoebox on Desktop, Mobile or Tablet. -=-=- ''Load, Next List!''
Mon, 31 Oct 2022, 15:36
Jayenkai	SmileBASIC - 452K3283E Bubble Munky View on YouTube Guide Munky around the dangerous levels to grab all its precious bubbles. > Reveal 🔎 -=-=- Oh, ffs, I think they've killed the old YouTube video script.. When did that happen!?! .. Oh, it's my new laptop doing that.. Hmmm... Rebooted, working now. Odd.. Hmm... -=-=- ''Load, Next List!''
Tue, 08 Nov 2022, 08:06
Jayenkai	Shoebox of Games Five Words View on YouTube Can you find the five words hidden in the box? Random mode, or one of those Daily Modes that seem to be popular. You can Play it in the Shoebox, every day, for the rest of eternity. -=-=- ''Load, Next List!''
Wed, 30 Nov 2022, 07:41
Jayenkai	SmileBASIC - 4N3AK45BM Orret Cha View on YouTube The quirky rotational blaster returns in SmileBASIC form.. .. Just about.. I started the engine at the beginning of November, and it's been neglected for weeks!!! About 75% of the game was coded in the past few hours! -=-=- ''Load, Next List!''
Page : 1 2 3 4 Prev 5 Next

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

AGameAWeek 2022 - Socoder