Graphics3D 800,600,16,2
SetBuffer BackBuffer()

Global cam = CreateCamera()
   PositionEntity cam,0,0,-20

Global lego = LoadAnimMesh("Lego.b3d")
   ScaleEntity lego,0.04,0.04,0.04
   PositionEntity lego,0,1,0
   EntityType lego,1
   EntityRadius lego,0.7

Global steh = ExtractAnimSeq(lego,0,1)
Global lauf = ExtractAnimSeq(lego,1,5)
Global sprg = ExtractAnimSeq(lego,6,6)
Global seq = steh
   
Global campiv = CreatePivot(lego)
   PositionEntity campiv,0,50,-100
   
Global gr = CreatePlane()
   tex = LoadTexture("ground.bmp")
   EntityTexture gr,tex
   EntityType gr,2
   
Global light = CreateLight()
   PositionEntity light,0,100,0
   RotateEntity light,90,0,0
   
Global cx#,cy#,cz#,x#,y#,fy#,sprung,grav#=-.01

Collisions 1,2,2,2
   Animate(lego,1,0.02,sprg)
Repeat
   y = (KeyDown(200)-KeyDown(208))
   x = (KeyDown(203)-KeyDown(205))
   If KeyHit(57) And Sprung = 0 Then Sprung = 1:fy# = 1
   If x Or y And Sprung = 0
      seq = lauf
   ElseIf x=0 And y=0 And Sprung = 0
      seq = steh
   EndIf
   If Sprung = 1
      seq = sprg
      fy# = fy# - 0.001
      MoveEntity lego,0,fy#,0
      If EntityCollided(lego,2)=gr Then Sprung = 0
   Else
      TranslateEntity lego,0,grav#,0
   EndIf
   MoveEntity lego,0,0,y/50
   TurnEntity lego,0,x/2,0
   cx=EntityX(campiv,True)-EntityX(cam)
   cy=EntityY(campiv,True)-EntityY(cam)
   cz=EntityZ(campiv,True)-EntityZ(cam)
   TranslateEntity cam,cx*.03,cy*.03,cz*.03
   PointEntity cam,lego
   If seq <> AnimSeq(lego) Then Animate(lego,1,0.02,seq)
   UpdateWorld()
   RenderWorld()
   Text 1,1,fy#+"/"+Sprung
   Flip 0
Until KeyHit(1)
End