; 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
|