; by Robinton
; makro na latanie recalami po spawnach ziolek i ich zbieranie
; przy recalu czeka az zabije moby atakujace go, wiec warto pilnowac i
pomoc czarami albo miec duzo bojowki

event SysMessage Wskaz runbooka z ziolami:


set %ziola NIJ_FJJ_TIJ_XIJ_KBF_KUS_QUS_TUS ;typy ziolek
set %wrogowie BE_WT_TD_UD_QE_XF_LD_IE_CB_CO_BB ;typy wrogich zwierzakow
set %bron JSF ; typ broni
set %sierp FUO ; typ sierpu
set %paperdoll ZYIWI ;id paperdolla
set %runy 16 ;liczba run w ksiedze
set %x 73 ;217
set %y 70
set %licz 0 ; ktora runa z ksiegi ma byc pierwsza uzyta
;(przydatne gdy sie makro zetnie i nie chcemy reaclowac sie od 1. 0 to
pierwsza runa)

;szukanie ziolek w danej miejscowce
start:
szukanie:
event sysmessage x %x
event sysmessage z %y
wait 10
finditem %ziola G_10
if #findkind = -1
{
event sysmessage Nie znaleziono ziol, lecimy dalej.
gosub ladowanie
gosub nastepne
goto start
}
set %krzak #findid
gosub scinanie
return

;scinanie ziolek w danej miejscowce
sub scinanie
event pathfind #FINDX #FINDY
repeat
wait 5
until ( #CHARPOSX = #FINDX && #CHARPOSY = #FINDY )
gosub wrog
gosub bron
finditem %ziola
set #lobjectid #findid
set %jrnl #jindex
klikniecie:
event macro 17
set %jrnl #jindex
powrot:
wait 5
if #jindex > %jrnl
   {
   set %jrnl %jrnl + 1
   scanjournal %jrnl
   if Udalo_Ci_sie_zebrac in #journal
   goto szukanie
   if Udalo_Ci_sie_zebrac in #journal
   goto szukanie
   if Nie_udalo_Ci_sie in #journal
   goto szukanie
   if skill_in in #journal
   goto szukanie
   }
goto powrot
return

;zmiana broni
sub bron
wait 10
finditem %bron C_ , %paperdoll
if #findkind = 0
{
Exevent Drag #FINDID
Exevent Dropc #BACKPACKID
Exevent Dropc #BACKPACKID
}
finditem %sierp C_ , %paperdoll
if #findkind <> 0
{
finditem %sierp C_ , #BACKPACKID
if #findkind = 0
{
Exevent Drag #FINDID
Exevent Droppd
Exevent Droppd
}
}
wait 10
return

sub sierp
finditem %sierp C_ , %paperdoll
if #findkind = 0
{
Exevent Drag #FINDID
Exevent Dropc #BACKPACKID
Exevent Dropc #BACKPACKID
}
finditem %bron C_ , %paperdoll
if #findkind <> 0
{
finditem %bron C_ , #BACKPACKID
if #findkind = 0
{
Exevent Drag #FINDID
Exevent Droppd
Exevent Droppd
}
}
wait 10
return

;sprawdzanie czy nie ma w okolicy jakiegos wrogiego mobka
sub wrog
finditem %wrogowie G_11
if #findkind = 1
{
gosub sierp
wait 5
}
finditem %wrogowie G_11
if #findkind <> 1
{
wait 10
return
}
if #hits < 11                   ; leczenie, zmienić wartosc na ile
potzreba
{
event macro 15 28
repeat
wait 10
until #targcurs = 1
repeat
event macro 23
wait 5
until #targcurs = 0
gosub wrog

;recall do nastepnej miejscowki
sub nastepne
gosub sierp
set %pozycjax #CHARPOSX
set %pozycjay #CHARPOSY
finditem %rb1 C_ , #BACKPACKID
set #lobjectid #findid
repeat
event macro 17
wait 5
until #contsize = 406_229
if %licz >= ( %runy - 1 )
{
event sysmessage Koniec miejscowek. Skrypt zatrzymany.
halt
}
if %licz = 8
{
set %x 223
set %y 70
}
if %licz > 7
click %x %y + ( ( %licz - 8 ) * 15 )
click %x %y + ( %licz * 15 )
set %licz %licz + 1
set %y %y + 15
repeat
wait 5
until ( #CHARPOSX <> %pozycjax || #CHARPOSY <> %pozycjay )
return

sub ladowanie
finditem WTL C_ , #BACKPACKID
if #findkind <> 0
{
event sysmessage Skonczyly ci sie recalle - uwazaj.
return
}
Exevent Drag #findid #findstack
wait 5
Exevent Dropc %rb1
wait 10
return