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

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”