GRAPHICS3D 640,480,16,2
SETBUFFER BACKBUFFER()
camera=CREATECAMERA()
light=CreateLight()
cube=LoadAnimMesh("mesh1.b3d")
cube2=LoadAnimMesh("mesh2.b3d")
POSITIONENTITY camera,0,0,-5
ROTATEENTITY light,90,0,0
ENTITYCOLOR cube,150,200,250

ScaleEntity cube,0.2,0.2,0.2
PositionEntity cube,-2,0,2
ScaleEntity cube2,0.2,0.2,0.2
PositionEntity cube2,-1,0,2
pivot = CreatePivot(cube)


Animate cube,2,0.2




While Not KeyHit(1)
Entfernung# = EntityDistance#(cube,cube2)
If entferung# < 0 And gefallen = 0 Then Animate cube2,2,0.2 gefallen = 1
UPDATEWORLD
RENDERWORLD
TEXT 0,0,"Animating:"+ANIMATING(cube)
TEXT 0,20,"AnimLength:"+ANIMLENGTH(cube)
TEXT 0,40,"AnimSeq:"+ANIMSEQ(cube)
Text 0,60,"AnimTime:"+AnimTime(cube)
Text 0,80,"DISTANCE:"+Entfernung#
FLIP
WEND
End