initevents

s1:
wait 4s
finditem XUF
if #findkind <> 0
{
ignoreitem #FindID
; msg Nema$
goto s1
}
set #LobjectID #FindID
event macro 17 0
wait 4s
goto s1