Yoko

All sides of Injection
https://yoko.uokit.com/

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

https://yoko.uokit.com/viewtopic.php?t=194

Page 1 of 1

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

Posted: 2004-04-26 14:07:22
by Скрипт
если не сложно макрос с реколом домой по рунам и выгрузкой каму не трудно подкиньте

Posted: 2004-04-26 18:41:53
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

Posted: 2004-04-26 18:55:44
by Скрипт
огромное спасибо
не небудиш ли ты так любезен сделать не на 3 а на 5 рун или хотябы написать где и что мне нада сменить ? :) плизззззззз

Posted: 2004-04-26 19:23:37
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" )

Posted: 2004-04-26 20:27:16
by Скрипт
и есчо сли не сложно систему выгрузки обьясни и где айди или то чем копать

Posted: 2004-04-26 21:18:58
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" в обьектайпе задаешь ее граф значения.

Posted: 2004-04-27 01:18:24
by Lord Ruslan Nightmare
Ужасный скрипт :) Я таких в страшном сне не видел...Последний раз я такие скрипты писал полгода назад... Особо меня пугают сложные махинации с emptycontainer, т.к. я вообще не понимаю их смысл.

Posted: 2004-04-27 12:07:28
by Zif
Lord Ruslan Nightmare wrote:Ужасный скрипт :) Я таких в страшном сне не видел...Последний раз я такие скрипты писал полгода назад... Особо меня пугают сложные махинации с emptycontainer, т.к. я вообще не понимаю их смысл.
вот я юзаю инжект только месяц поэтому и такие большие скрипты :)

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

Posted: 2004-04-27 15:23:16
by Dzen
можно юзать циклы -) For / next к примеру -)

Posted: 2004-04-27 20:07:58
by Скрипт
мне другой макрос дали помогли настроить вроде всё чики пуки НО!!!
когда я делаю ран функшен одной из фунцыи скрипта он мне всегда выдаёт ошибку на 9 или 10 строк ниже конца скрипта :((( обьясните почему ?
All times are UTC+02:00
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited