Yoko
http://forum.yoko.com.ua/

Дайте макрос на мининг инфо в нутри
http://forum.yoko.com.ua/viewtopic.php?f=20&t=194		 Page 1 of 1
Author:  Скрипт [ 2004-04-26 14:07:22 ]
Post subject:  Дайте макрос на мининг инфо в нутри
если не сложно макрос с реколом домой по рунам и выгрузкой каму не трудно подкиньте
Author:  Zif [ 2004-04-26 18:41:53 ]
Post subject: 
вот разбирайся реколиться по 3 рунам ходит и реколиться к банку все выкладывает в банк :) заменишь банк на базу и все окей по анологии зделаешь! написал 2 дня назад :)
Code:
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
Author:  Скрипт [ 2004-04-26 18:55:44 ]
Post subject: 
огромное спасибо
не небудиш ли ты так любезен сделать не на 3 а на 5 рун или хотябы написать где и что мне нада сменить ? :) плизззззззз
Author:  Zif [ 2004-04-26 19:23:37 ]
Post subject: 
Вот изменять тут:
Code:
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" )
Author:  Скрипт [ 2004-04-26 20:27:16 ]
Post subject: 
и есчо сли не сложно систему выгрузки обьясни и где айди или то чем копать
Author:  Zif [ 2004-04-26 21:18:58 ]
Post subject: 
Вот выгрузка!
Code:
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" в обьектайпе задаешь ее граф значения.
Author:  Lord Ruslan Nightmare [ 2004-04-27 01:18:24 ]
Post subject: 
Ужасный скрипт :) Я таких в страшном сне не видел...Последний раз я такие скрипты писал полгода назад... Особо меня пугают сложные махинации с emptycontainer, т.к. я вообще не понимаю их смысл.
Author:  Zif [ 2004-04-27 12:07:28 ]
Post subject: 
Lord Ruslan Nightmare wrote:
Ужасный скрипт :) Я таких в страшном сне не видел...Последний раз я такие скрипты писал полгода назад... Особо меня пугают сложные махинации с emptycontainer, т.к. я вообще не понимаю их смысл.


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

а если тебя пугает количество эмпиконтайнер при разгрузке, то эта исключительно особенность шарда:) при перекидывани на шарде кидаеться ровно половина вешей из пака, потаму и несколь раз приходиться :)
Author:  Dzen [ 2004-04-27 15:23:16 ]
Post subject: 
можно юзать циклы -) For / next к примеру -)
Author:  Скрипт [ 2004-04-27 20:07:58 ]
Post subject: 
мне другой макрос дали помогли настроить вроде всё чики пуки НО!!!
когда я делаю ран функшен одной из фунцыи скрипта он мне всегда выдаёт ошибку на 9 или 10 строк ниже конца скрипта :((( обьясните почему ?
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/