;ninja

Graphics3D 1024,768,32,1
SetBuffer BackBuffer()

Global fpstimer=CreateTimer(30)
Global cam=CreateCamera():PositionEntity cam,0,20,-20,1
Global plane=CreatePlane()
cube=CreateCube():ScaleEntity cube,3,5,8:PositionEntity cube,0,0,20,1
Global light=CreateLight():PositionEntity light,0,100,0,1:PointEntity light,plane
Global tex=LoadTexture("nskinwh.jpg"):ScaleTexture tex,25,25
EntityTexture plane,tex
Global playermesh=LoadAnimMesh("ninja.b3d")
PointEntity cam,playermesh;:EntityParent cam,playermesh
AmbientLight 200,200,200
Global play_once%=3,play_loop%=1,play_stop%=0,geschw#=0.5,trans#=6.0,seq%=0
Global modus%=play_loop,laufkmh#=0.32,ismoving%=0
Global walk%=1,stealthwalk%=2,punchsword%=3,swinsword%=4,twohand%=5,upblock%=6,forwkick%=7
Global pickfloor%=8,jump1%=9,jump2%=10,finishjump%=11,sidekick%=12,spinattack%=13,backflip%=14
Global climb%=15,fallback%=16,fall4ward%=17,breathe%=18,idle1%=19,idle2%=20
Global lastani%=1,turning%=0,jumping%=0,want2jump%=0,jumpdown%=0

ExtractAnimSeq (playermesh,1,14)
ExtractAnimSeq (playermesh,15,30)
ExtractAnimSeq (playermesh,45,59)
ExtractAnimSeq (playermesh,60,68)
ExtractAnimSeq (playermesh,69,72)
ExtractAnimSeq (playermesh,73,83)
ExtractAnimSeq (playermesh,84,93)
ExtractAnimSeq (playermesh,94,102)
ExtractAnimSeq (playermesh,103,111)
ExtractAnimSeq (playermesh,112,125)
ExtractAnimSeq (playermesh,126,133)
ExtractAnimSeq (playermesh,134,145)
ExtractAnimSeq (playermesh,146,158)
ExtractAnimSeq (playermesh,159,165)
ExtractAnimSeq (playermesh,166,173)
ExtractAnimSeq (playermesh,174,182)
ExtractAnimSeq (playermesh,184,205)
ExtractAnimSeq (playermesh,206,250)
ExtractAnimSeq (playermesh,251,300)
Animate playermesh,modus,geschw,seq,trans


Repeat


movement()
animation()
PointEntity light,playermesh
PointEntity cam,playermesh

UpdateWorld
RenderWorld

Text 10,20,"animating: "+Animating(playermesh)
Text 10,40,"animtime : "+AnimTime(playermesh)
Text 10,60,"animseq  : "+AnimSeq(playermesh)
Text 10,80,"animlength:"+AnimLength(playermesh)
Text 10,120,"jumping : "+jumping
;setanimtime entity,zeit(frame),seq

Flip 0
WaitTimer fpstimer
;WaitKey()
Until KeyDown(1)
End


Function movement()

If KeyDown(200) And jumping=0 Then
   MoveEntity playermesh,0,0,laufkmh
   ismoving=1
Else ismoving=0
EndIf


If KeyDown(203) And jumping=0 Then
   turning=1
   If ismoving=1 Then TurnEntity playermesh,0,1,0
   If ismoving=0 Then TurnEntity playermesh,0,10,0
Else turning=0
EndIf

If KeyDown(205) And jumping=0 Then
   turning=1
   If ismoving=1 Then TurnEntity playermesh,0,-1,0
   If ismoving=0 Then TurnEntity playermesh,0,-10,0
Else
  If KeyDown(203)=0 Then turning=0
EndIf
  If KeyDown(57) And jumping=0 Then;And jumping=0 Then
      jumping=1:turning=0:ismoving=0;want2jump=1
  EndIf
If jumping=1 Then
   If jumpdown=0 Then MoveEntity playermesh,0,2,0
EndIf
gravity=-1
MoveEntity playermesh,0,gravity,0
If EntityY#(playermesh,1)< 0.0 Then PositionEntity playermesh,EntityX#(playermesh,1),0.0,EntityZ#(playermesh,1),1
FlushKeys
End Function
;-----------------------------------------
Function animation()
lastani=seq

If jumping=1 Then
   seq=jump1:jumpdown=1
   If AnimSeq(playermesh)=jump1 And AnimTime(playermesh) > 1.2 Then jumpdown=0
   If AnimSeq(playermesh)=jump1 And AnimTime(playermesh) > 7.0 Then seq=idle1:jumping=0
EndIf



;   If jumping=1 Then
;      If AnimSeq(playermesh)=jump1 And (AnimTime(playermesh))=(AnimLength(playermesh)) Then
;         jumping=0
;      EndIf
;   EndIf

If ismoving=1 And AnimSeq(playermesh)<>walk And jumping=0 Then     
    seq=walk
EndIf
If ismoving=0 And jumping=0 Then
   If turning=0 Then seq=idle1
   If turning=1 Then seq=stealthwalk
EndIf

Select seq
Case jump1
;    If AnimTime(playermesh) > 6 Then
      trans=6.0:geschw=0.6:modus=play_once
;    EndIf
;    If AnimTime(playermesh) <= 6 Then
;      trans=6.0:geschw=0.8:modus=play_loop
;    EndIf
Default
    trans=6.0:geschw=0.5:modus=play_loop
End Select


If seq<>lastani Then
   Animate playermesh,modus,geschw,seq,trans
EndIf
;If Animating(playermesh)=0 Then
;   Animate playermesh,modus,geschw,seq,trans
;EndIf
End Function