Перейти к содержанию
Наш Discord сервер: https://discord.gg/x53pHgq5qN ×
Форум шарда Middle-Earth

YariK™©

Members
 Профиль  Обзор контента

  • Публикаций

    29

  • Зарегистрирован

  • Посещение

Сообщения, опубликованные YariK™©

  3. Опубликовано · Пожаловаться

    У меня Виста х64 может в ней дело?

    именно, выкинь эту кривую ОС.

     

    Смысл в том, чтобы добавить инф в реестр надо быть администратором.

    Или после того как якобы ты все добавил, залезь сам в реестр и посмотри там ,что прописалось и будет тебе счастье :blahblah:

  5. Опубликовано · Пожаловаться

    ДА чуть не забыл. Если у кого нить дойдут руки........

     

    Сделать снова ОРдер и Хаос ( и на третью сторону нейтралы).(Ведь весело же было, когда 8 х8 , 6 х6 воевали)

     

    ЧТобы все разделились,и по прилету на пвп, ты видел тока зеленых (свой теам) и остальных(оранжевых).А не вася свой, петя свой, тот чужой. А вон тот кто прилетел он знакомый пети, но мы его все равно килл, а леша наш знакомый и он тебя быстро сливает -))

     

    Так же можно реализовать теам гейм по захвату флагов .

     

    А то получается все бегают своими кучками, и одиночек тупо сливают. Интерес пропадает, так как одному слить трех, маловероятно.......

  6. Опубликовано · Пожаловаться

     

    http://stealth.od.ua/

    :rolleyes:

    Как видно из названия, этот сайт посвящен Stealth клиенту для игры Ultima Online. Создавая эту программу, я поставил себе цель сделать нечто универсальное, что даст огромное кол-во возможностей для эмуляции действий игрока в игре Ultima Online, а также не будет требовательным к ресурсам компьютера. Еще главной моей задачей было отказаться от зависимости моей программы от клиента UO.

     

    ps баянчег, но всеже............

  7. Опубликовано · Пожаловаться

    Глава семь - что нужно чтобы шард не умер

     

    1. Сделать качественный, понятный (не детям) сайт с таблицами, умениями и т.п.

    2. Тщательно подготовить команду которая будет заниматься шардом.

    3. Спланировать будущую экономику шарда.

    4. Сделать вайп чаров.

    5. Не продавать ресурсы за вмз хотябы пол года.

    6. Заняться рекламой, контекстной и грамотной ручной.

    7. Поддерживать стабильность.

    4. пункт не нужен. Вайпы уже были , теперь шард умер. 80% незахотели играть с 0 и с пустым бейкпаком,с самого начала после вайпа шмота (причем вайпы были неоднократно).

    Если сделать вайп чаров , онлайн будет +-35.

     

     

    забыл по теме отписаться :blahblah:

     

    -Маркет который сейчас поменять на олд скул который был раньше, "в 2 столбика" - ностальгия просто -.0

    -Разрешить установку вендора около дома (на крыльце как раньше)

    -селькое хозяство (раньше что то сажали, морковочку там капусточку. реги-)) )

    -капание вышки во всех шахтах

    -самое главное ТП с арены на 4 дома --)) (без обратного как на ламах) даешь масс пвп. НУ и столбик рядом с мостом там для обозначения ГЗ.

    -вокруг зоны для турниров сделать зону для зрителей

    -если остался шаблон диза сайта (+-2004 год) поставить его (+ галерея фото \ виде игры, + галерея фоток игроков)

    -насытить файловый архив сайта (!!!В т.ч числе в инжекте который в архвиве с уо на скачку и отдельный - забиндить правильный логин серв !)

    -убрать остальные проекты (это треш и бред) кроме мидлы (и сосредочить на ней все усилия)

     

    Хотя я так полагаю что надо собратся всем , всем всем, и погудеть на тему дальнейшей жизни мидлы.

    Это будет оптимально, время я думаю все найдут-))

  9. Опубликовано · Пожаловаться

    Да дело ни в инжекте, качались даже без пилота. Шард жил , на нём было очень интересно играть, только благодаря тем людям которые его таким сделали , имею ввиду как состав руководства так и самих игроков. Получился совершенно отличный от других интересный и единственный в своем роде шард. За что еще раз всем огромное спасибо, кто вложил в него свою лепту.

    Вместе было создано очень много, что теперь пришло в упадок.

     

    Дальнейший выход один, либо заниматься упорным продвижением идей (и их реализацией) как поднять онлайн. Либо - как то играть при онлайне 100 чел время от времени (обсуждая на формуе в "семиром" нужен ли вайп), пока будет существовать серв. :mellow:

  13. Опубликовано · Пожаловаться

    Онлайн постепенно упал потому что кто-то вырос из уо и из игр вцелом, а не потому что здесь какие-то нововведения или амосфера
    :huh:

    Из этой игры не все выростают.......... это не имеет никакого отношения к онлайну, он упал не сейчас, а практически резко в свое время, из за вайпов.

    Когда вайпы бахали один за другим, и снова начинаешь голый без стартового капитала и особого интереса...... а потом по шарду через неделю после вайпов стояли ГТ набитые шмотом до отказа .

     

    Вайпы в топку ! текущий онлайн - результат вайпов <_<

  14. Опубликовано · Пожаловаться

    Да стыдно ето да.......возрождать надо..... и только тем кто знает настоящий вкус к етой игре.

    Сам тоже буду возвращаться. Благо чаров не потерли. Если очердной вайп не отправит шард в нокдаун, то с удовольствием погамаю.

    Жалко скрипты все для инжекта удалил......востанавливать все заново тяжеловато.

  18. Опубликовано · Пожаловаться

    Стараемся, потихоньку растет.Лень правда ставить прокси-)

     

    Вообще если начали поднимать шард, то могли бы наконецтаки забить скриншоты на сайт.Ведь собрали же их на старом форуме,

    а до сих пор руки ни у кого не дошли-)))

  19. Опубликовано · Пожаловаться

    Ламбер-) скрипт рабочий.Проверялась непосредственно рубка

     

    -на версии инжетка 505.18

    -пропатченной вердате,пеньки вместо деревьев (| патч тут |)

     

    Остальное еще не проверял.

     

     

     

    ########################################################## 
###      Lumberjacking / Рубка деревьев v8.7 Full      ### 
########################################################## 
###                                                                    ################################### 
###    Режимы работы скрипта    ###    
################################### 
###   Работает в 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:\trees3.dat') ## - Путь к файлу в котором будут хранится координаты деревьев. 
### 
var TryHiding=0 ## 0 - Перед тем как рубить дерево, будет пытаться уйти в хайд, 0 - не будет . 
### 
var TryRecall=0 ## 0 - После того как соберет LogsQty логов, будет пытаться реколиться домой, 
### складывать логи в сундук и реколиться обратно , 0 - не будет. 
### 
var RuneToHome=4 ## - Номер руны Домой,по счёту в рунбуке.(сейчас в 4ом слоте,можно менять от 1-9) 
### 
var RuneToForest=5 ## - Номер руны в Лес,по счёту в рунбуке.(сейчас в 5ом слоте,можно менять от 1-9) 
### 
var RechargeBook=0 ## 1 - Включить речарж рунбуки, 0 - отключить речарж. 
### 
var GetFromFile=1 ## 1 - Координаты деревьев будут считыватся из файла, 0 - собиратся из клиента 
### (сначала соберите а потом считывайте из файла). 
### 
var LogsQty=3700 ## - Количество логов, добыв которое надо реколиться домой. 
### 
var QuantityImpact=10 ## - Сколько раз чар будет ударять по дереву, прежде чем перейдет к другому.(стандарт - 15) 
### 
var ControlOfDanger=0 ## 1 - Включить рекол по руне(в паке) при атаке, 0 - отключить рекол. 
### 
var PhysicalDanger=0 ## 1 - влючить рекол при физической атаке, 0 - отключить рекол. 
### 
var SeenDanger=0 ## 1 - влючить рекол при появлении рядом ПК ил криминала, 0 - отключить рекол. 
### 
var RecallFromAll=0 ## 1 - включить рекол при появлении рядом любово чара, 0 - отключить рекол. 
### 
var DisturbingSound=('C:\Warning.wav') ## - Звук которы будет пригран при атаке.(замените на свой) 
### 
var DangerousTime=50000 ## - Время которое чар будет ждать(после рекола) пока уйдет ПК или Ент.(сейчас 50 секунд) 
### 
var CycleScript=1 ## 1 - Скрипт не отключается после рекола от атакующего, 0 - отключаетсяи закрывает UO. 
### 
var EatingFood=0 ## 1 - Будем есть, 0 - нет.  
### 
var TypeFood='0x097B' ## - Тип еды которую будем кушать.(сейчас фиштейки) 
### 
var Reconnect=0 ## 1 - Включить реконнект на сервер если выкинет, 0 - отключить реконнект. 
### 
var Chest='0x40203CC2' ## - 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]) 
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's not enough wood 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 

sub GotoXY(x,y) 
var myX,myY,LastX=0,LastY=0,i,halt=0,z,r=0 
for i=1 to 60 
myX=uo.GetX() 
myY=uo.GetY() 
if LastX==myX and LastY==myY then 
halt=halt+1 
else 
halt=0 
end if 
if halt>=10 then 
if uo.GetDir()==1 then 
for z=0 to 8 
uo.Press(40) 
next 
end if 
if uo.GetDir()==3 then 
for z=0 to 8 
uo.Press(37) 
next 
end if 
if uo.GetDir()==5 then 
for z=0 to 8 
uo.Press(38) 
next 
end if 
if uo.GetDir()==7 then 
for z=0 to 8 
uo.Press(39) 
next 
end if 
halt=15 
end if 
if Numb(x-myX)<=1 and Numb(y-myY)<=2 then 
return 1 
end if 
if x<=myX then 
if y<=myY then 
for z=0 to 3 
uo.Press(38) 
next 
else 
for z=0 to 3 
uo.Press(37) 
next 
end if 
else 
if y<=myY then 
for z=0 to 3 
uo.Press(39) 
next 
else 
for z=0 to 3 
uo.Press(40) 
next 
end if 
end if 
LastX=myX 
LastY=myY 
wait(200) 
next 
return 0 
end sub 

sub Numb(num) 
if num>=0 then 
return num 
else 
return num*(-1) 
end if 
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 
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

  20. Опубликовано · Пожаловаться

    Таких скриптов на уoko форуме много-)Надо будет потестить,

    в свое время из-за времен года он вообще не работал.

    И в нем нет пояснений,даже человек который шарит в етом глаза сломает. :mellow:

     

    До кучи скрипт на бланк-скролыы(blankscroll):

     

    В сумке иметь:

    -набор тинкера

    -логи простые

    -хавку(жаренную рыбу)

     

    sub main()
  havka()
  craft()
  if UO.Injournal("You destroy some material.") then
  UO.deletejournal()
  vky4y()
  craft()
else
   uo.deletejournal()
       repeat
       wait(100)
       until uo.injournal("You create|You make")
       endif
       if UO.Injournal("You don't have") then
       vky4y() 
       wait(3000)
       uo.exec("terminate all") 
  else
  main()
endif
end sub

sub havka()
if UO.Count("0x097B")>0 then 
UO.usetype ("0x097B") 
Wait(1000)
else
UO.Print("Еда закончилась……помру-)")
end if 
end sub

sub vky4y()
UO.Exec("waittargettype 0x0E75")
uo.exec("emptycontainer 1")  
wait(1000)
end sub

sub craft()
UO.Exec("waitmenu 'Select' 'Paper items' 'Choose' 'Blank Scroll'")
UO.Exec("waittargettype '0x1BDD'")
UO.Exec("usetype 0x1EBC")
wait(1000)
end sub

     

    Как кончиться дерево -скрипт прекратиться-)

  21. Опубликовано · Пожаловаться

    Stealing ^ взято с Yoko forum

     

    Разбирайся сам что отсюда выдрать -=)

     

    sub Stealing() 
  ; Прокачка стилинга. Временный тестовый скрипт. 
   VAR bint = '0x0E21' 
   VAR bpack = '0x404CFB26' 
   repeat 
      UO.FindType( bint, '-1', bpack ) 
      UO.UseSkill( 'Stealing', 'finditem' ) 
      wait(4000) 
   until UO.Dead() 
endsub

     

     

     

     

     

    Снупинг и Стелинг. При стелинге левочару необходимо запустить процедуру Popolnit. Code:

    Var BackEny='0x40041466'; ИД бакпака левочара 
Var Enymi='0x00041504'; ИД левочара 
Var Sunduk='0x402B0F96'; ИД сундука где лежат жаренные котлетки, которые и будем тырить. 

sub Popolnit() 
var i=0 
uo.useobject(Sunduk) 
while 1==1 
UO.FindType('0x097B',-1,'backpack') 
if UO.GetQuantity('finditem')==0 then 
UO.FindType('0x097B',-1,Sunduk) 
wait(200) 
UO.Grab('1','finditem') 
i=i+1 
if i==50 then 
uo.usetype('0x097B') 
wait(1000) 
i=0 
end if 
end if 
wait(200) 
wend 
end sub 

sub Snooping() 
var i=0 
while (uo.skillval('Snooping',1)<1000) 

i=i+1 
if i==50 then 
uo.usetype('0x097B') 
wait(1000) 
i=0 
end if 

if uo.skillval('Snooping',1)<1000 Then 
cheklag() 
uo.print("Snooping...") 
uo.useobject(BackEny) 
wait(2500) 
end if 

UO.FindType('0x097B',-1,'backpack') 
if UO.GetQuantity('finditem')>100 then 
UO.MoveItem('finditem','100',Sunduk) 
endif 

wend 
Stealing() 
end sub 

sub Stealing() 
var i=0 
while (uo.skillval('Stealing',1)<1000) 

i=i+1 
if i==50 then 
uo.usetype('0x097B') 
wait(1000) 
i=0 
end if 

cheklag() 
uo.print("Stealing...") 
uo.useskill('Stealing',Enymi) 

##uo.useobject(BackEny) 
##wait(1000) 
##UO.FindType('0x097B','0x0000',BackEny) 
##wait(200) 
##UO.Grab('1','finditem') 

wait(3500) 

UO.FindType('0x097B',-1,'backpack') 
if UO.GetQuantity('finditem')>100 then 
UO.MoveItem('finditem','100',Sunduk) 
endif 

wend 
uo.closeuo() 
end sub 

sub cheklag() 
uo.deletejournal() 
uo.click('backpack') 
repeat 
wait(10) 
until uo.InJournal("backpack") 
end sub 

sub Reconnector() 
var ReconnectTime, RFlag 
ReconnectTime = '0' 
RFlag = 1 
Repeat 
While (UO.ObjAtLayer('Bpack') == '') 
if RFlag Then 
ReconnectTime = MakeTime() 
RFlag = 0 
endif 
Wait(20000) # WorldSave Protection 
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.Exec('terminate Snooping') 
wait(1000) 
UO.Exec('exec Snooping') 
UO.TextOpen() 
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 
RFlag = 1 
ReconnectTime = '0' 
endif 
Until false 
end sub 

sub MakeTime() 
VAR D, T, Ret, i 
Ret = STR(UO.Time()) 
T = "" 
For i = 0 To Len(Ret) 
T = Ret[Len(Ret)-i] + T 
If (I == 2) OR (I == 4) Then 
T = ":" + T 
EndIf 
Next 
Ret = STR(UO.Date()) 
D = "" 
For i = 0 To Len(Ret) 
D = Ret[Len(Ret)-i] + D 
If (I == 2) OR (I == 4) Then 
D = "." + D 
EndIf 
Next 
Ret = T + " @ " + D 
RETURN Ret 
end sub

     

     

    B)

    sub main() 
var gold = '0x0EED' 
repeat 
uo.useskill("Hiding") 
wait(10000) 
UO.FindType( '0x0191', '-1', '1' )  
uo.useskill("Stealing", "finditem") 
wait(10000) 
uo.findtype(gold,-1,'lastcontainer') 
uo.useskill("Stealing","finditem") 
wait(10000) 
until UO.Dead() 
endsub

     

     

     

    sub Stealing() 
var item = "0x0000"; тип монет 
var q, bag = "0x0000000"; сумка из которой тырить 
var msg = "fail steal|success steal|stop steal"; набор сообщений возникающих при стилинге, через "|". 
uo.useobject(bag) 
checklag() 
repeat 
uo.ignorereset() 
uo.findtype(item,"-1","backpack") 
while uo.findcount() 
repeat 
q = uo.getQuantity("finditem") 
if q > 1 then 
uo.moveitem("finditem",str(q-1),"backpack","50","50","0") 
wait(100) 
endif 
until q == 1 
uo.findtype(item,"-1","backpack") 
wend 
uo.findtype(item,"-1",bag) 
if not uo.findcount() then 
wait(5000) 
else 
deljournal(msg) 
uo.waittargetobject("finditem") 
uo.useskill("Stealing") 
repeat 
wait(100) 
until uo.injournal(msg) 
endif 
until false 
endsub

    Суть скрипта такая: он в бекпаке раскладывает монетки по одной штуке, убедившись, что они все лежат по одной, он начинает тырить.

  23. Опубликовано · Пожаловаться

    Собственно сабж на тем де портале ultimasoft.ru

     

    голосовалка за рейтинг нашего шарда. Правда с 1 айпи 1 клик.

    НЕ поленитесь зайти,выбрать цифру 10 и нажать Vote. :)

     

    Также заходим сюда и делаем туже процедуру.

     

    И того с каждого человека по 2 голоса-)

     

    С Вашими стараниями мы влезем в пятерку лучших.

  25. Опубликовано · Пожаловаться

    Magery

    магия на друида

     

    sub main()
Var i
While UO.Life>0
havka()
If UO.Life<UO.STR Then
UO.Exec("bandageself")
Wait(3000)
Else
sv()
UO.Exec("waittargetself") 
UO.say(".cast icestrike ")
wait(3000)
if uo.injournal("The spell fizzles") then
main()
else
uo.deletejournal()
repeat
until uo.injournal("The victim")
end if
wait(3000)
while UO.Life>0
if UO.MANA < UO.INT then
sv()
UO.UseSkill("Meditation");
wait(10000)
else
main()
end if
wend
end if
end sub

sub havka()
if UO.Count("0x097B")>0 then 
UO.usetype ("0x097B") 
Wait(700)
else
UO.Print("Еда закончилась……помру-)")
end if 
end sub

sub sv()
if uo.injournal("Saving World State")  then
      uo.deletejournal()
      repeat
      wait(5000)
      until uo.injournal("Saving World State complete")
      UO.Print("Сохранение кончилось продолжаю скрипт")
else
    end if
end sub

    тоесть кладешь в сумку жаренную рубу,

    карася там или плотвичку, на свое усмотрение, регов, книжек там магических,

    и юзаешь :blink:

×
×
  • Создать...