Sorry your browser is not supported!

rem player movement
    if keystate(17)=1 then move object 1,.10
    loop object 1,235,258
    set object speed 1,40
    if keystate(17)=0 then stop object 1
    move object 1,0

    if keystate(31)=1
    move object 1,-.10
    loop object 1,259,280
    set object speed 1,30
    if keystate(31)=0 then move object 1,0
 endif

      if keystate(32)=1
    move object right 1,.15
    endif

    if keystate(30)=1
    move object left 1,.15
    endif

    if keystate(17)=1 then move object 1, .10 : `This is just moving
    if keystate(17)=0 then stop object 1 : `This just 'stops' the animation

    loop object 1,235,258 : `Loop some animation
    `If the line before it stops the animation, this will restart the animation. Also: because you're doing this -every- loop, even when you start a forward/backward animation, this will reset it.
    set object speed 1,40
    move object 1,0

    if keystate(31) = 1 : `I suppose this is the forward part
        move object 1,-.10
        loop object 1,259,280 : `Forward animation?
        set object speed 1,30

        if keystate(31)=0 then move object 1, 0 : `This doesn't do anything... (?)
    endif

    `Some left/right code
    if keystate(32) = 1 then move object right 1, .15
    if keystate(30) = 1 then move object left 1, .15

Rem * Title  : Tutorial Sample 10
Rem * Author : DBS-LB
Rem * Date   : 1/8/99
rem for DBP

rem Position camera off center
AUTOCAM OFF
POSITION CAMERA 0.0, 100.0, -200.0
POINT CAMERA 0,0,0

rem Load 3D object and append walking data to it. (0-20)(21-41)
LOAD OBJECT "idle.x",1 : APPEND OBJECT "walk.x",1,TOTAL OBJECT FRAMES(1)
YROTATE OBJECT 1,180 : FIX OBJECT PIVOT 1

rem Loop 3D object animation from 0 to 20 (idle)
LOOP OBJECT 1,0,20 : SET OBJECT SPEED 1,10

rem Activate manual syncronization
SYNC RATE 30 : SYNC ON

rem Game loop ----------------------------------------------
DO
  rem Modify character angle based on left/right keys
  stage=0
  IF LEFTKEY()=1  THEN stage=0:YROTATE OBJECT 1,OBJECT ANGLE Y(1)-10
  IF RIGHTKEY()=1 THEN stage=0:YROTATE OBJECT 1,OBJECT ANGLE Y(1)+10
  rem Modify character position based on up/down keys
  IF UPKEY()=1    THEN stage=1:MOVE OBJECT 1, 2
  IF DOWNKEY()=1  THEN stage=1:MOVE OBJECT 1,-2

  rem If character action changes THEN
  IF stage<>oldstage
     IF stage=0
`        SET OBJECT FRAME 1,0.0
        LOOP OBJECT 1,0,20
        SET OBJECT SPEED 1,10
     ENDIF
     IF stage=1
`        SET OBJECT FRAME 1,21.41
        LOOP OBJECT 1,21,41
        SET OBJECT SPEED 1,100
     ENDIF
     oldstage=stage
  ENDIF

  rem Refresh screen
  SYNC
rem End loop
LOOP