Mine, Slime and Monsters - May 2023

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|606\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> In-Development -> Mine, Slime and Monsters - May 2023
Fri, 26 May 2023, 02:47
Pakz	Mine, Slime and Monsters - may 2023 Closing in to 8000 lines of code and almost 300 kilobytes of source code. I added various effects this week. Flashing screen, Particle Pickup Effect, Power Lines. Flashing screen : The flashing screen I added after watching a docu about the Terminator movie. Here they mentioned that before a explosion they would add a short white screen. :effect Particle Pickup: The particle pickup effect is a effect around the player when a item is picked up. A whole swarm of particles can be flying around the player if a lot is picked up. Power Lines: (L key on keyboard - left trigger on controller(xbox)) I am currently testing the new Power Lines. This was added after watching a bit of Turrican 2 gameplay footage. These are vertical lines that start from the position of the player and go up and down to a certain distance and then spread out from the player to the edges. If it touches a enemy they get removed and if hit a tile the power line chunk is removed. Further work was done with adding a new collision function that can be expanded upon. I might need to do a lot of editing of all the code to make it more effecient and more clean. ( Browser -> Phone / Tablet / desktop-laptop-device - Current development version ) : cromdesi.home.xs4all.nl/html5/MineSlimeMonsters/
Fri, 26 May 2023, 03:19
Jayenkai	RE : Flashing. Just be sure it can't be triggered too often, and try to do it over about 5 or 6 frames, as opposed to an instant flash, preferably fading out, so that it has less chance of triggering any Epileptic issues. -=-=- ''Load, Next List!''
Fri, 26 May 2023, 03:22
Jayenkai	The little swirly particles upon pickup are nice, btw. I like that effect. -=-=- ''Load, Next List!''
Fri, 26 May 2023, 04:11
Pakz	It is a pretty simple to make effect. I learned it from the coding train on youtube, It initially reminded me of some effects of the game Skyrim. Currently trying to fix up bugs which show up in the browser when loaded from the site and not present with loading from local. I hate that! The problem looked like it was caused by a single ctx.drawText which slowed down the fps to a slideshow.
Fri, 26 May 2023, 04:30
Jayenkai	The effect is "almost" like Particle 8 in JSE, except Particle 8 swirls around its spawn point, not the player's position. I'm not sure how best I could get JSE to do that, unless I add some sort of SwirlPoint command or something!? shrugs > Reveal 🔎 10 ThrowParticle MouseX(),MouseY(),8,Rnd(360),Rnd(0.5) 20 Flip;CLS;Goto 10 --v -=-=- ''Load, Next List!''
Fri, 26 May 2023, 06:20
Pakz	I am using multiple points here that the particles use for gravity. edit: this was the monkeyX version : Import mojo Class gravitypoint Field x:Int,y:Int Method New(x:Int,y:Int) Self.x = x Self.y = y End Method Method draw() SetColor 255,255,0 DrawOval x,y,6,6 End Method End Class Class particle Field x:Float,y:Float Field incx:Float Field incy:Float Method New(x:Float,y:Float) Self.x = x Self.y = y incx = Rnd(-1,1) incy = Rnd(-1,1) End Method Method update() For Local i:=Eachin mygravitypoint Local a:Int=getangle(x,y,i.x,i.y) incx+=Cos(a)/2 incy+=Sin(a)/2 Next x+=incx y+=incy End Method Method draw() SetColor 255,255,255 DrawOval x,y,6,6 End Method Function getangle:Int(x1:Int,y1:Int,x2:Int,y2:Int) Local dx = x2 - x1 Local dy = y2 - y1 Return ATan2(dy,dx)+360 Mod 360 End Function End Class Global myparticle:List<particle> = New List<particle> Global mygravitypoint:List<gravitypoint> = New List<gravitypoint> Class MyGame Extends App Field counter:Int=0 Method OnCreate() Seed = GetDate[5]+GetDate[4] SetUpdateRate(60) createscene End Method Method OnUpdate() counter+=1 If counter > 300 counter = 0 createscene End If For Local i:=Eachin myparticle i.update Next End Method Method OnRender() Cls 0,0,0 For Local i:=Eachin myparticle i.draw Next If MouseDown(MOUSE_LEFT) For Local i:=Eachin mygravitypoint i.draw Next End If SetAlpha 1 SetColor 255,255,255 DrawText "Monkey-X - Particles with 'Attraction' Effect - Thnx to The Coding Train",0,0 DrawText "Particles get attracted to <Left Mouse Button> points on the map",0,DeviceHeight-20 End Method End Class Function createscene() myparticle = New List<particle> mygravitypoint = New List<gravitypoint> For Local i=0 Until Rnd(10,200) myparticle.AddLast(New particle(Rnd(DeviceWidth),Rnd(DeviceHeight))) Next For Local i=0 Until Rnd(1,20) mygravitypoint.AddLast(New gravitypoint(Rnd(DeviceWidth),Rnd(DeviceHeight))) Next End Function Function Main() New MyGame() End Function --v

Mine, Slime and Monsters - may 2023