.code



obj_movment proc adrsObj:DWORD
    mov ebx,adrsObj

    mov eax,100
    add  [ebx+20],eax

    ret
 obj_movment endp
 move_naroo proc

    mov ebx,naroo.drc.x
    add naroo.pos.x,ebx

    mov ebx,naroo.drc.y
    add naroo.pos.y,ebx
    ret
 move_naroo endp
 naroo_keyboard proc
    mov naroo.drc.x,0
    mov naroo.drc.y,0
    invoke GetAsyncKeyState,VK_DOWN
    cmp eax,0
    jne Tag_GO_DOWN
        RET_GO_DOWN:

    invoke GetAsyncKeyState,VK_UP
    cmp eax,0
    jne Tag_GO_UP
        RET_GO_UP:

    invoke GetAsyncKeyState,VK_LEFT
    cmp eax,0
    jne Tag_GO_LEFT
        RET_GO_LEFT:

    invoke GetAsyncKeyState,VK_RIGHT
    cmp eax,0
    jne Tag_GO_RIGHT
        RET_GO_RIGHT:
    ret
Tag_GO_UP:
    mov naroo.drc.y,-1
jmp RET_GO_UP
Tag_GO_DOWN:
    mov naroo.drc.y,1
jmp RET_GO_DOWN

Tag_GO_LEFT:
    mov naroo.drc.x,-1
jmp RET_GO_LEFT

Tag_GO_RIGHT:
    mov naroo.drc.x,1
jmp RET_GO_RIGHT


 naroo_keyboard endp