Potete donarmi uno script che ressi i pet in automatico?
Così lascio il pg o in libreria o a luna.
Così lascio il pg o in libreria o a luna.
;By Danilovic set %timer #scnt + 60 Loop: set %resjournal #jindex finditem HHB_UJ_MHB_EG_ZGB_WJ_QC_YJ_OJ_TJ_BO_JG_WN_SF_SG_OF_MG_JB_CG_TE +_DF_CD_YE_XE_GN_OF_HH_FN_CH_JJ_KG_SH_SC G_1 ;cerca se ci sono pet da ressare set %numeropettrovati #findCnt while #findIndex <= %numeropettrovati ;ripeti fino a controllo tutti pet trovati { set #LTARGETID #FINDID ;assegna il pet trovato al lasttarget event macro 13 2 ;animal lore target event macro 22 0 ;last target wait 10 while #jindex >= %resjournal ;controlla sul journal se il pet è morto { scanjournal %resjournal set %resjournal %resjournal + 1 if The_spirits_of_the_dead in #journal ;se è morto vai alla sub per il res gosub resurrect } if #CONTSIZE = 400_381 ;se gump animal lore si apre { set %x #CONTPOSX + 190 set %y #CONTPOSY + 200 click %x %y r ;chiudi gump animal lore } ignoreitem #LTARGETID ;ignora pet non morto o ressato set #findIndex #findIndex + 1 ;aumenta index per passare pet successivo wait 5 } if %timer < #scnt { ignoreitem reset ;resetta dopo 1 minuto i pet ignorati set %timer #scnt + 60 } goto loop ;torno al loop sub resurrect { FINDITEM ZLF C_ , #backpackid ;cerca bende nel backpack if #FINDKIND = -1 { For %n 1 5 { ;Chiedi 5 volte di apssarti una benda Event Macro 4 0 Passami delle bende e ti resso il pet wait 5s If #CONTNAME = trade_gump ;se si apre il gump { set %x #CONTPOSX + 65 set %y #CONTPOSY + 42 click %x %y ;accetta bende in trade gosub resurrect ;vai alla sub res } } return ;se per 5 volte non ti passano benda return e ignorapet } set #LOBJECTID #FINDID ;assegna id bende al lastobject event macro 17 0 ;last object target event macro 22 0 ;last target wait 45 while #jindex >= %resjournal ;controlla sul journal i risultati della bendata { scanjournal %resjournal set %resjournal %resjournal + 1 if You_fail_to_resurrect in #journal ;se è fallita ritorna alla sub di res gosub resurrect } return }
Commenta