[VB6] 3D Game Engine

[Bobo]

You could consider this a tutorial or sorts. There is no easy way to design a 3D game. However, the people from 3DState have made the gaming world alot more easy for us. You can download a free trial of the 3D game engine to use in VB6 at www.3dstate.com

3DState has already programmed most of the stuff for you. Now you can use their commands to make the world and effects you want, such as...

Private Sub LoadPlayer()
Dim lngSkin As Long
lngPlayer = STATE_object_create_from_file(App.Path & "\..\..\Worlds\Models\player.md2")
If lngPlayer = 0 Then ExitOnError "Error loading player"

lngSkin = STATE_bitmap_load(App.Path & "\..\..\Worlds\Models\skin.bmp", -1)
If lngSkin = 0 Then ExitOnError "Error loading player skin"
STATE_object_set_bitmap lngPlayer, lngSkin

'Get player dimensions...
Dim dblBoundingBox(6) As Double
STATE_object_get_bounding_box lngPlayer, dblBoundingBox(0)
dblPlayerDepth = dblBoundingBox(3) - dblBoundingBox(0)
dblPlayerWidth = dblBoundingBox(4) - dblBoundingBox(1)
dblPlayerHeight = dblBoundingBox(5) - dblBoundingBox(2)

'Move player model to a starting point in the world
STATE_object_move lngPlayer, OBJECT_SPACE, -200, -100, 10000

'Set the starting direction. Default would be 0 degrees in the world.
STATE_object_rotate_z lngPlayer, 130, WORLD_SPACE
End Sub

That is one of the subs from the sample programs that come with the 3D state package. Hope this would help some other people out, it had done wonders for my life in 3D Game Design.

[{Nasadaws}]

Good tuts i will use this later.

[Ricardandroy]

tha's great, i don't know 3D game engine can be made by vb, cool, how about the speed