annuncio

Comprimi
Ancora nessun annuncio.

[EASYUO] Leather farmer

Comprimi
X
 
  • Filtro
  • Ora
  • Visualizza
Elimina tutto
nuovi messaggi

  • #91
    Originariamente inviato da fnurov
    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
    ____________________________________________________________________

    Il p Fengyr
    ____________________________________________________________________
    : algander#6292

    Commenta


    • #92
      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

      Commenta


      • #93
        Originariamente inviato da fnurov
        300% stability banking
        codice:
        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??

        "Non ereditiamo il mondo dai nostri padri, ma lo prendiamo in prestito dai nostri figli."
        "Oh Grande Spirito, concedimi la serenità di accettare le cose che non posso cambiare, il coraggio di cambiare le cose che posso cambiare, e la Saggezza di capirne la differenza."

        Personaggi:
        Paul Onpho - Tothiac - Geppetto - Barahir - Blomahac

        Contatti:
        MSN: Gugli87@hotmail.com

        Commenta


        • #94
          Originariamente inviato da Klose Visualizza il messaggio
          hello! where should i insert this strings?? ciao dove dovrei inserire queste righe??

          codice:
          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
                  }
             }
          .......
          .......
          .......

          Commenta


          • #95
            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..
            Ultima modifica di Klose; 27-03-2009, 12:50.
            "Non ereditiamo il mondo dai nostri padri, ma lo prendiamo in prestito dai nostri figli."
            "Oh Grande Spirito, concedimi la serenità di accettare le cose che non posso cambiare, il coraggio di cambiare le cose che posso cambiare, e la Saggezza di capirne la differenza."

            Personaggi:
            Paul Onpho - Tothiac - Geppetto - Barahir - Blomahac

            Contatti:
            MSN: Gugli87@hotmail.com

            Commenta


            • #96
              Originariamente inviato da Klose Visualizza il messaggio
              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.
              Ultima modifica di youngevil2; 27-03-2009, 16:59.


              Sotto un altro utente, sotto un altro nome , ma son tornato. Vediamo chi si ricorda di me (ho cambiato utente perchè ho dimenticato quello vecchio Q_Q) .

              Commenta


              • #97
                Originariamente inviato da fnurov
                "no time to wait" style looing cropse

                to use this sub place in the begining of script
                codice:
                  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
                codice:
                gosub FindCorpse
                if #result <> #false
                   gosub LootCorpse #result
                sub for finding

                codice:
                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
                codice:
                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
                Ultima modifica di Klose; 27-03-2009, 22:01.
                "Non ereditiamo il mondo dai nostri padri, ma lo prendiamo in prestito dai nostri figli."
                "Oh Grande Spirito, concedimi la serenità di accettare le cose che non posso cambiare, il coraggio di cambiare le cose che posso cambiare, e la Saggezza di capirne la differenza."

                Personaggi:
                Paul Onpho - Tothiac - Geppetto - Barahir - Blomahac

                Contatti:
                MSN: Gugli87@hotmail.com

                Commenta


                • #98
                  Originariamente inviato da Klose Visualizza il messaggio
                  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

                  Commenta


                  • #99
                    Originariamente inviato da fnurov Visualizza il messaggio
                    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...
                    "Non ereditiamo il mondo dai nostri padri, ma lo prendiamo in prestito dai nostri figli."
                    "Oh Grande Spirito, concedimi la serenità di accettare le cose che non posso cambiare, il coraggio di cambiare le cose che posso cambiare, e la Saggezza di capirne la differenza."

                    Personaggi:
                    Paul Onpho - Tothiac - Geppetto - Barahir - Blomahac

                    Contatti:
                    MSN: Gugli87@hotmail.com

                    Commenta


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


                      Icq:201039385

                      Commenta


                      • Originariamente inviato da alexdelpiero Visualizza il messaggio
                        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.
                        ICQ 222293462


                        Commenta


                        • Grandissimi Felix e Algander!!!
                          Forever a Keeeper of The Passage

                          Commenta


                          • 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
                            Ultima modifica di fengyr; 28-03-2009, 17:55.
                            ____________________________________________________________________

                            Il p Fengyr
                            ____________________________________________________________________
                            : algander#6292

                            Commenta


                            • 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!
                              "Non ereditiamo il mondo dai nostri padri, ma lo prendiamo in prestito dai nostri figli."
                              "Oh Grande Spirito, concedimi la serenità di accettare le cose che non posso cambiare, il coraggio di cambiare le cose che posso cambiare, e la Saggezza di capirne la differenza."

                              Personaggi:
                              Paul Onpho - Tothiac - Geppetto - Barahir - Blomahac

                              Contatti:
                              MSN: Gugli87@hotmail.com

                              Commenta


                              • Originariamente inviato da Klose Visualizza il messaggio
                                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
                                codice:
                                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
                                Ultima modifica di fnurov; 28-03-2009, 21:23.

                                Commenta

                                Sto operando...
                                X