Yoko
http://forum.yoko.com.ua/

Скрипт на Mining
http://forum.yoko.com.ua/viewtopic.php?f=17&t=17217		 Page 1 of 2
Author:  Vandrag [ 2013-03-18 08:25:24 ]
Post subject:  Скрипт на Mining
Code:
############################################ 
### Manning / Шахтер v2.3 ### 
############################################ 
### Шард Dragon World / www.drw.ru 
############################################ 
### Реавтор этого скрипта: BETEP [WOD] or BETEPAH ### 
############################################ 
###                    BETEP™ 
############################# 
### Описание и настройка ### 
############################# 
### 
### Чар стоит в пещере(не ВИП) и копает вокруг себя.После достижения "максимального" веса (в данном случие это 625 стоунов) 
### "порталится" домой скидывает руду в сундук,после реколится обратно и продолжает копать. 
### Пример: стоите копаете, дошли до придела в 625 веса сработала система рекола 
### и вы "порталитесь" домой и складываете руду в сундук,после вы реколитесь обратно в пещеру.И продолжаете копать 
### (Цикличность) 
### 
### Для тех то кто им пользуется сообщаю, переделал, доработал, отредактировал.! 
### 
### Нововведения: 
### 1 )Руда складываются не на пол а в сундук. (BETEPAH) 
### 2 )Рекол в пещеру и домой по РУНБУКЕ (а не по рункам). (BETEPAH) 
###     ВНИМАНИЕ!!! В СКРИПТЕ РУНБУКИ НАСТРОЕНЫ ПОД DRW (шард) 
### 3 )Система сброса руды переделана из MassMove(что в свою очередь иногда приписывалось как фаст лут)в перемещение через  
### Масив.(написана Savage, встроена BETEPAH) 
### 4 )Упразнена система выбора "главных обьектов"(теперь просто указываем прицелом).(BETEPAH) 
### 5 )Система реконекта (выложаная сверху),хорошо сочетается с этим скриптом. (Fox M) 
### 
### !!! Чтобы скрипт заработал ВНИМАТЕЛЬНО прочтите настройки.!!!! 
### 
################################### 
### Режимы работы скрипта ### 
################################### 
### Режим - "Копание".### 
################################### 
### 
### "sub maning()" 
### Этот скрипт главный и отвечает за копание. 
### 
### Положите в суммку к себе Рунбук(с Рунами домой и в лес), Кирку (лопату),рунку к сундуку(по суте копия той что у вас 
### в рунбуке).Идите в пещеру в котором вы хотите копать.Запустите Скрипт maning(),Инжект попросит вас указать кирку 
### (появится прицел,прицелом на кирку которую вы с собой взяли),потом инжект попросит вас указать Рунбук(появится прицел, 
### прицелом на Рунбук ) Внимание!!! В РУНБУКЕ РУНА В 1ом слоте ДОМОЙ,в 8ом В пещеру. 
### ВНИМАНИЕ!!! В СКРИПТЕ НОМЕРА РУН В РУНБУКЕ НАСТРОЕНЫ ПОД DRW (шард).  
### Инжект сообщит вам что ('Прячемся..') тоесть чар уйдет в хайд. Чар автоматом возмет в руки кирку и начнет "окапаватся". 
### Если выкопали Элементала то скрипт включит "серену" и встанет на паузу пока вы просто не скажите GO.(так как вы в хайде)  
### Если появился ПК то чар зареколится к сундуку (по рунке!! так как на ДРВ рекол через рунбук 8,7 сек,а по рунке 2,3 сек) 
### выкинет руду в сундук и будет ждать определенное время которое вы поставите в скрипте. 
### 
### Чтобы все заработало !!в скрипте!! поставте свои значения: 
### 1)wait(180000) -- время в секундах при ожидании пока уйдет ПК (строка 153). 
### 2)if uo.weight > 625 then -- Максимальный вес при котором домой с рудой (строка 160). 
### 
### 
############################## 
### Режимы - "Супорт".### 
############################## 
### "loot()" 
### Этот скрипт отвечает за сброс руды в сундук. 
### После "рекола" домой чар при помощи этого скрипта сбросит руду в сундук (лучше в сейф). 
### VAR UnloadCont='0x40041342' ; ID сундука для сброса руды <<<< поставте свой (строка 196). 
###  
### "Save()" 
### Скрипт "спасатель", отвечает за рекол по любой рунке у вас в паке + реги (включается если прешел ПК) 
### будет пытатся реколится пока не "улетит" из пещеры (защита от физла). 
### 
### "pwav() и pwavw()" 
### Скрипты "сирены" отвечают за проигрование Звуковых файлов (WAV) при выкапывании элема или поялении ПК 
### uo.playwav("E:\UO\SOUND\sound 01.wav")<< укажите на примере этого путь к своим файлам (строчки 239 и 243). 
### 
### "Pause()" 
### Скрипта пауза если выкопали Элема. 
### Если вы выкопали Элема скрипт как бы "зависнет"(встанет на паузу) за это время вы можете убить элема, 
### привратившись в Демона или привести Дракона.После просто скажите в игре GO и чар продолжит копать. 
### 
################### 
### Патчи Вердаты: ### 
################### 
### Сдесь я приведу пару ссылок на патчи которые помогут вам копать: 
### 
### 1)cave floor (для тех кто предпочитает копать вручную, этот файл-патч отделяет тайлы в пещерах друг от друга, 
### что приводит к более комфортабельному копанию) 
### www.drguild.fatal.ru/files/verdata/cavefloor.exe 
### 
### 2)clean dungeons (в пещерах и подземельях не виден всякий мусор, как то: кости, мусор, большая паутина, 
### все сталагмиты заменены на маленькие и т.д.) 
### www.drguild.fatal.ru/files/verdata/cleandungeons.exe 
### 
### 3)ore mod (большое количество руды (больше 4 шт.) выглядит как маленькая кучка (3 шт.), 
### а изображение руды в количестве одной и двух штук уменьшено) 
### www.drguild.fatal.ru/files/verdata/ore.exe 
### 
### (все пачтчи проверены и протестены,Но скрипт работает и без них,так что ставить или нет - это ваше решение) 
### 
### Лично я копаю с ними.....удобно. Удачи и приятного Маннинга. )) 
### ВЕТЕРАН ака BETEP [WOD] 


sub maning() 
#BETEP™# 
var mx, my, mz, i, j, jor, ser, noto 
Uo.exec("set norbcheck 1"); для рекола 
uo.exec("set norbcalc 1"); тоже 

uo.print('!!Выбери Лопату!! ') 
uo.exec('addobject Shovel') 
while uo.targeting() 
wait(100) 
wend 
  
uo.print('!!Выбери Рунбук!! ') 
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 
UO.Print("Копаем в координатах: "+str(mx-i)+" "+str(my-j)) 
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") 
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) 
if uo.injournal("heavy") or uo.dead() then 
pwav()                    
Pause() 
endif 
for jor = 0 to 9    
ser = uo.journalserial(jor) 
noto = uo.getnotoriety(ser) 
if noto <> 1 and noto <> 0 and not uo.injournal("elemental") then 
if uo.waiting() then 
uo.canceltarget() 
endif 
Save() 
pwavw() 
wait(180000) ; время в секундах при ожидании пока уйдет ПК 
loot() 
wait(3000) 
goto reccal 
endif 
next    
wend 
if uo.weight > 625 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) 
reccal: 
uo.deletejournal() 
if uo.waiting() then 
uo.canceltarget() 
endif 
uo.exec("recall Runebook 94") ; в шахту ( в рунбуке слот 8 ) 
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='0x40041342' ; АЙДИ сундука для руды  
DIM Ore[5] 
Ore[0]=0x19B9 ; 4 and more ore 
Ore[1]=0x19B7 ; 1 ore 
Ore[2]=0x19BA ; 2 ore 
Ore[3]=0x19B8 ; 3 ore 
UO.SetReceivingContainer(UnloadCont) 
wait(500) 
For a=0 to 3 
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.FindType('0x1F14',-1,'my') 
wait(200) 
UO.Cast('Recall','finditem') 
wait(4000) 
if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then 
goto reccal 
endif 
end sub 

sub pwav() ; звук при выкапывании ЭЛЕМЕНТАЛА 
uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav") 
endsub 

sub pwavw(); звук при появлении ПК 
uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav") 
endsub 

sub Pause() ; Пауза скрипта если выкопали Элема (продолжить сказав GO ) 
UO.DeleteJournal() 
REPEAT 
WAIT(3000) 
UO.Print("!!!СКРИПТ НА ПАУЗЕ!!!!") 
UNTIL UO.InJournal('GO') 
UO.Print("!!!СКРИПТ ПРОДОЛЖЕН!!!!") 
endif 
end sub

Вот скрипт, не могли бы вы изменить скрипт так, чтобы паузы не было. Или чтобы он ждал пока изчезнет Элем, а потом копал дальше.
Author:  tylllkah [ 2013-03-18 09:29:30 ]
Post subject:  Re: Скрипт на Mining
Code:
############################################
### Manning / Шахтер v2.3 ###
############################################
### Шард Dragon World / www.drw.ru
############################################
### Реавтор этого скрипта: BETEP [WOD] or BETEPAH ###
############################################
###                    BETEP™
#############################
### Описание и настройка ###
#############################
###
### Чар стоит в пещере(не ВИП) и копает вокруг себя.После достижения "максимального" веса (в данном случие это 625 стоунов)
### "порталится" домой скидывает руду в сундук,после реколится обратно и продолжает копать.
### Пример: стоите копаете, дошли до придела в 625 веса сработала система рекола
### и вы "порталитесь" домой и складываете руду в сундук,после вы реколитесь обратно в пещеру.И продолжаете копать
### (Цикличность)
###
### Для тех то кто им пользуется сообщаю, переделал, доработал, отредактировал.!
###
### Нововведения:
### 1 )Руда складываются не на пол а в сундук. (BETEPAH)
### 2 )Рекол в пещеру и домой по РУНБУКЕ (а не по рункам). (BETEPAH)
###     ВНИМАНИЕ!!! В СКРИПТЕ РУНБУКИ НАСТРОЕНЫ ПОД DRW (шард)
### 3 )Система сброса руды переделана из MassMove(что в свою очередь иногда приписывалось как фаст лут)в перемещение через 
### Масив.(написана Savage, встроена BETEPAH)
### 4 )Упразнена система выбора "главных обьектов"(теперь просто указываем прицелом).(BETEPAH)
### 5 )Система реконекта (выложаная сверху),хорошо сочетается с этим скриптом. (Fox M)
###
### !!! Чтобы скрипт заработал ВНИМАТЕЛЬНО прочтите настройки.!!!!
###
###################################
### Режимы работы скрипта ###
###################################
### Режим - "Копание".###
###################################
###
### "sub maning()"
### Этот скрипт главный и отвечает за копание.
###
### Положите в суммку к себе Рунбук(с Рунами домой и в лес), Кирку (лопату),рунку к сундуку(по суте копия той что у вас
### в рунбуке).Идите в пещеру в котором вы хотите копать.Запустите Скрипт maning(),Инжект попросит вас указать кирку
### (появится прицел,прицелом на кирку которую вы с собой взяли),потом инжект попросит вас указать Рунбук(появится прицел,
### прицелом на Рунбук ) Внимание!!! В РУНБУКЕ РУНА В 1ом слоте ДОМОЙ,в 8ом В пещеру.
### ВНИМАНИЕ!!! В СКРИПТЕ НОМЕРА РУН В РУНБУКЕ НАСТРОЕНЫ ПОД DRW (шард). 
### Инжект сообщит вам что ('Прячемся..') тоесть чар уйдет в хайд. Чар автоматом возмет в руки кирку и начнет "окапаватся".
### Если выкопали Элементала то скрипт включит "серену" и встанет на паузу пока вы просто не скажите GO.(так как вы в хайде) 
### Если появился ПК то чар зареколится к сундуку (по рунке!! так как на ДРВ рекол через рунбук 8,7 сек,а по рунке 2,3 сек)
### выкинет руду в сундук и будет ждать определенное время которое вы поставите в скрипте.
###
### Чтобы все заработало !!в скрипте!! поставте свои значения:
### 1)wait(180000) -- время в секундах при ожидании пока уйдет ПК (строка 153).
### 2)if uo.weight > 625 then -- Максимальный вес при котором домой с рудой (строка 160).
###
###
##############################
### Режимы - "Супорт".###
##############################
### "loot()"
### Этот скрипт отвечает за сброс руды в сундук.
### После "рекола" домой чар при помощи этого скрипта сбросит руду в сундук (лучше в сейф).
### VAR UnloadCont='0x40041342' ; ID сундука для сброса руды <<<< поставте свой (строка 196).
### 
### "Save()"
### Скрипт "спасатель", отвечает за рекол по любой рунке у вас в паке + реги (включается если прешел ПК)
### будет пытатся реколится пока не "улетит" из пещеры (защита от физла).
###
### "pwav() и pwavw()"
### Скрипты "сирены" отвечают за проигрование Звуковых файлов (WAV) при выкапывании элема или поялении ПК
### uo.playwav("E:\UO\SOUND\sound 01.wav")<< укажите на примере этого путь к своим файлам (строчки 239 и 243).
###
### "Pause()"
### Скрипта пауза если выкопали Элема.
### Если вы выкопали Элема скрипт как бы "зависнет"(встанет на паузу) за это время вы можете убить элема,
### привратившись в Демона или привести Дракона.После просто скажите в игре GO и чар продолжит копать.
###
###################
### Патчи Вердаты: ###
###################
### Сдесь я приведу пару ссылок на патчи которые помогут вам копать:
###
### 1)cave floor (для тех кто предпочитает копать вручную, этот файл-патч отделяет тайлы в пещерах друг от друга,
### что приводит к более комфортабельному копанию)
### www.drguild.fatal.ru/files/verdata/cavefloor.exe
###
### 2)clean dungeons (в пещерах и подземельях не виден всякий мусор, как то: кости, мусор, большая паутина,
### все сталагмиты заменены на маленькие и т.д.)
### www.drguild.fatal.ru/files/verdata/cleandungeons.exe
###
### 3)ore mod (большое количество руды (больше 4 шт.) выглядит как маленькая кучка (3 шт.),
### а изображение руды в количестве одной и двух штук уменьшено)
### www.drguild.fatal.ru/files/verdata/ore.exe
###
### (все пачтчи проверены и протестены,Но скрипт работает и без них,так что ставить или нет - это ваше решение)
###
### Лично я копаю с ними.....удобно. Удачи и приятного Маннинга. ))
### ВЕТЕРАН ака BETEP [WOD]
sub maning()
   #BETEP™#
   var mx, my, mz, i, j, jor, ser, noto
   Uo.exec("set norbcheck 1"); для рекола
   uo.exec("set norbcalc 1"); тоже
   uo.print('!!Выбери Лопату!! ')
   uo.exec('addobject Shovel')
   while uo.targeting()
      wait(100)
   wend
   
   uo.print('!!Выбери Рунбук!! ')
   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
         UO.Print("Копаем в координатах: "+str(mx-i)+" "+str(my-j))
         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")
            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)
               if uo.injournal("heavy") or uo.dead() then
                  pwav()                   
                  Pause()
               endif
               for jor = 0 to 9   
                  ser = uo.journalserial(jor)
                  noto = uo.getnotoriety(ser)
                  if noto <> 1 and noto <> 0 and not uo.injournal("elemental") then
                     if uo.waiting() then
                        uo.canceltarget()
                     endif
                     Save()
                     pwavw()
                     wait(180000) ; время в секундах при ожидании пока уйдет ПК
                     loot()
                     wait(3000)
                     goto reccal
                  endif
               next   
            wend
            if uo.weight > 625 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)
   reccal:
   uo.deletejournal()
   if uo.waiting() then
      uo.canceltarget()
   endif
   uo.exec("recall Runebook 94") ; в шахту ( в рунбуке слот 8 )
   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='0x40041342' ; АЙДИ сундука для руды 
   DIM Ore[5]
   Ore[0]=0x19B9 ; 4 and more ore
   Ore[1]=0x19B7 ; 1 ore
   Ore[2]=0x19BA ; 2 ore
   Ore[3]=0x19B8 ; 3 ore
   UO.SetReceivingContainer(UnloadCont)
   wait(500)
   For a=0 to 3
      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.FindType('0x1F14',-1,'my')
   wait(200)
   UO.Cast('Recall','finditem')
   wait(4000)
   if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then
      goto reccal
   endif
end sub

sub pwav() ; звук при выкапывании ЭЛЕМЕНТАЛА
   uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav")
endsub

sub pwavw(); звук при появлении ПК
   uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav")
endsub

sub Pause() ; Пауза скрипта если выкопали Элема (продолжить сказав GO )
   UO.DeleteJournal()
        uo.exec('exec elem')
   REPEAT
      WAIT(3000)
      UO.Print("!!!СКРИПТ НА ПАУЗЕ!!!!")
   UNTIL UO.InJournal('GO')
   UO.Print("!!!СКРИПТ ПРОДОЛЖЕН!!!!")
endif

end sub
sub elem()
var monst='0x0010' #тип животного
uo.ignorereset()
UO.Set('finddistance','25')
UO.FindType(monst, '-1', 'ground')
while uo.findcount() > 0
if UO.FindCount() > 0 then
UO.DeleteJournal()
uo.print('Ждём пока исчезнет элем')
else
uo.print('GO')
wait(500)
end if
wend
end sub
Author:  Vandrag [ 2013-03-18 10:59:31 ]
Post subject:  Re: Скрипт на Mining
Спасибо громадное ! А можете еще пожалуйста убрать вообще рекол по рунам?
Author:  tylllkah [ 2013-03-18 11:26:37 ]
Post subject:  Re: Скрипт на Mining
Vandrag wrote:
Спасибо громадное ! А можете еще пожалуйста убрать вообще рекол по рунам?

Code:
############################################
### Manning / Шахтер v2.3 ###
############################################
### Шард Dragon World / www.drw.ru
############################################
### Реавтор этого скрипта: BETEP [WOD] or BETEPAH ###
############################################
###                    BETEP™
#############################
### Описание и настройка ###
#############################
###
### Чар стоит в пещере(не ВИП) и копает вокруг себя.После достижения "максимального" веса (в данном случие это 625 стоунов)
### "порталится" домой скидывает руду в сундук,после реколится обратно и продолжает копать.
### Пример: стоите копаете, дошли до придела в 625 веса сработала система рекола
### и вы "порталитесь" домой и складываете руду в сундук,после вы реколитесь обратно в пещеру.И продолжаете копать
### (Цикличность)
###
### Для тех то кто им пользуется сообщаю, переделал, доработал, отредактировал.!
###
### Нововведения:
### 1 )Руда складываются не на пол а в сундук. (BETEPAH)
### 2 )Рекол в пещеру и домой по РУНБУКЕ (а не по рункам). (BETEPAH)
###     ВНИМАНИЕ!!! В СКРИПТЕ РУНБУКИ НАСТРОЕНЫ ПОД DRW (шард)
### 3 )Система сброса руды переделана из MassMove(что в свою очередь иногда приписывалось как фаст лут)в перемещение через
### Масив.(написана Savage, встроена BETEPAH)
### 4 )Упразнена система выбора "главных обьектов"(теперь просто указываем прицелом).(BETEPAH)
### 5 )Система реконекта (выложаная сверху),хорошо сочетается с этим скриптом. (Fox M)
###
### !!! Чтобы скрипт заработал ВНИМАТЕЛЬНО прочтите настройки.!!!!
###
###################################
### Режимы работы скрипта ###
###################################
### Режим - "Копание".###
###################################
###
### "sub maning()"
### Этот скрипт главный и отвечает за копание.
###
### Положите в суммку к себе Рунбук(с Рунами домой и в лес), Кирку (лопату),рунку к сундуку(по суте копия той что у вас
### в рунбуке).Идите в пещеру в котором вы хотите копать.Запустите Скрипт maning(),Инжект попросит вас указать кирку
### (появится прицел,прицелом на кирку которую вы с собой взяли),потом инжект попросит вас указать Рунбук(появится прицел,
### прицелом на Рунбук ) Внимание!!! В РУНБУКЕ РУНА В 1ом слоте ДОМОЙ,в 8ом В пещеру.
### ВНИМАНИЕ!!! В СКРИПТЕ НОМЕРА РУН В РУНБУКЕ НАСТРОЕНЫ ПОД DRW (шард).
### Инжект сообщит вам что ('Прячемся..') тоесть чар уйдет в хайд. Чар автоматом возмет в руки кирку и начнет "окапаватся".
### Если выкопали Элементала то скрипт включит "серену" и встанет на паузу пока вы просто не скажите GO.(так как вы в хайде)
### Если появился ПК то чар зареколится к сундуку (по рунке!! так как на ДРВ рекол через рунбук 8,7 сек,а по рунке 2,3 сек)
### выкинет руду в сундук и будет ждать определенное время которое вы поставите в скрипте.
###
### Чтобы все заработало !!в скрипте!! поставте свои значения:
### 1)wait(180000) -- время в секундах при ожидании пока уйдет ПК (строка 153).
### 2)if uo.weight > 625 then -- Максимальный вес при котором домой с рудой (строка 160).
###
###
##############################
### Режимы - "Супорт".###
##############################
### "loot()"
### Этот скрипт отвечает за сброс руды в сундук.
### После "рекола" домой чар при помощи этого скрипта сбросит руду в сундук (лучше в сейф).
### VAR UnloadCont='0x40041342' ; ID сундука для сброса руды <<<< поставте свой (строка 196).
###
### "Save()"
### Скрипт "спасатель", отвечает за рекол по любой рунке у вас в паке + реги (включается если прешел ПК)
### будет пытатся реколится пока не "улетит" из пещеры (защита от физла).
###
### "pwav() и pwavw()"
### Скрипты "сирены" отвечают за проигрование Звуковых файлов (WAV) при выкапывании элема или поялении ПК
### uo.playwav("E:\UO\SOUND\sound 01.wav")<< укажите на примере этого путь к своим файлам (строчки 239 и 243).
###
### "Pause()"
### Скрипта пауза если выкопали Элема.
### Если вы выкопали Элема скрипт как бы "зависнет"(встанет на паузу) за это время вы можете убить элема,
### привратившись в Демона или привести Дракона.После просто скажите в игре GO и чар продолжит копать.
###
###################
### Патчи Вердаты: ###
###################
### Сдесь я приведу пару ссылок на патчи которые помогут вам копать:
###
### 1)cave floor (для тех кто предпочитает копать вручную, этот файл-патч отделяет тайлы в пещерах друг от друга,
### что приводит к более комфортабельному копанию)
### www.drguild.fatal.ru/files/verdata/cavefloor.exe
###
### 2)clean dungeons (в пещерах и подземельях не виден всякий мусор, как то: кости, мусор, большая паутина,
### все сталагмиты заменены на маленькие и т.д.)
### www.drguild.fatal.ru/files/verdata/cleandungeons.exe
###
### 3)ore mod (большое количество руды (больше 4 шт.) выглядит как маленькая кучка (3 шт.),
### а изображение руды в количестве одной и двух штук уменьшено)
### www.drguild.fatal.ru/files/verdata/ore.exe
###
### (все пачтчи проверены и протестены,Но скрипт работает и без них,так что ставить или нет - это ваше решение)
###
### Лично я копаю с ними.....удобно. Удачи и приятного Маннинга. ))
### ВЕТЕРАН ака BETEP [WOD]
sub maning()
   #BETEP™#
   var mx, my, mz, i, j, jor, ser, noto
   Uo.exec("set norbcheck 1"); для рекола
   uo.exec("set norbcalc 1"); тоже
   uo.print('!!Выбери Лопату!! ')
   uo.exec('addobject Shovel')
   while uo.targeting()
      wait(100)
   wend
   
   uo.print('!!Выбери Рунбук!! ')
   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
         UO.Print("Копаем в координатах: "+str(mx-i)+" "+str(my-j))
         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")
            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)
               if uo.injournal("heavy") or uo.dead() then
                  pwav()                   
                  Pause()
               endif
               for jor = 0 to 9   
                  ser = uo.journalserial(jor)
                  noto = uo.getnotoriety(ser)
                  if noto <> 1 and noto <> 0 and not uo.injournal("elemental") then
                     if uo.waiting() then
                        uo.canceltarget()
                     endif
                     pwavw()
                     wait(180000) ; время в секундах при ожидании пока уйдет ПК
                     loot()
                     wait(3000)
                  endif
               next   
            wend
            if uo.weight > 625 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)
   reccal:
   uo.deletejournal()
   if uo.waiting() then
      uo.canceltarget()
   endif
   uo.exec("recall Runebook 94") ; в шахту ( в рунбуке слот 8 )
   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='0x40041342' ; АЙДИ сундука для руды
   DIM Ore[5]
   Ore[0]=0x19B9 ; 4 and more ore
   Ore[1]=0x19B7 ; 1 ore
   Ore[2]=0x19BA ; 2 ore
   Ore[3]=0x19B8 ; 3 ore
   UO.SetReceivingContainer(UnloadCont)
   wait(500)
   For a=0 to 3
      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 pwav() ; звук при выкапывании ЭЛЕМЕНТАЛА
   uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav")
endsub

sub pwavw(); звук при появлении ПК
   uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav")
endsub

sub Pause() ; Пауза скрипта если выкопали Элема (продолжить сказав GO )
   UO.DeleteJournal()
        uo.exec('exec elem')
   REPEAT
      WAIT(3000)
      UO.Print("!!!СКРИПТ НА ПАУЗЕ!!!!")
   UNTIL UO.InJournal('GO')
   UO.Print("!!!СКРИПТ ПРОДОЛЖЕН!!!!")
endif

end sub
sub elem()
var monst='0x0010' #тип животного
uo.ignorereset()
UO.Set('finddistance','25')
UO.FindType(monst, '-1', 'ground')
while uo.findcount() > 0
if UO.FindCount() > 0 then
UO.DeleteJournal()
uo.print('Ждём пока исчезнет элем')
else
uo.print('GO')
wait(500)
end if
wend
end sub
Author:  Vandrag [ 2013-03-18 11:36:35 ]
Post subject:  Re: Скрипт на Mining
Спасибо еще раз :)
Author:  Vandrag [ 2013-03-18 12:22:55 ]
Post subject:  Re: Скрипт на Mining
Слушай, почему то он просто перекладывает руду туда сюда туда сюда
Author:  tylllkah [ 2013-03-18 15:19:45 ]
Post subject:  Re: Скрипт на Mining
Айди сундука не указал значит
Глянь у себя эту строчку
Code:
 VAR UnloadCont='0x40041342' ; АЙДИ сундука для руды
Author:  Vandrag [ 2013-03-18 16:11:02 ]
Post subject:  Re: Скрипт на Mining
А он по рюкзаку, при весе 130, сейчас скину полный скрипт
Code:
############################################
### Manning / Шахтер v2.3 ###
############################################
### Шард Dragon World / www.drw.ru
############################################
### Реавтор этого скрипта: BETEP [WOD] or BETEPAH ###
############################################
###                    BETEP™
#############################
### Описание и настройка ###
#############################
###
### Чар стоит в пещере(не ВИП) и копает вокруг себя.После достижения "максимального" веса (в данном случие это 625 стоунов)
### "порталится" домой скидывает руду в сундук,после реколится обратно и продолжает копать.
### Пример: стоите копаете, дошли до придела в 625 веса сработала система рекола
### и вы "порталитесь" домой и складываете руду в сундук,после вы реколитесь обратно в пещеру.И продолжаете копать
### (Цикличность)
###
### Для тех то кто им пользуется сообщаю, переделал, доработал, отредактировал.!
###
### Нововведения:
### 1 )Руда складываются не на пол а в сундук. (BETEPAH)
### 2 )Рекол в пещеру и домой по РУНБУКЕ (а не по рункам). (BETEPAH)
###     ВНИМАНИЕ!!! В СКРИПТЕ РУНБУКИ НАСТРОЕНЫ ПОД DRW (шард)
### 3 )Система сброса руды переделана из MassMove(что в свою очередь иногда приписывалось как фаст лут)в перемещение через
### Масив.(написана Savage, встроена BETEPAH)
### 4 )Упразнена система выбора "главных обьектов"(теперь просто указываем прицелом).(BETEPAH)
### 5 )Система реконекта (выложаная сверху),хорошо сочетается с этим скриптом. (Fox M)
###
### !!! Чтобы скрипт заработал ВНИМАТЕЛЬНО прочтите настройки.!!!!
###
###################################
### Режимы работы скрипта ###
###################################
### Режим - "Копание".###
###################################
###
### "sub maning()"
### Этот скрипт главный и отвечает за копание.
###
### Положите в суммку к себе Рунбук(с Рунами домой и в лес), Кирку (лопату),рунку к сундуку(по суте копия той что у вас
### в рунбуке).Идите в пещеру в котором вы хотите копать.Запустите Скрипт maning(),Инжект попросит вас указать кирку
### (появится прицел,прицелом на кирку которую вы с собой взяли),потом инжект попросит вас указать Рунбук(появится прицел,
### прицелом на Рунбук ) Внимание!!! В РУНБУКЕ РУНА В 1ом слоте ДОМОЙ,в 8ом В пещеру.
### ВНИМАНИЕ!!! В СКРИПТЕ НОМЕРА РУН В РУНБУКЕ НАСТРОЕНЫ ПОД DRW (шард).
### Инжект сообщит вам что ('Прячемся..') тоесть чар уйдет в хайд. Чар автоматом возмет в руки кирку и начнет "окапаватся".
### Если выкопали Элементала то скрипт включит "серену" и встанет на паузу пока вы просто не скажите GO.(так как вы в хайде)
### Если появился ПК то чар зареколится к сундуку (по рунке!! так как на ДРВ рекол через рунбук 8,7 сек,а по рунке 2,3 сек)
### выкинет руду в сундук и будет ждать определенное время которое вы поставите в скрипте.
###
### Чтобы все заработало !!в скрипте!! поставте свои значения:
### 1)wait(180000) -- время в секундах при ожидании пока уйдет ПК (строка 153).
### 2)if uo.weight > 625 then -- Максимальный вес при котором домой с рудой (строка 160).
###
###
##############################
### Режимы - "Супорт".###
##############################
### "loot()"
### Этот скрипт отвечает за сброс руды в сундук.
### После "рекола" домой чар при помощи этого скрипта сбросит руду в сундук (лучше в сейф).
### VAR UnloadCont='0x40041342' ; ID сундука для сброса руды <<<< поставте свой (строка 196).
###
### "Save()"
### Скрипт "спасатель", отвечает за рекол по любой рунке у вас в паке + реги (включается если прешел ПК)
### будет пытатся реколится пока не "улетит" из пещеры (защита от физла).
###
### "pwav() и pwavw()"
### Скрипты "сирены" отвечают за проигрование Звуковых файлов (WAV) при выкапывании элема или поялении ПК
### uo.playwav("E:\UO\SOUND\sound 01.wav")<< укажите на примере этого путь к своим файлам (строчки 239 и 243).
###
### "Pause()"
### Скрипта пауза если выкопали Элема.
### Если вы выкопали Элема скрипт как бы "зависнет"(встанет на паузу) за это время вы можете убить элема,
### привратившись в Демона или привести Дракона.После просто скажите в игре GO и чар продолжит копать.
###
###################
### Патчи Вердаты: ###
###################
### Сдесь я приведу пару ссылок на патчи которые помогут вам копать:
###
### 1)cave floor (для тех кто предпочитает копать вручную, этот файл-патч отделяет тайлы в пещерах друг от друга,
### что приводит к более комфортабельному копанию)
### www.drguild.fatal.ru/files/verdata/cavefloor.exe
###
### 2)clean dungeons (в пещерах и подземельях не виден всякий мусор, как то: кости, мусор, большая паутина,
### все сталагмиты заменены на маленькие и т.д.)
### www.drguild.fatal.ru/files/verdata/cleandungeons.exe
###
### 3)ore mod (большое количество руды (больше 4 шт.) выглядит как маленькая кучка (3 шт.),
### а изображение руды в количестве одной и двух штук уменьшено)
### www.drguild.fatal.ru/files/verdata/ore.exe
###
### (все пачтчи проверены и протестены,Но скрипт работает и без них,так что ставить или нет - это ваше решение)
###
### Лично я копаю с ними.....удобно. Удачи и приятного Маннинга. ))
### ВЕТЕРАН ака BETEP [WOD]
sub maning()
   #BETEP™#
   var mx, my, mz, i, j, jor, ser, noto
   Uo.exec("set norbcheck 1"); для рекола
   uo.exec("set norbcalc 1"); тоже
   uo.print('!!Выбери Лопату!! ')
   uo.exec('addobject Shovel')
   while uo.targeting()
      wait(100)
   wend
   
   uo.print('!!Выбери Рунбук!! ')
   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
         UO.Print("Копаем в координатах: "+str(mx-i)+" "+str(my-j))
         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")
            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)
               if uo.injournal("heavy") or uo.dead() then
                  pwav()                   
                  Pause()
               endif
               for jor = 0 to 9   
                  ser = uo.journalserial(jor)
                  noto = uo.getnotoriety(ser)
                  if noto <> 1 and noto <> 0 and not uo.injournal("elemental") then
                     if uo.waiting() then
                        uo.canceltarget()
                     endif
                     pwavw()
                     wait(180000) ; время в секундах при ожидании пока уйдет ПК
                     loot()
                     wait(3000)
                  endif
               next   
            wend
            if uo.weight > 600 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)
   reccal:
   uo.deletejournal()
   if uo.waiting() then
      uo.canceltarget()
   endif
   uo.exec("recall Runebook 94") ; в шахту ( в рунбуке слот 8 )
   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='0x40369ADF' ; АЙДИ сундука для руды
   DIM Ore[5]
   Ore[0]=0x19B9 ; 4 and more ore
   Ore[1]=0x19B7 ; 1 ore
   Ore[2]=0x19BA ; 2 ore
   Ore[3]=0x19B8 ; 3 ore
   UO.SetReceivingContainer(UnloadCont)
   wait(500)
   For a=0 to 3
      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 pwav() ; звук при выкапывании ЭЛЕМЕНТАЛА
   uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav")
endsub

sub pwavw(); звук при появлении ПК
   uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav")
endsub

sub Pause() ; Пауза скрипта если выкопали Элема (продолжить сказав GO )
   UO.DeleteJournal()
        uo.exec('exec elem')
   REPEAT
      WAIT(3000)
      UO.Print("!!!СКРИПТ НА ПАУЗЕ!!!!")
   UNTIL UO.InJournal('GO')
   UO.Print("!!!СКРИПТ ПРОДОЛЖЕН!!!!")
endif

end sub
sub elem()
var monst='0x0010' #тип животного
uo.ignorereset()
UO.Set('finddistance','25')
UO.FindType(monst, '-1', 'ground')
while uo.findcount() > 0
if UO.FindCount() > 0 then
UO.DeleteJournal()
uo.print('Ждём пока исчезнет элем')
else
uo.print('GO')
wait(500)
end if
wend
end sub
Author:  tylllkah [ 2013-03-19 12:10:54 ]
Post subject:  Re: Скрипт на Mining
############################################
### Manning / Шахтер v2.3 ###
############################################
### Шард Dragon World / http://www.drw.ru
############################################
### Реавтор этого скрипта: BETEP [WOD] or BETEPAH ###
############################################
### BETEP™
#############################
### Описание и настройка ###
#############################
###
### Чар стоит в пещере(не ВИП) и копает вокруг себя.После достижения "максимального" веса (в данном случие это 625 стоунов)
### "порталится" домой скидывает руду в сундук,после реколится обратно и продолжает копать.
### Пример: стоите копаете, дошли до придела в 625 веса сработала система рекола
### и вы "порталитесь" домой и складываете руду в сундук,после вы реколитесь обратно в пещеру.И продолжаете копать
### (Цикличность)
###
### Для тех то кто им пользуется сообщаю, переделал, доработал, отредактировал.!
###
### Нововведения:
### 1 )Руда складываются не на пол а в сундук. (BETEPAH)
### 2 )Рекол в пещеру и домой по РУНБУКЕ (а не по рункам). (BETEPAH)
### ВНИМАНИЕ!!! В СКРИПТЕ РУНБУКИ НАСТРОЕНЫ ПОД DRW (шард)
### 3 )Система сброса руды переделана из MassMove(что в свою очередь иногда приписывалось как фаст лут)в перемещение через
### Масив.(написана Savage, встроена BETEPAH)
### 4 )Упразнена система выбора "главных обьектов"(теперь просто указываем прицелом).(BETEPAH)
### 5 )Система реконекта (выложаная сверху),хорошо сочетается с этим скриптом. (Fox M)
###
### !!! Чтобы скрипт заработал ВНИМАТЕЛЬНО прочтите настройки.!!!!
###
###################################
### Режимы работы скрипта ###
###################################
### Режим - "Копание".###
###################################
###
### "sub maning()"
### Этот скрипт главный и отвечает за копание.
###
### Положите в суммку к себе Рунбук(с Рунами домой и в лес), Кирку (лопату),рунку к сундуку(по суте копия той что у вас
### в рунбуке).Идите в пещеру в котором вы хотите копать.Запустите Скрипт maning(),Инжект попросит вас указать кирку
### (появится прицел,прицелом на кирку которую вы с собой взяли),потом инжект попросит вас указать Рунбук(появится прицел,
### прицелом на Рунбук ) Внимание!!! В РУНБУКЕ РУНА В 1ом слоте ДОМОЙ,в 8ом В пещеру.
### ВНИМАНИЕ!!! В СКРИПТЕ НОМЕРА РУН В РУНБУКЕ НАСТРОЕНЫ ПОД DRW (шард).
### Инжект сообщит вам что ('Прячемся..') тоесть чар уйдет в хайд. Чар автоматом возмет в руки кирку и начнет "окапаватся".
### Если выкопали Элементала то скрипт включит "серену" и встанет на паузу пока вы просто не скажите GO.(так как вы в хайде)
### Если появился ПК то чар зареколится к сундуку (по рунке!! так как на ДРВ рекол через рунбук 8,7 сек,а по рунке 2,3 сек)
### выкинет руду в сундук и будет ждать определенное время которое вы поставите в скрипте.
###
### Чтобы все заработало !!в скрипте!! поставте свои значения:
### 1)wait(180000) -- время в секундах при ожидании пока уйдет ПК (строка 153).
### 2)if uo.weight > 625 then -- Максимальный вес при котором домой с рудой (строка 160).
###
###
##############################
### Режимы - "Супорт".###
##############################
### "loot()"
### Этот скрипт отвечает за сброс руды в сундук.
### После "рекола" домой чар при помощи этого скрипта сбросит руду в сундук (лучше в сейф).
### VAR UnloadCont='0x40041342' ; ID сундука для сброса руды <<<< поставте свой (строка 196).
###
### "Save()"
### Скрипт "спасатель", отвечает за рекол по любой рунке у вас в паке + реги (включается если прешел ПК)
### будет пытатся реколится пока не "улетит" из пещеры (защита от физла).
###
### "pwav() и pwavw()"
### Скрипты "сирены" отвечают за проигрование Звуковых файлов (WAV) при выкапывании элема или поялении ПК
### uo.playwav("E:\UO\SOUND\sound 01.wav")<< укажите на примере этого путь к своим файлам (строчки 239 и 243).
###
### "Pause()"
### Скрипта пауза если выкопали Элема.
### Если вы выкопали Элема скрипт как бы "зависнет"(встанет на паузу) за это время вы можете убить элема,
### привратившись в Демона или привести Дракона.После просто скажите в игре GO и чар продолжит копать.
###
###################
### Патчи Вердаты: ###
###################
### Сдесь я приведу пару ссылок на патчи которые помогут вам копать:
###
### 1)cave floor (для тех кто предпочитает копать вручную, этот файл-патч отделяет тайлы в пещерах друг от друга,
### что приводит к более комфортабельному копанию)
### http://www.drguild.fatal.ru/files/verdata/cavefloor.exe
###
### 2)clean dungeons (в пещерах и подземельях не виден всякий мусор, как то: кости, мусор, большая паутина,
### все сталагмиты заменены на маленькие и т.д.)
### http://www.drguild.fatal.ru/files/verda ... ngeons.exe
###
### 3)ore mod (большое количество руды (больше 4 шт.) выглядит как маленькая кучка (3 шт.),
### а изображение руды в количестве одной и двух штук уменьшено)
### http://www.drguild.fatal.ru/files/verdata/ore.exe
###
### (все пачтчи проверены и протестены,Но скрипт работает и без них,так что ставить или нет - это ваше решение)
###
### Лично я копаю с ними.....удобно. Удачи и приятного Маннинга. ))
### ВЕТЕРАН ака BETEP [WOD]
sub maning()
#BETEP™#
var mx, my, mz, i, j, jor, ser, noto
Uo.exec("set norbcheck 1"); для рекола
uo.exec("set norbcalc 1"); тоже
uo.print('!!Выбери Лопату!! ')
uo.exec('addobject Shovel')
while uo.targeting()
wait(100)
wend

uo.print('!!Выбери Рунбук!! ')
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
UO.Print("Копаем в координатах: "+str(mx-i)+" "+str(my-j))
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")
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)
if uo.injournal("heavy") or uo.dead() then
pwav()
Pause()
endif
for jor = 0 to 9
ser = uo.journalserial(jor)
noto = uo.getnotoriety(ser)
if noto <> 1 and noto <> 0 and not uo.injournal("elemental") then
if uo.waiting() then
uo.canceltarget()
endif
pwavw()
wait(180000) ; время в секундах при ожидании пока уйдет ПК
loot()
wait(3000)
endif
next
wend
if uo.weight > 600 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)
reccal:
uo.deletejournal()
if uo.waiting() then
uo.canceltarget()
endif
uo.exec("recall Runebook 94") ; в шахту ( в рунбуке слот 8 )
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='0x40369ADF' ; АЙДИ сундука для руды
DIM Ore[5]
Ore[0]=0x19B9 ; 4 and more ore
Ore[1]=0x19B7 ; 1 ore
Ore[2]=0x19BA ; 2 ore
Ore[3]=0x19B8 ; 3 ore
UO.SetReceivingContainer(UnloadCont)
wait(500)
For a=0 to 3
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 pwav() ; звук при выкапывании ЭЛЕМЕНТАЛА
uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav")
endsub

sub pwavw(); звук при появлении ПК
uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav")
endsub

sub Pause() ; Пауза скрипта если выкопали Элема (продолжить сказав GO )
UO.DeleteJournal()
uo.exec('exec elem')
REPEAT
WAIT(3000)
UO.Print("!!!СКРИПТ НА ПАУЗЕ!!!!")
UNTIL UO.InJournal('GO')
UO.Print("!!!СКРИПТ ПРОДОЛЖЕН!!!!")
endif

end sub
sub elem()
var monst='0x0010' #тип животного
uo.ignorereset()
UO.Set('finddistance','25')
UO.FindType(monst, '-1', 'ground')
while uo.findcount() > 0
if UO.FindCount() > 0 then
UO.DeleteJournal()
uo.print('Ждём пока исчезнет элем')
else
uo.print('GO')
wait(500)
end if
wend
end sub[/code][/quote]
Author:  Vandrag [ 2013-03-19 15:04:55 ]
Post subject:  Re: Скрипт на Mining
Code:
############################################ 
### Manning / Шахтер v2.3 ### 
############################################ 
### Шард Dragon World / www.drw.ru 
############################################ 
### Реавтор этого скрипта: BETEP [WOD] or BETEPAH ### 
############################################ 
###                    BETEP™ 
############################# 
### Описание и настройка ### 
############################# 
### 
### Чар стоит в пещере(не ВИП) и копает вокруг себя.После достижения "максимального" веса (в данном случие это 625 стоунов) 
### "порталится" домой скидывает руду в сундук,после реколится обратно и продолжает копать. 
### Пример: стоите копаете, дошли до придела в 625 веса сработала система рекола 
### и вы "порталитесь" домой и складываете руду в сундук,после вы реколитесь обратно в пещеру.И продолжаете копать 
### (Цикличность) 
### 
### Для тех то кто им пользуется сообщаю, переделал, доработал, отредактировал.! 
### 
### Нововведения: 
### 1 )Руда складываются не на пол а в сундук. (BETEPAH) 
### 2 )Рекол в пещеру и домой по РУНБУКЕ (а не по рункам). (BETEPAH) 
###     ВНИМАНИЕ!!! В СКРИПТЕ РУНБУКИ НАСТРОЕНЫ ПОД DRW (шард) 
### 3 )Система сброса руды переделана из MassMove(что в свою очередь иногда приписывалось как фаст лут)в перемещение через  
### Масив.(написана Savage, встроена BETEPAH) 
### 4 )Упразнена система выбора "главных обьектов"(теперь просто указываем прицелом).(BETEPAH) 
### 5 )Система реконекта (выложаная сверху),хорошо сочетается с этим скриптом. (Fox M) 
### 
### !!! Чтобы скрипт заработал ВНИМАТЕЛЬНО прочтите настройки.!!!! 
### 
################################### 
### Режимы работы скрипта ### 
################################### 
### Режим - "Копание".### 
################################### 
### 
### "sub maning()" 
### Этот скрипт главный и отвечает за копание. 
### 
### Положите в суммку к себе Рунбук(с Рунами домой и в лес), Кирку (лопату),рунку к сундуку(по суте копия той что у вас 
### в рунбуке).Идите в пещеру в котором вы хотите копать.Запустите Скрипт maning(),Инжект попросит вас указать кирку 
### (появится прицел,прицелом на кирку которую вы с собой взяли),потом инжект попросит вас указать Рунбук(появится прицел, 
### прицелом на Рунбук ) Внимание!!! В РУНБУКЕ РУНА В 1ом слоте ДОМОЙ,в 8ом В пещеру. 
### ВНИМАНИЕ!!! В СКРИПТЕ НОМЕРА РУН В РУНБУКЕ НАСТРОЕНЫ ПОД DRW (шард).  
### Инжект сообщит вам что ('Прячемся..') тоесть чар уйдет в хайд. Чар автоматом возмет в руки кирку и начнет "окапаватся". 
### Если выкопали Элементала то скрипт включит "серену" и встанет на паузу пока вы просто не скажите GO.(так как вы в хайде)  
### Если появился ПК то чар зареколится к сундуку (по рунке!! так как на ДРВ рекол через рунбук 8,7 сек,а по рунке 2,3 сек) 
### выкинет руду в сундук и будет ждать определенное время которое вы поставите в скрипте. 
### 
### Чтобы все заработало !!в скрипте!! поставте свои значения: 
### 1)wait(180000) -- время в секундах при ожидании пока уйдет ПК (строка 153). 
### 2)if uo.weight > 600 then -- Максимальный вес при котором домой с рудой (строка 160). 
### 
### 
############################## 
### Режимы - "Супорт".### 
############################## 
### "loot()" 
### Этот скрипт отвечает за сброс руды в сундук. 
### После "рекола" домой чар при помощи этого скрипта сбросит руду в сундук (лучше в сейф). 
### VAR UnloadCont='0x40041342' ; ID сундука для сброса руды <<<< поставте свой (строка 196). 
###  
### "Save()" 
### Скрипт "спасатель", отвечает за рекол по любой рунке у вас в паке + реги (включается если прешел ПК) 
### будет пытатся реколится пока не "улетит" из пещеры (защита от физла). 
### 
### "pwav() и pwavw()" 
### Скрипты "сирены" отвечают за проигрование Звуковых файлов (WAV) при выкапывании элема или поялении ПК 
### uo.playwav("E:\UO\SOUND\sound 01.wav")<< укажите на примере этого путь к своим файлам (строчки 239 и 243). 
### 
### "Pause()" 
### Скрипта пауза если выкопали Элема. 
### Если вы выкопали Элема скрипт как бы "зависнет"(встанет на паузу) за это время вы можете убить элема, 
### привратившись в Демона или привести Дракона.После просто скажите в игре GO и чар продолжит копать. 
### 
################### 
### Патчи Вердаты: ### 
################### 
### Сдесь я приведу пару ссылок на патчи которые помогут вам копать: 
### 
### 1)cave floor (для тех кто предпочитает копать вручную, этот файл-патч отделяет тайлы в пещерах друг от друга, 
### что приводит к более комфортабельному копанию) 
### www.drguild.fatal.ru/files/verdata/cavefloor.exe 
### 
### 2)clean dungeons (в пещерах и подземельях не виден всякий мусор, как то: кости, мусор, большая паутина, 
### все сталагмиты заменены на маленькие и т.д.) 
### www.drguild.fatal.ru/files/verdata/cleandungeons.exe 
### 
### 3)ore mod (большое количество руды (больше 4 шт.) выглядит как маленькая кучка (3 шт.), 
### а изображение руды в количестве одной и двух штук уменьшено) 
### www.drguild.fatal.ru/files/verdata/ore.exe 
### 
### (все пачтчи проверены и протестены,Но скрипт работает и без них,так что ставить или нет - это ваше решение) 
### 
### Лично я копаю с ними.....удобно. Удачи и приятного Маннинга. )) 
### ВЕТЕРАН ака BETEP [WOD] 


sub maning() 
#BETEP™# 
var mx, my, mz, i, j, jor, ser, noto 
Uo.exec("set norbcheck 1"); для рекола 
uo.exec("set norbcalc 1"); тоже 

uo.print('!!Выбери Лопату!! ') 
uo.exec('addobject Shovel') 
while uo.targeting() 
wait(100) 
wend 
  
uo.print('!!Выбери Рунбук!! ') 
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 
UO.Print("Копаем в координатах: "+str(mx-i)+" "+str(my-j)) 
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") 
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) 
if uo.injournal("heavy") or uo.dead() then 
pwav()                    
Pause() 
endif 
for jor = 0 to 9    
ser = uo.journalserial(jor) 
noto = uo.getnotoriety(ser) 
if noto <> 1 and noto <> 0 and not uo.injournal("elemental") then 
if uo.waiting() then 
uo.canceltarget() 
endif 
Save() 
pwavw() 
wait(180000) ; время в секундах при ожидании пока уйдет ПК 
loot() 
wait(3000) 
goto reccal 
endif 
next    
wend 
if uo.weight > 600 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) 
reccal: 
uo.deletejournal() 
if uo.waiting() then 
uo.canceltarget() 
endif 
uo.exec("recall Runebook 94") ; в шахту ( в рунбуке слот 8 ) 
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='0x40369ADF' ; АЙДИ сундука для руды  
DIM Ore[5] 
Ore[0]=0x19B9 ; 4 and more ore 
Ore[1]=0x19B7 ; 1 ore 
Ore[2]=0x19BA ; 2 ore 
Ore[3]=0x19B8 ; 3 ore 
UO.SetReceivingContainer(UnloadCont) 
wait(500) 
For a=0 to 3 
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.FindType('0x1F14',-1,'my') 
wait(200) 
UO.Cast('Recall','finditem') 
wait(4000) 
if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then 
goto reccal 
endif 
end sub 

sub pwav() ; звук при выкапывании ЭЛЕМЕНТАЛА 
uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav") 
endsub 

sub pwavw(); звук при появлении ПК 
uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav") 
endsub 

sub Pause() ; Пауза скрипта если выкопали Элема (продолжить сказав GO ) 
UO.DeleteJournal() 
REPEAT 
WAIT(3000) 
UO.Print("!!!СКРИПТ НА ПАУЗЕ!!!!") 
UNTIL UO.InJournal('GO') 
UO.Print("!!!СКРИПТ ПРОДОЛЖЕН!!!!") 
endif 
end sub

Народ, что за фигня с этим скриптом?
Пытается по рунке рекалиться, потом блин тупит...
Author:  tylllkah [ 2013-03-19 16:10:26 ]
Post subject:  Re: Скрипт на Mining
Vandrag wrote:
Code:
############################################ 
### Manning / Шахтер v2.3 ### 
############################################ 
### Шард Dragon World / www.drw.ru 
############################################ 
### Реавтор этого скрипта: BETEP [WOD] or BETEPAH ### 
############################################ 
###                    BETEP™ 
############################# 
### Описание и настройка ### 
############################# 
### 
### Чар стоит в пещере(не ВИП) и копает вокруг себя.После достижения "максимального" веса (в данном случие это 625 стоунов) 
### "порталится" домой скидывает руду в сундук,после реколится обратно и продолжает копать. 
### Пример: стоите копаете, дошли до придела в 625 веса сработала система рекола 
### и вы "порталитесь" домой и складываете руду в сундук,после вы реколитесь обратно в пещеру.И продолжаете копать 
### (Цикличность) 
### 
### Для тех то кто им пользуется сообщаю, переделал, доработал, отредактировал.! 
### 
### Нововведения: 
### 1 )Руда складываются не на пол а в сундук. (BETEPAH) 
### 2 )Рекол в пещеру и домой по РУНБУКЕ (а не по рункам). (BETEPAH) 
###     ВНИМАНИЕ!!! В СКРИПТЕ РУНБУКИ НАСТРОЕНЫ ПОД DRW (шард) 
### 3 )Система сброса руды переделана из MassMove(что в свою очередь иногда приписывалось как фаст лут)в перемещение через  
### Масив.(написана Savage, встроена BETEPAH) 
### 4 )Упразнена система выбора "главных обьектов"(теперь просто указываем прицелом).(BETEPAH) 
### 5 )Система реконекта (выложаная сверху),хорошо сочетается с этим скриптом. (Fox M) 
### 
### !!! Чтобы скрипт заработал ВНИМАТЕЛЬНО прочтите настройки.!!!! 
### 
################################### 
### Режимы работы скрипта ### 
################################### 
### Режим - "Копание".### 
################################### 
### 
### "sub maning()" 
### Этот скрипт главный и отвечает за копание. 
### 
### Положите в суммку к себе Рунбук(с Рунами домой и в лес), Кирку (лопату),рунку к сундуку(по суте копия той что у вас 
### в рунбуке).Идите в пещеру в котором вы хотите копать.Запустите Скрипт maning(),Инжект попросит вас указать кирку 
### (появится прицел,прицелом на кирку которую вы с собой взяли),потом инжект попросит вас указать Рунбук(появится прицел, 
### прицелом на Рунбук ) Внимание!!! В РУНБУКЕ РУНА В 1ом слоте ДОМОЙ,в 8ом В пещеру. 
### ВНИМАНИЕ!!! В СКРИПТЕ НОМЕРА РУН В РУНБУКЕ НАСТРОЕНЫ ПОД DRW (шард).  
### Инжект сообщит вам что ('Прячемся..') тоесть чар уйдет в хайд. Чар автоматом возмет в руки кирку и начнет "окапаватся". 
### Если выкопали Элементала то скрипт включит "серену" и встанет на паузу пока вы просто не скажите GO.(так как вы в хайде)  
### Если появился ПК то чар зареколится к сундуку (по рунке!! так как на ДРВ рекол через рунбук 8,7 сек,а по рунке 2,3 сек) 
### выкинет руду в сундук и будет ждать определенное время которое вы поставите в скрипте. 
### 
### Чтобы все заработало !!в скрипте!! поставте свои значения: 
### 1)wait(180000) -- время в секундах при ожидании пока уйдет ПК (строка 153). 
### 2)if uo.weight > 600 then -- Максимальный вес при котором домой с рудой (строка 160). 
### 
### 
############################## 
### Режимы - "Супорт".### 
############################## 
### "loot()" 
### Этот скрипт отвечает за сброс руды в сундук. 
### После "рекола" домой чар при помощи этого скрипта сбросит руду в сундук (лучше в сейф). 
### VAR UnloadCont='0x40041342' ; ID сундука для сброса руды <<<< поставте свой (строка 196). 
###  
### "Save()" 
### Скрипт "спасатель", отвечает за рекол по любой рунке у вас в паке + реги (включается если прешел ПК) 
### будет пытатся реколится пока не "улетит" из пещеры (защита от физла). 
### 
### "pwav() и pwavw()" 
### Скрипты "сирены" отвечают за проигрование Звуковых файлов (WAV) при выкапывании элема или поялении ПК 
### uo.playwav("E:\UO\SOUND\sound 01.wav")<< укажите на примере этого путь к своим файлам (строчки 239 и 243). 
### 
### "Pause()" 
### Скрипта пауза если выкопали Элема. 
### Если вы выкопали Элема скрипт как бы "зависнет"(встанет на паузу) за это время вы можете убить элема, 
### привратившись в Демона или привести Дракона.После просто скажите в игре GO и чар продолжит копать. 
### 
################### 
### Патчи Вердаты: ### 
################### 
### Сдесь я приведу пару ссылок на патчи которые помогут вам копать: 
### 
### 1)cave floor (для тех кто предпочитает копать вручную, этот файл-патч отделяет тайлы в пещерах друг от друга, 
### что приводит к более комфортабельному копанию) 
### www.drguild.fatal.ru/files/verdata/cavefloor.exe 
### 
### 2)clean dungeons (в пещерах и подземельях не виден всякий мусор, как то: кости, мусор, большая паутина, 
### все сталагмиты заменены на маленькие и т.д.) 
### www.drguild.fatal.ru/files/verdata/cleandungeons.exe 
### 
### 3)ore mod (большое количество руды (больше 4 шт.) выглядит как маленькая кучка (3 шт.), 
### а изображение руды в количестве одной и двух штук уменьшено) 
### www.drguild.fatal.ru/files/verdata/ore.exe 
### 
### (все пачтчи проверены и протестены,Но скрипт работает и без них,так что ставить или нет - это ваше решение) 
### 
### Лично я копаю с ними.....удобно. Удачи и приятного Маннинга. )) 
### ВЕТЕРАН ака BETEP [WOD] 


sub maning() 
#BETEP™# 
var mx, my, mz, i, j, jor, ser, noto 
Uo.exec("set norbcheck 1"); для рекола 
uo.exec("set norbcalc 1"); тоже 

uo.print('!!Выбери Лопату!! ') 
uo.exec('addobject Shovel') 
while uo.targeting() 
wait(100) 
wend 
  
uo.print('!!Выбери Рунбук!! ') 
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 
UO.Print("Копаем в координатах: "+str(mx-i)+" "+str(my-j)) 
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") 
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) 
if uo.injournal("heavy") or uo.dead() then 
pwav()                    
Pause() 
endif 
for jor = 0 to 9    
ser = uo.journalserial(jor) 
noto = uo.getnotoriety(ser) 
if noto <> 1 and noto <> 0 and not uo.injournal("elemental") then 
if uo.waiting() then 
uo.canceltarget() 
endif 
Save() 
pwavw() 
wait(180000) ; время в секундах при ожидании пока уйдет ПК 
loot() 
wait(3000) 
goto reccal 
endif 
next    
wend 
if uo.weight > 600 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) 
reccal: 
uo.deletejournal() 
if uo.waiting() then 
uo.canceltarget() 
endif 
uo.exec("recall Runebook 94") ; в шахту ( в рунбуке слот 8 ) 
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='0x40369ADF' ; АЙДИ сундука для руды  
DIM Ore[5] 
Ore[0]=0x19B9 ; 4 and more ore 
Ore[1]=0x19B7 ; 1 ore 
Ore[2]=0x19BA ; 2 ore 
Ore[3]=0x19B8 ; 3 ore 
UO.SetReceivingContainer(UnloadCont) 
wait(500) 
For a=0 to 3 
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.FindType('0x1F14',-1,'my') 
wait(200) 
UO.Cast('Recall','finditem') 
wait(4000) 
if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then 
goto reccal 
endif 
end sub 

sub pwav() ; звук при выкапывании ЭЛЕМЕНТАЛА 
uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav") 
endsub 

sub pwavw(); звук при появлении ПК 
uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav") 
endsub 

sub Pause() ; Пауза скрипта если выкопали Элема (продолжить сказав GO ) 
UO.DeleteJournal() 
REPEAT 
WAIT(3000) 
UO.Print("!!!СКРИПТ НА ПАУЗЕ!!!!") 
UNTIL UO.InJournal('GO') 
UO.Print("!!!СКРИПТ ПРОДОЛЖЕН!!!!") 
endif 
end sub

Народ, что за фигня с этим скриптом?
Пытается по рунке рекалиться, потом блин тупит...

пробуй мой вставить
Code:
sub maning()
var mx, my, mz, i, j, jor, ser, noto
Uo.exec("set norbcheck 1");
uo.exec("set norbcalc 1");
na4alo:
noto=0
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(2500)
wend
UO.Print("Копаем в координатх: "+str(mx-i)+" "+str(my-j))
while not UO.InJournal("no ore here|location|far away|in rock|Iron Ore|Copper|Rusty Ore")
UO.DeleteJournal()
if uo.waiting() then
uo.canceltarget()
endif
UO.Waittargettile("1341", str(i), str(j), str(mz))
uo.usetype(Shovel)
while not UO.InJournal("You put|heavy|location|no ore|but fail|far away|in rock")
wait (500)
if uo.injournal("heavy") or uo.dead() then
pwav() # Сообщение что появился елемент
endif
wend
if uo.weight > 180 then # Максимальный вес
goto end
endif
wend
UO.DeleteJournal()
next
next
goto na4alo
end:
if uo.waiting() then
uo.canceltarget()
endif
uo.exec("recall Runebook 21") # Летим домой
wait(10000)
while not UO.Hidden()
UO.Warmode(0)
uo.print("Прячемся...")
UO.UseSkill("Hiding")
wait(2500)
wend
loot()
wait(700)
reccal:
uo.deletejournal()
if uo.waiting() then
uo.canceltarget()
endif
uo.exec("recall Runebook 94") # Летим в шахту
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
Author:  Vandrag [ 2013-03-19 16:21:27 ]
Post subject:  Re: Скрипт на Mining
Куда его вставить то? Я вообще в скриптах не шарю :(
Author:  tylllkah [ 2013-03-20 08:03:28 ]
Post subject:  Re: Скрипт на Mining
скрипт начинает с - sub "название"() и заканчивается - end sub
тебе нужно то что я скинул, заменить на свой sub mining
иными словами:
Code:
############################################ 
### Manning / Шахтер v2.3 ### 
############################################ 
### Шард Dragon World / www.drw.ru 
############################################ 
### Реавтор этого скрипта: BETEP [WOD] or BETEPAH ### 
############################################ 
###                    BETEP™ 
############################# 
### Описание и настройка ### 
############################# 
### 
### Чар стоит в пещере(не ВИП) и копает вокруг себя.После достижения "максимального" веса (в данном случие это 625 стоунов) 
### "порталится" домой скидывает руду в сундук,после реколится обратно и продолжает копать. 
### Пример: стоите копаете, дошли до придела в 625 веса сработала система рекола 
### и вы "порталитесь" домой и складываете руду в сундук,после вы реколитесь обратно в пещеру.И продолжаете копать 
### (Цикличность) 
### 
### Для тех то кто им пользуется сообщаю, переделал, доработал, отредактировал.! 
### 
### Нововведения: 
### 1 )Руда складываются не на пол а в сундук. (BETEPAH) 
### 2 )Рекол в пещеру и домой по РУНБУКЕ (а не по рункам). (BETEPAH) 
###     ВНИМАНИЕ!!! В СКРИПТЕ РУНБУКИ НАСТРОЕНЫ ПОД DRW (шард) 
### 3 )Система сброса руды переделана из MassMove(что в свою очередь иногда приписывалось как фаст лут)в перемещение через  
### Масив.(написана Savage, встроена BETEPAH) 
### 4 )Упразнена система выбора "главных обьектов"(теперь просто указываем прицелом).(BETEPAH) 
### 5 )Система реконекта (выложаная сверху),хорошо сочетается с этим скриптом. (Fox M) 
### 
### !!! Чтобы скрипт заработал ВНИМАТЕЛЬНО прочтите настройки.!!!! 
### 
################################### 
### Режимы работы скрипта ### 
################################### 
### Режим - "Копание".### 
################################### 
### 
### "sub maning()" 
### Этот скрипт главный и отвечает за копание. 
### 
### Положите в суммку к себе Рунбук(с Рунами домой и в лес), Кирку (лопату),рунку к сундуку(по суте копия той что у вас 
### в рунбуке).Идите в пещеру в котором вы хотите копать.Запустите Скрипт maning(),Инжект попросит вас указать кирку 
### (появится прицел,прицелом на кирку которую вы с собой взяли),потом инжект попросит вас указать Рунбук(появится прицел, 
### прицелом на Рунбук ) Внимание!!! В РУНБУКЕ РУНА В 1ом слоте ДОМОЙ,в 8ом В пещеру. 
### ВНИМАНИЕ!!! В СКРИПТЕ НОМЕРА РУН В РУНБУКЕ НАСТРОЕНЫ ПОД DRW (шард).  
### Инжект сообщит вам что ('Прячемся..') тоесть чар уйдет в хайд. Чар автоматом возмет в руки кирку и начнет "окапаватся". 
### Если выкопали Элементала то скрипт включит "серену" и встанет на паузу пока вы просто не скажите GO.(так как вы в хайде)  
### Если появился ПК то чар зареколится к сундуку (по рунке!! так как на ДРВ рекол через рунбук 8,7 сек,а по рунке 2,3 сек) 
### выкинет руду в сундук и будет ждать определенное время которое вы поставите в скрипте. 
### 
### Чтобы все заработало !!в скрипте!! поставте свои значения: 
### 1)wait(180000) -- время в секундах при ожидании пока уйдет ПК (строка 153). 
### 2)if uo.weight > 625 then -- Максимальный вес при котором домой с рудой (строка 160). 
### 
### 
############################## 
### Режимы - "Супорт".### 
############################## 
### "loot()" 
### Этот скрипт отвечает за сброс руды в сундук. 
### После "рекола" домой чар при помощи этого скрипта сбросит руду в сундук (лучше в сейф). 
### VAR UnloadCont='0x40041342' ; ID сундука для сброса руды <<<< поставте свой (строка 196). 
###  
### "Save()" 
### Скрипт "спасатель", отвечает за рекол по любой рунке у вас в паке + реги (включается если прешел ПК) 
### будет пытатся реколится пока не "улетит" из пещеры (защита от физла). 
### 
### "pwav() и pwavw()" 
### Скрипты "сирены" отвечают за проигрование Звуковых файлов (WAV) при выкапывании элема или поялении ПК 
### uo.playwav("E:\UO\SOUND\sound 01.wav")<< укажите на примере этого путь к своим файлам (строчки 239 и 243). 
### 
### "Pause()" 
### Скрипта пауза если выкопали Элема. 
### Если вы выкопали Элема скрипт как бы "зависнет"(встанет на паузу) за это время вы можете убить элема, 
### привратившись в Демона или привести Дракона.После просто скажите в игре GO и чар продолжит копать. 
### 
################### 
### Патчи Вердаты: ### 
################### 
### Сдесь я приведу пару ссылок на патчи которые помогут вам копать: 
### 
### 1)cave floor (для тех кто предпочитает копать вручную, этот файл-патч отделяет тайлы в пещерах друг от друга, 
### что приводит к более комфортабельному копанию) 
### www.drguild.fatal.ru/files/verdata/cavefloor.exe 
### 
### 2)clean dungeons (в пещерах и подземельях не виден всякий мусор, как то: кости, мусор, большая паутина, 
### все сталагмиты заменены на маленькие и т.д.) 
### www.drguild.fatal.ru/files/verdata/cleandungeons.exe 
### 
### 3)ore mod (большое количество руды (больше 4 шт.) выглядит как маленькая кучка (3 шт.), 
### а изображение руды в количестве одной и двух штук уменьшено) 
### www.drguild.fatal.ru/files/verdata/ore.exe 
### 
### (все пачтчи проверены и протестены,Но скрипт работает и без них,так что ставить или нет - это ваше решение) 
### 
### Лично я копаю с ними.....удобно. Удачи и приятного Маннинга. )) 
### ВЕТЕРАН ака BETEP [WOD]

sub maning()
var mx, my, mz, i, j, jor, ser, noto
Uo.exec("set norbcheck 1");
uo.exec("set norbcalc 1");
na4alo:
noto=0
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(2500)
wend
UO.Print("Копаем в координатх: "+str(mx-i)+" "+str(my-j))
while not UO.InJournal("no ore here|location|far away|in rock|Iron Ore|Copper|Rusty Ore")
UO.DeleteJournal()
if uo.waiting() then
uo.canceltarget()
endif
UO.Waittargettile("1341", str(i), str(j), str(mz))
uo.usetype(Shovel)
while not UO.InJournal("You put|heavy|location|no ore|but fail|far away|in rock")
wait (500)
if uo.injournal("heavy") or uo.dead() then
pwav() # Сообщение что появился елемент
endif
wend
if uo.weight > 130 then # Максимальный вес
goto end
endif
wend
UO.DeleteJournal()
next
next
goto na4alo
end:
if uo.waiting() then
uo.canceltarget()
endif
uo.exec("recall Runebook 21") # Летим домой
wait(10000)
while not UO.Hidden()
UO.Warmode(0)
uo.print("Прячемся...")
UO.UseSkill("Hiding")
wait(2500)
wend
loot()
wait(700)
reccal:
uo.deletejournal()
if uo.waiting() then
uo.canceltarget()
endif
uo.exec("recall Runebook 94") # Летим в шахту
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='0x40369ADF' ; АЙДИ сундука для руды
   DIM Ore[5]
   Ore[0]=0x19B9 ; 4 and more ore
   Ore[1]=0x19B7 ; 1 ore
   Ore[2]=0x19BA ; 2 ore
   Ore[3]=0x19B8 ; 3 ore
   UO.SetReceivingContainer(UnloadCont)
   wait(500)
   For a=0 to 3
      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 pwav() ; звук при выкапывании ЭЛЕМЕНТАЛА
   uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav")
endsub

sub pwavw(); звук при появлении ПК
   uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav")
endsub

sub Pause() ; Пауза скрипта если выкопали Элема (продолжить сказав GO )
   UO.DeleteJournal()
        uo.exec('exec elem')
   REPEAT
      WAIT(3000)
      UO.Print("!!!СКРИПТ НА ПАУЗЕ!!!!")
   UNTIL UO.InJournal('GO')
   UO.Print("!!!СКРИПТ ПРОДОЛЖЕН!!!!")
endif

end sub
sub elem()
var monst='0x0010' #тип животного
uo.ignorereset()
UO.Set('finddistance','25')
UO.FindType(monst, '-1', 'ground')
while uo.findcount() > 0
if UO.FindCount() > 0 then
UO.DeleteJournal()
uo.print('Ждём пока исчезнет элем')
else
uo.print('GO')
wait(500)
end if
wend
end sub
Author:  Vandrag [ 2013-03-21 08:19:31 ]
Post subject:  Re: Скрипт на Mining
Пишет ошибку в 124 строке.
Author:  Mirage [ 2013-03-21 08:46:53 ]
Post subject:  Re: Скрипт на Mining
Не задан тип Shovel
и
Code:
sub Pause() ; Пауза скрипта если выкопали Элема (продолжить сказав GO )
   UO.DeleteJournal()
   uo.exec('exec elem')
   REPEAT
      WAIT(3000)
      UO.Print("!!!СКРИПТ НА ПАУЗЕ!!!!")
   UNTIL UO.InJournal('GO')
   UO.Print("!!!СКРИПТ ПРОДОЛЖЕН!!!!")
;endif   <- либо лишний либо отсутствует if 
end sub
Author:  Vandrag [ 2013-03-21 11:43:17 ]
Post subject:  Re: Скрипт на Mining
Блин, можете пожалуйста скрипт этот исправить? Мне нужно чтобы он ждал изчезновение элементаля, и все работало чтобы пучком :)
Author:  tylllkah [ 2013-03-22 10:01:51 ]
Post subject:  Re: Скрипт на Mining
Code:
############################################ 
### Manning / Шахтер v2.3 ### 
############################################ 
### Шард Dragon World / www.drw.ru 
############################################ 
### Реавтор этого скрипта: BETEP [WOD] or BETEPAH ### 
############################################ 
###                    BETEP™ 
############################# 
### Описание и настройка ### 
############################# 
### 
### Чар стоит в пещере(не ВИП) и копает вокруг себя.После достижения "максимального" веса (в данном случие это 625 стоунов) 
### "порталится" домой скидывает руду в сундук,после реколится обратно и продолжает копать. 
### Пример: стоите копаете, дошли до придела в 625 веса сработала система рекола 
### и вы "порталитесь" домой и складываете руду в сундук,после вы реколитесь обратно в пещеру.И продолжаете копать 
### (Цикличность) 
### 
### Для тех то кто им пользуется сообщаю, переделал, доработал, отредактировал.! 
### 
### Нововведения: 
### 1 )Руда складываются не на пол а в сундук. (BETEPAH) 
### 2 )Рекол в пещеру и домой по РУНБУКЕ (а не по рункам). (BETEPAH) 
###     ВНИМАНИЕ!!! В СКРИПТЕ РУНБУКИ НАСТРОЕНЫ ПОД DRW (шард) 
### 3 )Система сброса руды переделана из MassMove(что в свою очередь иногда приписывалось как фаст лут)в перемещение через  
### Масив.(написана Savage, встроена BETEPAH) 
### 4 )Упразнена система выбора "главных обьектов"(теперь просто указываем прицелом).(BETEPAH) 
### 5 )Система реконекта (выложаная сверху),хорошо сочетается с этим скриптом. (Fox M) 
### 
### !!! Чтобы скрипт заработал ВНИМАТЕЛЬНО прочтите настройки.!!!! 
### 
################################### 
### Режимы работы скрипта ### 
################################### 
### Режим - "Копание".### 
################################### 
### 
### "sub maning()" 
### Этот скрипт главный и отвечает за копание. 
### 
### Положите в суммку к себе Рунбук(с Рунами домой и в лес), Кирку (лопату),рунку к сундуку(по суте копия той что у вас 
### в рунбуке).Идите в пещеру в котором вы хотите копать.Запустите Скрипт maning(),Инжект попросит вас указать кирку 
### (появится прицел,прицелом на кирку которую вы с собой взяли),потом инжект попросит вас указать Рунбук(появится прицел, 
### прицелом на Рунбук ) Внимание!!! В РУНБУКЕ РУНА В 1ом слоте ДОМОЙ,в 8ом В пещеру. 
### ВНИМАНИЕ!!! В СКРИПТЕ НОМЕРА РУН В РУНБУКЕ НАСТРОЕНЫ ПОД DRW (шард).  
### Инжект сообщит вам что ('Прячемся..') тоесть чар уйдет в хайд. Чар автоматом возмет в руки кирку и начнет "окапаватся". 
### Если выкопали Элементала то скрипт включит "серену" и встанет на паузу пока вы просто не скажите GO.(так как вы в хайде)  
### Если появился ПК то чар зареколится к сундуку (по рунке!! так как на ДРВ рекол через рунбук 8,7 сек,а по рунке 2,3 сек) 
### выкинет руду в сундук и будет ждать определенное время которое вы поставите в скрипте. 
### 
### Чтобы все заработало !!в скрипте!! поставте свои значения: 
### 1)wait(180000) -- время в секундах при ожидании пока уйдет ПК (строка 153). 
### 2)if uo.weight > 625 then -- Максимальный вес при котором домой с рудой (строка 160). 
### 
### 
############################## 
### Режимы - "Супорт".### 
############################## 
### "loot()" 
### Этот скрипт отвечает за сброс руды в сундук. 
### После "рекола" домой чар при помощи этого скрипта сбросит руду в сундук (лучше в сейф). 
### VAR UnloadCont='0x40041342' ; ID сундука для сброса руды <<<< поставте свой (строка 196). 
###  
### "Save()" 
### Скрипт "спасатель", отвечает за рекол по любой рунке у вас в паке + реги (включается если прешел ПК) 
### будет пытатся реколится пока не "улетит" из пещеры (защита от физла). 
### 
### "pwav() и pwavw()" 
### Скрипты "сирены" отвечают за проигрование Звуковых файлов (WAV) при выкапывании элема или поялении ПК 
### uo.playwav("E:\UO\SOUND\sound 01.wav")<< укажите на примере этого путь к своим файлам (строчки 239 и 243). 
### 
### "Pause()" 
### Скрипта пауза если выкопали Элема. 
### Если вы выкопали Элема скрипт как бы "зависнет"(встанет на паузу) за это время вы можете убить элема, 
### привратившись в Демона или привести Дракона.После просто скажите в игре GO и чар продолжит копать. 
### 
################### 
### Патчи Вердаты: ### 
################### 
### Сдесь я приведу пару ссылок на патчи которые помогут вам копать: 
### 
### 1)cave floor (для тех кто предпочитает копать вручную, этот файл-патч отделяет тайлы в пещерах друг от друга, 
### что приводит к более комфортабельному копанию) 
### www.drguild.fatal.ru/files/verdata/cavefloor.exe 
### 
### 2)clean dungeons (в пещерах и подземельях не виден всякий мусор, как то: кости, мусор, большая паутина, 
### все сталагмиты заменены на маленькие и т.д.) 
### www.drguild.fatal.ru/files/verdata/cleandungeons.exe 
### 
### 3)ore mod (большое количество руды (больше 4 шт.) выглядит как маленькая кучка (3 шт.), 
### а изображение руды в количестве одной и двух штук уменьшено) 
### www.drguild.fatal.ru/files/verdata/ore.exe 
### 
### (все пачтчи проверены и протестены,Но скрипт работает и без них,так что ставить или нет - это ваше решение) 
### 
### Лично я копаю с ними.....удобно. Удачи и приятного Маннинга. )) 
### ВЕТЕРАН ака BETEP [WOD]

sub maning()
var mx, my, mz, i, j, jor, ser, noto
Uo.exec("set norbcheck 1");
uo.exec("set norbcalc 1");

uo.print('!!Выбери Лопату!! ') 
uo.exec('addobject Shovel') 
while uo.targeting() 
wait(100) 
wend 
  
uo.print('!!Выбери Рунбук!! ') 
uo.exec('addobject Runebook') 
while uo.targeting() 
wait(100) 
wend 

na4alo:
noto=0
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(2500)
wend
UO.Print("Копаем в координатх: "+str(mx-i)+" "+str(my-j))
while not UO.InJournal("no ore here|location|far away|in rock|Iron Ore|Copper|Rusty Ore")
UO.DeleteJournal()
if uo.waiting() then
uo.canceltarget()
endif
UO.Waittargettile("1341", str(i), str(j), str(mz))
uo.usetype(Shovel)
while not UO.InJournal("You put|heavy|location|no ore|but fail|far away|in rock")
wait (500)
if uo.injournal("heavy") or uo.dead() then
pwav() # Сообщение что появился елемент
endif
wend
if uo.weight > 130 then # Максимальный вес
goto end
endif
wend
UO.DeleteJournal()
next
next
goto na4alo
end:
if uo.waiting() then
uo.canceltarget()
endif
uo.exec("recall Runebook 21") # Летим домой
wait(10000)
while not UO.Hidden()
UO.Warmode(0)
uo.print("Прячемся...")
UO.UseSkill("Hiding")
wait(2500)
wend
loot()
wait(700)
reccal:
uo.deletejournal()
if uo.waiting() then
uo.canceltarget()
endif
uo.exec("recall Runebook 94") # Летим в шахту
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='0x40369ADF' ; АЙДИ сундука для руды
   DIM Ore[5]
   Ore[0]=0x19B9 ; 4 and more ore
   Ore[1]=0x19B7 ; 1 ore
   Ore[2]=0x19BA ; 2 ore
   Ore[3]=0x19B8 ; 3 ore
   UO.SetReceivingContainer(UnloadCont)
   wait(500)
   For a=0 to 3
      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 pwav() ; звук при выкапывании ЭЛЕМЕНТАЛА
   uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav")
endsub

sub pwavw(); звук при появлении ПК
   uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav")
endsub

sub Pause() ; Пауза скрипта если выкопали Элема (продолжить сказав GO )
   UO.DeleteJournal()
        uo.exec('exec elem')
   REPEAT
      WAIT(3000)
      UO.Print("!!!СКРИПТ НА ПАУЗЕ!!!!")
   UNTIL UO.InJournal('GO')
   UO.Print("!!!СКРИПТ ПРОДОЛЖЕН!!!!")
end sub
sub elem()
var monst='0x0010' #тип животного
uo.ignorereset()
UO.Set('finddistance','25')
UO.FindType(monst, '-1', 'ground')
while uo.findcount() > 0
if UO.FindCount() > 0 then
UO.DeleteJournal()
uo.print('Ждём пока исчезнет элем')
else
uo.print('GO')
wait(500)
end if
wend
end sub
Author:  Vandrag [ 2013-03-22 12:35:33 ]
Post subject:  Re: Скрипт на Mining
Code:
############################################ 
### Manning / Шахтер v2.3 ### 
############################################ 
### Шард Dragon World / www.drw.ru 
############################################ 
### Реавтор этого скрипта: BETEP [WOD] or BETEPAH ### 
############################################ 
###                    BETEP™ 
############################# 
### Описание и настройка ### 
############################# 
### 
### Чар стоит в пещере(не ВИП) и копает вокруг себя.После достижения "максимального" веса (в данном случие это 625 стоунов) 
### "порталится" домой скидывает руду в сундук,после реколится обратно и продолжает копать. 
### Пример: стоите копаете, дошли до придела в 625 веса сработала система рекола 
### и вы "порталитесь" домой и складываете руду в сундук,после вы реколитесь обратно в пещеру.И продолжаете копать 
### (Цикличность) 
### 
### Для тех то кто им пользуется сообщаю, переделал, доработал, отредактировал.! 
### 
### Нововведения: 
### 1 )Руда складываются не на пол а в сундук. (BETEPAH) 
### 2 )Рекол в пещеру и домой по РУНБУКЕ (а не по рункам). (BETEPAH) 
###     ВНИМАНИЕ!!! В СКРИПТЕ РУНБУКИ НАСТРОЕНЫ ПОД DRW (шард) 
### 3 )Система сброса руды переделана из MassMove(что в свою очередь иногда приписывалось как фаст лут)в перемещение через  
### Масив.(написана Savage, встроена BETEPAH) 
### 4 )Упразнена система выбора "главных обьектов"(теперь просто указываем прицелом).(BETEPAH) 
### 5 )Система реконекта (выложаная сверху),хорошо сочетается с этим скриптом. (Fox M) 
### 
### !!! Чтобы скрипт заработал ВНИМАТЕЛЬНО прочтите настройки.!!!! 
### 
################################### 
### Режимы работы скрипта ### 
################################### 
### Режим - "Копание".### 
################################### 
### 
### "sub maning()" 
### Этот скрипт главный и отвечает за копание. 
### 
### Положите в суммку к себе Рунбук(с Рунами домой и в лес), Кирку (лопату),рунку к сундуку(по суте копия той что у вас 
### в рунбуке).Идите в пещеру в котором вы хотите копать.Запустите Скрипт maning(),Инжект попросит вас указать кирку 
### (появится прицел,прицелом на кирку которую вы с собой взяли),потом инжект попросит вас указать Рунбук(появится прицел, 
### прицелом на Рунбук ) Внимание!!! В РУНБУКЕ РУНА В 1ом слоте ДОМОЙ,в 8ом В пещеру. 
### ВНИМАНИЕ!!! В СКРИПТЕ НОМЕРА РУН В РУНБУКЕ НАСТРОЕНЫ ПОД DRW (шард).  
### Инжект сообщит вам что ('Прячемся..') тоесть чар уйдет в хайд. Чар автоматом возмет в руки кирку и начнет "окапаватся". 
### Если выкопали Элементала то скрипт включит "серену" и встанет на паузу пока вы просто не скажите GO.(так как вы в хайде)  
### Если появился ПК то чар зареколится к сундуку (по рунке!! так как на ДРВ рекол через рунбук 8,7 сек,а по рунке 2,3 сек) 
### выкинет руду в сундук и будет ждать определенное время которое вы поставите в скрипте. 
### 
### Чтобы все заработало !!в скрипте!! поставте свои значения: 
### 1)wait(180000) -- время в секундах при ожидании пока уйдет ПК (строка 153). 
### 2)if uo.weight > 625 then -- Максимальный вес при котором домой с рудой (строка 160). 
### 
### 
############################## 
### Режимы - "Супорт".### 
############################## 
### "loot()" 
### Этот скрипт отвечает за сброс руды в сундук. 
### После "рекола" домой чар при помощи этого скрипта сбросит руду в сундук (лучше в сейф). 
### VAR UnloadCont='0x40041342' ; ID сундука для сброса руды <<<< поставте свой (строка 196). 
###  
### "Save()" 
### Скрипт "спасатель", отвечает за рекол по любой рунке у вас в паке + реги (включается если прешел ПК) 
### будет пытатся реколится пока не "улетит" из пещеры (защита от физла). 
### 
### "pwav() и pwavw()" 
### Скрипты "сирены" отвечают за проигрование Звуковых файлов (WAV) при выкапывании элема или поялении ПК 
### uo.playwav("E:\UO\SOUND\sound 01.wav")<< укажите на примере этого путь к своим файлам (строчки 239 и 243). 
### 
### "Pause()" 
### Скрипта пауза если выкопали Элема. 
### Если вы выкопали Элема скрипт как бы "зависнет"(встанет на паузу) за это время вы можете убить элема, 
### привратившись в Демона или привести Дракона.После просто скажите в игре GO и чар продолжит копать. 
### 
################### 
### Патчи Вердаты: ### 
################### 
### Сдесь я приведу пару ссылок на патчи которые помогут вам копать: 
### 
### 1)cave floor (для тех кто предпочитает копать вручную, этот файл-патч отделяет тайлы в пещерах друг от друга, 
### что приводит к более комфортабельному копанию) 
### www.drguild.fatal.ru/files/verdata/cavefloor.exe 
### 
### 2)clean dungeons (в пещерах и подземельях не виден всякий мусор, как то: кости, мусор, большая паутина, 
### все сталагмиты заменены на маленькие и т.д.) 
### www.drguild.fatal.ru/files/verdata/cleandungeons.exe 
### 
### 3)ore mod (большое количество руды (больше 4 шт.) выглядит как маленькая кучка (3 шт.), 
### а изображение руды в количестве одной и двух штук уменьшено) 
### www.drguild.fatal.ru/files/verdata/ore.exe 
### 
### (все пачтчи проверены и протестены,Но скрипт работает и без них,так что ставить или нет - это ваше решение) 
### 
### Лично я копаю с ними.....удобно. Удачи и приятного Маннинга. )) 
### ВЕТЕРАН ака BETEP [WOD]

sub maning()
var mx, my, mz, i, j, jor, ser, noto
Uo.exec("set norbcheck 1");
uo.exec("set norbcalc 1");

uo.print('!!Выбери Лопату!! ') 
uo.exec('addobject Shovel') 
while uo.targeting() 
wait(100) 
wend 
  
uo.print('!!Выбери Рунбук!! ') 
uo.exec('addobject Runebook') 
while uo.targeting() 
wait(100) 
wend 

na4alo:
noto=0
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(2500)
wend
UO.Print("Копаем в координатх: "+str(mx-i)+" "+str(my-j))
while not UO.InJournal("no ore here|location|far away|in rock|Iron Ore|Copper|Rusty Ore")
UO.DeleteJournal()
if uo.waiting() then
uo.canceltarget()
endif
UO.Waittargettile("1341", str(i), str(j), str(mz))
uo.usetype(Shovel)
while not UO.InJournal("You put|heavy|location|no ore|but fail|far away|in rock")
wait (500)
if uo.injournal("heavy") or uo.dead() then
pwav() # Сообщение что появился елемент
endif
wend
if uo.weight > 130 then # Максимальный вес
goto end
endif
wend
UO.DeleteJournal()
next
next
goto na4alo
end:
if uo.waiting() then
uo.canceltarget()
endif
uo.exec("recall Runebook 21") # Летим домой
wait(10000)
while not UO.Hidden()
UO.Warmode(0)
uo.print("Прячемся...")
UO.UseSkill("Hiding")
wait(2500)
wend
loot()
wait(700)
reccal:
uo.deletejournal()
if uo.waiting() then
uo.canceltarget()
endif
uo.exec("recall Runebook 94") # Летим в шахту
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='0x40369ADF' ; АЙДИ сундука для руды
   DIM Ore[5]
   Ore[0]=0x19B9 ; 4 and more ore
   Ore[1]=0x19B7 ; 1 ore
   Ore[2]=0x19BA ; 2 ore
   Ore[3]=0x19B8 ; 3 ore
   UO.SetReceivingContainer(UnloadCont)
   wait(500)
   For a=0 to 3
      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 pwav() ; звук при выкапывании ЭЛЕМЕНТАЛА
   uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav")
endsub

sub pwavw(); звук при появлении ПК
   uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav")
endsub

sub Pause() ; Пауза скрипта если выкопали Элема (продолжить сказав GO )
   UO.DeleteJournal()
        uo.exec('exec elem')
   REPEAT
      WAIT(3000)
      UO.Print("!!!СКРИПТ НА ПАУЗЕ!!!!")
   UNTIL UO.InJournal('GO')
   UO.Print("!!!СКРИПТ ПРОДОЛЖЕН!!!!")
end sub
sub elem()
var monst='0x0010' #тип животного
uo.ignorereset()
UO.Set('finddistance','25')
UO.FindType(monst, '-1', 'ground')
while uo.findcount() > 0
if UO.FindCount() > 0 then
UO.DeleteJournal()
uo.print('Ждём пока исчезнет элем')
else
uo.print('GO')
wait(500)
end if
wend
end sub

137 строка, shovel опять :]
Author:  Mirage [ 2013-03-22 13:24:17 ]
Post subject:  Re: Скрипт на Mining
Потому что пишем не задумываясь.

uo.exec('addobject Shovel') ; добавляем объект

uo.usetype(Shovel) ; используем тип


Я бы предложил вместо

Code:
uo.print('!!Выбери Лопату!! ') 
uo.exec('addobject Shovel') 
while uo.targeting() 
wait(100) 
wend


написать
var shovel = 'тип используемой лопаты'
тип снимается тыканием ,info на лопату и скопировать значение в TYPE
Author:  tylllkah [ 2013-03-22 22:53:48 ]
Post subject:  Re: Скрипт на Mining
Code:
############################################ 
### Manning / Шахтер v2.3 ### 
############################################ 
### Шард Dragon World / www.drw.ru 
############################################ 
### Реавтор этого скрипта: BETEP [WOD] or BETEPAH ### 
############################################ 
###                    BETEP™ 
############################# 
### Описание и настройка ### 
############################# 
### 
### Чар стоит в пещере(не ВИП) и копает вокруг себя.После достижения "максимального" веса (в данном случие это 625 стоунов) 
### "порталится" домой скидывает руду в сундук,после реколится обратно и продолжает копать. 
### Пример: стоите копаете, дошли до придела в 625 веса сработала система рекола 
### и вы "порталитесь" домой и складываете руду в сундук,после вы реколитесь обратно в пещеру.И продолжаете копать 
### (Цикличность) 
### 
### Для тех то кто им пользуется сообщаю, переделал, доработал, отредактировал.! 
### 
### Нововведения: 
### 1 )Руда складываются не на пол а в сундук. (BETEPAH) 
### 2 )Рекол в пещеру и домой по РУНБУКЕ (а не по рункам). (BETEPAH) 
###     ВНИМАНИЕ!!! В СКРИПТЕ РУНБУКИ НАСТРОЕНЫ ПОД DRW (шард) 
### 3 )Система сброса руды переделана из MassMove(что в свою очередь иногда приписывалось как фаст лут)в перемещение через  
### Масив.(написана Savage, встроена BETEPAH) 
### 4 )Упразнена система выбора "главных обьектов"(теперь просто указываем прицелом).(BETEPAH) 
### 5 )Система реконекта (выложаная сверху),хорошо сочетается с этим скриптом. (Fox M) 
### 
### !!! Чтобы скрипт заработал ВНИМАТЕЛЬНО прочтите настройки.!!!! 
### 
################################### 
### Режимы работы скрипта ### 
################################### 
### Режим - "Копание".### 
################################### 
### 
### "sub maning()" 
### Этот скрипт главный и отвечает за копание. 
### 
### Положите в суммку к себе Рунбук(с Рунами домой и в лес), Кирку (лопату),рунку к сундуку(по суте копия той что у вас 
### в рунбуке).Идите в пещеру в котором вы хотите копать.Запустите Скрипт maning(),Инжект попросит вас указать кирку 
### (появится прицел,прицелом на кирку которую вы с собой взяли),потом инжект попросит вас указать Рунбук(появится прицел, 
### прицелом на Рунбук ) Внимание!!! В РУНБУКЕ РУНА В 1ом слоте ДОМОЙ,в 8ом В пещеру. 
### ВНИМАНИЕ!!! В СКРИПТЕ НОМЕРА РУН В РУНБУКЕ НАСТРОЕНЫ ПОД DRW (шард).  
### Инжект сообщит вам что ('Прячемся..') тоесть чар уйдет в хайд. Чар автоматом возмет в руки кирку и начнет "окапаватся". 
### Если выкопали Элементала то скрипт включит "серену" и встанет на паузу пока вы просто не скажите GO.(так как вы в хайде)  
### Если появился ПК то чар зареколится к сундуку (по рунке!! так как на ДРВ рекол через рунбук 8,7 сек,а по рунке 2,3 сек) 
### выкинет руду в сундук и будет ждать определенное время которое вы поставите в скрипте. 
### 
### Чтобы все заработало !!в скрипте!! поставте свои значения: 
### 1)wait(180000) -- время в секундах при ожидании пока уйдет ПК (строка 153). 
### 2)if uo.weight > 625 then -- Максимальный вес при котором домой с рудой (строка 160). 
### 
### 
############################## 
### Режимы - "Супорт".### 
############################## 
### "loot()" 
### Этот скрипт отвечает за сброс руды в сундук. 
### После "рекола" домой чар при помощи этого скрипта сбросит руду в сундук (лучше в сейф). 
### VAR UnloadCont='0x40041342' ; ID сундука для сброса руды <<<< поставте свой (строка 196). 
###  
### "Save()" 
### Скрипт "спасатель", отвечает за рекол по любой рунке у вас в паке + реги (включается если прешел ПК) 
### будет пытатся реколится пока не "улетит" из пещеры (защита от физла). 
### 
### "pwav() и pwavw()" 
### Скрипты "сирены" отвечают за проигрование Звуковых файлов (WAV) при выкапывании элема или поялении ПК 
### uo.playwav("E:\UO\SOUND\sound 01.wav")<< укажите на примере этого путь к своим файлам (строчки 239 и 243). 
### 
### "Pause()" 
### Скрипта пауза если выкопали Элема. 
### Если вы выкопали Элема скрипт как бы "зависнет"(встанет на паузу) за это время вы можете убить элема, 
### привратившись в Демона или привести Дракона.После просто скажите в игре GO и чар продолжит копать. 
### 
################### 
### Патчи Вердаты: ### 
################### 
### Сдесь я приведу пару ссылок на патчи которые помогут вам копать: 
### 
### 1)cave floor (для тех кто предпочитает копать вручную, этот файл-патч отделяет тайлы в пещерах друг от друга, 
### что приводит к более комфортабельному копанию) 
### www.drguild.fatal.ru/files/verdata/cavefloor.exe 
### 
### 2)clean dungeons (в пещерах и подземельях не виден всякий мусор, как то: кости, мусор, большая паутина, 
### все сталагмиты заменены на маленькие и т.д.) 
### www.drguild.fatal.ru/files/verdata/cleandungeons.exe 
### 
### 3)ore mod (большое количество руды (больше 4 шт.) выглядит как маленькая кучка (3 шт.), 
### а изображение руды в количестве одной и двух штук уменьшено) 
### www.drguild.fatal.ru/files/verdata/ore.exe 
### 
### (все пачтчи проверены и протестены,Но скрипт работает и без них,так что ставить или нет - это ваше решение) 
### 
### Лично я копаю с ними.....удобно. Удачи и приятного Маннинга. )) 
### ВЕТЕРАН ака BETEP [WOD]

sub maning()
var mx, my, mz, i, j, jor, ser, noto
Uo.exec("set norbcheck 1");
uo.exec("set norbcalc 1");

uo.print('!!Выбери Лопату!! ') 
uo.exec('addobject Shovel') 
while uo.targeting() 
wait(100) 
wend 
  
uo.print('!!Выбери Рунбук!! ') 
uo.exec('addobject Runebook') 
while uo.targeting() 
wait(100) 
wend 

na4alo:
noto=0
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(2500)
wend
UO.Print("Копаем в координатх: "+str(mx-i)+" "+str(my-j))
while not UO.InJournal("no ore here|location|far away|in rock|Iron Ore|Copper|Rusty 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|heavy|location|no ore|but fail|far away|in rock")
wait (500)
if uo.injournal("heavy") or uo.dead() then
pwav() # Сообщение что появился елемент
endif
wend
if uo.weight > 130 then # Максимальный вес
goto end
endif
wend
UO.DeleteJournal()
next
next
goto na4alo
end:
if uo.waiting() then
uo.canceltarget()
endif
uo.exec("recall Runebook 21") # Летим домой
wait(10000)
while not UO.Hidden()
UO.Warmode(0)
uo.print("Прячемся...")
UO.UseSkill("Hiding")
wait(2500)
wend
loot()
wait(700)
reccal:
uo.deletejournal()
if uo.waiting() then
uo.canceltarget()
endif
uo.exec("recall Runebook 94") # Летим в шахту
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='0x40369ADF' ; АЙДИ сундука для руды
   DIM Ore[5]
   Ore[0]=0x19B9 ; 4 and more ore
   Ore[1]=0x19B7 ; 1 ore
   Ore[2]=0x19BA ; 2 ore
   Ore[3]=0x19B8 ; 3 ore
   UO.SetReceivingContainer(UnloadCont)
   wait(500)
   For a=0 to 3
      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 pwav() ; звук при выкапывании ЭЛЕМЕНТАЛА
   uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav")
endsub

sub pwavw(); звук при появлении ПК
   uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav")
endsub

sub Pause() ; Пауза скрипта если выкопали Элема (продолжить сказав GO )
   UO.DeleteJournal()
        uo.exec('exec elem')
   REPEAT
      WAIT(3000)
      UO.Print("!!!СКРИПТ НА ПАУЗЕ!!!!")
   UNTIL UO.InJournal('GO')
   UO.Print("!!!СКРИПТ ПРОДОЛЖЕН!!!!")
end sub
sub elem()
var monst='0x0010' #тип животного
uo.ignorereset()
UO.Set('finddistance','25')
UO.FindType(monst, '-1', 'ground')
while uo.findcount() > 0
if UO.FindCount() > 0 then
UO.DeleteJournal()
uo.print('Ждём пока исчезнет элем')
else
uo.print('GO')
wait(500)
end if
wend
end sub

Пробуй
Page 1 of 2 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/