;Skrypt bY SabiK
;szklo.txt
;Wersja 1.0

set #sysmsgcol 63
event sysmessage Skrypt [szklo] odpalony (bY SabiK)
wait 1

start:
finditem nxo C
if #findkind = -1
   halt
set #lobjectid #findid
event macro 17
set %licz #scnt2 + 20
repeat
if %licz < #scnt2
   goto start
until #targcurs = 1
wait 1
target:
finditem xmk C
if #findkind = -1
   halt
set #ltargetid #findid
event macro 22
set %licz #scnt2 + 20
repeat
if %licz < #scnt2
   goto target
until #contsize = 540_420
wait 1
klik:
click 507 61
set %licz #scnt2 + 120
repeat
if %licz < #scnt2
   goto klik
scanjournal 1
until stworzyl in #journal || zniszczyl in #journal
wait 1
goto start