start:
finditem kag c
set #lobjectid #findid
if #findkind = -1
   {
   set #sysmsgcol 1080
   event sysmessage Nie znalazlem nozyczek, skrypt wylaczono
   halt
   }
event macro 17
target 10
finditem CUI c
if #findkind = -1
   {
    set #sysmsgcol 1080
    event sysmessage Nie znalazlem tkaniny, skrypt zatrzymany
    key esc
    halt
   }
set #ltargetkind 1
set #ltargetid #findid
event macro 22
wait 6s
goto start