event_down_cliff:
ld hl,(player_direction)
ld de,player_down
call cp_hl_de
ret nz
ld hl,player_y
dec (hl)
dec (hl)
dec (hl)
push hl
call walk_down_no_collision
pop hl
inc (hl)
push hl
call walk_down_no_collision
pop hl
inc (hl)
inc (hl)
ret