Well, managed the following, 5 guys doing stuff, the zombie with the hand up is my one (;-)
The robot back flips and the dwarf does a falling backwards - both these animations are the default one which accompany Pacemaker. I strongly recommend it (;-)
here is some code that will allow you to execute the following in B3D, I have not included my animations or jpegs but I'm sure you can slap your own in place - hope this helps someone.
Graphics3D 1024,768, 32,2
SetBuffer BackBuffer()
;tips: dont have pacemaker referencing/running the same image when this exe is accessing it also (;-)
;Global Play1 = LoadAnimMesh("Man_idle.b3d")
Global Play1 = LoadAnimMesh("pmk_zombie2.b3d")
Global Play2 = LoadAnimMesh("zombiearmup.b3d")
Global Play3 = LoadAnimMesh("zarmupb3d.b3d")
Global Play4 = LoadAnimMesh("pmk_dwarf.b3d")
Global Play5 = LoadAnimMesh("pmk_robot.b3d")
;load the textures:
; Load texture
zomtex=LoadTexture( "zombie.jpg" )
dwarftex=LoadTexture( "dwarf.jpg" )
robtex=LoadTexture( "r2skin2.jpg" )
axetex=LoadTexture( "axe.jpg" )
; Texture things with textes
EntityTexture Play1,zomtex
; ####################################################################################################
;make a terrain
Global terrain = LoadTerrain("C:/Program Files/GetFit/height4.jpg")
TerrainDetail terrain,2500,True
ScaleEntity terrain, 3,15,3
PositionEntity terrain,-1000,0,-530
ter_tex = LoadTexture("C:/Program Files/GetFit/happy.jpg")
ScaleTexture ter_tex,10,10
EntityTexture terrain,ter_tex
EntityRadius terrain,0.2
EntityType terrain,SCENERY
;SKY
Global sky = CreateSphere(16,camera_pivot)
FlipMesh sky
ScaleEntity sky,480,480,480
PositionEntity sky, 0,50,0
sky_tex = LoadTexture("C:/Program Files/GetFit/sky.bmp")
EntityTexture sky,sky_tex
; ########################################################################################################
PositionEntity Play1,0,0,-120
RotateEntity Play1,0,180,0
PositionEntity Play2,10,0,-120
RotateEntity Play2,0,180,0
PositionEntity Play3,20,0,-120
RotateEntity Play3,0,180,0
PositionEntity Play4,-25,0,-185
RotateEntity Play4,0,0,0
PositionEntity Play5,40,0,-150
RotateEntity Play5,0,90,0
ScaleEntity Play5,15,15,15 ; small robots look like toys
;LoadAnimSeq(Play1,"Man_walk_Forward3.b3d.")
;LoadAnimSeq(Play1,"Man_Chop.b3d.")
;LoadAnimSeq(Play1,"Man_Pick.b3d.")
;LoadAnimSeq(Play1,"Man_Fight_Fists.b3d.")
Global Lite = CreateLight()
Global Cam = CreateCamera()
PositionEntity Cam,-50,65,-50
PointEntity Cam,Play1
CameraClsColor Cam,255,255,0
While Not KeyHit(1)
If KeyHit(2) Then
Animate Play1,1,.5,0
;Text 10,50, "Anim Seq 1: "+AnimSeq(Play1)
EndIf
If KeyHit(3) Then
Animate Play2,1,.5,0
;Text 10,70, "Anim Seq 2: "+AnimSeq(Play2)
EndIf
If KeyHit(4) Then
Animate Play3,1,.5,0
;Text 10,90, "Anim Seq 3: "+AnimSeq(Play3)
EndIf
If KeyHit(5) Then
Animate Play4,1,.5,0
;Text 10,90, "Anim Seq 3: "+AnimSeq(Play4)
EndIf
If KeyHit(6) Then
Animate Play5,1,.5,0
;Text 10,90, "Anim Seq 3: "+AnimSeq(Play5)
EndIf
;controlkeys()
UpdateWorld()
RenderWorld()
Color 0,0,0
Text 10,10,"Animating: "+Animating(Play1)
Text 10,30, "Anim Seq: "+AnimSeq(Play1)
Flip
Wend
ClearWorld()
End()
|
