вот скрипт на майнинг с ходилкой, но чего то не могу настроить... когда должен начинать копаь пишет "ю кент си таргет"
Code:
sub MiningForeva()
var Pickaxe="0x0E85"
var container="0x40028AF8"
uo.exec('exec Hiding')
begin:
enter()
gotoxy(3255,2221,1)
mine()
leave()
gruz()
enter()
gotoxy(3255,2214,1)
mine()
leave()
gruz()
enter()
gotoxy(3255,2207,1)
mine()
leave()
gruz()
enter()
gotoxy(3255,2200,1)
mine()
leave()
gruz()
enter()
gotoxy(3250,2200,1)
mine()
leave()
gruz()
enter()
gotoxy(3250,2207,1)
mine()
leave()
gruz()
enter()
gotoxy(3250,2214,1)
mine()
leave()
gruz()
enter()
gotoxy(3250,2221,1)
mine()
leave()
gruz()
enter()
gotoxy(3250,2196,1)
mine()
leave()
gruz()
enter()
gotoxy(3243,2214,1)
mine()
leave()
gruz()
enter()
gotoxy(3244,2222,1)
mine()
leave()
gruz()
enter()
gotoxy(3259,2221,1)
mine()
leave()
goto begin
end sub
########################################################
sub Hidding()
ggg:
while not UO.Hidden()
UO.Warmode("0")
uo.print("Zimbo(C)2006")
UO.UseSkill("Hiding")
wait(6000)
wend
goto ggg
end sub
sub mine()
var MaxVes=300 ##- miksimalniy ves - nabrav ego 4ar razgru}I{aets9.
#wait(1000)
#until uo.hidden()
var y, x, i
for x=-2 to 2
for y=-2 to 2
while not UO.Hidden()
UO.Warmode("0")
uo.print("????????...")
UO.UseSkill("Hiding")
wait(6000)
wend
try:
UO.WaitTargetTile("1341",STR(UO.GetX()+x),STR(UO.GetY()+y),"0")
UO.Useobject('Pickaxe')
i=0
while i< 100
if UO.InJournal("but fail") then
wait (1000)
i=200
UO.DeleteJournal()
goto try
endif
if UO.InJournal("You put") then
i=200
UO.DeleteJournal()
goto try
endif
if UO.InJournal("стоющего") then
i=200
UO.DeleteJournal()
goto try
endif
if UO.InJournal("You must wait to perform another action") then
wait (100)
i=200
UO.DeleteJournal()
goto try
endif
if UO.InJournal("nothing here") or UO.InJournal("Try mining") then
wait (100)
i=200
UO.DeleteJournal()
endif
if UO.InJournal("location") or uo.InJournal("in rock") then
wait (100)
i=200
UO.DeleteJournal()
endif
wait (500)
i=i+1
wend
if uo.weight>=MaxVes then
wait (1000)
goto nex0
UO.DeleteJournal()
endif
next
next
nex0:
end sub
sub gruz()
UO.SetReceivingContainer('container')
var i, k
DIM Loot[6]
Loot[0]=0x19b9
Loot[1]=0x19b7
Loot[2]=0x19b8
Loot[3]=0x19ba
Loot[4]=0x0F8c
Loot[5]=0x0F26
Loot[6]=0x0F29
For i=0 to 6
k=0
repeat
UO.FindType(loot[i])
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(1500)
Else
k=1
endif
until k==1
Next
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 enter()
gotoxy(3291,2266,1)
gotoxy(3288,2267,1)
gotoxy(3284,2253,1)
gotoxy(3264,2235,1)
gotoxy(3264,2215,1)
end sub
sub leave()
gotoxy(3264,2215,1)
gotoxy(3264,2235,1)
gotoxy(3284,2253,1)
gotoxy(3288,2267,1)
gotoxy(3291,2266,1)
end sub
########################################
sub hgb()
gotoxy(2351,811,0)
gotoxy(2351,839,0)
gotoxy(2362,849,0)
gotoxy(2351,866,0)
gruz()
gotoxy(2362,849,0)
gotoxy(2351,839,0)
gotoxy(2351,811,0)
##########################################
end sub
sub Reconnector()
var ReconnectTime, RFlag
ReconnectTime = '0'
RFlag = 1
Repeat
While (UO.ObjAtLayer('Bpack') == '')
if RFlag Then
ReconnectTime = MakeTime()
RFlag = 0
endif
Wait(20000) # WorldSave Protection
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.LDblClick(357,164)
UO.LClick(616,459)
Wait(3000)
WEnd
Wait(3000)
if (RFlag == 0) and (ReconnectTime <> '0') Then
;UO.Exec('terminate all')
;UO.Exec('exec autoload')
UO.TextOpen()
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
RFlag = 1
ReconnectTime = '0'
endif
Until false
end sub
sub MakeTime()
VAR D, T, Ret, i
Ret = STR(UO.Time())
T = ""
For i = 0 To Len(Ret)
T = Ret[Len(Ret)-i] + T
If (I == 2) OR (I == 4) Then
T = ":" + T
EndIf
Next
Ret = STR(UO.Date())
D = ""
For i = 0 To Len(Ret)
D = Ret[Len(Ret)-i] + D
If (I == 2) OR (I == 4) Then
D = "." + D
EndIf
Next
Ret = T + " @ " + D
RETURN Ret
end sub
Sub Hiding()
var i=1
repeat
for i=1 to 8
if not uo.hidden() then
UO.UseSkill("Hiding")
UO.DeleteJournal()
Repeat
Wait(10)
Until UO.InJournal("You have hidden yourself well") or UO.InJournal("You can't seem to hide here.")
end if
next
for i=1 to 8
wait(200)
if not uo.hidden() then
UO.UseSkill("Hiding")
UO.DeleteJournal()
Repeat
Wait(10)
Until UO.InJournal("You have hidden yourself well") or UO.InJournal("You can't seem to hide here.")
end if
next
Wait(100)
until UO.Dead()
end sub
Register
Login
FAQ
Search
