МАЙНИНГ СКРИПТ ДЛЯ DrW С НОВЫМИ НОВОВЕДЕНИЯМИ РУНБУК

Execration · Post by **Execration** » 2006-08-07 16:23:24

Помогите пожалуйсто дополнить скрипт и тогда он будет супер !!! Все функции идиально роботают ! но есть такой момэнт ! Когда он накопал максвейт летит дамой складывает летит обратно в тужэ шахту и там нет оров и стоит как ЛОХ крутится вокруг минут 20... я хочю добится того чтобы он улетал дамой по рунбуке не по максвейту а когда в журнале будет 15 раз No mine is here. или как там... и чтоб после этого летел домой сбрасывал руду в сейф и летел ужэ в следующаю шахту !!! Тогда можно будет добывать руду в 2 - 3 раза быстрее как ранее добывал 30-100 руды за 20 мин

СКРИПТ:

Code: Select all

###################################
######### Манинг ДРВ 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

Sfagnum · Post by **Sfagnum** » 2006-08-21 14:22:56

Execration wrote:Помогите пожалуйсто дополнить скрипт и тогда он будет супер !!! Все функции идиально роботают ! но есть такой момэнт ! Когда он накопал максвейт летит дамой складывает летит обратно в тужэ шахту и там нет оров и стоит как ЛОХ крутится вокруг минут 20... я хочю добится того чтобы он улетал дамой по рунбуке не по максвейту а когда в журнале будет 15 раз No mine is here. или как там... и чтоб после этого летел домой сбрасывал руду в сейф и летел ужэ в следующаю шахту !!! Тогда можно будет добывать руду в 2 - 3 раза быстрее как ранее добывал 30-100 руды за 20 мин

не жадничай, да и силу стоит подкачать.

Leo · Post by **Leo** » 2006-08-21 23:05:33

###################################
######### Манинг ДРВ www.drw.ru #########
######### Скрипт от Execration ###########
###############2006################
##################################

Подозрительно похож на скрипт Ветерана :lol:

Askaneli · Post by **Askaneli** » 2006-08-23 13:24:19

Leo wrote:
###################################
######### Манинг ДРВ www.drw.ru #########
######### Скрипт от Execration ###########
###############2006################
##################################

Подозрительно похож на скрипт Ветерана

Базаров нет. Если он сам же и афтар то кули он тада просит его ему переделать ?

Yoko

МАЙНИНГ СКРИПТ ДЛЯ DrW С НОВЫМИ НОВОВЕДЕНИЯМИ РУНБУК

МАЙНИНГ СКРИПТ ДЛЯ DrW С НОВЫМИ НОВОВЕДЕНИЯМИ РУНБУК

Re: МАЙНИНГ СКРИПТ ДЛЯ DrW С НОВЫМИ НОВОВЕДЕНИЯМИ РУНБУК