My new SpriteLib Engine

Community Forums/Showcase/My new SpriteLib Engine

Xilvan

(Posted 2010) [#1]

I'm presently working on a Sprite lib, this lib can deliver stunning effects and even run a way better Candy World Adventure II : The Lillians festival. Some adjustment need to be added... such like the screen resolution who can only be 640X480.

-EDIT-
The resolution problem is finally fixed.., The resolution can now be through 640X480, 800X600 and 1024X768... People will enjoy the new resolution offered for the new engine.

Candy World Adventure has now fully remasterised png sprites, as well as static than animated ones. The 1.50th version of the games runs smooth with 640X480 version, but it lags in more detailed resolution...

Altmost 8192 sprites are rendered by scenes, most of them are hidden... It runs at more than 50 fps at this resolution.

Theres now fully possibilities of transparencies, blending and animations.

Heres some images, it talks by itselfs:

As you can see on the screenshots, theres mesh font. A maximum of tree arrays of 1024 characters can be shown at the same time.

-The first one is for normal text, in bubble.
-The second one is for the menus and screen items.
-The third one is for the area selection.

Therefore, many of usual suggestions has been applied in my new 1.50th version of the game and I hope you'll enjoy !

-Version IV - now showing more possible resolution-

Const Max_Spr = 16384
Global iSprite_ = -1
Dim Sprite_(Max_Spr)
Dim Sprite_Tex_(Max_Spr)
Dim Sprite_(Max_Spr)
Dim Sprite_Blend_(Max_Spr)
Dim Sprite_piv(Max_Spr)
Dim Spr_x#(Max_Spr)
Dim Spr_y#(Max_Spr)
Dim Spr_Angle(Max_Spr)
Dim Spr_Dir(Max_Spr)
Dim Spr_dx(Max_Spr)
Dim Spr_t(Max_Spr)
Dim Spr_tx#(Max_Spr)
Dim Spr_ty#(Max_Spr)
Dim Spr_bAnim(Max_Spr)
Dim Spr_Path$(Max_Spr)
Dim Spr_face(Max_Spr)
Dim Tex_Filter#(Max_Spr)
Dim Sprite_a#(Max_Spr)
Dim Spr_(Max_Spr)
Global Sprite2_
Global BaseTuiles_
Global SprPack = LoadMesh("Data\SprMesh.b3d")
Global Path$

Const Max_P_ = 2600
Dim P_(Max_P_)

Global iPart_ = 0
Global dimResize# = 640.0/Float(gx)

P_(0) = LoadAnimImage_("Images\Lillians\Candy.png",64,64,0,8*14,11)
For i = 1 To Max_P_ - 1
	P_(i) = CopyEntity_(P_(0))
	PositionEntity Sprite_(P_(i)),-2048,-2048,1.01
	HideEntity Sprite_(P_(i))
Next
HideEntity Sprite_(P_(0))

Function LoadAnimImage_(Sprite$,tttx#,ttty#,dx,taille,flag_=1,texture_=0)
	iSprite_ = iSprite_ + 1
	
	Path$ = Sprite$
	Sprite_(iSprite_) = CopyMesh(SprPack)
	Spr_Path$(iSprite_) = Sprite$
	Sprite_Tex_(iSprite_) = LoadAnimTexture(Sprite$,flag_,Int(tttx#),Int(ttty#),dx,taille)
	EntityTexture Sprite_(iSprite_),Sprite_Tex_(iSprite_)
	
	texture_ = Sprite_Tex_(iSprite_)
	Tex_Filter(iSprite_) = Tex_Filter(theSprite_)
	
	Sprite_Blend_(iSprite_) = 1
	TextureBlend Sprite_Tex_(iSprite_),2
	TextureFilter Sprite_Tex_(iSprite_),Tex_Filter(iSprite_)
	
	EntityBlend_ iSprite_,Sprite_Blend_(iSprite_)
	EntityParent Sprite_(iSprite_),parent_
	EntityFX Sprite_(iSprite_),1
	
	Spr_tx#(iSprite_) = tttx#
	Spr_ty#(iSprite_) = ttty#
	
	Tex_Filter(iSprite_) = flag_
	ScaleEntity Sprite_(iSprite_),(Spr_tx#(iSprite_)/130.0)*dimResize#,(Spr_ty#(iSprite_)/130)*dimResize#,1

	Spr_bAnim(iSprite_) = True
	EntityAlpha_ iSprite_,0
	EntityOrder_ iSprite_,-1024
	PositionEntity Sprite_(iSprite_),-2048,-2048,1.01
	HideEntity Sprite_(iSprite_)
	Return iSprite_
End Function

Function LoadImage_(Sprite$,tttx#=256,ttty#=256,flag_=4)
	iSprite_ = iSprite_ + 1
	
	Sprite_(iSprite_) = CopyMesh(SprPack)
	Path$ = Sprite$
	Spr_Path$(iSprite_) = Sprite$
	Sprite_Tex_(iSprite_) = LoadTexture(Sprite$,flag_)
	EntityTexture Sprite_(iSprite_),Sprite_Tex_(iSprite_)

	Tex_Filter(iSprite_) = Tex_Filter(theSprite_)
	
	Sprite_Blend_(iSprite_) = 1
	TextureBlend Sprite_Tex_(iSprite_),2
	TextureFilter Sprite_Tex_(iSprite_),Tex_Filter(iSprite_)
	
	EntityBlend_ iSprite_,Sprite_Blend_(iSprite_)
	EntityParent Sprite_(iSprite_),parent_
	EntityFX Sprite_(iSprite_),1
	
	Spr_tx#(iSprite_) = tttx#
	Spr_ty#(iSprite_) = ttty#
	
	ScaleEntity Sprite_(iSprite_),(Spr_tx#(iSprite_)/130.0)*dimResize#,(Spr_ty#(iSprite_)/130)*dimResize#,1
	Tex_Filter(iSprite_) = flag_
	Spr_bAnim(iSprite_) = False
	EntityOrder_ iSprite_,-1024
	EntityBlend_ iSprite,Sprite_blend_(theSprite_)
	PositionEntity Sprite_(iSprite_),-2048,-2048,1.01
	HideEntity Sprite_(iSprite_)
	Return iSprite_
End Function

Function CopyEntity_(theSprite_,parent_=0)
	iSprite_ = iSprite_ + 1
	Path$ = Spr_Path$(theSprite_)
	Spr_Path$(iSprite_) = Spr_Path$(theSprite_)
	Sprite_Tex_(iSprite_) = Sprite_Tex_(theSprite_)
	Sprite_(iSprite_) = CopyMesh(SprPack)
	Sprite_Blend_(iSprite_) = Sprite_Blend_(theSprite_)
	Tex_Filter(iSprite_) = Tex_Filter(theSprite_)
	
	Sprite_Blend_(iSprite_) = 1
	TextureBlend Sprite_Tex_(iSprite_),2
	TextureFilter Sprite_Tex_(iSprite_),Tex_Filter(iSprite_)
	
	EntityBlend_ iSprite_,Sprite_Blend_(iSprite_)
	
	EntityTexture Sprite_(iSprite_),Sprite_Tex_(iSprite_)
	EntityParent Sprite_(iSprite_),parent_
	EntityFX Sprite_(iSprite_),1
	
	Spr_tx#(iSprite_) = Spr_tx#(theSprite_)
	Spr_ty#(iSprite_) = Spr_ty#(theSprite_)
	
	Spr_bAnim(iSprite_) = Spr_bAnim(theSprite_)
	ScaleEntity Sprite_(iSprite_),(Spr_tx#(iSprite_)/130.0)*dimResize#,(Spr_ty#(iSprite_)/130)*dimResize#,1
	EntityOrder_ iSprite_,-1024
	PositionEntity Sprite_(iSprite_),-2048,-2048,1.01
	HideEntity Sprite_(iSprite_)
	Return iSprite_
End Function

Function EntityBlend_(theSprite_,blend2_)
	Sprite_Blend_(theSprite_) = blend2_
	EntityBlend Sprite_(theSprite_),blend2_
End Function

Function ScaleSprite_(theSprite_,ScaleX#,ScaleY#)
	ScaleEntity Sprite_(theSprite_),(ScaleX#/130.0)*dimResize#,(ScaleY#/130)*dimResize#,1.01
End Function

Function RotateSprite_(theSprite_,angle_,Cam=0)
	Sprite_Dir = EntityRoll(Sprite_(theSprite_))
	RotateEntity Sprite_(theSprite_),EntityPitch(Came),EntityYaw(Came),angle_
End Function

Function RotateEntity_(theSprite_,ax#,ay#,az#)
	RotateEntity Sprite_(theSprite_),ax#,ay#,az#
End Function

Function TurnSprite_(theSprite_,angle_)
	TurnEntity Sprite_(theSprite_),EntityPitch(Came),EntityYaw(Came),angle_
	Sprite_Dir = EntityRoll(Sprite_(theSprite_))
End Function

Function TurnEntity_(theSprite_,dx#,dy#,dz#)
	TurnEntity Sprite_(theSprite_),dx#,dy#,dz#
End Function

Function SpriteViewMode_(theSprite_,viewmode_)		
	If theSprite_ < Max_Spr Then
		Spr_face(theSprite_) = ((viewmode_ = Sprite_(theSprite_)))
	End If
End Function

Function DrawImage_(theSprite_,x,y,anim=-1)
	PositionEntity Sprite_(theSprite_),(((Float(x+DecalX)*0.005)/1.56502)*dimResize#)-1,(1.20-((Float(y+DecalY)*0.0047)/1.49)*dimResize#)-0.3,1.01
	Spr_x#(theSprite_) = x
	Spr_y#(theSprite_) = y
	If anim > -1 Then
		EntityTexture Sprite_(theSprite_),Sprite_Tex_(theSprite_),anim,0
	End If
	ShowEntity Sprite_(theSprite_)
End Function

Function AnimSprite_(theSprite_,Anim = 0)
	DrawImage_ theSprite_,Spr_x#(theSprite_),Spr_y#(theSprite_),anim
End Function

Function DrawAnimTexture_(theSprite_,SpriteTex_,x,y,tx,ty,Anim=0,r=255,g=255,b=255)
	EntityTexture_ theSprite_,SpriteTex_,Anim
	Sprite_Tex_(theSprite_) = SpriteTex_
	DrawImage_ theSprite_,x,y,Anim
	EntityColor_ theSprite_,r,g,b
	EntityBlend_ theSprite_,1
	ScaleSprite_ theSprite_,tx,ty
	EntityAlpha_ theSprite_,1
	Spr_bAnim(theSprite_) = True
	ShowEntity Sprite_(theSprite_)
End Function

Function EntityTexture_(theSprite_,SpriteTex_,anim=0,id=0)
	EntityTexture Sprite_(theSprite_),SpriteTex_,anim,id
	Spr_bAnim(theSprite_) = True
End Function

Function MidHandle_(Sprite)
	;
End Function

Function GetTexture_(theSprite_)
	Local brush=GetEntityBrush(Sprite_(theSprite_))
	Local tex=GetBrushTexture(brush)
	Return tex
End Function

Function EntityOrder_(theSprite_,order_=0)
	EntityOrder Sprite_(theSprite_),Order_
End Function

Function EntityAlpha_(theSprite_,alpha#=0.0)
	EntityAlpha Sprite_(theSprite_),alpha#
End Function

Function EntityColor_(theSprite_,cr,cg,cb)
	EntityColor Sprite_(theSprite_),cr,cg,cb
End Function

Function EntityFX_(theSprite_,fx_)
	EntityFX Sprite_(theSprite_),fx_
End Function

Function MoveSprite_(theSprite_,dx#,dy#,dz#)
	MoveEntity Sprite_(theSprite_),dx#,dy#,dz#
End Function

Function TranslateSprite_(theSprite_,dx#,dy#,dz#)
	TranslateEntity Sprite_(theSprite_),dx#,dy#,dz#
End Function

Function EntityParent_(theSprite_,parent_)
	EntityParent Sprite_(theSprite_),parent_ 
End Function

Function TextureBlend_(theSprite_,value_)
	TextureBlend Sprite_Tex_(theSprite_),value_
End Function

Function HideEntity_(TheSprite_)
	HideEntity Sprite_(TheSprite_)
End Function

Function ShowEntity_(TheSprite_)
	ShowEntity Sprite_(TheSprite_)
End Function

-Sprite Lib Download-

Lastly, I've added the 1.72th version of my game Candy World Adventure II... Now Butterflies flap fluidly and everything in the game has been converted. Most of the bugs are removed. It seems I should need more speed adjustments. The game looks more pleasant to play and I like the way I made it in just 3-4 days...

-Download Latest Version Here-

I'm waiting for your comments and I think is a must try...

N	(Posted 2010) [#2]

I cannot fathom why you have X, Y, Z, etc. all in arrays... were you drunk when you wrote this? I'll understand if you were.

Naughty Alien

(Posted 2010) [#3]

..types are your friend, Xylvan..

GaryV

(Posted 2010) [#4]

Xylvan: You might want to search the forums for tutorials on types. They are very useful and besides helping your code be less cluttered, it can also make it easier to maintain and expand your code in the future. Just a suggestion, not an insult.

_Skully

(Posted 2010) [#5]

Xylvan, Yikes... take the above advice for sure.

AvestheFox

(Posted 2010) [#6]

as suggested above, types are awesome!

still, nice effort :)

Boiled Sweets

(Posted 2010) [#7]

Function RotateEntity_(theSprite_,ax#,ay#,az#)
RotateEntity Sprite_(theSprite_),ax#,ay#,az#
End Function

Am I missing something? What's the point of having this function exactly? Why not just call the RotateEntity function in your code rather than having to make an extra call. Madness. Why not extend this idea and have...

Function RotateEntity_(theSprite_,ax#,ay#,az#)
ActuallyDoTheRotateEntity Sprite_(theSprite_),ax#,ay#,az#
End Function

Function ActuallyDoTheRotateEntity(theSprite_,ax#,ay#,az#)
RotateEntity Sprite_(theSprite_),ax#,ay#,az#
End Function

Xilvan

(Posted 2010) [#8]

Function RotateEntity_(theSprite_,ax#,ay#,az#)
RotateEntity Sprite_(theSprite_),ax#,ay#,az#
End Function

it actually works great with the sprite index, not the sprite itselfs...

Please everyones, look up at the code box, I altmost finished the engine and I'm up to publish it soon...

I've added some final result of my new game... I hope you'll enjoy !

N	(Posted 2010) [#9]

I looked at the codebox. It contains bad code. You've neglected to use types and instead went with arrays for no really good reason (you could just as easily pass a type to the functions and it would be a better result, and probably faster since no lookup is needed). Most of the code is just a wrapper around existing functions and does nothing really important in the first place.

Xilvan

(Posted 2010) [#10]

I'll try to use types...

I will use:
Sprite_(Max_Spr_)
as an index for the type

then I'll use:
Type Spr_
Field x#,y#,a#, etc...
end Type

N	(Posted 2010) [#11]

I think you may have missed the point if you're still planning on using arrays for no reason.

Xilvan

(Posted 2010) [#12]

The reason that I dont use arrays yet is because its very hard to program... I intend to make it possible to use it in future version, but I'm still waiting for.

Maybe in one week I'll be able to convert the whole game to that kind of coding.

GaryV

(Posted 2010) [#13]

Kryzon

(Posted 2010) [#14]

Maybe in one week I'll be able to convert the whole game to that kind of coding.

Oh, so that's another 3 years of development until "release".

Xilvan

(Posted 2010) [#15]

I will have to continue Candy World III : Heart of Heaven this week.

I've pretty liked to work on Candy World Adventure II... I would be back in few day on this new game... I have to post a new gallery for Candy World Adventure II. I hope people will see it and download the game the sooner as possible. I've added again a reprogrammed version of my Level Editor for this game. People will be able to mod the game with ease in the near future.

I need to make my new sprite lib compliant with 3D scenes because my 2D sprite lib only work with a fixed camera. The camera of my 3D sprite lib test on Candy World III (3D) some days ago were successfull. But I need to enhance the speed and accuracy of it.

Candy World III is in 3D and it gives the occasion to test what would happen with a flexible 2D-3D sprite lib ? I think I will use it for all my games and give feed back on the forums or blitz's blog.

I'm aiming on it and I hope it will be good for the communauty...

Dark Soul

(Posted 2010) [#16]

Tried out your game, looks pretty good, love the graphics though you should give an option to shut off the snow ball looking floaties. The game style kind of reminds me of Smurfs on the ol' ColecoVision.

And its ok to use arrays if it gets the job done. Don't let these "type" types(guys) tell you any different.
Blitz would not have arrays if they were not meant to be used! Simple is always better and if arrays work for you then go for it.

Would not hurt to learn about types when you get the chance though, after all programming always involves learning as you go, it's part of the ongoing process.

The important thing is finishing what you start.
(looks at some of the other programmers here that just hang on the forums).

Ross C

(Posted 2010) [#17]

It's called a hobby :) I truely wish i could get round to finishing something though...

Kryzon

(Posted 2010) [#18]

If you don't have the motivation, you never will.

Me, for instance. Every project I started "out of the blue" from some inspiration didn't get more than very few art assets and some lines of code done.

However, when they were projects for competitions that involved prizes with real value (not just a pat on the back), I got the motivation to make some things more complete. Unfortunately, for me, that's the only kind of motivation that can drive something out of me much stronger than just hobbyism. I depend on competitions to be project-finishing productive.

I'm curious about the motivation that drives Xylvan.

John Cage

(Posted 2010) [#19]

>runs smooth with 640X480 version

Why only 640x480 resolution? Are ya' gonna make some stuff for a higher res too?

Xilvan

(Posted 2010) [#20]

Since today at 7:00 AM Est, both resolution 800X600 and 1024X768 has been unlocked... It seems that too many sprite were showing becayse they was rendered at the middle, so -512,-512 in pixel... Now it only shows the visible sprites, and, all the sprites of my game are moved at -2048,-2048 in pixel...

I worked very hard to get it working properly... but it need some fixing...

See code in the start of the topic.

Xilvan

(Posted 2010) [#21]

I waked up and wrote down the very first SpriteLib sample:

-Sprite Lib Download-

left arrow -> Move left
Right arrow -> Move Right

More functions soon !

it took me 30 minutes to write it. Its in development since Monday 3th May 2010. By the way the game is at its 1.72th version and it goes well. I hope to finalise it in the next few weeks.

Click on image to see the pic !

Remember it is a sample and mostly the game are entirely converted and allows way better graphics and animations than the previous version of Candy World Adventure II.

See the whole game all converted here:

Version 0.82 is out on Download.com, please try it...