New games every week!
Uhoh, Monday! Blog
30th August 2021
Spent far too much time faffing about with JSE, yesterday, that I completely forgot I have a SmileBASIC game to finish off!
Ooops!

-=-=-

The "Game" is an isometric engine with a little crawling creature inside.
The player can pick up blocks and walk them towards each other to match them up.
There's currently nothing more to it than that, so today I need to add some kind of obstacle into the game.
Spikes?!
.. Probably..

We'll see.
Gotta get on over and do that, this morning.

Meanwhile


Over in JSE, I've been upgrading my little Nebulae thing.
Instead of simply drawing a static starfield, the Nebulae are now drawn onto the BG layer, then the stars are drawn over the top in realtime, with the whole thing scrolling away neatly.
Looks really quite nice.
Mmmm... Fluffy..

// Starfield with Nebulae v2 // Hit ' to capture the image // by Jayenkai // Created 2021/8/28 // GotoJSE.com/M6rSGN53.BAS #CONST $Wide=1920 #CONST $High=1080 Graphics $Wide,$High,3:CLS seed=Mills() // Nebulae SetBuffer BG:ResetDraw SetCol 0,0,0,1 Rect -10,-10,1060,1060 ResetDraw SetBlend "Light":neb=Rand(3,6) For n=0 to neb c=Rand(0,12)*30 x=Rand(1024):y=Rand(1024) a=Rnd(0,360) SetAlpha 0.01 For m=0 to 256 d=Rnd(0.3,0.5):InkRot c,0.8,d If Rand(0,100)<3 then a=a+Rnd(-45,45) x=Wrap(x+Sin(a)*Rnd(0,6),0,1024):y=Wrap(y-Cos(a)*Rnd(0,6),0,1024) rx=x+Rand(-200,200) ry=y+Rand(-200,200) rx2=Rand(128,256) ry2=Rand(128,256) Oval rx,ry,rx2,ry2,64 Oval rx-1024,ry,rx2,ry2,64 Oval rx+1024,ry,rx2,ry2,64 Next Next SetBuffer FG scrx=0 Repeat CLS ResetDraw scrx=scrx-3 AA On SetSize 2 x=Wrap(scrx*0.5,0,2048) DrawBG x,$High*0.35 DrawBG x+2048,$High*0.35 DrawBG x-2048,$High*0.35 Alpha 0.2 x=Wrap(scrx*0.3,0,2048) DrawBG x,$High*0.65 DrawBG x+2048,$High*0.65 DrawBG x-2048,$High*0.65 AA Off ResetDraw SeedRnd Seed // Pixel stars For m=0 to 400 d=Rand(3,10) x=Wrap( (Rand($Wide)+scrx*Rnd(d*0.2)),0,$Wide) d=d*25 SetCol d,d,d Plot x,Rand($High) Next // A few bigger stars For m=0 to 50 d=Rand(6,10):f=Rand(1,2) x=Wrap( (Rand($Wide)+scrx*Rnd(d*0.1)),0,$Wide) d=d*25 y=Rand($High) For n=-f to f SetCol d-Abs(n*20),d-Abs(n*20),d-Abs(n*20) Plot x+n,y:Plot x,y+n Next Next ResetDraw SetFontSize 64 SetAlpha 0.3 Text $Wide/2,$High/2,"Weeeeeeeee!",1 Flip Forever

Views 56, Upvotes 6  
Daily Blog , Chaos
New games every week!
Site credits : All of the above : Jayenkai
(c) Jayenkai 2023 and onwards, RSS feed

Blog - Uhoh, Monday! - AGameAWeek