Forum - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|724\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Retro Stuff -> My latest Game - Boothill
Wed, 18 Sep 2019, 10:46
zzoom	My latest Game Started a remake of boothill, but got this crazy Idea I might make it in B3D Anyway, this has given me inspiration: JayenKais STL converter -=-=- Happy coding!
Wed, 18 Sep 2019, 11:05
Jayenkai	Cool! Is that the two-player western shootout game? -=-=- ''Load, Next List!''
Wed, 18 Sep 2019, 18:55
Jayenkai	It just occurred to me. You can't load the STL back into B3D.. (Not without an extra load routine, anyway) It's not hard to convert pixels into block data, though, and given the simplicity of the original game, it shouldn't be too hard for B3D to cope with it all. Suggest you create one cube, then make meshes for each "sprite", and AddMesh "basic cube", sprite until you've created all the different sprites. I'll do an example code thing tomorrow, if you'd like. -=-=- ''Load, Next List!''
Thu, 19 Sep 2019, 08:40
zzoom	Yep, its the western thingy - got all sorts of crazy ideas for it - but in the first instance need to try and stick to the original - ish, to get it off the starting blocks. Here's my planned conversion process: 1. Import pixels using Jayenkai's tool 2. Export to STL 3. import stl to blender 4. export in blender to.b3d Unfortunately, my computer with the blender + b3d plugin is dead - so got a little work to do. Fun times -=-=- Happy coding!
Thu, 19 Sep 2019, 08:52
Jayenkai	That's an awfully messy way around it! All you need to do is import pixelart and convert to blocks. I said I'd do you an example, and .. I will, just .. Not right now! Currently having to do backups and things, and would rather it not break! -=-=- ''Load, Next List!''
Thu, 19 Sep 2019, 09:49
Jayenkai	OK, here you go.. Global jscrw=1024 Global jscrh=768 Graphics3D jscrw,jscrh,0,2 SeedRnd MilliSecs() Global BoxSprite[1024] campivot=CreatePivot() cam=CreateCamera(campivot) MoveEntity cam,50,50,50 PointEntity cam,campivot AmbientLight 128,128,128 lamp=CreateLight(2,campivot) MoveEntity lamp,100,90,150 LightRange lamp,50 ConvertBoxSprites() Repeat Cls RenderWorld TurnEntity campivot,0.1,0.2,0.3 UpdateWorld Flip Until KeyDown(1) Function ConvertBoxSprites() img=LoadImage("sprites.png") LockBuffer ImageBuffer(img) pixel=CreateCube() ScaleMesh pixel,0.5,0.5,0.5 ; Spritesheet Info SpriteWidth=16 SpriteHeight=16 SpritesX=ImageWidth(img)/SpriteWidth SpritesY=ImageHeight(img)/SpriteHeight For sy=0 To SpritesY-1 For sx=0 To SpritesX-1 ; For each sprite (8 x 8 spritesheet of 16x16 pixels ID=(sySpritesX)+sx BoxSprite[ID]=CreateMesh() For y=0 To SpriteHeight For x=0 To SpriteWidth cx#=Float(x)-(Float(SpriteWidth)/2.0) cy#=Float(y)-(Float(SpriteHeight)/2.0) cz=0 argb=ReadPixelFast((sxSpriteWidth)+x,(sy*SpriteHeight)+y,ImageBuffer(img)) r=(argb And $00FF0000) Shr 16 g=(argb And $0000FF00) Shr 8 b=(argb And $000000FF) If r>4 Or g>4 Or b>4 ; Assuming 0,0,0 = transparent tbrush=CreateBrush(r,g,b) PaintMesh pixel,tbrush PositionMesh pixel,cx,cy,cz AddMesh pixel,BoxSprite[ID] PositionMesh pixel,-cx,-cy,-cz FreeBrush tbrush EndIf Next Next MoveEntity BoxSprite[ID],Rnd(-32,32),Rnd(-32,32),Rnd(-32,32) RotateEntity BoxSprite[ID],Rnd(360),Rnd(360),Rnd(360) UpdateNormals BoxSprite[ID] Next Next UnlockBuffer ImageBuffer(img) FreeEntity pixel End Function --v BoxSprites (.zip) What you'll need to do from that point is move all the BoxSprite objects off to an unseen area, then CopyEntity the BoxSprite you need per frame, move it where you need it, and free it away afterwards. -=-=- ''Load, Next List!''
Sat, 21 Sep 2019, 20:06
zzoom	Thanks JayenKai, giving this a whirl now - yesterday I confused my noggin by YET again trying to suss the nuances of native collision detection - ended up writing my own proximity function: ;Basically passing in co-ords of interest for comparison between two objects Function p2bulletsHit(p2x,p2y,b1x,b1y) If b1x<=p2x+4: If b1x >=p2x: xclose=1 Else xclose=0 EndIf EndIf If b1y<=p2y+4: If b1y >=p2y: yclose=1 Else yclose=0 EndIf EndIf If xclose=1: If yclose=1: shot=1 Else shot=0 EndIf EndIf Return shot End Function --v -=-=- Happy coding!
Sat, 21 Sep 2019, 21:10
zzoom	Getting there... slowly. Think more sleep is required to get to the bottom of how to position a BoxSprite like a 3D entity....? https://socoder.net/s2upload.php# (JKSprites.zip contains my code and a 32 x 32 cactus.png) Am I missing something by not copying the BoxSprite 'off screeen' before trying to refence it - I think this is purely meant as part of the load_entities function whereby the .pngs can be convereted on the fly to manipulable 3D entities - however my attempts at positioning CactusSprites are resulting in MAVs? Maybe just a syntactical thing on my part. Thank you for your help so far ; JayKayIsAce2.bb Global jscrw=1024 Global jscrh=768 Graphics3D jscrw,jscrh,0,2 SeedRnd MilliSecs() Global BoxSprite[1024] Global CactusSprite[1024] ;For x=1 To 64 ; CactusSprite[x]=CreateMesh ; is it necessary to create a mesh for each? ; ; Hmm do not think so ;Next ;CactusEntity=CreateMesh() campivot=CreatePivot() cam=CreateCamera(campivot) MoveEntity cam,150,150,150 PointEntity cam,campivot AmbientLight 128,128,128 lamp=CreateLight(2,campivot) MoveEntity lamp,100,90,150 LightRange lamp,50 For x=1 To 64 CactusSprite[x]=ConvertBoxSprites() ;Makes 64 Cacti Next ;CopyEntity BoxSprite,CactusEntity Repeat Cls RenderWorld TurnEntity campivot,0.1,0.2,0.3 ;PositionEntity CactusEntity[1],1,1,1 ; MAV ? ;PositionEntity CactusSprite[1],1,1,1 ; Also MAV ing UpdateWorld Flip ;PositionEntity CactusEntity[1],1,1,1 MoveEntity cam,0,0,0.1 Until KeyDown(1) Function ConvertBoxSprites() img=LoadImage("./cactus1.png") LockBuffer ImageBuffer(img) pixel=CreateCube() ScaleMesh pixel,0.5,0.5,0.5 ; Spritesheet Info ;SpriteWidth=16 ;SpriteHeight=16 SpriteWidth=32 ;my cactus is 32x32 pixels SpriteHeight=32 SpritesX=ImageWidth(img)/SpriteWidth SpritesY=ImageHeight(img)/SpriteHeight For sy=0 To SpritesY-1 For sx=0 To SpritesX-1 ; For each sprite (8 x 8 spritesheet of 16x16 pixels ID=(sySpritesX)+sx BoxSprite[ID]=CreateMesh() For y=0 To SpriteHeight For x=0 To SpriteWidth cx#=Float(x)-(Float(SpriteWidth)/2.0) cy#=Float(y)-(Float(SpriteHeight)/2.0) cz=0 argb=ReadPixelFast((sxSpriteWidth)+x,(sy*SpriteHeight)+y,ImageBuffer(img)) r=(argb And $00FF0000) Shr 16 g=(argb And $0000FF00) Shr 8 b=(argb And $000000FF) If r>4 Or g>4 Or b>4 ; Assuming 0,0,0 = transparent tbrush=CreateBrush(r,g,b) PaintMesh pixel,tbrush PositionMesh pixel,cx,cy,cz AddMesh pixel,BoxSprite[ID] PositionMesh pixel,-cx,-cy,-cz FreeBrush tbrush EndIf Next Next MoveEntity BoxSprite[ID],Rnd(-32,32),Rnd(-32,32),Rnd(-32,32) ; Appreciate moving them off to an unseen area ; upon first loading....... Ahhh- a BoxSprite IS ; an entity in its own right! RotateEntity BoxSprite[ID],Rnd(360),Rnd(360),Rnd(360) UpdateNormals BoxSprite[ID] CopyEntity BoxSprite[ID],CactusSprite[1]; Suspect I cannot simply copy Entity in this fashion.... Return CactusSprite[1] Next Next UnlockBuffer ImageBuffer(img) FreeEntity pixel End Function --v -=-=- Happy coding!
Sun, 22 Sep 2019, 00:16
zzoom	Morning - I've sussed how to move the Cacti - in the function. However - I'm getting MAV's trying to manipulate the entities outside of the function - getting there! -=-=- Happy coding!
Sun, 22 Sep 2019, 00:54
zzoom	Thanks JayenKai - got there in the end [img][/img] -=-=- Happy coding!
Sun, 22 Sep 2019, 04:37
Jayenkai	You could probably do with changing the z axis on the scaleentity pixel, so that the objects look a bit chunkier, I reckon. Also, don't go overboard with "sprites" My lazy technique is VERY polygon heavy. Each "pixel" ends up being 12 poly's, and it doesn't remove the inner "walls" between each block. A better technique would be to generate the walls programmatically, and ignore any duplicates/adjacent walls along the way. But I'm going to leave that up to you to figure out -=-=- ''Load, Next List!''
Sun, 22 Sep 2019, 15:25
zzoom	You could probably do with changing the z axis on the scaleentity pixel, so that the objects look a bit chunkier, I reckon. Also, don't go overboard with "sprites" My lazy technique is VERY polygon heavy. Each "pixel" ends up being 12 poly's, and it doesn't remove the inner "walls" between each block. Thanks for the tips I'm all coded out for today - burnt the candle a little achieving the Cacti as they are. Increasing the Z-field is appreciated. Thankyou (still) for inspiring me to code ducks away a while ago..... [Edit] Nope, ducks away isn't what I called it: https://socoder.net/?Workshop=Find&Entry=387 -=-=- Happy coding!

My latest Game