Помогите пожалуйсто дополнить скрипт и тогда он будет супер !!! Все функции идиально роботают ! но есть такой момэнт ! Когда он накопал максвейт летит дамой складывает летит обратно в тужэ шахту и там нет оров и стоит как ЛОХ крутится вокруг минут 20... я хочю добится того чтобы он улетал дамой по рунбуке не по максвейту а когда в журнале будет 15 раз No mine is here. или как там... и чтоб после этого летел домой сбрасывал руду в сейф и летел ужэ в следующаю шахту !!! Тогда можно будет добывать руду в 2 - 3 раза быстрее как ранее добывал 30-100 руды за 20 мин
СКРИПТ:
Code: ###################################
######### Манинг ДРВ www.drw.ru #########
######### Скрипт от Execration ###########
###############2006################
##################################
sub Maning()
var mx, my, mz, i, j, jor, ser, noto
dim runes[2]
runes[0]=88
runes[1]=94
runes[2]=1025
var cavenumber=0
var maxcaves=3
Uo.exec("set norbcheck 1")
uo.exec("set norbcalc 1")
uo.fontcolor (0x0020)
uo.msg('||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||')
uo.fontcolor (0x038a)
uo.msg
('|||||||||||||||||||||||||||||| Made in Latvia |||||||||||||||||||||||||||||||')
uo.fontcolor (0x0020)
uo.msg('|||||||||||||||||||||||||||||||byExecration||||||||||||||||||||||||||||||||||')
uo.fontcolor (0x0017)
uo.exec('addobject Shovel')
while uo.targeting()
wait(100)
wend
uo.exec('addobject Runebook')
while uo.targeting()
wait(100)
wend
na4alo:
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()
for i = mx-4 to mx+4
for j = my -4 to my+4
while not UO.Hidden()
UO.Warmode("0")
uo.print("????????...")
UO.UseSkill("Hiding")
wait(4000)
wend
while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock") and not UO.InJournal("Iron Ore") and not UO.InJournal("Copper") and not UO.InJournal("Rusty Ore") and not UO.InJournal("Bronze Ore") and not UO.InJournal("Shadow Ore") and not UO.InJournal("Rose Ore") and not UO.InJournal("Gold Ore") and not UO.InJournal("Rusty Ore") and not UO.InJournal("Old Copper Ore") and not UO.InJournal("Dull Copper Ore") and not UO.InJournal("Silver Ore") and not UO.InJournal(" Ore")
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("heavy") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in rock")
wait (500)
for jor = 0 to 9
ser = uo.journalserial(jor)
noto = uo.getnotoriety(ser)
if noto <> 0 and noto <> 2 and not uo.injournal("loosen") then
cavenumber=cavenumber+1
if cavenumber==maxcaves then
cavenumber=0
endif
Save()
loot()
wait(3000)
goto reccal
endif
next
wend
if uo.weight > 200 then
goto end
endif
wend
UO.DeleteJournal()
next
next
goto na4alo
end:
if uo.waiting() then
uo.canceltarget()
endif
uo.exec("recall Runebook 21") ; Реколл по рунбуке домой руна 1
wait(10000)
loot()
wait(3000)
Reagents()
wait(3000)
reccal:
uo.deletejournal()
if uo.waiting() then
uo.canceltarget()
endif
uo.exec("recall Runebook " + Str(runes[cavenumber]))
mx = UO.GetX("self")
my = UO.GetY("self")
wait(10000)
if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then
goto reccal
endif
goto na4alo
end sub
sub loot()
if uo.waiting() then
uo.canceltarget()
endif
VAR a,Exit
VAR UnloadCont='0x40305655' ; Айдишка сейфа
DIM Ore[11]
Ore[0]=0x19B9 ; 4 and more ore
Ore[1]=0x19B7 ; 1 ore
Ore[2]=0x19BA ; 2 ore
Ore[3]=0x19B8 ; 3 ore
Ore[4]=0x0F10
Ore[5]=0x0F0F
Ore[6]=0x0F16
Ore[7]=0x0F18
Ore[8]=0x0F15
Ore[9]=0x0F26
Ore[10]=0x0F11
UO.SetReceivingContainer(UnloadCont)
wait(500)
For a=0 to 10
Exit=0
repeat
UO.FindType(Ore[a])
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(1500)
Else
Exit=1
endif
until Exit==1
Next
UO.UnSetReceivingContainer()
end sub
sub Save() ; Скрипт отвечающий за реколл от пк
var mx, my
reccal:
uo.deletejournal()
if uo.waiting() then
uo.canceltarget()
endif
mx = UO.GetX("self")
my = UO.GetY("self")
UO.DeleteJournal()
UO.Exec("usetype 0x0F0E 0x0631") ; бухаем инвизку
uo.WaitTargetType('0x1F14') ; летим домой (в паке 2 руны к сейфу)
UO.Cast('Recall') ; Летим дамой
wait(2050)
Screen() ; Сфоткаем урода на память
wait(2000)
if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then
goto reccal
endif
wait(4160)
uo.Useskill('Meditation') ; Медетируем после экстрим полета от пк
wait(40000)
uo.deletejournal()
endif
Reagents()
end sub
sub time()
var hh,mm,ss,hms,t=str(UO.Time())
if len(t)<=2 then
hh="0"
mm="0"
ss=t
endif
if len(t)==3 then
hh="0"
mm=left(t,len(t)-2)
ss=right(t,len(t)-1)
endif
if len(t)==4 then
hh="0"
mm=left(t,len(t)-2)
ss=right(t,len(t)-2)
endif
if len(t)==5 then
hh=left(t,len(t)-4)
hms=left(t,len(t)-2)
mm=right(hms,len(hms)-1)
ss=right(t,len(t)-3)
endif
if len(t)==6 then
hh=left(t,len(t)-4)
hms=left(t,len(t)-2)
mm=right(hms,len(hms)-2)
ss=right(t,len(t)-4)
endif
return hh+":"+mm+":"+ss
end sub
sub Hide()
repeat
while not UO.Hidden()
wait(100)
UO.Warmode("1")
uo.print("????????...")
UO.UseSkill("Stealth")
wait(4100)
wend
wait(100)
until false
end sub
sub Reagents()
uo.exec("recall Runebook 2")
UO.UnsetReceivingContainer()
VAR StoreRegCont=0x40166175
VAR CharRegBag='backpack'
VAR CountReg=10
VAR WaitTime=500
VAR MainSafe=0x40305655
UO.UseObject(MainSafe)
UO.UseObject(StoreRegCont)
UO.SetReceivingContainer('backpack')
wait(WaitTime)
if UO.BM<CountReg then
UO.FindType('0x0F7B','-1',StoreRegCont) ; BM
UO.Grab(STR((CountReg-UO.BM)),'finditem')
wait(WaitTime)
endif
if UO.BP<CountReg then
UO.FindType('0x0F7A','-1',StoreRegCont) ; BP
UO.Grab(STR(CountReg-UO.BP),'finditem')
wait(WaitTime)
endif
if UO.GA<CountReg then
UO.FindType('0x0F84','-1',StoreRegCont) ; GA
UO.Grab(STR(CountReg-UO.GA),'finditem')
wait(WaitTime)
endif
if UO.GS<CountReg then
UO.FindType('0x0F85','-1',StoreRegCont) ; GS
UO.Grab(STR(CountReg-UO.GS),'finditem')
wait(WaitTime)
endif
if UO.MR<CountReg then
UO.FindType('0x0F86','-1',StoreRegCont) ; MR
UO.Grab(STR(CountReg-UO.MR),'finditem')
wait(WaitTime)
endif
if UO.NS<CountReg then
UO.FindType('0x0F88','-1',StoreRegCont) ; NS
UO.Grab(STR(CountReg-UO.NS),'finditem')
wait(WaitTime)
endif
if UO.SA<CountReg then
UO.FindType('0x0F8C','-1',StoreRegCont) ; SA
UO.Grab(STR(CountReg-UO.SA),'finditem')
wait(WaitTime)
endif
if UO.SS<CountReg then
UO.FindType('0x0F8D','-1',StoreRegCont) ; SS
UO.Grab(STR(CountReg-UO.SS),'finditem')
wait(WaitTime)
endif
################
# Берем 1 инвизку если она нужна.
################
If uo.count('0x0F0E','0x0631') < 1 then
uo.findtype('0x0F0E','0x0631',StoreRegCont)
UO.Grab('1','finditem')
wait(WaitTime)
endif
UO.UnsetReceivingContainer()
end:
end sub
sub Screen()
;while not uo.dead()
;wait(50)
;wend
uo.snap()
end sub
|
