set #pos 0
:m
send Tab
send F1
send F5
wait 4s
if lastmsg there
set #pos #pos + 1
if #pos < 6
if chardir = 5
send left
else
send left
send left
end_if
end_if
end_if

if #pos > 4 and #pos < 10 
if chardir = 7
send up
else
send up
send up
end_if
end_if

if #pos > 9 and #pos < 15
if chardir = 1
send right
else
send right
send right
end_if
end_if

if #pos > 14 and #pos < 20
if chardir = 3
send down
else
send down
send down
end_if
end_if

while_not lastmsg there 
send Tab
send F1
send F5
wait 4s
end_while

if #pos = 20
set #pos 0
end_if
goto m