;Skrypt bY SabiK
;umag-tworzenie_krysztalow.txt
;Wersja 1.2

;U W A G A !!! USTAW PONIZSZE ZMIENNE PRZED WLACZENIEM SKRYPTU !!!
set %ksiega XXXXXXX            ;Tutaj ustaw id ksiegi krysztalow (otworz ksiege i przepisz tutaj #lobjectid)
set %strona lewa               ;Tutaj ustaw strone ksiegi (lewa, prawa)
set %krysztal 1                ;Tutaj ustaw ktory krysztal chcesz robic (lewa-1-9, prawa-1-8: ognia, zimna, piorun, wytrzym,wital, madr, stabil, niewidz, swiatla, och ogn, och zimn, och piorun, obrony, mocy, sily, zrecz, int)
;------------------------------------------------------------------------------------------------------------

initevents
set #sysmsgcol 1281
event sysmessage Skrypt [umag-tworzenie_krysztalow] odpalony (by SabiK)
wait 1
if %strona = lewa
   set %x 145
if %strona = prawa
   set %x 330
set %y1 125
set %y %y1 + ( %krysztal * 20 )

start:
if *STOP = 1
{
   repeat
   until *STOP = 0
}
set %licz1 0
runa:
finditem %ksiega
if #findkind = -1
{
   set #sysmsgcol 1080
   event sysmessage Nie znaleziono ksiegi krysztalow. Skrypt wylaczono!
   halt
}
set #lobjectid #findid
event macro 17
set %licz 0
repeat
set %licz %licz + 1
set %licz1 %licz1 + 1
if %licz > 15
   goto runa
if %licz1 > 100
   goto start
until #contname = generic_gump && #contsize = 520_350
click %x %y
wait 140
goto start