Или кто поможет преобразовать этот скрипт под пилот?
############################################################
# Ioeaaiiue ne?eio ia ieieia ! V.1.12
# by =Alas=
# 04/9/2003
# Io?aaaeoe?iaai by mavrik 25/6/2004. Niaoaeuia aey eaiaiey
# ia Shadow zone
############################################################
#=== Iniiaiay eaay:
# 1.Iieuciaaoaeu caienuaaao ioou a oaooa,iioii ne?eio
# neaaoao yoiio iooe e eaiaao iia niaie ia ea?aii oaao
#=== Eae aai iaeaaeou ?
# 1.Nicaaaou Object TYPE iacuaaaou aai "pickaxe",
# niiinoaaeyaou aai ni naiae ee?eie.
# 2.Eaaou ia ianoi ioeoaa oi?aou ia?aou eaiaou e caioneaaou
# record_path iaoiaeou oaooo e aica?auaaouny ia ianoi aaa
# aaa caionoee caienu(i?aiu aa?ii !!!!), aiaa?eou "stop"
# Anieuaaao ieii aaa caienai oaie ioou eiie?oaoou aai a
# 'Var path="xxxx a go_mining sub.
# 3.Eaaou ia ianoi aaa ia?ae caienu iooe,Caioneaaou go_mining sub
sub pe()
uo.usetype("0x19b9")
end sub
# E ?aaou eaaa ii an? aueaiaao
############################################################
###Aeaaiay ooieoey, iaaa iano?ieou##########################
############################################################
sub go_mining()
var cycle=0
var path="4i6oion2on5o2n3o2n2on4on4oe2oes6kl6ksksks3k2s5ks2k2s3ksksi"
#var path="2lo7io9lo9i9io9l9l2lo5io3lo2io2l"
#var path="6ik5lk7ik9l7lk9i8ik9l9l2lk9i9i2ik9l9l4l"
var test=0
var i=0
var j
UO.DeleteJournal()
While i<LEN(path)
if VAL(path[i]) then
j=VAL(path[i])
i=i+1
else
j=1
endif
Repeat
if test<>1 then
UO.DeleteJournal()
mine_spot()
end if
UO.Print("Caanu iaooy aiuoa eaiaou !!!")
if not make_step(path[i]) then
UO.Print("Probably Stuck!")
UO.Print("Hope it is a Worldsave")
endif
j=j-1
Until j==0
i = i + 1
if cycle && i==LEN(path) then
i=0
endif
Wend
end sub
############################################################
# Ie?? ia iaiyou ! #######################################
############################################################
sub mine_spot()
var maxMineTime=8000
var times=1
var timeout=1
While UO.InJournal("There is no")==0
UO.Print("Io,aaa ou noioi io oaaian ?!!!")
while not UO.Hidden()
UO.Warmode("0")
uo.print("hiding...")
UO.UseSkill("Stealth")
wait(4000)
wend
UO.DeleteJournal()
UO.WaitTargetTile("1339",STR(UO.GetX()),STR(UO.GetY()),"0")
UO.UseType("pickaxe")
timeout=0
times = times +1
if times>0 then
wait(1000)
times = 0
endif
Repeat
timeout=timeout+500
Wait(500)
#UO.Print("Waiting...")
Until UO.InJournal("You put") OR UO.InJournal("There is no") OR timeout>maxMineTime
Wend
return 0
end sub
############################################################
# Aioi aey caiene iooe####################################
############################################################
sub record_path()
var x
var y
var path=""
UO.DeleteJournal()
Repeat
x=UO.GetX()
y=UO.GetY()
if waitNewPos(x,y) then
path=path+extract_dir(x,y,UO.GetX(),UO.GetY())
endif
Until UO.InJournal("stop")
path = compressPath(path)
UO.TextClear()
UO.TextOpen()
UO.TextPrint("Your path is:")
UO.TextPrint(path)
end sub
############################################################
# Ie?? ia iaiyou !########################################
############################################################
sub send_step(keycode,dir)
var x = UO.GetX()
var y = UO.GetY()
var timeout = 0
if UO.GetDir()<>dir then
UO.Press(keycode)
Repeat
wait(50)
Until UO.GetDir()==dir
endif
UO.Press(keycode)
Repeat
timeout=timeout+50
wait(50)
Until x<>UO.GetX() || y<>UO.GetY() || timeout>2000
if timeout>2000 then
return 0
endif
return 1
end sub
############################################################
# Ie?? ia iaiyou !########################################
############################################################
sub waitNewPos(x,y)
while x==UO.GetX() && y==UO.GetY()
if UO.InJournal("stop") then
return 0
endif
wend
return 1
end sub
sub compressPath(path)
Var i=0
Var j=0
Var newPath=""
while i<LEN(path)
j=1
while path[i]==path[i+1] AND j<9
i=i+1
j=j+1
wend
if j==1 then
newPath=newPath+path[i]
else
newPath=newPath+STR(j)+path[i]
endif
i=i+1
wend
return newPath
end sub
sub extract_dir(x,y,a,b)
if x>a then
if y==b then
return "i"
else
if y>b then
return "n"
else
return "w"
endif
endif
else
if x<a then
if y==b then
return "l"
else
if y>b then
return "e"
else
return "s"
endif
endif
else
if y>b then
return "o"
else
return "k"
endif
endif
endif
end sub
sub make_step(dir)
if dir=="e" then
send_step(39,1)
return 1
endif
if dir=="l" then
send_step(34,2)
return 1
endif
if dir=="s" then
send_step(40,3)
return 1
endif
if dir=="k" then
send_step(35,4)
return 1
endif
if dir=="w" then
send_step(37,5)
return 1
endif
if dir=="i" then
send_step(36,6)
return 1
endif
if dir=="n" then
send_step(38,7)
return 1
endif
if dir=="o" then
send_step(33,0)
return 1
endif
if dir=="d" then
While UO.Count("0x19b9")
UO.Drop("0x19b9")
wait(2000)
Wend
wait(600)
return 1
endif
UO.Print("Recall Time!")
return 0
end sub
sub pereplavka()
pere:
uo.usetype ("ruda")
wait(400)
goto pere
end sub