Всем Привет я Играю на Шарде Under World Ukraina Odessa
Мне Зделали Script на мининг в шахте как ити от Дестарда на Верх первая .Ранчо можно было копать через клетки тепер обнавили Сферу
Script Работает НО теперь можно копать ТОЛЬКО вукруг Себя и не на клетучку Дальшё я не знаю как именить Script чтобы он копал вокруг себя Помогите Пожалуиста очень прошу.Или зделаите по своиму плизз
+++++++++++++++++++++++++++++++++++++++++++++++
Code:
sub DdD()
uo.print('!!viberi kirku!! ')
uo.exec('addobject Pickaxe')
while uo.targeting()
wait(100)
wend
uo.print('!!viberi sunduk!! ')
uo.exec('addobject container')
while uo.targeting()
wait(100)
wend
beg:
hgb()
move1()
wait(300)
mine()
moveEnter()
wait(300)
hgb()
move2()
wait(300)
mine()
moveEnter()
wait(300)
hgb()
move3()
wait(300)
mine()
moveEnter()
wait(300)
hgb()
move4()
wait(300)
mine()
moveEnter()
wait(300)
hgb()
move5()
wait(300)
mine()
moveEnter()
wait(300)
hgb()
move6()
wait(300)
mine()
moveFix()
moveEnter()
hgb()
goto beg
end sub
sub mine()
UO.Useskill("Hiding")
wait(3000)
var y, x
for x=-2 to 2
for y=-2 to 2
UO.WaitTargetTile("1341",STR(UO.GetX()+x),STR(UO.GetY()+y),"0")
UO.Useobject('Pickaxe')
wait(8000)
if UO.Weight > 520 then
wait (1000)
goto nex0
UO.DeleteJournal()
endif
next
next
nex0:
end sub
sub gruz()
var i
DIM Loot[9]
Loot[0]=0x4027ac06 ;
Loot[1]=0x4027ab49 ;
Loot[2]=0x4027ab9d ;
Loot[3]=0x4009004b ;
Loot[4]=0x4027929f ;
Loot[5]=0x402793a0 ;
Loot[6]=0x40278b83 ;
Loot[7]=0x40278c4f ;
Loot[8]=0x0F13 ;
Loot[9]=0x0F15 ;
while UO.weight> 40
For i=0 to 9
uo.findtype('loot[i]','-1','backpack')
uo.moveitem('finditem','0','container')
wait(1000)
next
wend
end sub
sub gotoxy(x,y,prec)
var ld=0,ldc=0
var dx,dy
var mx,my
var ox,oy,mk,k
#uo.print(">")
#uo.track("1",str(x),str(y))
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
if dx<=prec then
return
end if
if not ldc then
uo.print(STR(dx))
end if
if dx<3 then
mk=70
else
mk=15
end if
ox=mx
oy=my
for k=1 to mk
mx=UO.GetX()
my=UO.GetY()
if mx<>ox or my<>oy then
goto sdidapl
end if
wait(10)
next
sdidapl:
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
if dx<=prec then
return
end if
if ld==dx then
ldc=ldc+1
if ldc>100 then
uo.print("Can not reach location!")
return
end if
else
ld=dx
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 move1()
var myobject=uo.getserial("laststatus")
var goX=1116
var goY=2650
#go to object X:Y in 0-1 cells range
gotoxy(goX,goY,0)
end sub
sub move2()
var myobject=uo.getserial("laststatus")
var goX=1119
var goY=2653
#go to object X:Y in 0-1 cells range
gotoxy(goX,goY,0)
end sub
sub move3()
var myobject=uo.getserial("laststatus")
var goX=1113
var goY=2653
#go to object X:Y in 0-1 cells range
gotoxy(goX,goY,0)
end sub
sub move4()
var myobject=uo.getserial("laststatus")
var goX=1112
var goY=2656
#go to object X:Y in 0-1 cells range
gotoxy(goX,goY,0)
end sub
sub move5()
var myobject=uo.getserial("laststatus")
var goX=1117
var goY=2659
#go to object X:Y in 0-1 cells range
gotoxy(goX,goY,0)
end sub
sub move6()
var myobject=uo.getserial("laststatus")
var goX=1113
var goY=2661
#go to object X:Y in 0-1 cells range
gotoxy(goX,goY,0)
end sub
sub moveEnter()
var myobject=uo.getserial("laststatus")
var goX=1116
var goY=2662
#go to object X:Y in 0-1 cells range
gotoxy(goX,goY,0)
end sub
sub moveHome()
var myobject=uo.getserial("laststatus")
var goX=1117
var goY=2670
#go to object X:Y in 0-1 cells range
gotoxy(goX,goY,0)
end sub
sub moveFix()
var myobject=uo.getserial("laststatus")
var goX=1116
var goY=2661
#go to object X:Y in 0-1 cells range
gotoxy(goX,goY,0)
end sub
sub hgb()
UO.Useskill("Hiding")
wait(1500)
wait(200)
moveHome()
gruz()
moveEnter()
wait(300)
end sub
Register
Login
FAQ
Search
