Savage wrote:А гвардов звать уже не модно? Если тырят НПС то ниче не поможет.
Code: Select all
sub gp()
VAR gp = "0x0000"
VAR bag = "0x0000000"
uo.findtype(gp)
while uo.findcount()
UO.moveitem('finditem','10', bag ,44,121,0 ) #тут прописать кординаты в каком углу кидать гп(мешочек) менять только Х(44) и У(121)
wait(200)
uo.findtype(gp)
wend
endsub
Code: Select all
sub Mining()
UO.AddObject('Catch_Bag')
UO.Print('Укажите на мешёк куда будет руда складываться...')
while UO.Targeting()
wait(10)
wend
UO.SetReceivingContainer('Catch_Bag')
UO.SetCatchBag('Catch_Bag')
UO.MoveItem('Catch_Bag','1','backpack','1','250','1')
MineArea(2);
endsub
sub MineArea(Dist) ; Капание
var PX, PY, PZ, Ix,Iy, rx, ry, DistArea, Done, Circle
PX=0
PY=0
Done=0
Circle=0
DistArea=(Dist*Dist+1)
DistArea=DistArea*DistArea
UO.Print("Yoko Injection(C) 2005.")
UO.DeleteJournal()
Start_Mine_Area:
For Iy = -Dist to Dist
For Ix = -Dist to Dist
if ((PX <> UO.GetX()) or (PY <> UO.GetY())) then
if (PX <> 0) or (PY <> 0) then
UO.Print("Have moved, mining ore on circle again")
endif
PX = UO.GetX()
PY = UO.GetY()
PZ = UO.GetZ()
Done=0
GOTO Start_Mine_Area
endif
if UO.Weight < (UO.Str*4) then
UO.Print("Mine point: "+Str(PX+Ix)+","+Str(PY+Iy))
while not UO.InJournal('There is no ore') and not UO.InJournal("You have no line") and not UO.InJournal("That is to far away") and not UO.InJournal("You can't think") and not UO.InJournal("You have no line of") and not UO.InJournal("too far away") and not UO.InJournal("mining in rock.")
UO.DeleteJournal()
UO.WaitTargetTile(-1,Str(PX+Ix),Str(PY+Iy),Str(PZ))
UO.UseType("0x0E85")
while not UO.InJournal("You put the") and not UO.InJournal("You loosen some") and not UO.InJournal("You can't think") and not UO.InJournal("That is to far away") and not UO.InJournal("There is no ore") and not UO.InJournal("You have no line of") and not UO.InJournal("too far away") and not UO.InJournal("mining in rock.")
Wait(100)
wend
if UO.InJournal('peek into your backpack') then
UO.Sayu("Слыш чукча - отвали!")
endif
wend
if ((PX == UO.GetX()) and (PY == UO.GetY())) then
UO.Print("There were "+Str(DistArea-Done)+" more cells")
endif
else
UO.Print("Warning of heavy wieght...");
endif
Done=Done+1
UO.DeleteJournal()
next
next
Done=0
if UO.Weight >= (UO.Str*4) then
Sell ()
wait (8000)
UO.Print("Moving smelt ore(s)...")
GotoXY(5180, 1176)
if UO.SkillVal('Mining') < 1000 then
repeat
UO.usetype('0x19B9')
Wait(200);
UO.findtype('0x19B9', '-1', 'my') ; Ищем большой кусок руды, больше 3-х в куче
Until UO.FindCount() == 0
repeat
UO.usetype('0x19B8')
Wait(200);
UO.findtype('0x19B8', '-1', 'my') ; Ищем средний кусок руды, 3и в куче
Until UO.FindCount() == 0
repeat
UO.usetype('0x19BA')
Wait(200);
UO.findtype('0x19BA', '-1', 'my') ; Ищем средний кусок руды, 2е в куче
Until UO.FindCount() == 0
repeat
UO.usetype('0x19B7')
Wait(200);
UO.findtype('0x19B7', '-1', 'my') ; Ищем средний кусок руды, одна
Until UO.FindCount() == 0
else
UO.UnSetReceivingContainer()
UO.UnSetCatchBag()
Smelt();
UO.SetReceivingContainer('Catch_Bag')
UO.SetCatchBag('Catch_Bag')
endif
endif
repeat
rx = ((PX-10) + UO.random(20))
ry = ((PY-10) + UO.random(20))
until (rx < 5208) and (rx > 5186) and (ry < 1182) and (ry > 1153)
UO.Print("Moving to new point: "+Str(rx)+","+Str(ry));
GotoXY(rx,ry)
if UO.Weight < (UO.Str*4) then
GOTO Start_Mine_Area
else
UO.Print("Script Stoped.");
UO.Print("Not have a weight for mine.");
endif
end sub
sub gotoXY(x,y)
var myX,myY,lastX=0,lastY=0,i,halt=0,z,r=0
for i=1 to 60
MyX=uo.getX();
MyY=uo.getY();
if LastX==MyX AND LastY==MyY then
halt=halt+1
else
halt=0
end if
if halt>=10 then
if uo.GetDir()==1 then
for z=0 to 8
uo.press(40)
next
end if
if uo.GetDir()==3 then
for z=0 to 8
uo.press(37)
next
end if
if uo.GetDir()==5 then
for z=0 to 8
uo.press(38)
next
end if
if uo.GetDir()==7 then
for z=0 to 8
uo.press(39)
next
end if
halt=15
end if
if abs(x-myX) <= 1 and abs(y-myY) <= 1 then
return 1
end if
if x<=MyX then
if y<=MyY then
for z=0 to 3
uo.press(38)
next
else
for z=0 to 3
uo.press(37)
next
end if
else
if y<=MyY then
for z=0 to 3
uo.press(39)
next
else
for z=0 to 3
uo.press(40)
next
end if
end if
lastX=myX
lastY=myY
wait(200)
next
return 0
end sub
sub abs(num)
if num >= 0 then
return num
else
return num*(-1)
endif
end sub
sub Sell()
if (uo.weight>10)then
UO.Say(".sell")
UO.Waittargettype('0x19b9',0x0000)
wait(1000)
UO.LClick(343,317)
wait(300)
UO.Say(".sell")
UO.Waittargettype('0x19b9',0x0488)
wait(1000)
UO.LClick(343,317)
wait(300)
UO.Say(".sell")
UO.Waittargettype('0x19b9',0x0482)
wait(1000)
UO.LClick(343,317)
wait(300)
UO.Say(".sell")
UO.Waittargettype('0x19b9',0x0514)
wait(1000)
UO.LClick(343,317)
wait(300)
UO.Say(".sell")
UO.Waittargettype('0x19b9',0x0487)
wait(1000)
UO.LClick(343,317)
wait(300)
UO.Say(".sell")
UO.Waittargettype('0x19b9',0x0481)
wait(1000)
UO.LClick(343,317)
wait(300)
endif
end subCode: Select all
sub DropOre()
var o,exit
dim Ore[14]
Ore[0]=0x19B9
Ore[1]=0x19B7
Ore[2]=0x19BA
Ore[3]=0x19B8
Ore[4]=0x0F11
Ore[5]=0x0F16
Ore[6]=0x0F18
Ore[7]=0x0F15
Ore[8]=0x0F10
Ore[9]=0x0F0F
Ore[10]=0x0F26
Ore[11]=0x1F4C
Ore[12]=0x0EED
Ore[13]=0x0F20
ToHide()
if uo.Waiting() then
uo.CancelTarget()
end if
uo.useobject(' id ') #id каробки
wait(500)
for o=0 to 13
exit=0
repeat
uo.FindType(Ore[o])
if uo.GetQuantity('finditem')>0 then
uo.moveitem('finditem', -1 ,'ид банка')
wait(500)
else
exit=1
end if
until exit==1
next
end sub