[EASYUO] Leather farmer

[Klose]

yes TT

...and than??? explain me better please ^^

thks

[fnurov]

ok... can you explain me how please.... the first rune is my house? than? thank you..

yes TT

[Klose]

should work. didn't test

sub unload
set %param %1
gosub edit_stato Deposito , #spc , il , #spc , loot
repeat
     if %storebank = #true
     {
        set !nruneatt %nruneatt
        set %nruneatt 1
        gosub recall
        set %nruneatt !nruneatt
        event SysMessage Recallato alla banca
     }
     set %nextrecalltobank #systime + 10000
     set %bagx 345 ;<--- place here x-coord of your dropbag
     set %bagy 23  ;<--- place here y-coord of your dropbag
     set %bagz 50  ;<--- place here z-coord of your dropbag
     event pathfind %bagx %bagy %bagz
     finditem %dropbag
     while #systime < %nextrecalltobank && #findkind <> -1 && #finddist <= 2
     {
                finditem %dropbag
     }
     sleep 10
until #findkind <> -1

   set %dbx #findx + 25
   set %dby #findy + 7
   _p2b1:
   if %lootagold = #TRUE
      {
      finditem %gold  C_ , #backpackid
      if #findkind <> -1   ; found something
           {
           gosub Contatore gold #findstack
           gosub moveItemToPos #findid %dbx %dby 0
           if #result = #true
                goto _p2b1
           }
      }
   if %lootaleather = #TRUE
   {
      finditem %cutleather  C_ , #backpackid
      while #findkind <> -1
      {
            gosub Contatore leather #findstack #findcol
         exevent drag #findid #findstack
         wait 2
         exevent dropc %dropbag
         wait 5
         finditem %cutleather C_ , #backpackid
        }
   }
   if %lootafeather = #TRUE
      {
      finditem %feather  C_ , #backpackid
      if #findkind <> -1   ; found something
           {
           gosub Contatore feather #findstack
           gosub moveItemToPos #findid %dbx %dby 0
           if #result = #true
                goto _p2b1
         }
      }
   if %lootafrecce = #TRUE
      {
      finditem %frecce  C_ , #backpackid
      if #findkind <> -1   ; found something
           {
           gosub Contatore frecce #findstack
           gosub moveItemToPos #findid %dbx %dby 0
           if #result = #true
                goto _p2b1
         }
      }
   if %lootaossa = #TRUE
      {
      finditem GUF  C_ , #backpackid  ;GUF cutted bone IDtype
      if #findkind <> -1   ; found something
           {
           gosub Contatore ossa #findstack
           gosub moveItemToPos #findid %dbx %dby 0
           if #result = #true
                goto _p2b1
         }
      }
   if %lootalana = #TRUE
      {
      finditem %wool  C_ , #backpackid
      if #findkind <> -1   ; found something
           {
           gosub Contatore wool #findstack
           gosub moveItemToPos #findid %dbx %dby 0
           if #result = #true
                goto _p2b1
         }
      }
   if %lootascales = #TRUE
      {
      finditem %drgnscale  C_ , #backpackid
      if #findkind <> -1   ; found something
           {
           gosub Contatore scaglie #findstack #findcol
           gosub moveItemToPos #findid %dbx %dby 0
           if #result = #true
                goto _p2b1
         }
      }
   gosub timecalc
  gosub aggiorna_stats
finditem ZLF C_ , #backpackid
if #findkind = -1 || #findstack < 20
{
   set %bendagesinpack #findstack
   finditem ZLF C
   for %ib 1 #findcnt
   {
       set #findindex %ib
       if #findcnt <> %bendagesinpack
       {
          exevent drag #findid 20
          wait 3
          exevent dropc #backpackid
          wait 7
       }
   }
}

;wait 30
if %param = norecall
   return
else
{
    if %InstantEscape
    {
        while ( #mana < #maxmana - 9 ) || ( #hits < #maxhits - 2 )
        {
              if #hits < #maxhits - 2
                 gosub curati
              sleep 10
        }
    }
    if %param = next
       gosub cambiaspot nounload
    else
        gosub recall
}
return

ok... can you explain me how please.... the first rune is my house? than? thank you..

[fnurov]

bravi tutti.. ma come ho già detto è ASSOLUTAMENTE IMPORTANTE IMPLEMENTARE IL DEPOSITO A CASA DELLE PELLI.. sarebbe ultra powoooooo





cmq grazie di tutto..... siete grandi!

should work. didn't test

sub unload
set %param %1
gosub edit_stato Deposito , #spc , il , #spc , loot
repeat
     if %storebank = #true
     {
        set !nruneatt %nruneatt
        set %nruneatt 1
        gosub recall
        set %nruneatt !nruneatt
        event SysMessage Recallato alla banca
     }
     set %nextrecalltobank #systime + 10000
     set %bagx 345 ;<--- place here x-coord of your dropbag
     set %bagy 23  ;<--- place here y-coord of your dropbag
     set %bagz 50  ;<--- place here z-coord of your dropbag
     event pathfind %bagx %bagy %bagz
     finditem %dropbag
     while #systime < %nextrecalltobank && #findkind <> -1 && #finddist <= 2
     {
                finditem %dropbag
     }
     sleep 10
until #findkind <> -1

   set %dbx #findx + 25
   set %dby #findy + 7
   _p2b1:
   if %lootagold = #TRUE
      {
      finditem %gold  C_ , #backpackid
      if #findkind <> -1   ; found something
           {
           gosub Contatore gold #findstack
           gosub moveItemToPos #findid %dbx %dby 0
           if #result = #true
                goto _p2b1
           }
      }
   if %lootaleather = #TRUE
   {
      finditem %cutleather  C_ , #backpackid
      while #findkind <> -1
      {
            gosub Contatore leather #findstack #findcol
         exevent drag #findid #findstack
         wait 2
         exevent dropc %dropbag
         wait 5
         finditem %cutleather C_ , #backpackid
        }
   }
   if %lootafeather = #TRUE
      {
      finditem %feather  C_ , #backpackid
      if #findkind <> -1   ; found something
           {
           gosub Contatore feather #findstack
           gosub moveItemToPos #findid %dbx %dby 0
           if #result = #true
                goto _p2b1
         }
      }
   if %lootafrecce = #TRUE
      {
      finditem %frecce  C_ , #backpackid
      if #findkind <> -1   ; found something
           {
           gosub Contatore frecce #findstack
           gosub moveItemToPos #findid %dbx %dby 0
           if #result = #true
                goto _p2b1
         }
      }
   if %lootaossa = #TRUE
      {
      finditem GUF  C_ , #backpackid  ;GUF cutted bone IDtype
      if #findkind <> -1   ; found something
           {
           gosub Contatore ossa #findstack
           gosub moveItemToPos #findid %dbx %dby 0
           if #result = #true
                goto _p2b1
         }
      }
   if %lootalana = #TRUE
      {
      finditem %wool  C_ , #backpackid
      if #findkind <> -1   ; found something
           {
           gosub Contatore wool #findstack
           gosub moveItemToPos #findid %dbx %dby 0
           if #result = #true
                goto _p2b1
         }
      }
   if %lootascales = #TRUE
      {
      finditem %drgnscale  C_ , #backpackid
      if #findkind <> -1   ; found something
           {
           gosub Contatore scaglie #findstack #findcol
           gosub moveItemToPos #findid %dbx %dby 0
           if #result = #true
                goto _p2b1
         }
      }
   gosub timecalc
  gosub aggiorna_stats
finditem ZLF C_ , #backpackid
if #findkind = -1 || #findstack < 20
{
   set %bendagesinpack #findstack
   finditem ZLF C
   for %ib 1 #findcnt
   {
       set #findindex %ib
       if #findcnt <> %bendagesinpack
       {
          exevent drag #findid 20
          wait 3
          exevent dropc #backpackid
          wait 7
       }
   }
}

;wait 30
if %param = norecall
   return
else
{
    if %InstantEscape
    {
        while ( #mana < #maxmana - 9 ) || ( #hits < #maxhits - 2 )
        {
              if #hits < #maxhits - 2
                 gosub curati
              sleep 10
        }
    }
    if %param = next
       gosub cambiaspot nounload
    else
        gosub recall
}
return

[Klose]

bravi tutti.. ma come ho già detto è ASSOLUTAMENTE IMPORTANTE IMPLEMENTARE IL DEPOSITO A CASA DELLE PELLI.. sarebbe ultra powoooooo





cmq grazie di tutto..... siete grandi!

[fengyr]

thank you felix for all the hints/corrections i'll put all together ASAP.

traduco per chi non sapesse l'inglese, la versione postata sopra da fnurov è modificata per ottimizzare la caccia col war, il setup è stato "rotto" c'è quindi da modificare manuamente dei valori all'interno dello script.

appena possibile implementerò i miglioramenti consigliati da felix mantenendo il setup semplice come è ora.
per quanto riguarda i crash disattivando l'auto accoda azioni di razor (o abbassando il delay) il problema si risolve, ora che me l'avete fatto notare lo specifico nel topic

[khios]

Grandissimi Felix e Algander!!!

[antonio.gl]

da un pò di giorni dopo un pò che farmo mi crascia il client...in pratica mi da segnalazione di errori e quindi lo script si ferma...sapete aiutarmi?

Prova ad avviare il client senza razor, di solito il crash avviene perchè si accodano determinate azioni.

[alexdelpiero]

da un pò di giorni dopo un pò che farmo mi crascia il client...in pratica mi da segnalazione di errori e quindi lo script si ferma...sapete aiutarmi?

[Klose]

i posted subs for main developer of script, so don't think about it
1 it is variable for runebook1. if #true script will change position whan players nearby. if #false not
2 u need to change script
3 no idea

mhmmm ok... thank you.. sorry for my puntualization...

[fnurov]

I'M SORRY but i don't understand... try to be more clear... and than:

1)what is this line? help me please

set %needplayercheck1 #true wether to change pos if players nearby (damned paging nooby tamers)

2)..and if i would put leathers in a chest in my house???

3) often the scirpt go in block: around my pg there are a lot of animals but the script doesn't kill animals and my pg is motionless.. after 10/15 second moves to following rune..

thks

i posted subs for main developer of script, so don't think about it
1 it is variable for runebook1. if #true script will change position whan players nearby. if #false not
2 u need to change script
3 no idea

[Klose]

"no time to wait" style looing cropse

to use this sub place in the begining of script

  set %TLastUse 0
  finditem %bwc C_ , #backpackid
              if #findkind = -1
              {
              display Procurati una butcher's war cleaver $ e riavvia lo script
              halt
              }
set %WarCleaver #findid

proper calling of sub

gosub FindCorpse
if #result <> #false
   gosub LootCorpse #result

sub for finding

sub FindCorpse
   Finditem YFM G_2
   if #findkind = -1
   {
         Finditem YFM G_4
         if #findkind = -1
            Finditem YFM G_7
   }
   if #FindKind = -1
      return #false
   set %CorpseID #FindId
   return %CorpseId

looting

sub LootCorpse
set %UseItemDelay 300
;gosub edit_stato Looting...
set %Timeend #systime + 10000
set %CorpseID %1
lootbegin:
if #FindDist > 2
{
   set %ignored #false
   set !jindex #jindex
     event pathfind #FindX #FindY #FindZ
     while #finddist > 2 && #scnt2 < %waitTimeout
     {
         gosub atackclosemob
         set !nextjinedxend #jindex
         if !jindex <= !nextjinedxend
         {
            for !ji !jindex !nextjinedxend
            {
                scanjournal !ji
                if Can't_get_there in #journal
                {
                   set %ignored #true
                   break
                }
            }
            set !jindex !nextjinedxend + 1
         }
         sleep 10
         finditem %CorpseID
   }
   if %ignored
      goto saltaloot
}

set %Twaittill %TLastUse + %UseItemDelay
while #systime < %Twaittill
{
      sleep 10
}

cutagain:
set !jindex #jindex
if %lootaleather = #TRUE
{
   set %ignored #false
   set %cutagain #false
   set #lobjectid %WarCleaver
   if #targcurs = 1
      set #targcurs 0
   event macro 17 0
   set %TLastUse #systime
   ;wait dagger target
   set !errwg #scnt2 + 20
   while #targcurs = 0 && #scnt2 < !errwg && %ignored = #false && %cutagain = #false
   {
         set !nextjinedxend #jindex
         if !jindex <= !nextjinedxend
         {
            for !ji !jindex !nextjinedxend
            {
                scanjournal !ji
                if target_cannot_be in #journal
                {
                   set %ignored #true
                   break
                }
                if You_must_wait_to_perform_another_action. in #journal
                {
                   set %cutagain #true
                   event ExMsg #charid 2 3 dagger
                   break
                }
            }
            set !jindex !nextjinedxend + 1
         }
         sleep 10
   }
   if %cutagain
      goto cutagain
   set #ltargetid %CorpseID
   set #lTargetKind 1
   event macro 22 0
   set %TLastUse #systime
   
   ;wait to be able to open corpse
   set !errwg %TLastUse + %UseItemDelay
   set %toofaraway #false
   while #systime < !errwg && %ignored = #false && %toofaraway = #false
   {
         set !nextjinedxend #jindex
         if !jindex <= !nextjinedxend
         {
            for !ji !jindex !nextjinedxend
            {
                scanjournal !ji
                if You_see_nothing_useful_to_carve_from_the_corpse. in #journal
                {
                   event ExMsg %CorpseID 2 3 nothing useful
                   set %ignored #true
                   break
                }
                if You_skin_it_and_place_the_cut-up_hides_in_your_backpack. in #journal
                {
                   event ExMsg %CorpseID 2 3 leather in pack
                   set %ignored #true
                   break
                }
                if That_is_too_far_away. in #journal
                {
                   set %toofaraway #true
                   break
                }
            }
            set !jindex !nextjinedxend + 1
         }
         sleep 10
   }
   if %toofaraway
      goto lootbegin
   if %ignored
      goto saltaloot
}

if #conttype = YFM
   set %lastcont #CONTID
   
apri:
if #systime > %Timeend
   return
set #lobjectid %CorpseID
event macro 17 0
set %TLastUse #systime
; opening corpse
set !errwg #scnt2 + 5
set %ignored #false
set %openagain #false

while #scnt2 < !errwg && ( #CONTTYPE <> YFM || %lastcont = #CONTID ) && %ignored = #false && %openagain = #false
{
    set !nextjinedxend #jindex
    if !jindex <= !nextjinedxend
    {
       for !ji !jindex !nextjinedxend
       {
           scanjournal !ji
           if You_did_not_earn_the_right in #journal || target_cannot_be in #journal || You_see_nothing_useful_to_carve_from_the_corpse.
           {
                   set %ignored #true
                   break
           }
           if You_must_wait_to_perform_another_action. in #journal
           {
              set %openagain #true
              event ExMsg %corpseid 2 3 corpse
              break
           }
       }
       set !jindex !nextjinedxend + 1
    }
    sleep 10
}
if %ignored
   goto saltaloot
if #scnt2 > !errwg || %openagain
   goto apri
;waiting to be able to loot
gosub atackclosemob 1
set %Twaittill %TLastUse + %UseItemDelay + 150
while #systime < %Twaittill
{
      sleep 10
}

_Looting:
finditem %cutleather C_ , %CorpseID
if #findkind <> -1
{
   while #findkind <> -1
   {
      exevent drag #findid #findstack
      set %QleatherLooted #findstack
      set %TLastUse #systime
      exevent dropc #backpackid
      finditem %cutleather C_ , %CorpseID
   }
   event ExMsg %corpseid 2 3 %QleatherLooted
}
saltaloot:
ignoreitem %CorpseID
return

p.s. 1h 1m plain 13475

I'M SORRY but i don't understand... try to be more clear... and than:

1)what is this line? help me please

set %needplayercheck1 #true wether to change pos if players nearby (damned paging nooby tamers)

2)..and if i would put leathers in a chest in my house???

3) often the scirpt go in block: around my pg there are a lot of animals but the script doesn't kill animals and my pg is motionless.. after 10/15 second moves to following rune..

thks

[youngevil2]

e se io volessi depositare le pelli in casa???

SI DOVREBBE IMPLEMENTARE IL DEPOSITO A CASA.. (la scelta o in banca o a casa).. a me servirebbe troppoooooooo (e non solo a me)

*

Io ci sto provando, mi rimane solo il problema di prendere gli oggetti dal backpack e metterli in una bag (cmq selezionata all'inizio al posto della bank Box) , in pratica devo modificare la sub MoveItemToPos. (ah, ho soppresso la modalità bag of sendig, tanto non penso che sia molto utilizzata , almeno da me )

Edit: fatto, ma ci son delle cose da migliorare (ti muove il backpak e lo raggiunge solo se non ci sono porte o rob simile) In piu' bisogna impostare manualmente nello script le coordinate di dove andare per raggiungere la bad dove inserire le risorse.

[Klose]

ok! very good.. but:

1)what is this line? help me please

set %needplayercheck1 #true wether to change pos if players nearby (damned paging nooby tamers)

2)..and if i would put leathers in a chest in my house???

3) often the scirpt go in block: around my pg there are a lot of animals but the script doesn't kill animals and my pg is motionless.. after 10/15 second moves to following rune..

[fnurov]

hello! where should i insert this strings?? ciao dove dovrei inserire queste righe??

sub unload
set %param %1
gosub edit_stato Deposito , #spc , il , #spc , loot
repeat
     if %storebank = #true
     {
        set !nruneatt %nruneatt
        set %nruneatt 1
        gosub recall
        set %nruneatt !nruneatt
        event SysMessage Recallato alla banca
     }
     set !jindex #jindex + 1
     set %nextrecalltobank #systime + 200000
     set %bankopened #false
     msg bank $
     while #systime < %nextrecalltobank && %bankopened = #false
     {
         set %nextjinedxend #jindex
         if !jindex <= %nextjinedxend
         {
            for %i !jindex %nextjinedxend
            {
                scanjournal %i
                if container in #journal
                {
                   set %bankopened #true
                   break
                }
            }
            set !jindex %nextjinedxend + 1
         }
         sleep 10
     }
     finditem %dropbag
until #findkind <> -1

   set %dbx #findx + 25
   set %dby #findy + 7
   _p2b1:
   if %lootagold = #TRUE
      {
      finditem %gold  C_ , #backpackid
      if #findkind <> -1   ; found something
           {
           gosub Contatore gold #findstack
           gosub moveItemToPos #findid %dbx %dby 0
           if #result = #true
                goto _p2b1
           }
      }
   if %lootaleather = #TRUE
   {
      finditem %cutleather  C_ , #backpackid
      while #findkind <> -1
      {
            gosub Contatore leather #findstack #findcol
         exevent drag #findid #findstack
         wait 2
         exevent dropc %dropbag
         wait 5
         finditem %cutleather C_ , #backpackid
        }
   }
.......
.......
.......