Скрипты под майнинг

[Tyrael]

У меня есть скрипт на майнинг :

sub kopanie(x,y)
uo.exec("usetype pickaxe")
wait(500)
UO.LClick(x,y)
wait(5000)
end sub
sub main()
var x1, y1, x2, y2, xp, x, y, z1
repeat1:
if y1==420 then
y1=300
y2=180
z1= -1
x1=300
x2=520
else
y1=300
y2=420
z1= 1
x1=300
x2=520
endif
while y1 <> y2
xp=x1
while xp <> x2
x=xp
y=y1
kopanie(x,y)
xp=xp+20
wend
y1=y1+z1*20
x1=x1+20
x2=x2-20
wend
goto repeat1
end sub


Как мне указать кирку?
Графика кирки :
ID=0x5CBA08B9 Type=0x0E85 Name=
Quantity: 0 Colour: 0x0000 Layer: 1 Has: 1
X=65535 Y=65535 Z=0 F=0x00

что и куда сувать?

[ZuraB]

Попробуй эту строчку
> uo.exec("usetype pickaxe")
Заменить на следующую:
> uo.exec("usetype '0x0E85'")

А вообще предлагаю другой скрипт на мининг, требующий наличие лопаты в главном бэгпаке: (скрипт писал не я,автора,к сожалению,не знаю)

Code: Select all

sub shovelmining()

#в Object Types прописать чем копать - pickaxe

#становимся в хайд


#n - номер в какую сторону будет копать , 1 - вверх ,2 - вверх-вправо,3 - вправо и т.д.
#x,y - координаты для выкапывания

	var say0,say1,say2,say3,say4,say5,say6,say7,say8,say9,n,m,i,p,x,y,xx,yy,xxx,yyy,v
	
	p=24
	for n=1 to 8
		if n==1 then
			x=402
			y=232
			xx=398
			yy=207
			xxx=422
			yyy=227
		endif
		if n==2 then
			x=421
			y=273
			xx=442
			yy=250
			xxx=462
			yyy=272
		endif
		if n==3 then
			x=441
			y=292
			xx=483
			yy=293
			xxx=462
			yyy=317
		endif
		if n==4 then
			x=420
			y=316
			xx=440
			yy=338
			xxx=421
			yyy=359
		endif
		if n==5 then
			x=397
			y=339
			xx=397
			yy=382
			xxx=375
			yyy=360
		endif
		if n==6 then
			x=377
			y=316
			xx=356
			yy=337
			xxx=331
			yyy=316
		endif
		if n==7 then
			x=355
			y=294
			xx=312
			yy=293
			xxx=332
			yyy=274
		endif
		if n==8 then
			x=377
			y=273
			xx=353
			yy=249
			xxx=377
			yyy=230
		endif

#цикл выкапывания из трех клеток одного направления

		for m=1 to 3
			if m==2 then
				x=xx
				y=yy
			endif
			if m==3 then
				x=xxx
				y=yyy
			endif
			wait(1000)
			UO.Print("metka x="+str(n)+" y="+str(m))
		        p=0
		        v=0			

#цикл выкапывания из одной клетки

				#Where do you want to use the pickaxe? - использование кирки
				say0="use the shovel?"
				#pack. - положил что-то в рюкзак
				say1="pack."
				#useable ore. - не можешь выкапать
				say2="useable ore."
				say9="distribe"
				#There is no ore here to mine. - нет больше руды
				say3="There is no ore here to mine."
				#You put the Some with ore at eour feet. It is too heavy.. - выкапал что-то большое (It is too heavy..)
				say4="It is too heavy.."
				#Try mining in rock. - не капается 
				say5="Try mining in rock."
				#You can't mining here. - не можешь здесь капать
				say6="You can't mining here."
				#"You can't reach that." - нельзя использовать
				say7="You can't reach that."
				#Elemental - выкопал элементаля
				say8="Elemental"

			while v==0
			    While not uo.hidden()
	             	UO.UseSkill("Hiding")
	            	wait (2500)
                wend
				While not UO.InJournal("")
					UO.DeleteJournal()
					wait (100)
				wend

   	 	   		uo.exec("usetype '0x0f39'")
				
				UO.DeleteJournal()
				wait (100)
   			    UO.LClick(x,y)
				wait (100)
   			    UO.LClick(x,y)
				wait (100)
   			    UO.LClick(x,y)

				i=0
				While i<>50 and not UO.InJournal(say1) and not UO.InJournal(say2) and not UO.InJournal(say3) and not UO.InJournal(say4) and not UO.InJournal(say5) and not UO.InJournal(say6) and not UO.InJournal(say7) and not UO.InJournal(say8)
					i=i+1
	 		        wait(200)
   				wend

				if i==50 then
				   UO.Print("ZADERJKA")
				   v=1
				endif
				if UO.InJournal(say1) then
	        	   p=0
				endif
	        	if (UO.InJournal(say2)) and (UO.InJournal(say1)) then
	        	   p=p+1
	        	   UO.Print("POVTOR p="+str(p))
	        	endif
	        	
				if p==7 or UO.InJournal(say5) or UO.InJournal(say3) or UO.InJournal(say6) or UO.InJournal(say7) then
				   v=1
				endif
				if UO.InJournal(say4)then
				   UO.Print("Net MESTA")
				   Goto TheEnd
				endif
#				if UO.InJournal(say8) then
#				   UO.Print("Vilez ELEMENTAL")
				   	
#				   Goto TheEnd
				endif
			wend
		next
	next
TheEnd:
UO.Print("                     ")	
UO.Print("                     ")	
UO.Print("                     ")	
UO.Print("---=== THE END ===---")

end sub

[kpakep]

у меня чето не копает

[-=M@rTin=-]

у меня чето не копает

потамучто скрипт - х*рня

[kpakep]

у меня чето не копает

потамучто скрипт - х*рня

у тебя есть лутше ???

[-=M@rTin=-]

у тебя есть лутше ???

Есть, платите деньги .)

[-=M@rTin=-]

Vilez ELEMENTAL

ого, у когото эльки лезут из земли при копке руды?

[M0ke]

;Скрипт на Mining

sub Mining()
var mx, my, mz, i, j
repeat
uo.addobject("Shovel",0x4008003D) ;ID Лопаты или кирки
na4:
; gotoxy(5136,1181) ;
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()
for i = mx-4 to mx+4
for j = my-4 to my+4
while not UO.Hidden()
UO.Warmode("0")
UO.UseSkill("Hiding")
wait(4000)
wend
UO.Print("Now Mining In: "+str(mx-i)+" "+str(my-j))
while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock")
UO.DeleteJournal()
if uo.waiting() then
uo.canceltarget()
endif
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Useobject("Shovel")
while not UO.InJournal("You put") and not UO.InJournal("heavy") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in rock")
wait(500)
endif
wend
UO.DeleteJournal()
if uo.Weight>820 then ;
end sub
goto na4
endif
next
next
until uo.dead()
end sub