event SysMessage Wskaz Narzedzia!
set #targCurs 1
targLoop2:
if #targCurs = 1
goto targLoop2
set %narzedzia #lTargetID


event SysMessage Wskaz Material!
set #targCurs 1
targLoop1:
if #targCurs = 1
goto targLoop1
set %material #lTargetID



start:
gosub narzedzia
wait 0
gosub cel
wait 0
gosub ostatnio
wait 0s ; tutaj ustaw czas jesli makro zbyt czesto lub zbyt zadko probuje
wait 0
goto start


until true;
goto start;
sub narzedzia
finditem %narzedzia
if #findkind = -1
{
event sysmessage Nie masz narzedzi!
sound %sound
halt
}
set #lobjectid #findid
event macro 17
return

sub cel
finditem %material
if #findkind = -1
{
event sysmessage Nie masz materialu!
sound %sound
halt
}
set #LTARGETID #findid
target 1s
event macro 22
return

sub ostatnio
wait 3
click 77 390
return