actor={}
actor.x=40
actor.y=30
actor.sprt=0
actor.spd=0.75

function move_d()
    actor.sprt+=0.125
    if actor.sprt>2.9 then
     actor.sprt=1
    end
end

function move_u()
    actor.sprt+=0.125
    if actor.sprt>18.9
    or actor.sprt<17 then
     actor.sprt=17
    end
end

function move_r()
    actor.sprt+=0.125
    if actor.sprt>4.9
    or actor.sprt<3 then
     actor.sprt=3
    end
end

function move_l()
    actor.sprt+=0.125
    if actor.sprt>20.9
    or actor.sprt<19 then
     actor.sprt=19
    end
end

function _update()
    if btn(3) then
        move_d()
        actor.y+=actor.spd
    elseif not btn() then
     actor.sprt=0
    end

    if btn(2) then
        move_u()
        actor.y-=actor.spd
    elseif not btn() then
        actor.sprt=0
    end

    if btn(1) then
        move_r()
        actor.x+=actor.spd
    elseif not btn() then
        actor.sprt=0
    end

    if btn(0) then
        move_l()
        actor.x-=actor.spd
    elseif not btn() then
        actor.sprt=0
    end

end

function _draw()
    cls()
    spr(actor.sprt,actor.x,actor.y)
end