[EASYUO] Leather farmer

[fengyr]

lol
if u want to remove concurent just say "The_world_is_saving"

p.s.
if ( The_world_is_saving in #journal || Cleaning_resources in #journal ) && : notin #journal

as i told in the topic this was my first script, and may contain some noob scripting style.
btw you are the first scripter who show some collaboration if you want some explanation on the script (as some parts are explained in italian), feel free to contact me.

thank you for the signalation i'll fix it :P

[SirMods]

scsua se ti disturbo acnora. ho un problema a me lo script fa crahsre nel senso al massimo una quarantina di minuti poi crasha sistematicamente. con altri script (es. per minare o raccolgiere bods) va avanti anceh giorni interi lol . cosa potrei rivedere

[Klose]

300% stability banking

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 + 3000
     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

p.s. 5h 1m plain 60174 asd

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

[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
        }
   }
.......
.......
.......

[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..

[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]

"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

[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]

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

[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?

[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.

[khios]

Grandissimi Felix e Algander!!!

[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

[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!

[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