Sorry your browser is not supported!

 if movin#=0
  wherecandn#=0
  wherecanup#=0
  wherecanlt#=0
  wherecanrt#=0
  newplayerwherex#=playerwherex#
  newplayerwherey#=playerwherey#
  diffY#=0
  if playerwherey#<10
   if colblock(playerwherex#,playerwherey#+1)=0 then wherecandn#=1
  endif
  if playerwherey#>2
   if colblock(playerwherex#,playerwherey#-1)=0 then wherecanup#=1
  endif
  if playerwherex#<10
   if colblock(playerwherex#+1,playerwherey#)=0 then wherecanlt#=1
  endif
  if playerwherex#>2
   if colblock(playerwherex#-1,playerwherey#)=0 then wherecanrt#=1
  endif
  if wherecanup#=1
   if upkey()=1
    movin#=1
    newplayerwherey#=playerwherey#-1
   endif
  endif
  if wherecanlt#=1
   if leftkey()=1
    movin#=2
    newplayerwherex#=playerwherex#+1
   Endif
  endif
  if wherecanrt#=1
   if rightkey()=1
    movin#=3
    newplayerwherex#=playerwherex#-1
   endif
  endif
  if wherecandn#=1
   if downkey()=1
    movin#=4
    newplayerwherey#=playerwherey#+1
   endif
  endif
  if movin#>0
   if block(playerwherex#,playerwherey#)>block(newplayerwherex#,newplayerwherey#) then diffY#=-1
   if block(playerwherex#,playerwherey#)<block(newplayerwherex#,newplayerwherey#) then diffY#=1
   if block(playerwherex#,playerwherey#)=block(newplayerwherex#,newplayerwherey#) then diffY#=0
   takeY#=0
  endif
 else
  if movin#=1
    Z#=Z#-5
    movintimer#=movintimer#+1
  endif
  if movin#=2
    X#=X#+5
    movintimer#=movintimer#+1
  endif
  if movin#=3
    X#=X#-5
    movintimer#=movintimer#+1
  endif
  if movin#=4
    Z#=Z#+5
    movintimer#=movintimer#+1
  endif
  if movintimer#=8
   if movin#=1 then playerwherey#=playerwherey#-1
   if movin#=2 then playerwherex#=playerwherex#+1
   if movin#=3 then playerwherex#=playerwherex#-1
   if movin#=4 then playerwherey#=playerwherey#+1
   movintimer#=0
   movin#=0
  endif
 endif
 `gosub tcol
 if block(playerwherex#,playerwherey#)=2 then Y#=80
 if block(playerwherex#,playerwherey#)=0 then Y#=40
 if block(playerwherex#,playerwherey#)=1 then Y#=60
 if diffY#=0
  if movin#=1
   point object 1,X#,Y#,Z#+20
  endif
  if movin#=2
   point object 1,X#-20,Y#,Z#
  endif
  if movin#=3
   point object 1,X#+20,Y#,Z#
  endif
  if movin#=4
   point object 1,X#,Y#,Z#-20
  endif
  position object 1,X#,Y#,Z#
 else
  if diffY#=-1
   hehe#=1
   if Y#=80
    takeY#=takeY#-2.5
    newY#=60+takeY#
    hehe#=2
   endif
   if Y#=60
    takeY#=takeY#-2.5
    newY#=Y#+takeY#
    hehe#=2
   endif
  endif
  if diffY#=1
   if Y#=40
    takeY#=takeY#+2.5
    newY#=60+takeY#
    hehe#=2
   endif
   if Y#=60
    takeY#=takeY#+2.5
    newY#=80+takeY#
    hehe#=2
   endif
  endif
`repos
  if movin#=1
   point object 1,X#,newY#,Z#+20
  endif
  if movin#=2
   point object 1,X#-20,newY#,Z#
  endif
  if movin#=3
   point object 1,X#+20,newY#,Z#
  endif
  if movin#=4
   point object 1,X#,newY#,Z#-20
  endif
  position object 1,X#,Y#,Z#
 endif
 X# = Object position x(1)
 Z# = Object position z(1)