Code: Select all
##########################################################
### Lumberjacking / Рубка деревьев v8.7 Full ###
##########################################################
### Шард Dragon World / www.drw.ru ###
##########################################################
### Внимание:
### Для работы скрипта нужна версия YokoInjection 4ZD.
### Скачать dll этой версии можно
### от сюда: http://www.swines.nm.ru/injection.zip
##########################################################
### По вопросам и предложениям обращаться сюда:
### ICQ: 333358386 [cOoler]
### Авторы:
### -За основу взят скрипт:"©Elthar aka Duo",
### за что его автору большое спасибо.
### -Редактировал и дополнял:"BETEPAH".
### -Доработка и переработка скрипта:"cOoler".
### -За неоценимую помощь спасибо:"Mafia".
### -За коректнную помощь и идеи:"Аskaneli".
### -За помощь в переработке скрипта спасибо:"Sfagnum".
### -За помощь в доработке скрипта спасибо:"Legio".
### -А также за систему подсчета логов спасибо:"Mguai".
### Спасибо всем кто каким либо образом помогал в
### разработке этого скрипта.
##########################################################
############################
### Описание и настройка ###
############################
### Обратите внимание на значки "]![" ими выделенны важные сообщения.
###
### Чар бегает от дерева к дереву (координаты деревьев берет из файла).
### Вырубит, бежит к следующему, при логах 700 штук в паке порталится домой скидывает логи в сундук,
### после реколится обратно бежит к последнему дереву и продолжает рубить.
### Пример: В файле 100 деревьев, вы вырубив 74 дошли до придела в 700 логов сработала система рекола
### и вы "порталитесь" домой и складываете логи в сундук, после вы реколитесь обратно в лес и бежите к 75 дереву.
### Дойдя до 100 дерева (тоесть последнего в списке) чар перейдет к 1ому дереву.(Цикличность)
###
####################
### Нововведения ###
####################
### 1)Логи складываются не на пол а в сундук. [BETEPAH]
### 2)Рекол в лес и домой по рунбуке (а не по рункам). [BETEPAH]
### ]![ Внимание в скрипте номера рун в рунбуке настроены под ДРВ шард. ]![ [Шард]
### 3)Система автомарка убрана и переделана в сомостоятельное маркирование деревьев
### (раньше чар сам бегал по лесу и очень долго марчил деревья)теперь бегаем сами и просто прицелом по деревьям
### (марчим также, как и раньше в руках кирка). [BETEPAH]
### 4)Увеличен придел замаркированых деревьев до 500 шт. [BЕТЕРАН]
### 5)Улучшена система хайда (ходим, не бегаем). [BЕТЕРАН]
### 6)Добавлена система InfoLogs. [Mguai, доработана BETEPAH]
### 7)Добавлен выбор кирки. [cOoler, доработана BETEPAH]
### 8)Добавлена система защиты от ентов. [BETEPAH]
### 9)Убыстрена система рекола при атаке. [cOoler]
### 10)Добавлен реконнект. [FoX M, размещен cOoler]
### 11)Добавлены новые функции выбор на атаку и реконект. [cOoler]
### 12)Изменена система сброса логов в сундук. [cOoler]
### 13)Полностью изменен(упращен) рекол. [cOoler]
### 14)Добавлены выбор рун в рунбуке в лес и домой. [cOoler]
### 15)Добавлен каст на нападающего. [cOoler]
### 16)Добавлен выбор файла со звуком. [cOoler]
### 17)Добавлен речарж(заполнение скролами) рунбуки. [cOoler]
### 18)Добавлен рекол домой и выгруска логов после атаки. [cOoler]
### 19)Добавлена функция употребления пищи. [cOoler]
### 20)Полностью изменена функция употребления пищи. [cOoler]
### 21)Переработана система речаржа рунбуки. [cOoler]
### 22)Модифицированна система перемещения предметов. [Sfagnum]
### 23)Добавлена функция записи имен тех кто вас атачит. [cOoler]
### 24)Добавлены коментарии.Добавлена контроля за количеством логов по весу. [Sfagnum]
### 25)Убраны переходы при марке. [BETEPAH,Аskaneli]
### 26)Переделана система ожидания сейва координат в файл. [BETEPAH,Аskaneli]
### 27)Убрана система Area. [BETEPAH,Аskaneli]
### 28)Добавлена система подсчета деревьев. [BETEPAH,cOoler,Аskaneli]
### 29)Увеличен предел деревьев до 5000 шт. [BETEPAH,Аskaneli]
### 30)Переработана функция рекола при атаке.(подробнее в "Рекол при Атаке") [cOoler,Legio]
### 31)Введена функция выхода из UO после рекола от атакующего. [cOoler]
### 32)Введена функция цикличности скрипта. [cOoler]
### 33)Переработына функции рекола и контроля за опасностью. [cOoler]
### 34)Поправлено множество багов и переработаны некоторые функции. [cOoler]
### 35)Исправлена функция перемещения предметов. [cOoler]
### 36)Добавлен рекол при появлении в близи вас любово чара(синий,пк,криминал). [Legio]
###
### ]![ Из-за изменения скрипта и введения новых функций рекомендую почитать описание. ]![
### ]![ Чтобы скрипт заработал внимательно прочтите настройки. ]![
###
###################################
### Режимы работы скрипта ###
###################################
### Работает в 2х режимах: ###
### 1)Маркировка ###
### 2)Рубка ###
###################################
### Режим Первый - "Маркировка" ###
###################################
### Этот режим отвечает за Маркирование(записывание координат) деревьев.
### Включается переменной var GetFromFile=0 ## 1 - координаты деревьев будут считыватся из файла, 0 - собиратся из клиента.
### То есть если GetFromFile=0 координаты деревьев собиратся из клиента.
###
### Маркировка происходит так:
### Поставте переменную GetFromFile равную 0 (GetFromFile=0).
### Положите к себе в сумку Топор, Рунбук(с рунами домой и в лес), Руну(в безопасное место) и Кирку.
### Идите в лес в котором вы хотите рубить.
### Запустите Скрипт Lumberjacking(), инжект попросит вас указать Топор
### (появится прицел,прицелом на топор который вы с собой взяли),
### потом инжект попросит вас указать Рунбук(появится прицел,прицелом на него) и Руну в безопасное место(прицелом на нее).
### Инжект сообщит вам что ('Собираем координаты деревьев в округе...').
### Инжект попросит вас указать Кирку(появится прицел,прицелом на неё).
### Теперь вы должны в любом порядке сами прицелом указать координаты(достаточно просто нажать прицелом на дерево).
### Если вы не промахнулись и "нажали" на дерево, то инжект сообщит вам об этом(Найдено дерево "координаты дерева").
### Причем что если даже вы нажмете два раза на одно дерево то он не "запомнит" его повторно.
### Ходите по лесу и марчите деревья.
### Для того чтобы остановить марк нажмите таргетом на себя.
### Инжект напишет вам сообщение ('Анализ закончен, координаты деревьев записаны в файл' +FileName) и создаст файл на диске
### С:\ куда запишет координаты деревьев.
### После этого чар пойдет по координатам и будет вырубать деревья.
###
##############################
### Режим Второй - "Рубка" ###
##############################
### Этот режим соответственно отвечает за рубку.
### Включается переменной var GetFromFile=1 ## 1 - координаты деревьев будут считыватся из файла, 0 - собиратся из клиента
### То есть если GetFromFile=1 координаты деревьев будут считыватся из файла.
### И вам не надо будет сново марчить деревья.
###
### Рубка происходит так:
### Поставте переменную GetFromFile равную 1 (GetFromFile=1).
### Положите к себе в сумку Топор и Рунбук(с рунами домой и в лес).
### ]![ Внимание руны в рунбуке вы можете указать в переменных RuneToHome=4 и RuneToForest=5(вместо 4 и 5 номера ваших рун). ]![
### После установок рун в рунбук.
### ]![ Внимание в скрипте система рекола по рунбуке настроена под ДРВ шард. ]![
###
#########################################
### Дополнительные функции скрипта ###
#########################################
### В скрипте 4е доп. функции: ###
### 1)Речарж Рунбуки ###
### 2)Употребление Пищи ###
### 3)Рекол при Атаке ###
### 4)Реконнект ###
#########################################
### Функция Первая - "Речарж Рунбуки" ###
#########################################
### Этот режим соответственно отвечает за Речарж(заполнение скролами) Рунбуки.
### Включается переменной var RechargeBook=1 ## 1 - Включить речарж рунбуки, 0 - отключить речарж.
### То есть если RechargeBook=1 чар будет речаржить рунбуку.
###
### Речарж происходит так:
### Поставте переменную RechargeBook равную 1 (RechargeBooks=1).
### Положите в сундук, в который будут выгручаться логи, реколы.
### Чар берет 50 реколов из сундука, речаржет рунбуку, оставшиеся кладет обратно в сундук.
###
############################################
### Функция Вторая - "Употребление Пищи" ###
############################################
### Этот режим соответственно отвечает за Употребление Пищи.
### Включается переменной var EatingFood=1 ## 1 - Будем есть, 0 - нет.
### То есть если EatingFood=1 чар будет кушать.
###
### Употребление Пищи происходит так:
### Поставте переменную EatingFood равную 1 (EatingFood=1).
### Положите в сундук куда будут выгружаться логи и где лежат реколы - еду,
### тип которой вы указали тут var TypeFood='0x097B' ## - Тип еды которую будем кушать.(сейчас фиштейки)
### После того как чар выложит логи и речаржнет рунбуку, будет кушать.
### Он берет 20 единиц еды и кушает, что осталось выгружает обратно в сундук.
###
##########################################
### Функция Третья - "Рекол при Атаке" ###
##########################################
### Этот режим соответственно отвечает за Рекол при атаке ентов и не только(также стоит проверка на ПК и Криминалов).
### Включается переменной var ControlOfDanger=1 ## 1 - Включить рекол по руне(в паке) при атаке, 0 - отключить рекол.
### То есть если ControlOfDanger=1 чар будет реколиться при атаке.
###
### Побег происходит так:
### Поставте переменную ControlOfDanger равную 1 (ControlOfDanger=1).
### Замарчите Руну в безопасном месте.
### Положите к себе в сумку
### Руну(которую замарчили в безопасном месте), Реагенты(Black Pearls,Blood Moss,Mandrake Root.)
### и Бутылки расчитывая на то сколько вы хотите рубить.(Invizible Potion,Mana Potion,Heal Potion).
### При атаке, появлении ПК или криминала вы выпиваете Invizible Potion, автоматически телепортитесь на то место,
### где замаркана руна(в бакпаке).
### В это время записывается имя того кто вас атачил.
### После рекола руна маркается и проверяется ваша мана и здоровье, если чегото меньше,
### чар выпивает Mana Potion или Heal Potion в зависимости от надобности.
###
######################################
### Вариант Первый - "Цыкличность" ###
######################################
### Есди вы хотите чтобы скрипт не прекращал свою работу, то поставьте переменную CycleScript раную 1 (CycleScript=1),
### затем после указания предметов таргетом задите в "Edit current script"(в окно редактирования скрипта) и
### поставьте переменную AddObject равную 0 (AddObject=0).
### Теперь после рекола скрипт не будет выключаться, а будет ждать указанное время(DangerousTime) и затем
### реколиться домой, речаржить рунбуку, есть и опять реколиться на место рубки и рубить.
###
#####################################
### Вариант Второй - "Выключение" ###
#####################################
### Есди вы хотите чтобы скрипт не прекращал свою работу, то поставьте переменную CycleScript раную 0 (CycleScript=0),
### Теперь после рекола скрипт выключится и закроет окно UO.
###
#######################################
### Функция Четвертая - "Реконнект" ###
#######################################
### Этот режим соответственно отвечает за Реконнект при выкидывании с сервера.
### Включается переменной var Reconnect=0 ## 1 - Включить реконнект на сервер если выкинет, 0 - отключить реконнект.
### То есть если Reconnect=1 чар будет реколиться при атаке.
###
### Реконнект происходит так:
### Поставте переменную Reconnect равную 1 (Reconnect=1).
### Если вдруг повиснет игровая сфера или вас выкинет по любой другой причине
### реконнектор законнектит вас на сервер автоматически.
### Пишется время дисконнекта и коннекта на сервер.
###
### ]![ Настройте скрипт под себя при помощи переменных. ]![
###
##################
### Переменные ###
##################
##################################################################################################################
###
var FileName=('C:\uo\trees3.dat') ## - Путь к файлу в котором будут хранится координаты деревьев.
###
var TryHiding=1 ## 1 - Перед тем как рубить дерево, будет пытаться уйти в хайд, 0 - не будет .
###
var TryRecall=1 ## 1 - После того как соберет LogsQty логов, будет пытаться реколиться домой,
### складывать логи в сундук и реколиться обратно , 0 - не будет.
###
var RuneToHome=1 ## - Номер руны Домой,по счёту в рунбуке.(сейчас в 4ом слоте,можно менять от 1-9)
###
var RuneToForest=3 ## - Номер руны в Лес,по счёту в рунбуке.(сейчас в 5ом слоте,можно менять от 1-9)
###
var RechargeBook=1 ## 1 - Включить речарж рунбуки, 0 - отключить речарж.
###
var GetFromFile=1 ## 1 - Координаты деревьев будут считыватся из файла, 0 - собиратся из клиента
### (сначала соберите а потом считывайте из файла).
###
var LogsQty=1000 ## - Количество логов, добыв которое надо реколиться домой.
###
var QuantityImpact=1500 ## - Сколько раз чар будет ударять по дереву, прежде чем перейдет к другому.(стандарт - 15)
###
var ControlOfDanger=1 ## 1 - Включить рекол по руне(в паке) при атаке, 0 - отключить рекол.
###
var PhysicalDanger=1 ## 1 - влючить рекол при физической атаке, 0 - отключить рекол.
###
var SeenDanger=0 ## 1 - влючить рекол при появлении рядом ПК ил криминала, 0 - отключить рекол.
###
var RecallFromAll=0 ## 1 - включить рекол при появлении рядом любово чара, 0 - отключить рекол.
###
var DisturbingSound=('C:\uo\Warning.wav') ## - Звук которы будет пригран при атаке.(замените на свой)
###
var DangerousTime=50000 ## - Время которое чар будет ждать(после рекола) пока уйдет ПК или Ент.(сейчас 50 секунд)
###
var CycleScript=1 ## 1 - Скрипт не отключается после рекола от атакующего, 0 - отключаетсяи закрывает UO.
###
var EatingFood=1 ## 1 - Будем есть, 0 - нет.
###
var TypeFood='0x097B' ## - Тип еды которую будем кушать.(сейчас фиштейки)
###
var Reconnect=1 ## 1 - Включить реконнект на сервер если выкинет, 0 - отключить реконнект.
###
var Chest='0x402B4DD4' ## - ID сундука куда будут выгружаться логи, где должны лежать реколы и еда.
###
var AddObject=1 ## 1 - Если надо добавить обьекты, 0 - не надо.
###
##################################################################################################################
###
### После настройки:
### Идите в лес в котором вы хотите рубить.
### Запустите cкрипт Lumberjacking(), Инжект попросит вас указать Топор
### (появится прицел, прицелом на топор который вы с собой взяли),
### затем инжект попросит вас указать Рунбук(появится прицел, прицелом на него) и Руну(прицелом на неё).
### После этого чар пойдет по координатам и будет вырубать деревья.
###########
### Код ###
###########
sub Lumberjacking()
var i=0,j=0,k=0,r=0,q=0,ii,jj,f
var TopX=324,TopY=65
dim TreeX[5000],TreeY[5000],TreeT[5000]
dim TreeTile[29]
var flag=0,TreeCount=0,clicks=0,flag2=0
########################
### Графика деревьев ###
########################
TreeTile[0]=3277
TreeTile[1]=3280
TreeTile[2]=3283
TreeTile[3]=3286
TreeTile[4]=3289
TreeTile[5]=3291
TreeTile[6]=3294
TreeTile[7]=3296
TreeTile[8]=3299
TreeTile[9]=3302
TreeTile[10]=3393
TreeTile[11]=3394
TreeTile[12]=3395
TreeTile[13]=3396
TreeTile[14]=3415
TreeTile[15]=3416
TreeTile[16]=3417
TreeTile[17]=3418
TreeTile[18]=3419
TreeTile[19]=3438
TreeTile[20]=3439
TreeTile[21]=3440
TreeTile[22]=3441
TreeTile[23]=3442
TreeTile[24]=3460
TreeTile[25]=3461
TreeTile[26]=3462
TreeTile[27]=3290
TreeTile[28]=3288
if AddObject==1 then
uo.FilterSpeech('on')
uo.FilterSpeech('add', 'Where do you want to use the pickaxe?')
uo.Print('Выбери Топор: ')
uo.Exec('addobject Axe')
while uo.Targeting()
wait(100)
wend
if TryRecall==1 then
uo.Print('Выбери PунБук: ')
uo.Exec('addobject Runebook')
while uo.Targeting()
wait(100)
wend
end if
if ControlOfDanger==1 then
uo.Print('Выбери Руну: ')
uo.Exec('addobject Rune')
while uo.Targeting()
wait(100)
wend
end if
end if
if ControlOfDanger==1 then
uo.Exec('exec ControlOfDanger')
end if
if Reconnect==1 then
uo.Exec('exec Reconnect')
end if
#####################################
### Загружаем координаты из файла ###
#####################################
if GetFromFile==1 then
uo.Print('Загружаем координаты из файла...')
f=file(FileName)
f.Open()
TreeCount=safe call f.ReadNumber()
for i=1 to TreeCount
TreeT[i]=safe call f.ReadNumber()
TreeX[i]=safe call f.ReadNumber()
TreeY[i]=safe call f.ReadNumber()
next
f.Close()
else
######################################
### Собираем координаты из клиента ###
######################################
if AddObject==1 then
uo.Print('Выбери Кирку: ')
uo.Exec('addobject Pickaxe')
while uo.Targeting()
wait(100)
wend
end if
uo.Print('Собираем координаты деревьев в округе...')
repeat
clicks=0
flag=0
uo.DeleteJournal()
#######################
### Кликаем на тайл ###
#######################
uo.UseObject('Pickaxe')
waitForTarget()
uo.DeleteJournal()
WaitForTryRock()
###############################
### Проверяем дерево ли это ###
###############################
flag=0
for k=0 to 28
if uo.LastTile(0)==TreeTile[k]+1 then
flag=2
end if
next
if flag==0 then
for k=0 to 28
if uo.LastTile(0)==TreeTile[k] then
flag=1
end if
next
end if
if uo.Lasttile(1)==uo.GetX() and uo.Lasttile(2)==uo.GetY() then
flag=3
end if
#########################
### Кликнули на ствол ###
#########################
if flag==1 then
flag2=0
if TreeCount>0 then
for ii=1 to TreeCount
if TreeX[ii]==uo.LastTile(1) and TreeY[ii]==uo.LastTile(2) then
flag2=1
end if
next
end if
if flag2==0 then
TreeCount=TreeCount+1
TreeX[TreeCount]=uo.LastTile(1)
TreeY[TreeCount]=uo.LastTile(2)
TreeT[TreeCount]=uo.LastTile(0)
uo.Print('Найдено дерево номер '+str(TreeCount)+' : x='+str(uo.Lasttile(1))+' y='+str(uo.LastTile(2)))
end if
end if
##########################
### Кликнули по листве ###
##########################
if flag==2 then
flag2=0
if TreeCount>0 then
for ii=1 to TreeCount
if TreeX[ii]==uo.LastTile(1) and TreeY[ii]==uo.LastTile(2) then
flag2=1
end if
next
end if
if flag2==0 then
TreeCount=TreeCount+1
TreeX[TreeCount]=uo.LastTile(1)
TreeY[TreeCount]=uo.LastTile(2)
TreeT[TreeCount]=uo.LastTile(0)-1
uo.Print('Найдено дерево номер '+str(TreeCount)+' : x='+str(uo.Lasttile(1))+' y='+str(uo.LastTile(2)))
end if
end if
until (flag==3) or (TreeCount==5000)
uo.FilterSpeech('off')
uo.Print('Анализ закончен, координаты деревьев записаны в файл ' + FileName)
SaveToFile(TreeCount,TreeX,TreeY,TreeT)
end if
uo.Print('Деревьев найдено: '+str(TreeCount))
wait(2000)
######################################
### Ходим по собранным координатам ###
######################################
while 1==1
if TreeCount>0 then
for i=1 to TreeCount
if TryRecall==1 and uo.Count('ZLK')>=LogsQty or uo.Weight>=uo.STR*4+20 then
ToRecall()
end if
uo.Print('Идем к дереву номер '+str(i)+': x='+str(TreeX[i])+' y='+str(TreeY[i]))
InfoLogs()
flag=GotoXY(TreeX[i],TreeY[i],1)
if flag==1 then
if TryHiding==1 then
ToHide()
end if
GetTree(str(TreeT[i]),str(TreeX[i]),str(TreeY[i]),str(uo.GetZ()))
end if
next
end if
wend
end sub
sub SaveToFile(TreeCount,TreeX,TreeY,TreeT)
var s=0,i=0,f
f=file(FileName)
f.Open()
f.Create()
s=safe call f.Writeln(TreeCount)
for i=1 to TreeCount
s=safe call f.Writeln(str(TreeT[i])+' '+str(TreeX[i])+' '+str(TreeY[i]))
next
f.Close()
end sub
sub GetTree(Type,X,Y,Z)
var i
uo.Print('Начинаем рубку дерева...')
for i=0 to QuantityImpact
if uo.Warmode()==1 then
return 0
end if
wait(200)
uo.DeleteJournal()
uo.WaitTargetTile(Type,X,Y,Z)
uo.UseObject('Axe')
if WaitForChange()==1 then
return 1
end if
next
return 0
end sub
sub WaitForRecall()
var Text1=uo.GetName()+': The spell fizzles.'
var LastX=uo.GetX()
var LastY=uo.GetY()
var mess=''
for var i=0 to 200
mess=uo.Journal(0)
if uo.Journal(0)==Text1 then
return 0
end if
if uo.GetX()<>LastX or uo.GetY()<>LastY then
return 1
end if
wait(50)
next
return 0
end sub
sub WaitForHide()
var Text1=uo.GetName()+': You have hidden yourself well'
var Text2=uo.GetName()+": You can't seem to hide here."
var mess
for var i=0 to 200
mess=uo.Journal(0)
if uo.Journal(0)==Text1 then
return 1
end if
if uo.Journal(0)==Text2 then
return 0
end if
wait(50)
next
return 0
end sub
sub WaitForChange()
var Text1=uo.GetName()+': You hack at the tree for a while, but fail to produce any useable wood.'
var Text2='There are no logs here to chop.'
var Text3="You can't reach this."
var Text4='That is too far away.'
var Text5="You can't do much in your current state."
var mess
for var i=0 to 200
mess=uo.Journal(0)
if uo.Journal(0)==Text2 or uo.Journal(0)==Text3 or uo.Journal(0)==Text4 then
return 1
end if
if uo.Journal(0)==Text1 then
return 0
end if
if mess[0]=='Y' and mess[1]=='o' and mess[2]=='u' and mess[4]=='p' and mess[5]=='u' and mess[6]=='t' then
return 0
end if
wait(50)
next
return 0
end sub
sub WaitForTryRock()
var Text1='That is too far away.'
var Text2='Try mining in rock.'
var Text3='There is no ore here to mine.'
var Text4='You have no line of sight to that location'
var Text5="You can't see the target"
for var i=0 to 50
if uo.Journal(0)==Text1 or uo.Journal(0)==Text2 or uo.Journal(0)==Text3 or uo.Journal(0)==Text4 or uo.Journal(0)==Text5 then
return 1
end if
wait(200)
next
return 0
end sub
sub WaitForTarget()
for var i=0 to 50
if uo.Targeting()==1 then
return 1
end if
wait(200)
next
return 0
end sub
sub WaitForChangeXY(myX,myY,LastX,LastY)
for var i=1 to 50
if LastX<>myX or LastY<>myY then
return 1
end if
wait(200)
next
return 0
end sub
sub MovingItems(tItem,cItem,qItem,FromBackPack)
var idResivCont,idSendCont
Open(Chest)
uo.UseObject('backpack')
if FromBackPack==1 then
idResivCont=uo.GetSerial('backpack')
idSendCont=Chest
else
idSendCont=uo.GetSerial('backpack')
idResivCont=Chest
end if
CheckLag()
uo.Findtype(tItem,cItem,idSendCont)
while uo.GetQuantity('finditem')>0
uo.MoveItem('finditem',str(qItem),idResivCont)
wait(1000)
CheckLag()
if qItem>0 then
return
end if
uo.FindType(tItem,cItem,idSendCont)
wend
end sub
sub InfoTrees(sNum,fStr,lStr,Sort)
var n=VAL(Right(sNum,1))
if n==0 then
if Sort==0 then
uo.Print(fStr+'а'+lStr)
else
uo.Print(fStr+lStr)
end if
return
end if
if n<5 then
uo.Print(fStr+'а'+lStr)
return
end if
if Sort==0 then
uo.Print(fStr+'ев'+lStr)
else
uo.Print(fStr+'ов'+lStr)
end if
end sub
sub Open(Container)
uo.DeleteJournal()
uo.UseObject(Container)
repeat
wait(500)
until uo.InJournal('Contains')
end sub
(C) SerrouS
sub InitStack()
uo.SetGlobal('STACK', '0')
end sub
sub Push( param )
var Check=val(uo.GetGlobal('STACK')) ; количество элементов в стеке
uo.SetGlobal('STACK',str(Check + 1))
uo.SetGlobal('STACK_'+str(Check), param)
end sub
sub Pop ()
var Check=val(uo.GetGlobal('STACK')) ; количество элементов в стеке
if Check then
uo.SetGlobal('STACK',str(Check - 1))
return uo.GetGlobal('STACK_'+str(Check - 1))
else
return ''
end if
end sub
sub GoToXY(X,Y,prec)
dim Turn[8]
Turn[0] = 39
Turn[1] = 34
Turn[2] = 40
Turn[3] = 35
Turn[4] = 37
Turn[5] = 36
Turn[6] = 38
Turn[7] = 33
dim DeltaX[8]
dim DeltaY[8]
DeltaX[0] = 1
DeltaX[1] = 1
DeltaX[2] = 1
DeltaX[3] = 0
DeltaX[4] = -1
DeltaX[5] = -1
DeltaX[6] = -1
DeltaX[7] = 0
DeltaY[0] = -1
DeltaY[1] = 0
DeltaY[2] = 1
DeltaY[3] = 1
DeltaY[4] = 1
DeltaY[5] = 0
DeltaY[6] = -1
DeltaY[7] = -1
var MoveX,MoveY
var CurrentX,CurrentY
var LastX=0,LastY=0,LastD=-1
var pathFind=0
var Index
var recursInd=0
var fout=0
var stepdelay=100
InitStack()
repeat
CurrentX=uo.GetX()
CurrentY=uo.GetY()
MoveX=CurrentX-X
if MoveX<0 then
MoveX=0-dx
end if
dy=CurrentY-Y
if MoveY<0 then
MoveY=0-MoveY
end if
if MoveY>MoveX then
MoveX=MoveY
end if
if MoveX<=prec then
return
end if
if CurrentX==X and CurrentY==Y then
return
end if
LastX=CurrentX
LastY=CurrentY
LastD=uo.GetDir()
if CurrentX==X and Current>Y then
uo.Press(33)
end if
if CurrentX==X and CurrentY<Y then
uo.Press(35)
end if
if CurrentX<X and CurrentY==Y then
uo.Press(34)
end if
if CurrentX<X and CurrentY>Y then
uo.Press(39)
end if
if CurrentX<X and CurrentY<Y then
uo.Press(40)
end if
if CurrentX>X and CurrentY==Y then
uo.Press(36)
end if
if CurrentX>X and CurrentY>Y then
uo.Press(38)
end if
if CurrentX>X and CurrentY<Y then
uo.Press(37)
end if
uo.Print('KeyPressed')
wait(stepdelay)
if LastX==uo.GetX() and LastY==uo.GetY() and LastD==uo.GetDir() then
uo.Print('PathFind')
recursInd=0
repeat
#################################################
Index=LastD
uo.Print(str(Index))
fout=0
repeat ; идем в обход пока не упремся снова или не кончится стена
uo.Print('Iteration')
CurrentX=uo.GetX()
CurrentY=uo.GetY()
LastD=uo.GetDir()
uo.Press(Turn[ Index ])
wait(stepdelay)
if (uo.GetX()==LastX and uo.GetY()==LastY and LastD==uo.GetDir()) then
fout=1 ; уперлись
else
MoveX=uo.GetX()-CurrentX
MoveY=uo.GetY()-CurrentY
uo.Print('deltas '+str(MoveX)+' '+str(MoveY))
if DeltaX[ Index ]==MoveX and DeltaY[ Index ]==MoveY then
fout=2 ; препятствие пройдено
end if
end if
until fout
uo.Print('fout '+ str(fout))
if fout==1 then ; уходим на следующий поворот
recursInd=recursInd+1
Push(str( ind ))
;ld = ind
else ; fout == 2
; надо попытаться восстановить контекст из стека, или выйти из обхода
uo.Print('Iter '+ str(recursInd))
pathFind=0
if recursInd then ; восстановление
pathFind=1
recursInd=recursInd-1
LastD=val(Pop())-1
if LastD==-1 then
LastD=7
end if
uo.Press(turn[LastD])
wait(stepdelay) ; в сиkу того, что ондо нажатие меняет напрваление
end if
end if
#################################################
until not recursInd and not pathFind
uo.Print('PathFind END')
end if
until 0
end sub
sub InfoLogs()
uo.Print('У вас всего '+str(uo.Count('0x1BDD'))+' логов в сумке')
uo.Print('Из них '+str(uo.Count('0x1BDD','0x0000'))+' простых и ' +str(uo.Count('0x1BDD')-uo.Count('0x1BDD','0x0000'))+' цветных')
end sub
sub ToHide()
while not uo.Hidden()
uo.Print('Пытаемся уйти в хайд...')
uo.DeleteJournal()
uo.Exec('warmode 0')
uo.UseSkill('Stealth')
wait(4100)
wend
wait(100)
end sub
sub ToRecall()
uo.Exec('terminate ControlOfDanger')
RecallToHome()
DropLogs()
InfoLogs()
if RechargeBook==1 then
RechargeBook()
wait(4000)
end if
if EatingFood==1 then
EatingFood()
end if
wait(3000)
RecallToLumber()
uo.Exec('exec ControlOfDanger')
end sub
sub RecallToHome()
uo.Print('Прыгаем Домой.')
RuneBookRecall(RuneToHome)
end sub
sub RecallToLumber()
uo.Print('Прыгаем в Лес.')
RuneBookRecall(RuneToForest)
end sub
sub RuneBookRecall(n)
var OldX=uo.GetX()
var OldY=uo.GetY()
var Time
repeat
uo.Exec('warmode 0')
uo.UseObject('Runebook')
CheckLag()
uo.Lclick(135, n*15+55)
CheckLag()
Time=uo.Timer()
repeat
wait(500)
until OldX<>uo.GetX() or OldY<>uo.GetY() or uo.Dead() or uo.InJournal('needs') or uo.InJournal('fizzles') or Time+200<uo.Timer()
uo.DeleteJournal()
until OldX<>uo.GetX() or OldY<>uo.GetY() or uo.Dead() or uo.InJournal('needs')
end sub
sub DropLogs()
var Time,Space
uo.UseObject(Chest)
Time=Time()
Space=' '
uo.TextOpen()
uo.TextPrint('Выкладываем логи - ' +Space +Time)
ToHide()
var a,Exit
dim Logs[1]
Logs[0]=0x1BDD
uo.Print('Выкладываем Логи.')
for a=0 to 0
MovingItems(Logs[a],'-1',-1,0)
next
uo.Print('Логи Выложены.')
end sub
sub RechargeBook()
var Time,Space
Time=Time()
Space=' '
uo.TextOpen()
uo.TextPrint('Речарим рунбуку - ' +Space +Time)
repeat
MovingItems('0x1F4C','-1',50,1)
uo.UseObject('Runebook')
wait(1000)
Checklag()
uo.Lclick(296,91)
wait(1000)
until uo.InJournal('charges are 50') or uo.InJournal('fully') or uo.InJournal('You need a Recall Scroll') or uo.Dead()
while uo.Count('0x1F4C')>0
MovingItems('0x1F4C','-1',-1,0)
wend
end sub
sub EatingFood()
var Time,Space
Time=Time()
Space=' '
uo.TextOpen()
uo.TextPrint('Кушаем - ' +Space +Time)
MovingItems(TypeFood,'-1',20,1)
repeat
CheckLag()
if uo.Count(TypeFood)<=0 then
uo.Exec('terminate EatingFood')
end if
uo.UseType(TypeFood)
while not uo.InJournal('full') and not uo.InJournal('stuffed') and not uo.InJournal('hungry') and not uo.InJournal('satiated') and not uo.Dead()
wait(100)
wend
until uo.InJournal('too full') or uo.Dead()
while uo.Count(TypeFood)>0
MovingItems(TypeFood,'-1',-1,0)
wend
end sub
sub ControlOfDanger()
var Time,danger,Space
Time=Time()
Space=' '
while 1
uo.DeleteJournal()
while not uo.InJournal(':')
wait(100)
wend
danger=uo.GetNotoriety(uo.JournalSerial(0))
if PhysicalDanger==1 then
if uo.InJournal('OOPS') then
uo.TextOpen()
uo.TextPrint('Был вырублен Ент ' +Space +Time)
uo.Exec('exec RecallRune')
end if
if uo.InJournal('attacking you') then
uo.GetStatus('uo.JournalSerial(0)')
uo.SetGlobal('name',uo.GetName(uo.JournalSerial(0)))
uo.TextOpen()
uo.TextPrint('Вы были атакованы - '+uo.GetName(uo.JournalSerial(0)) +Space +Time)
uo.Exec('exec RecallRune')
end if
end if
if SeenDanger==1 then
if Danger==6 and UO.JournalSerial(0) <> UO.GetSerial() then
uo.GetStatus('uo.JournalSerial(0)')
uo.SetGlobal('name',uo.GetName(uo.JournalSerial(0)))
uo.TextOpen()
uo.TextPrint('Рядом оказался ПК - '+uo.GetName(uo.JournalSerial(0)) +Space +Time)
uo.Exec('exec RecallRune')
end if
if Danger==4 and UO.JournalSerial(0) <> UO.GetSerial() then
uo.GetStatus('uo.JournalSerial(0)')
uo.SetGlobal('name',uo.GetName(uo.JournalSerial(0)))
uo.TextOpen()
uo.TextPrint('Рядом оказался криминал - '+uo.GetName(uo.JournalSerial(0)) +Space +Time)
uo.Exec('exec RecallRune')
end if
if RecallFromAll==1 then
if Danger==1 and UO.JournalSerial(0) <> UO.GetSerial() then
uo.GetStatus('uo.JournalSerial(0)')
uo.SetGlobal('name',uo.GetName(uo.JournalSerial(0)))
uo.TextOpen()
uo.TextPrint('Рядом оказался чар - '+uo.GetName(uo.JournalSerial(0)) +Space +Time)
uo.Exec('exec RecallRune')
end if
end if
end if
wend
end sub
sub RecallRune()
Terminate()
uo.PlayWav(DisturbingSound)
uo.UseType('0x0F0E','0x0631')
wait(100)
repeat
uo.WaitTargetObject('Rune')
uo.Exec('warmode 0')
uo.Cast('Recall')
wait(3000)
until not uo.InJournal('spell fizzles')
repeat
uo.DeleteJournal()
#uo.WaitTargetObject('Rune')
#wait(100)
#uo.Cast('Mark')
#if uo.InJournal('mana for this spell') then
#ManaUp('Bottle')
#wait(100)
#end if
#wait(3000)
#until not uo.InJournal('spell fizzles')
if uo.Life<uo.STR then
LifeUp('Bottle')
wait(100)
end if
if CycleScript==1 then
uo.Exec('exec DangerWait')
end if
if CycleScript==0 then
uo.Exec('exec ExitUO')
end if
end sub
sub DisturbingSound(amount)
var i
for i=1 to amount
uo.PlayWav(DisturbingSound)
wait(1500)
next
end sub
sub DangerWait()
wait(DangerousTime)
ToRecall()
uo.Exec('exec Lumberjacking')
end sub
sub ExitUO()
wait(3000)
uo.CloseUO()
end sub
sub LifeUp(Mode)
if Mode=='Healing' then
while uo.Life<uo.STR
uo.Exec('bandageself')
wait(4000)
wend
end if
if Mode=='Bottle' then
if uo.Life<uo.STR then
uo.UseType('0x0F0E','0x09BB')
wait(100)
end if
end if
end sub
sub ManaUp(Mode)
if Mode=='Meditation' then
while uo.Mana<uo.INT
uo.Exec('useskill Meditation')
wait(4000)
wend
end if
if Mode=='Bottle' then
if uo.Mana<uo.INT then
uo.UseType('0x0F0E','0x09DF')
wait(100)
end if
end if
end sub
sub Reconnect()
var ReconnectTime,rflag
ReconnectTime='0'
rflag=1
repeat
while (uo.ObjAtLayer('Bpack')=='')
if rflag then
ReconnectTime=Time()
rflag=0
end if
wait(20000)
uo.Say('')
wait(3000)
uo.Say('')
wait(3000)
uo.Say('')
wait(3000)
uo.Ldblclick(357,164)
uo.Lclick(616,459)
wait(3000)
wend
wait(3000)
if (rflag==0) and (ReconnectTime<>'0') then
uo.TextOpen()
uo.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
rflag=1
ReconnectTime='0'
end if
until false
end sub
sub Time()
var Date,nTime,uTime,i
uTime=str(uo.Time())
nTime=''
for i=0 to Len(uTime)
nTime=uTime[Len(uTime)-i]+nTime
if (i==2) or (i==4) then
nTime=':'+nTime
end if
next
uTime=str(uo.Date())
Date=''
for i=0 to Len(uTime)
Date=uTime[Len(uTime)-i]+Date
if (i==2) or (i==4) then
Date='.'+Date
end if
next
uTime=nTime+' @ '+Date
return uTime
end sub
sub Terminate()
uo.Exec('terminate Lumberjacking')
uo.Exec('terminate ControlOfDanger')
uo.Exec('terminate Reconnect')
end sub
sub CheckLag()
if uo.Waiting()>0 then
uo.Exec('canceltarget')
end if
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(50)
until uo.InJournal('backpack')
end sub