Page 1 of 1
Скрипты под майнинг
Posted: 2004-05-22 01:15:13
by 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
что и куда сувать?
Posted: 2004-05-23 08:32:30
by 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
Posted: 2004-06-09 11:32:53
by kpakep
у меня чето не копает
Posted: 2004-06-09 21:03:58
by -=M@rTin=-
kpakep wrote:у меня чето не копает
потамучто скрипт - х*рня
Posted: 2004-06-09 21:14:42
by kpakep
-=M@rTin=- wrote:kpakep wrote:у меня чето не копает
потамучто скрипт - х*рня
у тебя есть лутше ???
Posted: 2004-06-09 22:09:47
by -=M@rTin=-
kpakep wrote:у тебя есть лутше ???
Есть, платите деньги .)
Posted: 2004-06-09 22:11:47
by -=M@rTin=-
Vilez ELEMENTAL
ого, у когото эльки лезут из земли при копке руды?
Держи копай на здоровье !
Posted: 2004-06-15 21:00:01
by 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