Дайте макрос на мининг инфо в нутри

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Скрипт
Posts: 62
Joined: 2004-04-23 13:50:10

Дайте макрос на мининг инфо в нутри

Post by Скрипт »

если не сложно макрос с реколом домой по рунам и выгрузкой каму не трудно подкиньте
Top
Zif
Posts: 10
Joined: 2004-04-25 14:56:25

Post by Zif »

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

Code: Select all

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
Top
Скрипт
Posts: 62
Joined: 2004-04-23 13:50:10

Post by Скрипт »

огромное спасибо
не небудиш ли ты так любезен сделать не на 3 а на 5 рун или хотябы написать где и что мне нада сменить ? :) плизззззззз
Top
Zif
Posts: 10
Joined: 2004-04-25 14:56:25

Post by Zif »

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

Code: Select all

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" )
Top
Скрипт
Posts: 62
Joined: 2004-04-23 13:50:10

Post by Скрипт »

и есчо сли не сложно систему выгрузки обьясни и где айди или то чем копать
Top
Zif
Posts: 10
Joined: 2004-04-25 14:56:25

Post by Zif »

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

Code: Select all

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" в обьектайпе задаешь ее граф значения.
Top
Lord Ruslan Nightmare
Expert!
Posts: 359
Joined: 2004-04-25 11:11:07
Contact:
Contact Lord Ruslan Nightmare

Post by Lord Ruslan Nightmare »

Ужасный скрипт :) Я таких в страшном сне не видел...Последний раз я такие скрипты писал полгода назад... Особо меня пугают сложные махинации с emptycontainer, т.к. я вообще не понимаю их смысл.
Без труда не выловишь и рыбку из пруда,
А без пруда не выловишь её и с трудом...
Top
Zif
Posts: 10
Joined: 2004-04-25 14:56:25

Post by Zif »

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


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

а если тебя пугает количество эмпиконтайнер при разгрузке, то эта исключительно особенность шарда:) при перекидывани на шарде кидаеться ровно половина вешей из пака, потаму и несколь раз приходиться :)
Top
Dzen
Posts: 29
Joined: 2004-04-08 16:06:21
Contact:
Contact Dzen

Post by Dzen »

можно юзать циклы -) For / next к примеру -)
Top
Скрипт
Posts: 62
Joined: 2004-04-23 13:50:10

Post by Скрипт »

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

Return to “Scripting Ore”