initevents
set %lt #ltargetid
start:
set %licz 0
event macro 1 0 .um wiedza
czek:
set #ltargetkind 1
set %licz %licz + 1
wait 1
wait 1
if #targcurs = 1
   goto dalej
if %licz > 5
   goto start
goto czek
dalej:
set #ltargetid %lt
event macro 22
event macro 22
event macro 22
wait 170 5
goto start