Forum - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|554\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> On Topic -> AGameAWeek 2022
Page : 1 Prev 2 3 Next 4 5
Fri, 18 Mar 2022, 09:16
Dan	If the poem does make some sense, then put it. Unless it is rude ... If it is not, then it is fine. Every country has English speaking peeps. And how better to learn than by playing games ...
Mon, 21 Mar 2022, 06:42
Jayenkai	GotoJSE Block-4 View on YouTube Had a dream last night that I was in Game, playing with one of the new handheld games. It was a little mechanical game, which used those Flip-Number things like on old faux-digital clocks. (Though would also work with spinning 4-sides of cubes) A grid of (almost) 4x4 of them, each one having either nothing, a dot, a pacman or a ghost. You would play the grid and the little flippy things would clickity click as you go. It was actually really quite nice, and if I had the know how, I think I'd like to have actually attempted to make the thing! .. A simple JSE edition will have to suffice. > Reveal 🔎 // Block-4 // by Jayenkai // Created 2022/1/10 // GotoJSE.com/5fJPlwJH.BAS Symbol 0,"0__v_I!vvI.vIvvI!vvIIv!I!vvI!v_"; Symbol 1,"0__0v!0v4!vv4;44;4vv4!vv4;.4vv4!vv44vv44v0vv00vv"; Symbol 2,"0__0_0_v.0.vHHv0.vHHv0.v."; Symbol 3,"1__0W_W?0WWv_v,W,vvW_WvvWWvWWv@WWvWWvWv_vWvWWvWv_vWvWWvWv_vWvWWvWv_vWvWWvWv_vWvWWvWv_vWvWWvWv_vWvWWvWv_vWvWWvWWv@WWvWWvvW_WvvW,v_v,WW0W_W?"; Symbol 4,"0__00I00I0_0I0!I0_0/I0!I0_0I00I"; Dim Grid(4,4) Dim GT(4,4) Dim Ghost(4,4) Graphics 512,600,1 GameHandler("Block-4","Easy\|Hard") .StartGame px=1;py=3;dead=0;e=0 Ghost(1,1)=0;Ghost(1,2)=0 Ghost(2,1)=3;Ghost(2,2)=0 for x=0 to 3 for y=0 to 3 grid(x,y)=2 GR(x,y)=0 if (x==0 or x==3) and y==3 then grid(x,y)=3 if (x==1 or x==2) and y==0 then grid(x,y)=3 next next pd=1 Return .InGame CLS 255,255,0:ResetDraw SetCol 16,16,64 Rect 0,64,512,512 ResetDraw SetSize 4 for x=0 to 3 for y=0 to 3 dx=x128+64 dy=y128+128 if GT(x,y)>0 and grid(x,y)==0 if moved==1 and Rand(0,1)==0 then GT(x,y)=GT(x,y)-1 if GT(x,y)<1 then grid(x,y)=2 endif if grid(x,y)>0 then DrawImg dx,dy,grid(x,y) next next For m=1 to GameType x=Ghost(m,1):y=Ghost(m,2) dx=x128+64 dy=y128+128 DrawImg dx,dy,1,m-1 if moved==1 for q=0 to 10 u=(y+3) mod 4 d=(y+1) mod 4 l=(x+3) mod 4 r=(x+1) mod 4 g=Rand(0,3) if px==l and grid(l,y)<3 and Rand(0,4)<2 then g=3 if px==r and grid(r,y)<3 and Rand(0,4)<2 then g=1 if py==u and grid(x,u)<3 and Rand(0,4)<2 then g=0 if py==d and grid(x,d)<3 and Rand(0,4)<2 then g=2 if grid(x,u)==3 and g==0 then g=-1 if grid(r,y)==3 and g==1 then g=-1 if grid(x,d)==3 and g==2 then g=-1 if grid(l,y)==3 and g==3 then g=-1 if x==Ghost(1,1) and u==Ghost(1,2) and g==0 then g=-1 if r==Ghost(1,1) and y==Ghost(1,2) and g==1 then g=-1 if x==Ghost(1,1) and d==Ghost(1,2) and g==2 then g=-1 if l==Ghost(1,1) and y==Ghost(1,2) and g==3 then g=-1 if g==0 then Ghost(m,2)=u:q=50 if g==1 then Ghost(m,1)=r:q=50 if g==2 then Ghost(m,2)=d:q=50 if g==3 then Ghost(m,1)=l:q=50 Next endif if px==Ghost(m,1) and py==Ghost(m,2) and dead==0 then dead=1:PlaySFX("Hurt_5") Next moved=0 dx=px128+64 dy=py128+128 if dead mod 20<10 then DrawImg dx,dy,0 if dead mod 20>=10 then DrawImg dx,dy,4 u=(py+3) mod 4 d=(py+1) mod 4 l=(px+3) mod 4 r=(px+1) mod 4 if GamePad(ButtonUp)<0.25 and GamePad(ButtonLeft)<0.25 and GamePad(ButtonRight)<0.25 and GamePad(ButtonDown)<0.25 then pd=0 if pd==0 and dead==0 if GamePad(ButtonUp)>0.25 and grid(px,u)<3 and pd==0 then pd=1:py=u:moved=1 if GamePad(ButtonLeft)>0.25 and grid(l,py)<3 and pd==0 then pd=1:px=l:moved=1 if GamePad(ButtonRight)>0.25 and grid(r,py)<3 and pd==0 then pd=1:px=r:moved=1 if GamePad(ButtonDown)>0.25 and grid(px,d)<3 and pd==0 then pd=1:py=d:moved=1 endif if grid(px,py)==2 then Score=Score+1:grid(px,py)=0;GT(px,py)=5;e=(e+1) mod 2;PlaySFX("Eat_"+(e+1)) if dead>0 then dead=dead+1 if dead>90 then EndGame SetSize 3;SetCol 0,0,0 TextScore 256,32,1 Return --v -=-=- ''Load, Next List!''
Tue, 22 Mar 2022, 04:24
Dan	Nice. I have played it a few times (on easy), but haven't managed to win, yet. Maybe a bigger grid FTW ?
Tue, 22 Mar 2022, 04:31
Jayenkai	There is no win, it just keeps on going! Yeah, I was thinking about a slightly larger grid, and the full four baddies, and also instead of the four static "walls" have them occasionally move about a bit, too. Might do that for my SmileBASIC game this week. Mmm.. Evolutions of dreams!! -=-=- ''Load, Next List!''
Fri, 25 Mar 2022, 08:03
Jayenkai	SmileBASIC - 4K23QP51 Cherry Farmer View on YouTube And here's the end result of said evolution. Ended going in a sort of Sokoban direction, which ended up working quite well I think. -=-=- ''Load, Next List!''
Fri, 25 Mar 2022, 09:03
AndyH	I like how that plays.
Tue, 05 Apr 2022, 08:41
Jayenkai	SmileBASIC - 4W3JYV394 Ricochet Blast View on YouTube Blast away at the enemy vessels, but try to avoid shooting the ominous Pinball Bumpers! Browsercade Kick Kick Mushroom View on YouTube Kick for a minute, and try to score as many points as you can! Playable at the Browsercade -=-=- ''Load, Next List!''
Fri, 08 Apr 2022, 15:29
Jayenkai	SmileBASIC - 4L34YE3CJ Caves 272 View on YouTube .. Nothing new or imaginative here.. Just playing with SmileBASIC's super speedy Buffer abilities! -=-=- ''Load, Next List!''
Sat, 09 Apr 2022, 00:56
Pakz	Nice!
Mon, 11 Apr 2022, 10:29
Jayenkai	Browsercade Draggly Spots View on YouTube .. When a stupid game title pops into your head, and you have to come up with a game to go with it.. Turned out a bit SpikeDislike. - Turn - Move -=-=- ''Load, Next List!''
Tue, 12 Apr 2022, 02:29
AndyH	Kick Kick Mushroom is the best name for a game and I love Ricochet Blast. Caves 272 is amazingly fast, smooth and colourful. I need to get Smile Basic out again to play some games. -=-=- Andy H 8-bit games at www.hewco.uk Cartoons at awful.ovine.net Ovine at ovine.net
Tue, 12 Apr 2022, 02:41
Jayenkai	Absolutely, you do! And so should everyone else. If you have a Switch, but not SmileBASIC, you're really missing out on a lot of crazy experimental homebrew stuff. And isn't that why we're all here!?! -=-=- ''Load, Next List!''
Fri, 15 Apr 2022, 08:19
Jayenkai	SmileBASIC - 42B84WVNE Ice Cold Lava View on YouTube Help Platdude stay cold, as the lava flow oozes beneath the ice sheets. -=-=- ''Load, Next List!''
Fri, 15 Apr 2022, 11:48
AndyH	Cool. Hehe
Sat, 16 Apr 2022, 16:03
steve_ancell	Similar to Bounder but sideways, I like it.
Sat, 16 Apr 2022, 17:38
Jayenkai	GotoJSE Get Your Eggs in Order View on YouTube What's that you say? Didn't think I could shoehorn Spikes into an Easter Game? You underestimate my reliance on Spikes!! Linkage Code : > Reveal 🔎 // Get Your Eggs in Order // by Jayenkai // Created 2022/1/10 // GotoJSE.com/s4b4PQQC.BAS Symbol 0,"1__0_0_0?vv0_0.v23v0_00v23,v0_0v23,v0_v223.v0@vNNP.v0/v2NP?3v0!v2NP33PP3v0?v22PP33PP33v0.v22P!34v0.v22P!34v0?v23!4v0/v23,44v0_v!"; Symbol 1,"1__0_0_0?vv0_0.v23v0_00v23,v0_0v23,v0_v223.v0@v223.v0/v223P3,Pv0!vN2P,3PPv0?v2NPP3P,33v0.v22P3,P334v0.v223/4v0?v23!4v0/v23,44v0_v!"; Symbol 2,"1__0_0_0?vv0_0.vNPv0_00v2PP3v0_0v2PP3v0_v22PP33v0@v22PP33v0/v223PP3,v0!v223PP3,v0?v2233PP3.v0.v2233PP3,4v0.v2233PP3,4v0?v233PP334v0/v23PP44v0_v!"; Symbol 3,"1__0_0_0?vv0_0.v23v0_00v23,v0_0v23,v0_vNNP.v0@v223.v0/v223!v0!vNNP!v0?v223@v0.v223/4v0.vNNP/Rv0?v23!4v0/v23,44v0_v!"; Symbol 4,"1__0_0_0?vv0_0.vNPv0_00vN33Pv0_0vN33Pv0_vNN33PPv0@vNN33PPv0/vN23PP33Pv0!vN23PP33Pv0?vNN33PP33PPv0.vNN33PP33PRv0.v22PP33PP34v0?v2PP33PP4v0/vNP33RRv0_v!"; Symbol 5,"0__40!404044040,40040,404404004044040,40040,404404040!4"; Symbol 6,"1__0_0_0_0_0_0_00;0;0_0.;0;0_0.;0;0_:.;,0@;:.;;X;0/;:.;,q0@:?;;0_;,0;"; Symbol 7,"1__0_0_0!;0;0_0.;0;0_0.;0;0_:.;,0@;:.;;X;0/;:.;,q0@:?;;0_::00:;0_;:0_0!;;"; Symbol 8,"1__0_0_0_0_0.;0;0_0.;0;0_0.;0;0_:.;,0@;:.;;X;0/;:.;,q0@:?;;0_;:0:0_0.;;0;"; Symbol 9,"1__0_0_0_0_0_0_00;0;0_0.;0;0_0.;0;0_:.;,0@;:.;.0/;:.;,q0@:?;;0_;,0;"; Symbol 10,"1__0_0_0_0_0_0_00;0;0_0.;0;0_0.;0;0_:.;,0@;:.;;X;0/;:.;.0@:?;;q0@;,0;"; Symbol 11,"1__0_0_0_0_0_0_0_0@;.0_0.;0;0_:.;,0@;:.;;X;0/;:.;,q0@:?;;0_;,0;"; Symbol 12,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0/R0_0_0_0.R0_0_0_0_0,R0_0_0_0.R0_0,R0_0_0_0.R0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0.R0_0_0_0.R0_0?R0_0_0_0.R0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0/R0_0_0_0.R0_0_0_0_0_0_0_0_0_0_0_0_0@R0_0_0_0.R0_0_0_0_0_0_R0_0_0_0.R"; 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_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0,110_0_0_010.10_0_0_0_0_0_0,100110010_0_0!100110010_0_0_0_0_0_0,10.10_0_0_011"; Dim Egg(5,4) Dim Spike(20,2) Dim Grass(60,2) Graphics 320,240,2 GameHandler("Get Your\|Eggs\|in Order") .StartGame px=(jscrw/2)+8 py=jscrh/2 pox=0 poy=0 pdir=1 panim=0 TimeLimit=60 lev=0 Gosub GetLev Return .GetLev lev=lev+1 got=0 t=TimeLimit60 TimeLimit=TimeLimit-10 if TimeLimit<20 then TimeLimit=20 for m=0 to 60:Grass(m,1)=jRand(0,jscrw):Grass(m,2)=jRand(0,jscrh):Next txt$=Shuffle("01234") col$=Shuffle("01234567") Debuglog txt$ For m=0 to 4 Egg(m,1)=-100:Egg(m,2)=-100 Repeat x=jRand(10,jscrw-10) y=jRand(32,jscrh-10) if m>0 for d=0 to m-1 if Abs(Egg(d,1)-x)<64 and Abs(Egg(d,2)-y)<64 then x=-100 next endif if Abs(px-x)<64 and Abs(py-y)<64 then x=-100 Until x>-1 Egg(m,1)=x Egg(m,2)=y Egg(m,3)=Int(Mid$(col$,m,1)) Egg(m,4)=Int(Mid$(txt$,m,1)) Next s=0 for m=0 to 20 Spike(m,1)=-100:Spike(m,2)=-100 if s<10 then For q=0 to 20 x=jRand(10,jscrw-10) y=jRand(32,jscrh-10) if m>0 for d=0 to m-1 if Abs(Spike(d,1)-x)<32 and Abs(Spike(d,2)-y)<32 then x=-100 next endif for d=0 to 4 if Abs(Egg(d,1)-x)<32 and Abs(Egg(d,2)-y)<32 then x=-100 next if Abs(px-x)<64 and Abs(py-y)<64 then x=-100 if x>-1 then q=50:s=s+1 Next endif if q>30 Spike(m,1)=x Spike(m,2)=y endif next JMTrackr(100+lev5,"C4>G4<C4>G4<C4>G4<C8G8E8D8\|r8<C4C4C4C4C4C4>G8A8B8\|G8r16G8r16r8G8A8<C8r8>G8r16G8r16r8<C8>B8A8r8\|<C8C8>G16A16G16A16<C8C8D8r2r4r8r4\|r1<E8E8E16D16C16D16E8C8C8r8\|r1\|[d]\|C8G+16G+16C8G+8C8G+16G+16C8G+8C8G+16G+16C8G+8C8G+16G+16C8G+8\|C8r16G+8C16G+8C8G+8C8G+8C8r16G+8C16G+8C8G+8C8G+8\|r1\|") Return .InGame CLS 30,70,30:ResetDraw SetAlpha 0.5 for m=0 to 60 DrawImg Grass(m,1),Grass(m,2),12 Next SetAlpha 1 SetSize 1 if pdir<0 then SetSize 0-1,1 panim=0 if Abs(pox)>0 or Abs(poy)>0 then panim=2 if Abs(pox)>3 or Abs(poy)>3 then panim=1 if panim==0 and ps>0 then panim=ps+2 if t<0 SetSize 1,0-1 if pdir<0 then SetSize 0-1,0-1 panim=1 endif DrawImg px,py,Floor(panim)+6 ResetDraw SetSize 0.5 for m=0 to 4 DrawImg Egg(m,1),Egg(m,2),Egg(m,4),Egg(m,3) If Pyth(px-Egg(m,1),py-Egg(m,2))<16 r=0 if got==m then r=1 if r==1 then for q=0 to 15:ThrowParticle Egg(m,1),Egg(m,2),4,q22.5,0.3,13,q mod 8:next:Egg(m,1)=-1000:got=got+1:PlaySFX("Beeper_Rise"):Score=Score+Floor(t/60) if r==0 and t>0 then t=-1:EndGame "Wrong Egg":PlaySFX("Beeper_Fall") endif next SetSize 0.5 for m=0 to 20 DrawImg Spike(m,1),Spike(m,2),5 If Pyth(px-Spike(m,1),py-Spike(m,2))<14 if t>0 then t=-1:EndGame "Poor Bunny":PlaySFX("Beeper_Fall") endif next pt=pt+jRnd(0.5,1):if ps>0 then pt=pt+jRnd(1,2) if pt>30 a=ps if a==0 then ps=jRand(1,3) if a>0 then ps=0 pt=0 endif if GamePad(ButtonUp)<0.5 and GamePad(ButtonDown)<0.5 and GamePad(ButtonLeft)<0.5 and GamePad(ButtonRight)<0.5 then kdis=0 if pox==0 and poy==0 and t>0 if GamePad(ButtonUp)>0.5 and py>24 and kdis==0 then poy=-6:kdis=1:PlaySFX("Jump_9",jRnd(2,2.5)) if GamePad(ButtonDown)>0.5 and py<jscrh-24 and kdis==0 then poy=6:kdis=1:PlaySFX("Jump_9",jRnd(2,2.5)) if GamePad(ButtonLeft)>0.5 and px>24 and kdis==0 then pox=-6:kdis=1:PlaySFX("Jump_9",jRnd(2,2.5)) if GamePad(ButtonRight)>0.5 and px<jscrw-24 and kdis==0 then pox=6:kdis=1:PlaySFX("Jump_9",jRnd(2,2.5)) endif if pox>0 then px=px+pox:pox=pox-1:pdir=1 if pox<0 then px=px+pox:pox=pox+1:pdir=-1 if poy>0 then py=py+poy:poy=poy-1 if poy<0 then py=py+poy:poy=poy+1 ResetDraw SetCol 0,0,0:Rect 0,0,jscrw,16 SetCol 255,255,255 SetSize 0.5 for m=0 to 4 DrawImg (m+2)16,8,Egg(m,4),Egg(m,3) next SetFontSize 16 TextScore jscrw/2,8,1 t=t-1 s=Floor(t/60) if s<0 MusicStop s=0 if GameOver==0 then EndGame "Time's Up":PlaySFX("Beeper_Fall") endif SetFontSize 16 Text jscrw-32,8,s,2 if got==5 then Score=Score+50:Gosub GetLev Return --v -=-=- ''Load, Next List!''
Sun, 17 Apr 2022, 04:51
AndyH	"Get Your Eggs in Order" Does what it says on the tin -=-=- Andy H 8-bit games at www.hewco.uk Cartoons at awful.ovine.net Ovine at ovine.net
Fri, 22 Apr 2022, 04:19
Jayenkai	Each week I copy the AGameAWeek-SmileBASIC template file, and the first thing I need to do is give it a name. Most weeks, I haven't a clue what the game's even going to be, and this week was one of those weeks. A random word.. "Sloop" .. and an image of maybe having a little slimy goo-ball moving through a maze or something? That sounds "Sloopy"... But I'd better google that, and make sure it's not a really rude word, first. .. Oh, that's a Sloop, is it?! Well then.. SmileBASIC - 4NK2NVXBP Sloop View on YouTube -=-=- ''Load, Next List!''
Fri, 22 Apr 2022, 09:41
Dan	Hmm, have you thought about to make a random game name generator ?
Fri, 22 Apr 2022, 09:54
Jayenkai	Sure I have! JNKTitler has one Hit the Random Title button! -=-=- ''Load, Next List!''
Sat, 23 Apr 2022, 17:13
Jayenkai	Amiga Flappadiddle View on YouTube A nice and simple little edition of Flappadiddle. Truth be told, the sheer limits of the system held back the level generator quite a bit, but I think I managed to squeeze as much out of it as I could. You can either Grab an .adf file which is better for Emulators, or alternatively Grab an .lha which only contains the files themselves, and can be extracted onto an Amiga's Harddrive for playing! -=-=- ''Load, Next List!''
Sun, 24 Apr 2022, 02:50
rockford	Cooool
Fri, 29 Apr 2022, 06:22
Jayenkai	SmileBASIC - 4NKX3A3JJ Error View on YouTube Error : Your regular game has snake has failed to load. -=-=- ''Load, Next List!''
Sun, 01 May 2022, 08:54
Jayenkai	Shoebox G.O.P.S. View on YouTube Game idea pinched from a classic 2 player card game. This is supposed to be a strategic game, but .. I ain't seeing any strategy here! It's all very random. You can Play G.O.P.S. in the Shoebox. -=-=- ''Load, Next List!''
Fri, 06 May 2022, 08:22
Jayenkai	SmileBASIC - 4NZ3E5XND Oh, Cheeses View on YouTube Run through the maze to gather up the cheeses. You aren't alone, though. A game for 1 or 2 rats. -=-=- ''Load, Next List!''
Fri, 06 May 2022, 10:33
Dabz	I love how you have the mice moving, no seriously, just seeing them brought a smile to my face, and I dont know why, but, aye... I like that it seems! Dabz -=-=- Intel Core i5 6400 2.7GHz, NVIDIA GeForce GTX 1070 (8GB), 8Gig DDR4 RAM, 256GB SSD, 1TB HDD, Windows 10 64bit
Page : 1 Prev 2 3 Next 4 5

GotoJSE

Block-4

SmileBASIC - 4K23QP51

Cherry Farmer

SmileBASIC - 4W3JYV394

Ricochet Blast

Browsercade

Kick Kick Mushroom

SmileBASIC - 4L34YE3CJ

Caves 272

Browsercade

Draggly Spots

SmileBASIC - 42B84WVNE

Ice Cold Lava

GotoJSE

Get Your Eggs in Order

SmileBASIC - 4NK2NVXBP

Sloop

Amiga

Flappadiddle

SmileBASIC - 4NKX3A3JJ

Error

Shoebox

G.O.P.S.

SmileBASIC - 4NZ3E5XND

Oh, Cheeses