Graphics3D 640,480,16,2


poli=LoadAnimMesh( "poli.b3d" )   ;cargo el modelo
ScaleEntity poli,0.4,0.4,0.4      ;scalamos a mas pequeño 
 
RotateEntity poli,0,180,0         ;lo rotamos, porqueestaba de espaldas 
MoveEntity poli, 0,0,100          ;lo movemos hacia adelante 
ExtractAnimSeq( poli,1,6 )        ;sacamos la secuencia 1 de 1 a 6 parado moviendo los brazos
ExtractAnimSeq( poli,8,30 )       ;sacamos la secuencia 1 de 8 a 30 caminando


camara=CreateCamera(poli)         ;camara siguiendo a poli
PositionEntity camara,0,100,150   ;la camara arriva arriba y atraz de poli
TurnEntity camara,10,180,0        ;media huelta a la camara y agachar, para vef al poli

light=CreateLight()               ;luces 

piso=LoadMesh( "ruin.b3d" )       ;escenario


Animate poli,2,0.1,1              ;animar seq 1(parado)


While Not KeyHit(1)               ;mientras no se presione esc

  semueve#=0

  If KeyDown(200) Then                ;si se presiona up
    If AnimSeq(poli)=1 Then
             Animate poli,1,0.5,2
    EndIf
    semueve#=-0.5
  Else
    If AnimSeq(poli)=2 Then
             Animate poli,2,0.5,1
    EndIf
  EndIf


  If KeyDown(203) Then
       TurnEntity poli,0,1,0
  EndIf


  If KeyDown(205) Then
       TurnEntity poli,0,-1,0
  EndIf

  MoveEntity poli,0,0,semueve#  

  UpdateWorld
  RenderWorld
  Flip

Wend