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