Yoko

если не сложно макрос с реколом домой по рунам и выгрузкой каму не трудно подкиньте

вот разбирайся реколиться по 3 рунам ходит и реколиться к банку все выкладывает в банк заменишь банк на базу и все окей по анологии зделаешь! написал 2 дня назад

sub meditation()
While UO.Mana<UO.INT
UO.UseSkill("Meditation")
wait(10000)
wend
End sub

sub miningrud()
while (1==1)
UO.exec("waittargetobject 0x4000B5F1")
UO.exec("setcatchbag")
        m_rune_1()
        mining()
        mining()
        GoN()
        GoN()
        GoN()
        GoN()
        GoN()
        GoWN()
        GoWN()
        mining()
        mining()
        GoSE()
        GoSE()
        GoE()
        GoE()
        GoE()
        GoE()
        GoE()
        mining()
        mining()
        razgruzka()
        m_rune_2()
        mining()
        mining()
        GoN()
        GoN()
        GoN()
        GoN()
        GoN()
        GoWN()
        GoWN()
        mining()
        mining()
        razgruzka()
        m_rune_3()
        mining()
        mining()
        razgruzka()
        wend
end sub
sub recall() 
var runebookid = "0x401ab25b" 
   #0x029 ->41 
   #,recall 0x401ab25b 5      

    uo.set( "norbcheck", "1" )     
   uo.set( "norbcalc", "1" )     

    uo.recall( runebookid, "5" ) 
    wait(4500) 
end sub 
sub m_rune_1() 
var runebookid = "0x401ab25b" 
   #0x029 ->41 
   #,recall 0x401ab25b 11      

    uo.set( "norbcheck", "1" )     
   uo.set( "norbcalc", "1" )     

    uo.recall( runebookid, "11" ) 
    wait(4500) 
end sub

sub m_rune_2() 
var runebookid = "0x401ab25b" 
   #0x029 ->41 
   #,recall 0x401ab25b 17      

    uo.set( "norbcheck", "1" )     
   uo.set( "norbcalc", "1" )     

    uo.recall( runebookid, "17" ) 
    wait(4500) 
end sub

sub m_rune_3() 
var runebookid = "0x401ab25b" 
   #0x029 ->41 
   #,recall 0x401ab25b 23      

    uo.set( "norbcheck", "1" )     
   uo.set( "norbcalc", "1" )     

    uo.recall( runebookid, "23" ) 
    wait(4500) 
end sub

sub razgruzka()

uo.deletejournal()
recall:
recall()
if uo.injournal("The spell")==1 then
        goto recall
        uo.deletejournal()
end if
meditation()

UO.Say ("bank")
wait (1000)

UO.say (",setreceivingcontainer 0x4010C1CB")
wait (1000)
UO.exec("waittargetobject 0x4000B5F1")
UO.exec("emptycontainer 500")
wait (2500)
UO.say (",setreceivingcontainer 0x4010C1CB")
wait (1000)
UO.exec("waittargetobject 0x4000B5F1")
UO.exec("emptycontainer 500")
wait (2500)
UO.say (",setreceivingcontainer 0x4010C1CB")
wait (1000)
UO.exec("waittargetobject 0x4000B5F1")
UO.exec("emptycontainer 500")
wait (2500)
UO.say (",setreceivingcontainer 0x4010C1CB")
wait (1000)
UO.exec("waittargetobject 0x4000B5F1")
UO.exec("emptycontainer 500")
wait (2500)
UO.say (",setreceivingcontainer 0x4010C1CB")
wait (1000)
UO.exec("waittargetobject 0x4000B5F1")
UO.exec("emptycontainer 500")
wait (2500)
UO.say (",setreceivingcontainer 0x4010C1CB")
wait (1000)
UO.exec("waittargetobject 0x4000B5F1")
UO.exec("emptycontainer 500")
wait (2500)
end sub

sub mining()
      wait(1000)
      UO.exec("useskill Hiding")
      UO.Press(113)
      wait(1000)


      UO.Exec("usetype pickaxe3")
      wait(1000)
      UO.LClick(395,205)
      wait(5000)
      UO.Exec("usetype pickaxe3")
      wait(1000)
      UO.LClick(419,239)
      wait(5000)
      UO.Exec("usetype pickaxe3")
      wait(1000)
      UO.LClick(436,260)
      wait(5000)
      UO.Exec("usetype pickaxe3")
      wait(1000)
      UO.LClick(452,276)
      wait(5000)
      UO.Exec("usetype pickaxe3")
      wait(1000)
      UO.LClick(472,299)
      wait(5000)

      UO.Exec("usetype pickaxe3")
      wait(1000)
      UO.LClick(375,237)
      wait(5000)
      UO.Exec("usetype pickaxe3")
      wait(1000)
      UO.LClick(383,251)
      wait(5000)
      UO.Exec("usetype pickaxe3")
      wait(1000)
      UO.LClick(433,275)
      wait(5000)
      UO.Exec("usetype pickaxe3")
      wait(1000)
      UO.LClick(450,298)
      wait(5000)
      UO.Exec("usetype pickaxe3")
      wait(1000)
      UO.LClick(452,320)
      wait(5000)
      
      UO.Exec("usetype pickaxe3")
      wait(1000)
      UO.LClick(366,252)
      wait(5000)
      UO.Exec("usetype pickaxe3")
      wait(1000)
      UO.LClick(365,276)
      wait(5000)
      UO.Exec("usetype pickaxe3")
      wait(1000)
      UO.LClick(385,297)
      wait(5000)
      UO.Exec("usetype pickaxe3")
      wait(1000)
      UO.LClick(412,324)
      wait(5000)
      UO.Exec("usetype pickaxe3")
      wait(1000)
      UO.LClick(434,342)
      wait(5000)

      UO.Exec("usetype pickaxe3")
      wait(1000)
      UO.LClick(338,275)
      wait(5000)
      UO.Exec("usetype pickaxe3")
      wait(1000)
      UO.LClick(361,297)
      wait(5000)
      UO.Exec("usetype pickaxe3")
      wait(1000)
      UO.LClick(383,317)
      wait(5000)
      UO.Exec("usetype pickaxe3")
      wait(1000)
      UO.LClick(401,330)
      wait(5000)
      UO.Exec("usetype pickaxe3")
      wait(1000)
      UO.LClick(421,351)
      wait(5000)
      
      UO.Exec("usetype pickaxe3")
      wait(1000)
      UO.LClick(318,297)
      wait(5000)
      UO.Exec("usetype pickaxe3")
      wait(1000)
      UO.LClick(338,315)
      wait(5000)
      UO.Exec("usetype pickaxe3")
      wait(1000)
      UO.LClick(376,354)
      wait(5000)
      UO.Exec("usetype pickaxe3")
      wait(1000)
      UO.LClick(378,352)
      wait(5000)
      UO.Exec("usetype pickaxe3")
      wait(1000)
      UO.LClick(399,378)
      wait(5000)
end sub
sub CheckLag()
   UO.DeleteJournal()
   UO.Click('backpack')

   repeat
      wait(500)
   until UO.InJournal('backpack')
end sub
sub GoN()
   VAR walkwait=300
   VAR x,y,dir=0
   VAR key=33 ; PgUp
   x=UO.GetX()
   y=UO.GetY()
   while UO.GetDir()<>dir
      UO.Press(key)
      wait(walkwait)
      If UO.GetDir()<>dir Then
         CheckLag()
      Endif
   wend
   UO.Press(key)

   wait(walkwait)
      If x==UO.GetX() AND y==UO.GetY() Then
         CheckLag()
      Endif
   
   If UO.GetY()+1==y Then
      return -1
   Else
      return 1
   Endif
end sub

sub GoE()
   VAR walkwait=300
   VAR x,y,dir=2
   VAR key=34 ; PgDown
   x=UO.GetX()
   y=UO.GetY()
   while UO.GetDir()<>dir
      UO.Press(key)
      wait(walkwait)
      If UO.GetDir()<>dir Then
         CheckLag()
      Endif
   wend
   UO.Press(key)

   wait(walkwait)
      If x==UO.GetX() AND y==UO.GetY() Then
         CheckLag()
      Endif
   
   If UO.GetX()-1==x Then
      return -1
   Else
      return 1
   Endif
end sub
sub GoWN()
   VAR walkwait=300
   VAR x,y,dir=7
   VAR key=38 ; UpArrow
   x=UO.GetX()
   y=UO.GetY()

   If UO.GetDir()<>dir Then
      UO.Press(key)
      wait(walkwait)
      If UO.GetDir()<>dir Then
         CheckLag()
      Endif
   Endif

   If UO.GetDir()==dir Then
      UO.Press(key)
      wait(walkwait)
      If x==UO.GetX() AND y==UO.GetY() Then
         CheckLag()
      Endif
      If UO.GetDir()==dir Then
         return -1
      Else
         return UO.GetDir()
      Endif
   Else
      return UO.GetDir()
   Endif
end sub

sub GoSE()
   VAR walkwait=300
   VAR x,y,dir=3
   VAR key=40 ; DownArrow
   x=UO.GetX()
   y=UO.GetY()

   If UO.GetDir()<>dir Then
      UO.Press(key)
      wait(walkwait)
      If UO.GetDir()<>dir Then
         CheckLag()
      Endif
   Endif

   If UO.GetDir()==dir Then
      UO.Press(key)
      wait(walkwait)
      If x==UO.GetX() AND y==UO.GetY() Then
         CheckLag()
      Endif
      If UO.GetDir()==dir Then
         return -1
      Else
         return UO.GetDir()
      Endif
   Else
      return UO.GetDir()
   Endif
end sub

огромное спасибо
не небудиш ли ты так любезен сделать не на 3 а на 5 рун или хотябы написать где и что мне нада сменить ? плизззззззз

Вот изменять тут:

sub recall() 
var runebookid = "0x401ab25b" 
   #0x029 ->41 
   #,recall 0x401ab25b 5      

    uo.set( "norbcheck", "1" )      
   uo.set( "norbcalc", "1" )      

    uo.recall( runebookid, "5" ) 
    wait(4500) 
end sub 
sub m_rune_1() 
var runebookid = "0x401ab25b" 
   #0x029 ->41 
   #,recall 0x401ab25b 11      

    uo.set( "norbcheck", "1" )      
   uo.set( "norbcalc", "1" )      

    uo.recall( runebookid, "11" ) 
    wait(4500) 
end sub

sub recall -> рекол к банку
sub m_rune_1 -> рекол по первой руне
а на другие руны меняешь значение в строчках
#,recall 0x401ab25b 11 (цыфру 11 меняешь на другую кокая у тебя посчету руна в рунбуке)
и здесь тоже uo.recall( runebookid, "11" )

и есчо сли не сложно систему выгрузки обьясни и где айди или то чем копать

Вот выгрузка!

sub razgruzka() 

uo.deletejournal() 
recall: 
recall() 
if uo.injournal("The spell")==1 then 
        goto recall 
        uo.deletejournal() 
end if 
meditation() 

UO.Say ("bank") 
wait (1000) 

UO.say (",setreceivingcontainer 0x4010C1CB") 
wait (1000) 
UO.exec("waittargetobject 0x4000B5F1") 
UO.exec("emptycontainer 500") 
wait (2500) 
UO.say (",setreceivingcontainer 0x4010C1CB") 
wait (1000) 
UO.exec("waittargetobject 0x4000B5F1") 
UO.exec("emptycontainer 500") 
wait (2500) 
UO.say (",setreceivingcontainer 0x4010C1CB") 
wait (1000) 
UO.exec("waittargetobject 0x4000B5F1") 
UO.exec("emptycontainer 500") 
wait (2500) 
UO.say (",setreceivingcontainer 0x4010C1CB") 
wait (1000) 
UO.exec("waittargetobject 0x4000B5F1") 
UO.exec("emptycontainer 500") 
wait (2500) 
UO.say (",setreceivingcontainer 0x4010C1CB") 
wait (1000) 
UO.exec("waittargetobject 0x4000B5F1") 
UO.exec("emptycontainer 500") 
wait (2500) 
UO.say (",setreceivingcontainer 0x4010C1CB") 
wait (1000) 
UO.exec("waittargetobject 0x4000B5F1") 
UO.exec("emptycontainer 500") 
wait (2500) 
end sub 

вот здесь : UO.say (",setreceivingcontainer 0x4010C1CB") 0х4010С1CB это айди сумки куда вываливать.
а здесь UO.exec("waittargetobject 0x4000B5F1") 0х4000B5F1 это айди сумки из которой вываливать.

копалка задаеться "пикес3" в обьектайпе задаешь ее граф значения.

Ужасный скрипт Я таких в страшном сне не видел...Последний раз я такие скрипты писал полгода назад... Особо меня пугают сложные махинации с emptycontainer, т.к. я вообще не понимаю их смысл.

_________________
Без труда не выловишь и рыбку из пруда,
А без пруда не выловишь её и с трудом...

вот я юзаю инжект только месяц поэтому и такие большие скрипты

а если тебя пугает количество эмпиконтайнер при разгрузке, то эта исключительно особенность шарда:) при перекидывани на шарде кидаеться ровно половина вешей из пака, потаму и несколь раз приходиться

можно юзать циклы -) For / next к примеру -)

мне другой макрос дали помогли настроить вроде всё чики пуки НО!!!
когда я делаю ран функшен одной из фунцыи скрипта он мне всегда выдаёт ошибку на 9 или 10 строк ниже конца скрипта (( обьясните почему ?