Yoko

All sides of Injection
It is currently 2024-03-29 11:56:09

All times are UTC+02:00




Post new topic  Reply to topic  [ 3 posts ] 
Author Message
PostPosted: 2012-12-30 14:27:38 
Offline

Joined: 2012-12-28 15:47:19
Posts: 6
Ребят, помогите может у кого есть скрипт на мининг, копает вокруг себя но не под собой и скидывает ненужную руду и если сломаеться кирка брал новую.
В идеала конечно, чтобы он по достижению опрделенного веса реколился через i'm stuck.
Искал по инкту так и не нашел либо копает под собой и останавливаеться, как такой перенастроить я хз. И нашел скрипт который так копает, но после дополнения о ненужности руды он чет встает через 10 минут.
Буду очень признателен за любую помощь!!!!


Top
   
PostPosted: 2012-12-30 20:12:15 
Offline
User avatar

Joined: 2006-12-08 10:51:50
Posts: 718
Location: Москва
запости сюда скрипты, которые нашёл


Top
   
PostPosted: 2012-12-31 01:06:35 
Offline

Joined: 2012-12-28 15:47:19
Posts: 6
ZeroDX wrote:
запости сюда скрипты, которые нашёл

я что то такое замутил но через 10 мин скрипт отрубаеться(

sub main()
var mx, my, mz, i, j
repeat
uo.addobject("Shovel",0x400263F6) # ID лопаты или, чем ты, там, копаешь :)
na4:
gotoxy(2565,487) #точка копки
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()
for i = mx-2 to mx+2
for j = my-2 to my+2
while not UO.Hidden()
UO.Warmode("0")
UO.UseSkill("Stealth")
wait(4000)
wend
UO.Print("Now Mining In: "+str(mx-i)+" "+str(my-j))
while not UO.InJournal("mine for") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("so close")
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("so close") and not UO.InJournal("location") and not UO.InJournal("mine for") and not UO.InJournal("elsewhere") and not UO.InJournal("far away") and not UO.InJournal("in rock")
wait(500)
endif
wend
UO.DeleteJournal()
sbroska()
if uo.Weight>5009 then # максимальный вес
loot()
goto na4
endif
next
next
until uo.dead()
end sub

sub gotoxy(xx,yy)
var lagfactor=5
var msbase=150
var dx,dy
var x=val(xx)
var y=val(yy)
if x==0 then
x=xx
end if
if y==0 then
y=yy
end if
var mx,my
start:
mx=UO.GetX()
my=UO.GetY()
dx=mx-x
if dx<0 then
dx=0-dx
endif
dy=my-y
if dy<0 then
dy=0-dy
endif
if dy>dx then
dx=dy
end if
uo.print(STR(dx))
if dx<3 then
wait(msbase*lagfactor)
else
wait(msbase)
end if
if mx==x then
if my==y then
return
endif
if my>y then
UO.Print("UR")
UO.Press(33)
goto start
endif
UO.Print("DL")
UO.Press(35)
goto start
end if
if mx<x then
if my>y then
UO.Print("R")
UO.Press(39)
goto start
endif
if my==y then
UO.Print("DR")
UO.Press(34)
goto start
endif
UO.Print("D")
UO.Press(40)
goto start
end if
if my<y then
UO.Print("L")
UO.Press(37)
goto start
endif
if my==y then
UO.Print("LU")
UO.Press(36)
goto start
endif
UO.Print("U")
UO.Press(38)
goto start
end sub

Sub sbroska()
var i,j
Dim OreType[4]
OreType[01]='0x19B7' ## 1 ore
OreType[02]='0x19BA' ## 2 ore
OreType[03]='0x19B8' ## 3 ore
OreType[04]='0x19B9' ## 4 and more ore

Dim OreColor[5] ## ??? ????? ???? ????
OreColor[1]='0x0222' ; Copper
OreColor[2]='0x0750' ; Bronze
OreColor[3]='0x0000' ; Silver
OreColor[4]='0x0026' ; Shadow
OreColor[5]='0x03C0' ; gold

for j=1 to 4
for i=1 to 5
uo.findtype(OreType[j],OreColor[i],'backpack')
while uo.findcount()>0
uo.moveitem('finditem','-1','ground')
wait(700)
uo.findtype(OreType[j],OreColor[i],'backpack')
wend
next
next
end sub


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 3 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 12 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited