Вернуться   Forgotten World Ultima Online Forums > Общие форумы/Common forums > Ньюби Таун
Ньюби Таун Вопросы и помощь новым игрокам Шарда Forgotten World. Запрещен Мат и Оскoрбления игроков, обсуждение действий Стаффа, флуд. Наказание -БАН

Ответ
 
Опции темы Опции просмотра
МАКРОСЫ
Старый 18.01.2010, 12:42   #1
Andrey
Mystical Hero
 
Аватар для Andrey
 
Регистрация: 09.10.2009
Сообщений: 1,103
Репутация: 25 [+/-]
на правильном пути (от 16 до 25)
Andrey на правильном пути (от 16 до 25)
Чар: Sokol
Восклицание МАКРОСЫ

Народ честно устал в игре объяснять мелким игрокам про макросы. Желательно проверенные лично могу и сам проверить по просьбе. Решил создать тему. Выкладывайте кто что может. И по возможности описывайте децствия. А то попадаются такие люди что все разжовывать надо. И попрошу не флудить и не выражатся. типо тема была и все в таком духе. Еще одна просьба есть к администрации сделать эту тему как важная. Если получится и тема пойдет.
__________________
Для того, чтобы быть другом, не обязательно быть собакой.
Andrey вне форума   Ответить с цитированием
Re: МАКРОСЫ
Старый 18.01.2010, 13:54   #2
AKA
The Hero
 
Аватар для AKA
 
Регистрация: 17.10.2009
Адрес: [M5]
Сообщений: 603
Репутация: 24 [+/-]
на правильном пути (от 16 до 25)
AKA на правильном пути (от 16 до 25)
Чар: Слишком Много!!
Гильдия: [M5]
По умолчанию Re: МАКРОСЫ

PHP код:
//----Хелинг,Магия,Медитация:----
//if hits < 150 // Проверка хитов
//send f6 // В ассисте биндим макрос Дабл клик на бинты, клик на себя
//wait 3000 // Задержка в три секунды
//end_if 
 
if mana 100 // Ваше количество манны
send f7 // В Ультиме биндим Юз скилл медитация
wait 3000 // Задержка в три секунды
else // Иначе
repeat 10 // Если надо то повторяем каст магии 10 раз если нет то блокируем репит
send f5 // в Ультиме биндим Castspell>>Poison>>wait for target>>target self
wait 3000
end_repeat
end_if 
Добавлено через 3 минуты
PHP код:
//----Копаем на месте 25 таилов:----
// Копает на одном месте все тайлы до которых может дотянутся
// потом выдает сообщение об остановке скрипта
//send F3 4000 // Стелс или хайд 
for #y -2 2 1 
for #x -2 2 1
:mining 
set lasttargetx charposx 
#x 
set lasttargety charposy #y
set lasttargetkind 2 
send F2 1200 
// ЛастОбжект-ВаитФорТаргет-ЛастТаргет 
set timer 0 
while (lastmsg do you want) and (timer 10000
wait 100 
end_while 
if_not 
(lastmsg no ore) or (lastmsg mining in) or (lastmsg have no line
wait 500 
if (lastmsg you see) or (lastmsg targeting) or (lastmsg you have)// дает сигнал о том что появился гард руды или игрок и остонавливает скрип или антимакрос
alarm
flash
alarm
flash
alarm
flash
end_script
end_if
goto mining 
end_if
end_for
end_for
alarm
flash
end_script 
Добавлено через 20 минут
PHP код:
//----Картография----
//... Биндим 
//... F11 - LastSkill 
//... F9 - LastObject 
//... Перед запуском скрипта затариться 
//... хавкой и поесть до сыта. 
set #level 1 // - установка типа 
//... создаваемой карты от 1 до 4 
//... 1 - Detail Map 
//... 2 - Regional Map 
//... 3 - Sea Chart 
//... 4 - Full World 
set #havka lastobjectid 
set lastskill 12 
//...---------------- 
set #s 1 
:map 
send F11 2300 
if #level = 1 
double_left 6363 // -- Detail Map 
end_if 
if #level = 2 
double_left 10964 // -- Regional Map 
end_if 
if #level = 3 
double_left 15264 // -- Sea Chart 
end_if 
if #level = 4 
double_left 19464 // -- Full World 
end_if 
//...---- 
// if #level = 4 
// set #level 3 
// else 
// set #level #level + 1 
// end_if 
//...---- 
if #s = 10 
set lastobjectid #havka 
send F9 1000 
set 
#s 1 
end_if 
wait 2000 
set 
#s #s + 1 
if lastmsg have no blank parchment 
flash uo 
end_script 
end_if 
gosub map 
end_script 
Добавлено через 24 минуты
PHP код:
//----Локпикинг----
//скрипт на кач лукпикинга, в пак кидаем ключ от Locked Chest'а и отмычки
send 5 //кнопка в ассисте взламываем сундук отмычками, обязательно выставить Use Item Type
wait 3s
if lastmsg Container doesn't locked. //проверка взламали ли сундук
send 4 //кнопка в ассисте закрываем сундук ключем
wait 1s
end_if 
Добавлено через 30 минут
PHP код:
//----Поизон----
//срипт на кач пойзонинга, используем лессер пойзон и жареное мясо (или рыбные стейки)
drag 429,319 677,617 1 //берем 1 кусок мяса и кидаем в пак
wait 1s
drag 449
,304 960,272 1 //берем 1 лессер пойзон и кидаем в пак
wait 1s
send 4 
//кнопка в ассисте травить мясо, обязательно выставить Use Item Type и Target Item Type
wait 3s
repeat 2
move 675
,585 //двигаем курсор на травленное мясо в паке
drag 675,585 429,369 //перетаскиваем из пака травленый кусок мяса
wait 1s
end_repeat
//координаты move должны быть такимиже как и первые координаты drag,
//чтобы во время сейва пак не перемещался вслед за курсором используется move,
//повтор (repeat 2) нужен чтобы во время сейва в паке не остался кусок мяса. 
Добавлено через 33 минуты
PHP код:
//----БоВКрафт----
//скрипт на кач боукрафта, делаем шафты
drag 432,316 959,256 7 //берем 7 логов и кидаем в пак
wait 1s
send 4 
//кнопка в ассисте делать шафты, обязательно выставить Target Item Type
wait 4s
if wght 550 //проверка на вес в паке
move 676,583
drag 676
,583 428,368 all //перетаскиваем из пака все шафты
wait 1s
drag 456
,343 663,617 2 //берем 2 шафта и кидаем в пак
end_if
//при весе пака больше 550, скрипт выкладывает все изготовленные шафты,
//координаты move должны быть такимиже как и первые координаты drag,
//2 шафта кидаем в пак в то место откуда потом будем их выкладывать, когда вес будет больше 550.
 
//делаем стрелы или болты
drag 433,319 958,258 5 //берем 5 шафтов и кидаем в пак
wait 1s
drag 451
,296 958,258 5 //берем 5 перьев и кидаем в пак
wait 1s
send 4 
//кнопка в асссисте делать стрелы, обязательно выставить Use Item Type
wait 2s
if wght 550 //проверка на вес в паке
move 680,587
drag 680
,587 429,368 all //перетаскиваем из пака все стрелы
wait 1s
drag 453
,343 666,615 2 //берем 2 стрелы и кидаем в пак
end_if
//при весе пака больше 550, скрипт выкладывает все изготовленные стрелы,
//координаты move должны быть такимиже как и первые координаты drag,
//2 стрелы кидаем в пак в то место откуда потом будем их выкладывать, когда вес будет больше 550. 
AKA вне форума   Ответить с цитированием
Re: МАКРОСЫ
Старый 17.05.2017, 22:55   #3
The Egoist
Newbie
 
Регистрация: 17.05.2017
Сообщений: 1
Репутация: 1 [+/-]
имеет нулевую репутацию
The Egoist имеет нулевую репутацию
Чар: The Egoist
По умолчанию Re: МАКРОСЫ

Цитата:
Сообщение от AKA Посмотреть сообщение
PHP код:
//----Хелинг,Магия,Медитация:----
//if hits < 150 // Проверка хитов
................. 
Почему-то не работает проверка хп. Просто постоянно хилиться пытается. Не знает кто, что не так?
The Egoist вне форума   Ответить с цитированием
Re: МАКРОСЫ
Старый 18.01.2010, 14:28   #4
AKA
The Hero
 
Аватар для AKA
 
Регистрация: 17.10.2009
Адрес: [M5]
Сообщений: 603
Репутация: 24 [+/-]
на правильном пути (от 16 до 25)
AKA на правильном пути (от 16 до 25)
Чар: Слишком Много!!
Гильдия: [M5]
По умолчанию Re: МАКРОСЫ

PHP код:
//----Кукенг----
drag 466,283 424,329 1 //1 бревно из кучи перетащить на место костра
wait 500
for #i 0 5 1 //пытаемся разжечь
double_left 424,329 
wait 500
end_for
if wght 400
drag 442
,248 399,264 120 //120 мяса на себя если не перевес
wait 500
end_if
while_not 
(lastmsg must cook) or (lastmsg can cook)
double_left 95,113 //мясо в паке
wait 500
left 422
327 //таргет на костер
wait 2000
double_left 39
,115 //поесть
end_while 
Добавлено через 57 секунд
PHP код:
//----Тинкер----
//скрипт на кач тинкира, делаем бутылки
drag 382,318 837,484 2 //берем 2 бутылки и кидаем в пак
wait 1s
drag 424
,319 959,256 2700 //берем 2700 айрона и кидаем в пак
wait 1s
repeat 900 
//повтор крафта, 1 бутылка = 3 айрона
send 4 //кнопка в ассисте делать бутылки, обязательно выставить Target Item Type
wait 6s
end_repeat
move 849
,457
drag 849
,457 432,368 all //перетаскиваем из пака все бутылки
wait 1s
//2 бутылки кидаем в пак в то место откуда потом будем их выкладывать,
//координаты move должны быть такимиже как и первые координаты drag. 
Добавлено через 3 минуты
PHP код:
//----Таилоринг----
//скрипт на кач тейлора, делаем паттерны
drag 382318 837,484 2 //берем 2 паттерна и кидаем в пак
wait 1s
drag 424
,319 959,256 500 //берем 500 ткани и кидаем в пак
wait 1s
repeat 250 
//повтор крафта, 1 паттерн = 2 ткани
send 4 //кнопка в ассисте делать паттерны, обязательно выставить Target Item Type
wait 4s //задержка на крафт
end_repeat
move 849
,457
drag 849
,457 432,368 all //перетаскиваем из пака все паттерны
wait 1s
//2 паттерна кидаем в пак в то место откуда потом будем их выкладывать,
//координаты move должны быть такимиже как и первые координаты drag,
//чтобы скрипт не сбивался все что кидаем в пак лучше брать с пола,
//скрипт можно переделать под крафт бланк скролов, для этого надо,
//поменять количество повторов, переписать макрос в ассисте, изменить задержку крафта. 
Добавлено через 4 минуты
PHP код:
//----Алхимия----
//скрипт на кач алхимии, делаем лессер хилы
drag 691,91 956,264 790 //берем 790 ГС'а из кучи и кидаем на себя
wait 1s
repeat 790 
//ставим число повторов равное количесту ГС'а
send 5 //кнопка в ассисте делать лессер хилы, обязательно выставить Use Item Type
wait 8s
end_repeat
send 4 
//кнопка в ассисте перелива зелий в кегу, обязательно выставить Target Item Type
wait 1s
//скрипт можно переделать под крафт других зелий,
//необходимо поменять количество регов которое кидаем в пак,
//число повторов и задержку после кнопки на крафт зелья. 
Добавлено через 7 минут
PHP код:
//----Таминг----
double_left 350220 -Кординаты палки на картинке игрока!
for 
#i 1 13 1
send F11 //target next
wait 500
send F12 
//last object wait for target last target
wait 500
say
end_for
wait 10 min 
Добавлено через 11 минут
PHP код:
//----Аварийныи Реколл----
//////////////////////// by Crimson ///////////////////////////
 
// Занимать скрипт будет два окна в пилоте
 
//Окно № 1
 
if lastmsg You see:
stop_script 0 // номер окна где запущен макрос (например рубка или копка и тд)
start_script 2 // номер окна где будет скрипет самого рекола (приведу ниже)
alarm 
alarm 
alarm 
alarm 
alarm 
alarm 
alarm 
msg Замечен ПК
запущен скрипт аварийной эвакуации !!!
stop_script 
end_if
 
// Окно № 2
 
if charposx 1236 //проверка координат места рекола
msg Мои поздравления!! мы соскачили от ПК :))
stop_script
else
send f3 // забинденый рекол
wait 3000
end_if
 
/////////////////////////////////////////////////////////////////////////////////////////////////
//Скриптом не пользовался! попробуите если Что Чем С могу тем помогу =) тежеловатыи В пониманий =) 
AKA вне форума   Ответить с цитированием
Re: МАКРОСЫ
Старый 04.02.2012, 03:39   #5
Durchikk
Wizard of words
 
Аватар для Durchikk
 
Регистрация: 31.10.2007
Адрес: [PK]
Возраст: 34
Сообщений: 1,550
Репутация: 4 [+/-]
имеет нулевую репутацию
Durchikk имеет нулевую репутацию
Чар: Man
Гильдия: [PK]
По умолчанию Re: МАКРОСЫ

//----Аварийныи Реколл----
//////////////////////// by Crimson ///////////////////////////

// Занимать скрипт будет два окна в пилоте

//Окно № 1

if lastmsg You see:
stop_script 0 // номер окна где запущен макрос (например рубка или копка и тд)
start_script 2 // номер окна где будет скрипет самого рекола (приведу ниже)
alarm
alarm
alarm
alarm
alarm
alarm
alarm
msg Замечен ПК, запущен скрипт аварийной эвакуации !!!
stop_script
end_if

// Окно № 2

if charposx = 1236 //проверка координат места рекола
msg Мои поздравления!! мы соскачили от ПК )
stop_script
else
send f3 // забинденый рекол
wait 3000
end_if

/////////////////////////////////////////////////////////////////////////////////////////////////
//Скриптом не пользовался! попробуите если Что Чем С могу тем помогу =) тежеловатыи В пониманий =)
[/PHP][/QUOTE]

Куда и Как нада вставить скрипт чтобы если чё с шахты при виде постороних ников (Кроме Ор Гвардов) реколился?
__________________
Восток МСК! Гольяново!
Durchikk вне форума   Ответить с цитированием
Re: МАКРОСЫ
Старый 18.01.2010, 14:43   #6
Sindo
The Hero
 
Регистрация: 02.02.2007
Адрес: KIDs
Возраст: 36
Сообщений: 969
Репутация: 52 [+/-]
имеет хорошую репутацию (от 26 до 75)
Sindo имеет хорошую репутацию (от 26 до 75)
Чар: Sindoatan
Гильдия: KIDs
По умолчанию Re: МАКРОСЫ

Вот накопал тут на форуме из своих постов. Найду архив со скриптами еще накидаю.
PHP код:
// Bowcraft by Sindo (Не http://forum.fwuo.ru/design/new/editor/justifycenter.gifтребует для использования ***ssist)
:start
set 
#f 0
drag 299271      846529     1 // берет 1 киндлинг из кучи №1 на земле и кладет в пак (для определения координат)
wait 400
REPEAT 85 
// максимальное число повторов 85 обосновано весом выпадения итемов при 150 силы
    
set #f #f + 1
    
drag 283232    810514   7 // берет 7 логов с пола и кладет  в пак
    
wait 400
    set 
#a lastliftedID
    
set lasttargetID #a
    
set LastTargetKind 1
    send F11 
// LastObject/WFT/LastTarget в клиенте (даггер на логи в паке)
    
wait 500 // задержка на появление/обновление меню крафта
    
double_left 6266   // 1-е подменю крафта 
    
wait 500 // задержка на появление/обновление меню крафта
    
double_left 6366   // 2-е подменю крафта
    
wait 5000 // пауза пока крафтит киндлинг 
    
say #f
end_repeat
drag 847
528    296268   all // выкладывает все готовые киндлинги в кучу №2 на полу
goto start

// перед запуском скрипта 1 раз использовать даггер на что угодно.
// задержки необходимо пересмотреть в зависимости от пинга ( у меня он ООООЧЕНЬ большой =( )
// в куче №1 долно быть не больше 1к итемов, иначе он не смогет оттуда взять 1(!) киндлинг. именно по этой причине я разделил киндлинги на 2 кучи 
Если есть возможность использовать ассист, то заменить кусок
Код:
send F11 // LastObject/WFT/LastTarget в клиенте (даггер на логи в паке)
wait 500 // задержка на появление/обновление меню крафта
double_left 62, 66   // 1-е подменю крафта 
wait 500 // задержка на появление/обновление меню крафта
double_left 63, 66   // 2-е подменю крафта
на
Код:
 send F11 // макр в ассисте на крафт киндлингов

PHP код:
// прокачка магери, медитации и хилинга без ассиста by Sindo
set $lackreg lack reagents //сообщение о нехватке ресурсов для каста
set $war with thoughts // сообщение о нахождении чара в вар моде
set timer
:rep
// Каст спелла на себя
send F9 // в клиенте: CastSpell+Poison(Nightsight)/WFT/TargetSelf
if (lastmsg =$lackreg// проверка на наличие регов для каста спелла
    
Repeat 5
        alarm
        say Нет ресов
        wait 2000
    end_repeat
    pause_script
end_if
wait 2600 
// задержка на каст спела
gosub PreventDeath
// Медитация при сильной потере маны
if mana 10 // ограничение нормы маны ставить по своему усмотрению
    
while mana int
        send 5   
// в клиенте: UseSkill+Meditaiton
        
if (lastmsg $war)
            
send Tab // снять вар мод
        
end_if
        gosub PreventDeath
        wait 3000 
// задержка на одну медитацию
    
end_while
end_if
// Подкормка
if (timer 600000// ест раз в 10 мин
    
set lastobjecttype XXXXXXXXXXX // ИД мяса в паке
    
send F2 // в клиенте: lastobject
    
set timer
end_if
goto rep
// Отхиливание при ранении
:PreventDeath
if hits 100 // ограничение нормы хп ставить по своему усмотрение
    
while hits str
        
if hits // Оповещение о смерти
            
Repeat 5
                alarm
                say Рес
                wait 2000
            end_repeat
            pause_script
        end_if
        set lastobjecttype NNNNNNNNNN 
// ИД бинтов в паке
        
send F1  // в клиенте: lastObject/WFT/TargeSelf
        
say Guards
        wait 4000 
// задержка на хилл
    
end_while
end_if
return

// перед запуском необходимо: 1) проставить итемтайп бинтов и мяса в паке ( юзнуть 1 раз бинты и, 
// посмотрев в пилоте в разделе ЧарПараметрс, вставить соответствующий набор цифр вместо NNNNNNN (мясо аналогично (ХХХХХХ)))
// 2) забиндить в клиенте кнопки в соответствии с указаниями напротив них 
// (кнопки можно забиндить другие, тогда в скрипте их соответственно следует изменить)
// 3) откорректировать задержки под свой пинг
// Принцип работы: Чар кастует на себя спелл через заданные промежутки времени,
// при этом проверяя колличество хп, маны и жив ли еще чел. если хп меньше 100,
// то он будет хилить себя пока значение хп не станет = значению силы. если мана станет меньше 10,
// то он будет медитировать пока она не сравняется по значению с интелектом.
// если чел умер (хп = 0), то пилот 5 раз пикнет и поставит скрипт на паузу.
// во время хилинга и медитации чел спелы не кастует.
// Во время работы скрипта необходимо чтобы был открыт статбар. 
__________________
May the Force be with you..
Sindo вне форума   Ответить с цитированием
Re: МАКРОСЫ
Старый 18.01.2010, 14:43   #7
AKA
The Hero
 
Аватар для AKA
 
Регистрация: 17.10.2009
Адрес: [M5]
Сообщений: 603
Репутация: 24 [+/-]
на правильном пути (от 16 до 25)
AKA на правильном пути (от 16 до 25)
Чар: Слишком Много!!
Гильдия: [M5]
По умолчанию Re: МАКРОСЫ

PHP код:
//----Ручная Рубка----
//помогает не много таргет появляется и сам до рубливает дерево =)
set #rtimer 0 
set #msg 99 
 
while #msg <> 0 
if #msg = 2 
send F2 1000 //lastobject, waitfortarget, lasttarget 
else 
send F1 //lastobject 
while target 1
wait 1000
end_while
//waitfortarget 5000 
end_if 
gosub 1 
end_while 
end_script 
 
:
 
set 
#timer timer 
 
while #rtimer < 30000 //время проверки результатов 1й рубки 
 
set #msg 99 
 
if lastmsg you put the logs in 
set 
#msg 2 
break 
end_if 
 
if lastmsg your skill in lumberjacking 
set 
#msg 2 
break 
end_if 
 
if lastmsg you hack at the tree for while 
set #msg 2 
break 
end_if 
 
if lastmsg there are no logs 
break 
end_if 
 
if lastmsg you can't think of a way 
break 
end_if 
Добавлено через 50 секунд
PHP код:
//----Простенький Ламбер ----
//Макрос на ламбер пишется под определённую местность
//Если найдёшь делянку с деревьями в ряд, то можешь качать на примитивном макросе:
 
Цитата:repeat <длинна>
Send F7
wait 200
Send F8
wait 100
double_left point1
wait 
<задержка на 1 сруб>
end_repeat
repeat 
<длинна>
Send F9
wait 200
Send F8
wait 100
double_left point1
wait 
<задержка на 1 сруб>
end_repeat 
 
<длина> - количество шагов
point1 
дерево
<задержка на 1 сруб> - задержка на 1 удар топором
F8 
использовать топор
F7 
F9 шагать в направлении 
AKA вне форума   Ответить с цитированием
Re: МАКРОСЫ
Старый 01.07.2011, 19:22   #8
Виталёк
Banned
 
Регистрация: 09.07.2010
Возраст: 34
Сообщений: 182
Репутация: 1 [+/-]
имеет нулевую репутацию
Виталёк имеет нулевую репутацию
Чар: Нету
По умолчанию Re: МАКРОСЫ

[QUOTE=AKA;277627]
PHP код:
//----Ручная Рубка----
//помогает не много таргет появляется и сам до рубливает дерево =)
set #rtimer 0 
set #msg 99 
 
while #msg <> 0 
if #msg = 2 
send F2 1000 //lastobject, waitfortarget, lasttarget 
else 
send F1 //lastobject 
while target 1
wait 1000
end_while
//waitfortarget 5000 
end_if 
gosub 1 
end_while 
end_script 
 
:
 
set 
#timer timer 
 
while #rtimer < 30000 //время проверки результатов 1й рубки 
 
set #msg 99 
 
if lastmsg you put the logs in 
set 
#msg 2 
break 
end_if 
 
if lastmsg your skill in lumberjacking 
set 
#msg 2 
break 
end_if 
 
if lastmsg you hack at the tree for while 
set #msg 2 
break 
end_if 
 
if lastmsg there are no logs 
break 
end_if 
 
if lastmsg you can't think of a way 
break 
end_if 
Добавлено через 50 секунд

Не работает нихр*на, там и опечатки в словах и какие то проблемы с концом и началом цикла ! Кто шарит - разбиритесь пожалуйста ...
Виталёк вне форума   Ответить с цитированием
Re: МАКРОСЫ
Старый 18.01.2010, 14:45   #9
Sindo
The Hero
 
Регистрация: 02.02.2007
Адрес: KIDs
Возраст: 36
Сообщений: 969
Репутация: 52 [+/-]
имеет хорошую репутацию (от 26 до 75)
Sindo имеет хорошую репутацию (от 26 до 75)
Чар: Sindoatan
Гильдия: KIDs
По умолчанию Re: МАКРОСЫ

Вариант 1 (качает только стелс)

send F1 // бинд на юз скилла
wait 300 // задержку в милисекундах сам подбери

Вариант 2 (качает одновременно хайд и стелс)
send F1 // бинд на юз хайда
repeat 3
send Left 200
end_repeat
send F1
repeat 3
send Right 200
end_repeat


PHP код:
// Poisoning by Sindo (Не требует для использования ***ssist) (beta)

set $fizl CCCCCCCCCC // сообщение возникающее при физле
set $alrpois CCCCCCCC // сообщение возникающее при попытке отравить уже отравленный кусок мяса
set #amount N // колличество банок и мяса (не в сумме), которые вы собираетесь использовать за одну загрузку (подбирать по весу)
set $msf XXXYYY // координаты кучи свежего мяса (№1) на полу 
set $mp XXXYYY // координаты мяса в паке
set $pf XXXYYY // координаты пойзон банок на полу
set $pp XXXYYY // координаты пойзон банок в паке
set $mpc XXXYYY // координаты сундука для отравленного мяса
set #wdr KKK // задержки, стоящие после драгов. кооректировать по пингу
set #wwp KKK // задержка на отравление мяса
set #pt BBB // итемтайп пойзон банок
set $actbtn S // кнопка с биндом на LastObject в клиенте

set #amountm #amount // для коррекции кол-ва мяса при физлах
set #amountp #amount // для коррекции кол-ва банок при ошибке с отсутствием мяса
set #ft 0 // для информирования о процессе прокачки
set #iii 0 // счетчик фэйлов таргета мяса

:start

set 
#f 0 // для информирования о процессе прокачки
set #a 0 // для определения ласттаргета/обжекта
set #fizl 0 // индикатор и счетчик физлов
set #ft #ft + 1

repeat #amountm
    
drag $msf $mp 1 // берет 1 кусок неотравленного мяса из кучи №1 на земле и кладет в пак 
    
wait #wdr
end_repeat
drag $pf $pp 
#amountp // берет N банок лезер пойзона из кучи №2 с пола и кладет  в пак
wait #wdr
set #a LastLiftedID
set LastObjecttID #a
set LastObjectType #pt // итемтайп пойзон банок
set #amountp #amount

REPEAT #amount // столько раз, на сколько отравлений набрали ресов
    
set #f #f + 1
    
set #ii 0 // счетчик фэйлов таргета мяса
    
:repoison
    set 
#i 0 // счетчик фэйлов таргета мяса
    
send $actbtn // LastObject в клиенте
    
WaitForTarget
    
:retarget
    left $mp 
// координаты кучи неотравленного мяса в паке
    
wait #wwp // задержка на отравление мяса
    
if (target 1// проверки на наличие мяса в паке
        
set #i #i + 1
        
if (#i > 3)
            
send Escape
            set 
#ii #ii + 1
            
if (#ii > 2)
                
set #iii #iii + 1
                
if (#iii > 10)
                    
gosub zopa
                end_if
                set 
#amountp #amount - #f
                
goto start
            end_if
            
goto repoison
        end_if
        wait 500
        
goto retarget
    end_if
    
if (lastmsg $fizl)
        
set #fizl #fizl + 1
        
goto fizl
    end_if
    
if (lastmsg $alrpois)
        
drag $mp $mpc 1 // утаскивает из пака в сундук отравленный кусок мяса
        
goto repoison
    end_if
    drag $mp $mpc 1 
// утаскивает из пака в сундук отравленный кусок мяса
    
wait #wdr
    
:fizl
    say Юз 
#f из #amount ( подход № #ft )
end_repeat

set 
#amountm #amount - #fizl

goto start

:zopa
    say Зопа
    repeat 5
        flash
        flash Sindo
        alarm
        wait 2s
    end_repeat
    pause_script
return

// в куче №1 долно быть не больше 1к итемов, иначе он не смогет оттуда взять 1(!) кусок мяса. именно по этой причине следует разделять мясо на нескольколько кучек (положить из ондну на другую, нестакуя)
// в строках [set $* XXX, YYY] и заменяем XXX, YYY на относительные координаты в соответствии с комментариями
// в строках [set #w* KKK] заменяем KKK на задержку в милисекундах в соответствии с комментариями и вашим пингом
// в строке [set #pt BBB] заменяем BBB на итемтайп банок лезер пойзона
// в строке [set $actbtn S] заменяем S на кнопку с указанным в комменте биндом
// в строках [set {$fizl/$alrpois} CCCCCCCCCC] заменяем СССССС в соответствии с комментариzvb
// если не требуется проговаривать шаг цикла, удалить/закомментарить строку [say Юз #f из #amount ( подход № #ft )]
// в строке [set #amount N] заменяем N в соответствии с комментарием 
__________________
May the Force be with you..
Sindo вне форума   Ответить с цитированием
Re: МАКРОСЫ
Старый 18.01.2010, 14:45   #10
AKA
The Hero
 
Аватар для AKA
 
Регистрация: 17.10.2009
Адрес: [M5]
Сообщений: 603
Репутация: 24 [+/-]
на правильном пути (от 16 до 25)
AKA на правильном пути (от 16 до 25)
Чар: Слишком Много!!
Гильдия: [M5]
По умолчанию Re: МАКРОСЫ

PHP код:
Резист И хелинг
:main 
//repeat 2 // сдесь ставиш скока стен кастовать под себя если хилинг ГМ можно 4 стены.
set #r 0 
send F9 3500 // CastSpel >> waitfortarget >> target selfl
//End_repeat 
 
:heal 
if hits str 
send End 
//хилим себя, можно заменить на макрос 
set #r 0 
wait 3600 
goto heal 
end_if 
 
set 
#r #r + 1 
wait 1000 
if #r = 5 // переменная отвечает за ожидание 5 
//секунд, если в течение этого времени дамаг не был 
//нанесен, то считается, что действие филда 
//прекратилось 
goto medit 
else 
goto 
heal 
end_if 
 
:medit 
if hits str //вдруг все таки лагануло и филд все еще 
//наносит дамаг, лишняя проверочка не помешает 
goto heal 
end_if 
if mana int 
send Backspace 
//макрос медитации 
wait 2500 
goto medit 
end_if 
 
goto main 
end_script 
AKA вне форума   Ответить с цитированием
Re: МАКРОСЫ
Старый 18.01.2010, 14:47   #11
Sindo
The Hero
 
Регистрация: 02.02.2007
Адрес: KIDs
Возраст: 36
Сообщений: 969
Репутация: 52 [+/-]
имеет хорошую репутацию (от 26 до 75)
Sindo имеет хорошую репутацию (от 26 до 75)
Чар: Sindoatan
Гильдия: KIDs
По умолчанию Re: МАКРОСЫ

PHP код:
 // Tailoring (с) Sindo (Не требует для использования ***ssist)

:start

set 
#f 0
set #a 0

drag 298266     298266    1 // берет 1 паттерн из кучи №1 на земле и кладет в пак (для определения координат)
wait 400
drag 665
604    834557   N // берет N (подобрать по весу) кусков ткани с пола и кладет  в пак
wait 400

set 
#a lastliftedID
set lasttargetID #a

REPEAT N // столько раз, сколько вы взяли ткани
    
set #f #f + 1
    
send F11 // LastObject/WFT/LastTarget в клиенте
    
wait 2000 // пауза на появления менюшки выбора изделия крафта
    
double_left 24267    //  подменю крафта (картинка паттерна)
    
wait 5000 // пауза пока крафтит паттерн 
    
say #f
end_repeat

drag 911
560    680566   all // выкладывает все готовые паттерны в кучу №2 на полу

goto start

// перед запуском скрипта 1 раз использовать сьюинг кит на что угодно.
// задержки необходимо пересмотреть в зависимости от пинга ( у меня он  ну ООООЧЕНЬ большой =( )
// в куче №1 долно быть не больше 1к итемов, иначе он не смогет оттуда взять 1(!) паттерн. именно по этой причине я разделил паттерны на 2 кучи 
Срипты с припиской Beta требует теста и, возможно, правки.
PHP код:
// Taming by Sindoatan. Based on Taming (c) by diss 
 
set $btnRel F6 // кнопка с say+all_release в клиенте 
set $btnUse F12 // кнопка с Object/LastTarget в ассисте с UseItemType посоха 
set #k 10 // кол-во обтамливаемых скотинок 
set #korm 0 // если надо запускать скрипт подкормки зверья ставим 1. если нет 0. 
    
set #kb 5 // номер потока со скриптом подкормки зверья
set #blEda 0 // если надо себя кормить, то ставим 1, иначе 0
    
set $btnEat M // кнопка с LastObject  в клиенте
    
set #eda 123456789 // ИД еды для себя 
set #lag 2000000 // время на забывание зверем хозяина 

 
set %arr[11273244 // ID'шники скотинок 
set %arr[21325790 
set 
%arr[31237673 
set 
%arr[41138080 
set 
%arr[51226926 
set 
%arr[61278290 
set 
%arr[71267169 
set 
%arr[81311898 
set 
%arr[929713 
set 
%arr[101088780 
  
//--------------------------------
 
set #zh #k +1 
set $remember remembers 
set $success accept 
set $tamed already tame 
set $failed fail 
set $hungry hungry 
set $far far away 
set $skill changed 
set $wait you must wait 
set $cant see the target 

 
:loop 
set 
#a 1 
    
while #a < #zh
    
if #blEda = 1 
        
set lastobjectid #eda 
        
send $btnEat
    end_if 
    send $btnRel 
//say all release 
    
set lasttargetid %arr[#a] 
    
set #q 0 
:repeat 
    set 
#q #q +1 
    
if #q > 100 // Тамим до последнего, но это на всякий случай 
        
goto next 
    end_if 
    set 
#i 0 
    
send $btnUse  
    wait 1000 
    
if lastmsg already 
        
goto next 
    end_if 
    say zЗверушка 
#a, попытка #q, время timer 
    
while_not lastmsg $success 
        
if (lastmsg $failed) or (#i > 3) 
            
goto repeat 
        end_if 
        repeat 10 
            
if (lastmsg old) or (lastmsg Loved) or (lastmsg again) or (lastmsg return) 
                
send {Tab
                
say Ждемс 
                wait 25s 
                
goto repeat 
            end_if 
            wait 200 
        end_repeat 
        
if (lastmsg $wait) or (lastmsg $cant) or (lastmsg $hungry) or (lastmsg $skill) or (lastmsg $remember) or (lastmsg $tamed) or (lastmsg $far
            goto 
next 
        end_if 
        set 
#i #i +1 
    
end_while 
:next 
    set 
#a #a +1 
    
if #a = 2 
        
set timer 
    end_if 
end_while 
while timer #lag 
    
wait 20s 
    set 
#k #lag - timer 
    
say Обождите #k 
end_while 
if #korm = 1 
    
start_script #kb 
    
wait 10s 
end_if 
goto loop


// Меняем кнопки/задержи/идшники в верхней части скрипта. В основной части копаться не
//обязательно. Обязательно ставим галку в опциях клиента в правой верхней вкладке у 
//строки про TAB. Скрипт может тамить, менять палки, есть, кормить и ждать столько 
//сколько нужно (и не более необходимого). 
__________________
May the Force be with you..

Последний раз редактировалось Sindo; 24.03.2011 в 06:10..
Sindo вне форума   Ответить с цитированием
Re: МАКРОСЫ
Старый 29.01.2011, 09:42   #12
p3ps1
Newbie
 
Регистрация: 20.01.2011
Возраст: 36
Сообщений: 1
Репутация: 1 [+/-]
имеет нулевую репутацию
p3ps1 имеет нулевую репутацию
Чар: Candy Or DeaD
По умолчанию Re: МАКРОСЫ

[
PHP код:
// Taming by Sindoatan. Based on Taming (c) by diss 
 
set $btnRel F6 // кнопка с say+all_release в клиенте 
set $btnUse F12 // кнопка с Object/LastTarget в ассисте с UseItemType посоха 
set #k 10 // кол-во обтамливаемых скотинок 
set #korm 0 // если надо запускать скрипт подкормки зверья ставим 1. если нет 0. 
    
set #kb 5 // номер потока со скриптом подкормки зверья
set #blEda 0 // если надо себя кормить, то ставим 1, иначе 0
    
set $btnEat M // кнопка с LastObject  в клиенте
    
set #eda 123456789 // ИД еды для себя 
set #lag 2000000 // время на забывание зверем хозяина 

 
set %arr[11273244 // ID'шники скотинок 
set %arr[21325790 
set 
%arr[31237673 
set 
%arr[41138080 
set 
%arr[51226926 
set 
%arr[61278290 
set 
%arr[71267169 
set 
%arr[81311898 
set 
%arr[929713 
set 
%arr[101088780 
 
 
set 
#zh #k +1 
set $remember remembers 
set $success accept 
set $tamed already tame 
set $failed fail 
set $hungry hungry 
set $far far away 
set $skill changed 
set $wait you must wait 
set $cant see the target 

 
:loop 
set 
#a 1 
    
while #a < #zh
    
if #blEda = 1 
        
set lastobjectid #eda 
        
send $btnEat
    end_if 
    send $btnRel 
//say all release 
    
set lasttargetid %arr[#a] 
    
set #q 0 
:repeat 
    set 
#q #q +1 
    
if #q > 100 // Тамим до последнего, но это на всякий случай 
        
goto next 
    end_if 
    set 
#i 0 
    
send $btnUse  
    wait 1000 
    
if lastmsg already 
        
goto next 
    end_if 
    say zЗверушка 
#a, попытка #q, время timer 
    
while_not lastmsg $success 
        
if (lastmsg $failed) or (#i > 3) 
            
goto repeat 
        end_if 
        repeat 10 
            
if (lastmsg old) or (lastmsg Loved) or (lastmsg again) or (lastmsg return) 
                
send {Tab
                
say Ждемс 
                wait 25s 
                
goto repeat 
            end_if 
            wait 200 
        end_repeat 
        
if (lastmsg $wait) or (lastmsg $cant) or (lastmsg $hungry) or (lastmsg $skill) or (lastmsg $remember) or (lastmsg $tamed) or (lastmsg $far
            goto 
next 
        end_if 
        set 
#i #i +1 
    
end_while 
:next 
    set 
#a #a +1 
    
if #a = 2 
        
set timer 
    end_if 
end_while 
while timer #lag 
    
wait 20s 
    set 
#k #lag - timer 
    
say Обождите #k 
end_while 
if #korm = 1 
    
start_script #kb 
    
wait 10s 
end_if 
goto loop


// Меняем кнопки/задержи/идшники в верхней части скрипта. В основной части копаться не
//обязательно. Обязательно ставим галку в опциях клиента в правой верхней вкоадке у 
//строки про TAB. Скрипт может тамить, менять палки, есть, кормить и ждать столько 
//сколько нужно (но не более необходимого). 
[/QUOTE]
Подскажите как тут мне выставить Id Овец... я просто не знаю как смотреть Id
p3ps1 вне форума   Ответить с цитированием
Re: МАКРОСЫ
Старый 29.01.2011, 14:49   #13
Sindo
The Hero
 
Регистрация: 02.02.2007
Адрес: KIDs
Возраст: 36
Сообщений: 969
Репутация: 52 [+/-]
имеет хорошую репутацию (от 26 до 75)
Sindo имеет хорошую репутацию (от 26 до 75)
Чар: Sindoatan
Гильдия: KIDs
По умолчанию Re: МАКРОСЫ

Цитата:
Подскажите как тут мне выставить Id Овец... я просто не знаю как смотреть Id
Пилот->вкладка Еще->кнопка CharParametrs. В появившемся окне находим строчку LastTargetID. Берем ножницы (или подругому вызываем таргет) и кидаем таргет отних на первую овцу. Копируем цифры из найденной строки в окне параметров пилота в окно скрипта в соответствующую номеру овцы строку. Повторяем аналогично для всех овец. PROFIT.
__________________
May the Force be with you..
Sindo вне форума   Ответить с цитированием
Re: МАКРОСЫ
Старый 18.03.2011, 01:28   #14
Evmixiy
Newbie
 
Аватар для Evmixiy
 
Регистрация: 28.08.2010
Возраст: 39
Сообщений: 15
Репутация: 1 [+/-]
имеет нулевую репутацию
Evmixiy имеет нулевую репутацию
Чар: Grok
По умолчанию Re: МАКРОСЫ

set $btnUse F12 // кнопка с Object/LastTarget в ассисте с UseItemType посоха

Как так сделать ? =) У меня либо 1 тамит, либо воопще ничего...
Evmixiy вне форума   Ответить с цитированием
Re: МАКРОСЫ
Старый 18.03.2011, 15:50   #15
Fluke01
Wizard of words
 
Аватар для Fluke01
 
Регистрация: 29.11.2007
Адрес: нетути давно
Сообщений: 2,411
Репутация: 85 [+/-]
- вас уважают другие (от 76 до 125)
Fluke01 - вас уважают другие (от 76 до 125)
Чар: Fluke
Гильдия: нетути давно
По умолчанию Re: МАКРОСЫ

Цитата:
Сообщение от Evmixiy Посмотреть сообщение
set $btnUse F12 // кнопка с Object/LastTarget в ассисте с UseItemType посоха

Как так сделать ? =) У меня либо 1 тамит, либо воопще ничего...
Начинаешь запись макроса в асисте 2 раза кликаешь по таминг стафу, он берется в руку, потом нажимаешь Esc, чтобы таргет пропал или тыкаешь таргетом к кого-нибудь.
Потом юзе итем(посох) меняешь на юзе итем тип(любые посохи этого же типа), и таргет меняешь на ласт таргет.
__________________
˙ǝɯǝɐʚиƍǝdǝu ıqʚ ɐɓɹоʞ 'oıdоʚоɹ ʁ оɯҺ 'ǝɯиниʚεи
Fluke01 вне форума   Ответить с цитированием
Re: МАКРОСЫ
Старый 22.03.2011, 16:32   #16
Evmixiy
Newbie
 
Аватар для Evmixiy
 
Регистрация: 28.08.2010
Возраст: 39
Сообщений: 15
Репутация: 1 [+/-]
имеет нулевую репутацию
Evmixiy имеет нулевую репутацию
Чар: Grok
По умолчанию Re: МАКРОСЫ

Цитата:
Сообщение от Fluke01 Посмотреть сообщение
Начинаешь запись макроса в асисте 2 раза кликаешь по таминг стафу, он берется в руку, потом нажимаешь Esc, чтобы таргет пропал или тыкаешь таргетом к кого-нибудь.
Потом юзе итем(посох) меняешь на юзе итем тип(любые посохи этого же типа), и таргет меняешь на ласт таргет.
кнопка с Object/LastTarget в ассисте с UseItemType посоха.
Evmixiy вне форума   Ответить с цитированием
Re: МАКРОСЫ
Старый 29.04.2013, 08:19   #17
itsmajik
Newbie
 
Регистрация: 09.03.2013
Сообщений: 14
Репутация: 1 [+/-]
имеет нулевую репутацию
itsmajik имеет нулевую репутацию
Чар: itsmajik
По умолчанию Re: МАКРОСЫ

[/PHP][/QUOTE]

PHP код:
// Taming by Sindoatan. Based on Taming (c) by diss 
 
set $btnRel F6 // кнопка с say+all_release в клиенте 
set $btnUse F12 // кнопка с Object/LastTarget в ассисте с UseItemType посоха 
set #k 10 // кол-во обтамливаемых скотинок 
set #korm 0 // если надо запускать скрипт подкормки зверья ставим 1. если нет 0. 
    
set #kb 5 // номер потока со скриптом подкормки зверья
set #blEda 0 // если надо себя кормить, то ставим 1, иначе 0
    
set $btnEat M // кнопка с LastObject  в клиенте
    
set #eda 123456789 // ИД еды для себя 
set #lag 2000000 // время на забывание зверем хозяина 

 
set %arr[11273244 // ID'шники скотинок 
set %arr[21325790 
set 
%arr[31237673 
set 
%arr[41138080 
set 
%arr[51226926 
set 
%arr[61278290 
set 
%arr[71267169 
set 
%arr[81311898 
set 
%arr[929713 
set 
%arr[101088780 
  
//--------------------------------
 
set #zh #k +1 
set $remember remembers 
set $success accept 
set $tamed already tame 
set $failed fail 
set $hungry hungry 
set $far far away 
set $skill changed 
set $wait you must wait 
set $cant see the target 

 
:loop 
set 
#a 1 
    
while #a < #zh
    
if #blEda = 1 
        
set lastobjectid #eda 
        
send $btnEat
    end_if 
    send $btnRel 
//say all release 
    
set lasttargetid %arr[#a] 
    
set #q 0 
:repeat 
    set 
#q #q +1 
    
if #q > 100 // Тамим до последнего, но это на всякий случай 
        
goto next 
    end_if 
    set 
#i 0 
    
send $btnUse  
    wait 1000 
    
if lastmsg already 
        
goto next 
    end_if 
    say zЗверушка 
#a, попытка #q, время timer 
    
while_not lastmsg $success 
        
if (lastmsg $failed) or (#i > 3) 
            
goto repeat 
        end_if 
        repeat 10 
            
if (lastmsg old) or (lastmsg Loved) or (lastmsg again) or (lastmsg return) 
                
send {Tab
                
say Ждемс 
                wait 25s 
                
goto repeat 
            end_if 
            wait 200 
        end_repeat 
        
if (lastmsg $wait) or (lastmsg $cant) or (lastmsg $hungry) or (lastmsg $skill) or (lastmsg $remember) or (lastmsg $tamed) or (lastmsg $far
            goto 
next 
        end_if 
        set 
#i #i +1 
    
end_while 
:next 
    set 
#a #a +1 
    
if #a = 2 
        
set timer 
    end_if 
end_while 
while timer #lag 
    
wait 20s 
    set 
#k #lag - timer 
    
say Обождите #k 
end_while 
if #korm = 1 
    
start_script #kb 
    
wait 10s 
end_if 
goto loop


// Меняем кнопки/задержи/идшники в верхней части скрипта. В основной части копаться не
//обязательно. Обязательно ставим галку в опциях клиента в правой верхней вкладке у 
//строки про TAB. Скрипт может тамить, менять палки, есть, кормить и ждать столько 
//сколько нужно (и не более необходимого). 
[/QUOTE]

Народ, подскажите, как в этом скрипте запустить скрипт на подкормку зверья.
itsmajik вне форума   Ответить с цитированием
Re: МАКРОСЫ
Старый 20.05.2013, 18:01   #18
KDbled
Newbie
 
Регистрация: 03.04.2012
Возраст: 40
Сообщений: 25
Репутация: 1 [+/-]
имеет нулевую репутацию
KDbled имеет нулевую репутацию
Чар: KDbled
По умолчанию Re: МАКРОСЫ

Народ, подскажите, как в этом скрипте запустить скрипт на подкормку зверья


Подкормка должна идти отдельно в скрипте под цифрой 5. Затем там же скрипт должен паузиться. То есть отдельный скрипт писать под кормёжку, как уже самому думать.
KDbled вне форума   Ответить с цитированием
Re: МАКРОСЫ
Старый 20.05.2013, 18:36   #19
sskrd
The Hero
 
Аватар для sskrd
 
Регистрация: 11.01.2011
Адрес: 23 RuS
Возраст: 39
Сообщений: 827
Репутация: 145 [+/-]
имеет отличную репутацию (от 126 до 175)
sskrd имеет отличную репутацию (от 126 до 175)sskrd имеет отличную репутацию (от 126 до 175)
Чар: sskrd
Гильдия: 23 RuS
По умолчанию Re: МАКРОСЫ

Цитата:
Сообщение от KDbled Посмотреть сообщение
Народ, подскажите, как в этом скрипте запустить скрипт на подкормку зверья


Подкормка должна идти отдельно в скрипте под цифрой 5. Затем там же скрипт должен паузиться. То есть отдельный скрипт писать под кормёжку, как уже самому думать.
Подкормка ни что иное как перемещение еды командой drag
Только для этого животные должны в 1й точке стоять, а не бродить по загону.
И лучше включить кормежку в основной скрипт, допустим при удачном затаймливании, тогда и паузу ставить не надо.
__________________
Я счастлива по умолчанию. Пожалуйста, не лезьте в настройки.
sskrd вне форума   Ответить с цитированием
Re: МАКРОСЫ
Старый 19.01.2010, 12:52   #20
Andrey
Mystical Hero
 
Аватар для Andrey
 
Регистрация: 09.10.2009
Сообщений: 1,103
Репутация: 25 [+/-]
на правильном пути (от 16 до 25)
Andrey на правильном пути (от 16 до 25)
Чар: Sokol
По умолчанию Re: МАКРОСЫ

Здравствуйте молодые игроки нашего шарда. Я постараюсь вам объяснить как можно встать на прокачку и качать свой скил до ГМ.
  1. Что нужно сделать. Скачать УО пилот ссылка на него находится на главной страниче сайта нашего замечательного сайта. Видите там наверху серенькую сточечку там вам надо нажать на слоао ФАЙЛЫ. затем когда страничка обновится вы увидите несколько строк там вам нужна строчка ВСПОМОГАТЕЛЬНЫЕ ПРОГРАММЫ. о них далее все расскажу.Пол=сле очеродного обновления страницы вам опять на выбор дадут несколько програм. Вам нужна строчка где написанно UO Pilot. в мое время (в дольнецшем может изменится) она находится в самом низу и версия 2.14.
  2. Поздравляю вас вы скачали пилот. запускайте программу. Ярлычок у нее ввиде смайла. после ее запуска вам надо нийти слово СКРИПТ. Вот туда мы с вами и будем писать макросы.
  3. Дальше я бы посоветовал вам скопировать ту часть текста (того скила) который вы хотите поставить на прокачку в скажем какой то текстовый редактор(WORD или обычный стандартный ВИНДОВСКИЙ БЛОКНОТ) просто чтобы 10 раз не искать а то вдруг потеряете.
  4. После всего выше приведенного вам надо выделить текст и вставить его(текст) в окошко СКРИПТ.
  5. Начнем с самого первоко скрипта (просьба к администрации выделите название скрипта други текстом) он называется ХИЛ МАГИЯ МЕДИТАЦИЯ. Вставили молодцы. Но я прошу заметить у вас параметры силы ловкости и магии должны быть 150 100 100. Если что то не прокачано пишите в личку помогу. ИЛИ в игре спросите АКА он обещал помочь.
  6. Перейдем непосредственно к самому скрипт. Первая строчка проверяет наличие жизней (ХЕЛОВ) а вот далее вам надо сделать еще кое что.
  7. Когда вы скачивали игру и вместе с УО АСИСТОМ вот он то нам и нуже если вы следовали инструкции(которая тоже находится на главной страничке) и сделали все правильно то при запускании игры у вас запускаются две программы. первая УО вторая АСИСТ. Нашли нажмите на нее и найдите вкладку со словом МАКРОС. Далее вам надо написать сам макрос. Он пишется таким образом.
  8. Нажмите кнопочку RECORD(запись) теперь нажмите на бинты они додлжны находится в вашем паке(СУМКЕ) изображенной в правом нижнем углу экрана где изображен ваш игрок(чар). Нажали на бинтики теперь целью укажите непосредственно на чара или на его статус. Он тоже выводится на этой же картинке с вашим чаром только называется СТАТУС(STATUS). После того как вы все сделали вам надо опять переключится на окошко АСИСТА. Там вам надо нажать кнопочку стоп (STOP) поздравляю вас мы записали первый с вами МАКРОС. Но это еще не все далее вам надо нажать на вкладку КЛЮЧИ(KEYS) ну или кнопки. Там спомощю скрола вам надо найти строчку PLAY MAKROS 1. Это значит проиграть макрос но тут опять будте внимательны. В то время когда вы записывали с вами макрос внизу этого окошка показаны цифорки эти цифорки и означают порядковый номер макроса. Если вы записывали 15 макрос значит и проигрывать надо 15 макрос. Так вот вы нашли такую строчку теперь вам надо установить клавишу воспроизведения вашего макроса. Ну в данном случае стоит кнопка F6 но это можно и изменить на ваше усмотрение. Вот теперь у нас готов наш макрос идем далее.
  9. А вот далее ва столкнетесь с другой преградой но ничего непроходимого нет. Вам надо на окошке вашего чара нажать кнопочку ХЕЛП (HELP) не бойтесь ГМа звать не будем. Вам нужно изображений выглядещее как полумесяц (ЛУНА) но помоему круговая стрелка(извените пишу с работы могу ошибится) там вам надо в кнопочках нажать ADD(добавить) в первой строчке ставим кнопку на которой будет у нас медитация в данном случае F7 после того у нас появляется следующая строчка в ней ищем USE SKILL(использовать скилл) тогда у нас дальше появляется еще одна строчка чуть ниже. И вот в ней мы ищем слово MEDITATION (медетация). после того как мы сделали надо нажать кнопочку APLY(применить) и потом ОК.
  10. Но и на этом работа в данном окне не заканчивается все выше приведенное надо сделать еще и на кнопочку F5 но только с небольшими изменениями. вам надо будет поставить не использовать скилл а найти строчку CAST SPEL(сделать заклинание) соответственно во второй строче ищем слово поизон (POISON) яд чуть ниже стави словосочетание wait for target и спуститесь еще чуточку ниже и вы найдете еще одну строчку там вам надо поставить target self цельна себя и на этом пожалуй все незабудте применить изменения APLY.

Всегда ваш - SOKOL.
__________________
Для того, чтобы быть другом, не обязательно быть собакой.
Andrey вне форума   Ответить с цитированием
Re: МАКРОСЫ
Старый 24.02.2010, 15:23   #21
Jerom
Newbie
 
Аватар для Jerom
 
Регистрация: 29.11.2009
Возраст: 36
Сообщений: 38
Репутация: 1 [+/-]
имеет нулевую репутацию
Jerom имеет нулевую репутацию
Чар: Osvald
По умолчанию Re: МАКРОСЫ

Цитата:
Сообщение от Andrey Посмотреть сообщение
  1. А вот далее ва столкнетесь с другой преградой но ничего непроходимого нет. Вам надо на окошке вашего чара нажать кнопочку ХЕЛП (HELP) не бойтесь ГМа звать не будем. Вам нужно изображений выглядещее как полумесяц (ЛУНА) но помоему круговая стрелка(извените пишу с работы могу ошибится) там вам надо в кнопочках нажать ADD(добавить) в первой строчке ставим кнопку на которой будет у нас медитация в данном случае F7 после того у нас появляется следующая строчка в ней ищем USE SKILL(использовать скилл) тогда у нас дальше появляется еще одна строчка чуть ниже. И вот в ней мы ищем слово MEDITATION (медетация). после того как мы сделали надо нажать кнопочку APLY(применить) и потом ОК.
Эээээ... Options а не Help. Кстати, классная тема. Давно мечтал разобраться с Пилотом, но все не решалсо, боюсь любого программирования, как огня
Jerom вне форума   Ответить с цитированием
Re: МАКРОСЫ
Старый 24.02.2010, 15:29   #22
Andrey
Mystical Hero
 
Аватар для Andrey
 
Регистрация: 09.10.2009
Сообщений: 1,103
Репутация: 25 [+/-]
на правильном пути (от 16 до 25)
Andrey на правильном пути (от 16 до 25)
Чар: Sokol
По умолчанию Re: МАКРОСЫ

А ты не бойся пробуй если что то поможем))))
__________________
Для того, чтобы быть другом, не обязательно быть собакой.
Andrey вне форума   Ответить с цитированием
Re: МАКРОСЫ
Старый 20.01.2010, 13:25   #23
Superman
Junior Player
 
Аватар для Superman
 
Регистрация: 10.11.2008
Адрес: Vendetta
Возраст: 37
Сообщений: 179
Репутация: 10 [+/-]
на правильном пути, пока что (от 5 до 15)
Superman на правильном пути, пока что (от 5 до 15)
Чар: maximus
Гильдия: Vendetta
По умолчанию Re: МАКРОСЫ

Благодарб Ака за помощь в макрах!
PHP код:
//----Выкладываю макр на фишинг----
repeat 40 //цикл на 40 повторов
goto 1
:1
send 7 
//Кнопка удочки по типу в асисте и таргет по релатив локации
wait 2000
if lastmsg You see
repeat 3
alarm
double_right 624
81 //координаты противоположного края плота(куда перс будет отходить) желательно плот 9х9
double_right 62481 
end_repeat
double_right 624
81 
double_right 624
81 
send tab 
//снимает непринужденность перса(посли хила бинтами не отвечает на атаку например)
send f1 //лук в руки
pause_script all //остановка скрипта на паузу, перс ждет атаки моба и убивает ответной стрельбой, после чего лутаете, встает на прежнее место и жмете на кнопку снятия с паузы а не на кнопку "play" иначе скрипт пойдет с начала
end_if
wait 2000
if lastmsg You see
repeat 3
alarm
double_right 624
81 
double_right 624
81 
end_repeat
double_right 624
81 
double_right 624
81 
send tab
send f1
pause_script all
end_if
 
if lastmsg you fish a while
goto 
1
end_if
 
say Come on
Fish =) //у тех, у кого макры забиты на f# могут эту строчку убрать
say right
wait 2000
say stop
end_repeat
 
say Come on
Fish =)
say back
wait 2500
say stop
 
 
repeat 40 
//цикл на 40 повторов (едем обратно, но уже на тейл ниже)
goto 2
:2
send 7
135
128 ait 2000
if lastmsg You see
repeat 3
alarm
double_right 624
81 
double_right 624
81 
end_repeat
double_right 624
81 
double_right 624
81 
send tab
send f1
pause_script all
end_if
wait 2000
if lastmsg You see
repeat 3
alarm
double_right 624
81 
double_right 624
81 
end_repeat
double_right 624
81 
double_right 624
81 
send tab
send f1
pause_script all
end_if
 
if lastmsg you fish a while
goto 
2
end_if
 
say Come on
Fish =)
say left
wait 2000
say stop
end_repeat
 
say Come on
Fish =)
say back
wait 2500
say stop 
Добавлено через 31 секунду
PHP код:
//----макрос на пойзон----
repeat 900
drag 384
317 703668 1
wait 1700
while_not lastmsg 
$pois
send f12 
wait 1700
drag 707
658 421324 1
wait 500
end_repeat
end_while
alarm
alarm
 
//на пол перед собой кучу жареной рыбы в паке лесирпойзоны
//F12-в асисте записываем макр травить рыбу и меняем на use item type и target item type
//drag1 - это откуда и куда и сколько перетаскивать жареной рыбы
//drag2- это откуда и куда перетаскивать пойзоненую рыбу
//Скрипт будет перетаскивать с пола 1 рыбу в пак травить ее и ложить в пак на полу.
 
//Скрипт работает нормально , сбиваеться только при сейвах и будет постоянно сбиваться при сейвах так как присутствует перетаскивание. 
Добавлено через 2 минуты
PHP код:
//---- макрос на таминг ----
set $remember The Sheep remembers you 
set $master It seems to accept you 
as master 
set $player Вы не можете приручать игроков
.
set $alredy This creature already tame
repeat 6
say all release 
wait 600
end_repeat
:1
send 8 
// F12 LastObject+wait for target+TargetLast
set timer
while_not lastmsg $remember 
or $master or $player or $alredy
if lastmsg The Sheep remembers you 
goto NeXT 
end_if 
if lastmsg It seems to accept you as master 
goto NeXT 
end_if 
if lastmsg Вы не можете приручать игроков.
goto 
NeXT 
end_if 
if lastmsg This creature already tame
goto Neploxo
end_if 
if lastmsg You fail to tame the creature.
goto 
1
end_if 
if lastmsg Animal Taming changed now
goto NeXT
end_if 
if timer 40000
gosub next
end_if
 
end_while
if timer 5000
goto next
end_if
:NeXT 
say all release 
send 9
wait 500
goto 1
:neploxo
repeat 4
say all release 
wait 1s
end_repeat
goto 
__________________
Чужие слабости нужно уважать, а не осуждать!
Superman вне форума   Ответить с цитированием
Re: МАКРОСЫ
Старый 06.05.2015, 08:58   #24
Akad3m1k
The Hero
 
Аватар для Akad3m1k
 
Регистрация: 24.04.2008
Адрес: Coma Mierda, GoD's,
Сообщений: 590
Репутация: 8 [+/-]
на правильном пути, пока что (от 5 до 15)
Akad3m1k на правильном пути, пока что (от 5 до 15)
Чар: Akad3m1k-
Гильдия: Coma Mierda, GoD's,
По умолчанию Re: МАКРОСЫ

Цитата:
Сообщение от Superman Посмотреть сообщение
Добавлено через 2 минуты
PHP код:
//---- макрос на таминг ----
set $remember The Sheep remembers you 
set $master It seems to accept you 
as master 
set $player Вы не можете приручать игроков
.
set $alredy This creature already tame
repeat 6
say all release 
wait 600
end_repeat
:1
send 8 
// F12 LastObject+wait for target+TargetLast
set timer
while_not lastmsg $remember 
or $master or $player or $alredy
if lastmsg The Sheep remembers you 
goto NeXT 
end_if 
if lastmsg It seems to accept you as master 
goto NeXT 
end_if 
if lastmsg Вы не можете приручать игроков.
goto 
NeXT 
end_if 
if lastmsg This creature already tame
goto Neploxo
end_if 
if lastmsg You fail to tame the creature.
goto 
1
end_if 
if lastmsg Animal Taming changed now
goto NeXT
end_if 
if timer 40000
gosub next
end_if
 
end_while
if timer 5000
goto next
end_if
:NeXT 
say all release 
send 9
wait 500
goto 1
:neploxo
repeat 4
say all release 
wait 1s
end_repeat
goto 
И че это за описание скрипта? Кнопка 8 что у тебя значит? А кнопка 9 ? Люди которые первый раз всё это дело видят НЕ догадаются что 8 это ло,лс. а 9 это таргет некст. Боже мой.
__________________
Забивал, вернулся, вкачал чара, нубил, забил, жду ранФВ
skype : akademuk666, icq : 926883, discord : Akad3m1k#2971

Последний раз редактировалось Оrigami; 06.05.2015 в 09:54..
Akad3m1k вне форума   Ответить с цитированием
Re: МАКРОСЫ
Старый 20.01.2010, 17:38   #25
Fluke01
Wizard of words
 
Аватар для Fluke01
 
Регистрация: 29.11.2007
Адрес: нетути давно
Сообщений: 2,411
Репутация: 85 [+/-]
- вас уважают другие (от 76 до 125)
Fluke01 - вас уважают другие (от 76 до 125)
Чар: Fluke
Гильдия: нетути давно
По умолчанию Re: МАКРОСЫ

Самый главный скрипт при прокачке забыли

PHP код:
//Гвардилка, когда убить хотят
if hits str
say  guards 
//2 пробела после say
send f1 //кнопка лечения в асисте
wait 1000
say  guards
wait 1500
end_if 
Настройка UOPilot
В меню "Настройки", устанавливаем галочку на "Отображать запущенные скрипты"(синеньким выделятся будут) и на "сохранять настройки при выходе".
Снимаем галочку на "Отображать ход выполнения скрипта"(проц меньше загружен будет).

Закладка "Скрипт"
Внизу + и -, + добавляет еще одно окно скрипта, сверху есть W, в ней нужно выбрать активное окно УО, это важно для работы скриптов, если запущено несколько окон УО.
После добавления скрипта, сохраните его, тогда после запуска пилота они будут открываться.

Закладка "Еще", "Пауза между строк" ставим 0
Нажимаем "Edit HotKeys"
Назначаем там кнопку на принтскрин, можно еще на автомув
Справа внизу, можно назначить горячие клавиши на скрипты.
Fluke01 вне форума   Ответить с цитированием
Re: МАКРОСЫ
Старый 27.01.2010, 00:40   #26
Sindo
The Hero
 
Регистрация: 02.02.2007
Адрес: KIDs
Возраст: 36
Сообщений: 969
Репутация: 52 [+/-]
имеет хорошую репутацию (от 26 до 75)
Sindo имеет хорошую репутацию (от 26 до 75)
Чар: Sindoatan
Гильдия: KIDs
По умолчанию Re: МАКРОСЫ

Поправил и доработал резист, сейчас сам им качаю. Вот результат:
PHP код:
////////////////////////////////Resist by Sindo
//каст стенки и лечение во время ходьбы (1/3) (c ассистом)
/////////////////////////////////
set $westbtn j// walk+west
set $eastbtn l// walk+east
set $southbtn k // walk+south
set $ffcastbtn f9// CastSpell+FireField/WFT/TargetSelf
set $healbtn F11 // лечение бинтами через ассист
set #healwait 2900// задержка на отхиливание с бинта
set #ffcastwait 2000// задержка на каст фаерфилда
set #2scr 4// номер потока со скриптом ходьбы по стенке


set #worky charposy
set timer

:f

if hits 150
    send $healbtn
end_if

set 
#h 150 - hits
wait #healwait

if (hits 150)  and (#h = 0) or (timer >= 100000) 
    
stop_script #2scr
    
repeat 10 // начало выравнивания (выравнивается упираясь в западную стену дома, ходя паралельно южной)
        
send $westbtn
        wait 200
    end_repeat
    repeat 4
        send $eastbtn
        wait 200
    end_repeat 
// конец выравнивания
:recast
    
if charposy #worky
        
set timer
        send $ffcastbtn
        wait 
#ffcastwait
        
if (lastmsg fiz)
            goto 
recast
        end_if
        start_script 
#2scr
    
else
        
repeat 3
            send $southbtn
        end_repeat
        
goto recast
    end_if
end_if

goto 
PHP код:
///////////////////////////////////Resist by Sindo
//ходьба по стенке (2/3)
///////////////////////////////////
// межстрочная задержка 100
set $westbtn j // walk+west
set $eastbtn l // walk+east


repeat 4
    send $westbtn
    wait 50
end_repeat

:rep

repeat 7
       send $eastbtn
end_repeat

repeat 7
    send $westbtn
end_repeat

goto rep 
PHP код:
//////////////////////////////////Resist by Sindo
//отход если мало хп (3/3)
//////////////////////////////////
// межстрочная задержка 20
set #2scr 4 // номер потока со скриптом ходьбы по стенке
set $northbtn i // walk+north
set $southbtn k // walk+south


set #a 0

:start

if (hits 60) and (hits >= 1)
    
pause_script #2scr 
    
repeat 3
        send $northbtn
        wait 200
    end_repeat
    
while hits 120
        wait 500
    end_while
    repeat 3
        send $southbtn
        wait 200
    end_repeat
    resume_script 
#2scr
end_if

if hits 1
    repeat 5
        alarm
        wait 2s
    end_repeat
    set 
#a #a + 1
    
if #a > 20
        
stop_script all
    end_if
end_if

goto start 
Настройка и запуск:
1) вставить скрипты в 3 разных окна пилота
2) проверить бинды в верхних частях скриптов на соответствие действиям описанным в комментариях
3) загрузить в пак чару как можно больше бинтов и реги для каста фаер филда
4) поставить чара вплотную к южной стене базы на 4-й тейл от западной
5) проверить стоит ли чар за ам зоной дома, если нет то передвинуть южный забор на 1 тейл на юг и вновь выставить чара (п. 4)
6) запустить скрипты №1 №3
7) переодически проверять наличие у чара реагентов и бинтов, и не умер ли чар ( если умрет он будет громко кричать (в разработке))

Советы:
1) когда вы начнете юзать этот скрипт у вашего питомца должно быть не менее 60 магери и 80 хилинга, иначе будет много физлов и простоя на отхиливание
2) чтобы засунуть побольше итемов в пак чару убейте его, положите туда все что нужно и ресните. (? ибо могли пофиксить)
3) качаться надо в арморе который не дает плюсов к скилу резиста или без армора
4) качаться в полиморфе глюпо ибо в полиморфе нельзя хиляться
5) при хилинге 90 и гм магери на 1к бинтов приходится ~40 кастов фаерфилда.

Принцип работы скрипта:
1) чар выравнивается об западную стену дома бегая паралельно южной
2) кастует на себя фаерфилд
3) бегает вдоль южного забора по фаерфилду при этом хилясь и невыходя за пределы фаерфилда
4) если хп меньше 60 чар отходит в сторону и хилится, восстановив хп до 120 возвращается и продолжает бегать
5) если стенка почти погасла или у чара 150 хп все повторяется с 1-го пункта
6) при этом если чар умер он будет долго кричать ( аларм пилота), а потом заткнется и остановит все скрипты (в разработке)
7) медитация не требуется, т.к. для восстановления более чем достаточно пассивного регена.
__________________
May the Force be with you..
Sindo вне форума   Ответить с цитированием
Re: МАКРОСЫ
Старый 27.01.2010, 10:20   #27
Sindo
The Hero
 
Регистрация: 02.02.2007
Адрес: KIDs
Возраст: 36
Сообщений: 969
Репутация: 52 [+/-]
имеет хорошую репутацию (от 26 до 75)
Sindo имеет хорошую репутацию (от 26 до 75)
Чар: Sindoatan
Гильдия: KIDs
По умолчанию Re: МАКРОСЫ

PHP код:
// Бродилка Sindo Edition
//Используется как дополнительная процедурка внутри основного скрипта
// и требует соответствующей изоляции. Пример использования:
set #kudax 1067 // Перед вызовом бродилки указываем координаты цели
set #kuday 2670 // 
gosub gogogo // вызов бродилки
repeat 5 // сообщим что переход к цели выполнен
    
alarm
end_repeat
stop_script

:gogogo
set 
#try 0 // счетчик шагов
set #flip 0 // счетчик/индикатор разворотов на месте
set #ston 0 // индикатор застревания
:nextstep 
set 
#try #try + 1
:nextfixstep

if (charposx #prevx ) and ( charposy = #prevy ) // если еще не перешли на новый тайл 
    
if (#flip >= 1) // если мы уже разворачивались на этом тайле подождем, может лагаем
        
set #ston #ston + 1
        
wait 500
        set 
#flip #flip + 1
        
if (#flip >= 5) // если не дождались попробуем шагнуть еще раз
            
set #flip 0
        
end_if
        
goto nextfixstep
    end_if
    set 
#flip #flip + 1
end_if

if (charposx <> #prevx ) and ( charposy <> #prevy ) // перешли на новый тайл 
    
set #ston 0
    
set #flip 0
end_if 

if #ston > 10 // если долго не можем сдвинуться с одного тайла отойдем в сторону (рандомный выбор)
    
set #walk random 8
    
if #walk = 0
        
repeat 5
            send PageUp 200
        end_repeat
    end_if
    
if #walk = 1
        
repeat 5
            send PageDown 200
        end_repeat
    end_if
    
if #walk = 2
        
repeat 5
            send Home 200
        end_repeat
    end_if
    
if #walk = 3
        
repeat 5
            send End 200
        end_repeat
    end_if
    
if #walk = 4
        
repeat 5
            send Up 200
        end_repeat
    end_if
    
if #walk = 5
        
repeat 5
            send Down 200
        end_repeat
    end_if
    
if #walk = 6
        
repeat 5
            send Left 200
        end_repeat
    end_if
    
if #walk = 7
        
repeat 5
            send Right 200
        end_repeat
    end_if
    set 
#ston 0
end_if

if #try > 50 // если наш путь к цели слишком долог, пробуем привлечь внимание хозяина чара
    
repeat 5
        flash
        flash Sindo
        wait 2s
    end_repeat
    set 
#try 0
end_if

if (charposx #kudax ) and ( charposy = #kuday ) // цель достигнута 
    
goto yes
end_if 

// Корректировка, если уже стоим на оси Х с целью 
if charposx #kudax 
    
if charposy #kuday 
        
gosub savepos 
        send pageup 
        
goto nextstep 
    end_if 
    
if charposy #kuday 
        
gosub savepos 
        send end 
        
goto nextstep 
    end_if 
end_if 

// Корректировка, если уже стоим на оси У с целью  
if charposy #kuday 
    
if charposx #kudax 
        
gosub savepos 
        send home 
        
goto nextstep 
    end_if 
    
if charposx #kudax 
        
gosub savepos 
        send pagedown 
        
goto nextstep 
    end_if 
end_if 

// Корректировка, если нет пересечений с целью по осям координат 
if charposy #kuday 
    
if charposx #kudax 
        
gosub savepos 
        send down 
        
goto nextstep 
    
else 
        
gosub savepos 
        send left  
        
goto nextstep 
    end_if 
else 
    if 
charposx #kudax 
        
gosub savepos 
        send right 
        
goto nextstep 
    
else 
        
gosub savepos 
        send up 
        
goto nextstep 
    end_if 
end_if 

:yes
return

:
savepos 
set 
#prevx charposx 
set #prevy charposy 
return 
// Биндить ничего не нужно, стоит лишь передать координаты цели и убедиться, что в "строке речи чара(вобщем где текст пишем в уо)" нет никаких символов и кнопки end, home, pageup и pagedown свободны от биндов. 
Добавлено через 12 минут
PHP код:
// AutoMeditation by Sindo
set #a 0 // счетчик сбросов вар мода
set #b 0 // для проверки используется ли скрипт в данный момент
set $war with thoughts // сообщение о нахождении чара в вар моде
set $medbtn 6 // UseSkill+Meditation
:try
while 
mana int
    
if #b = 0
        
say *Meditation Started*
        
set #b 1
    
end_if
    send $medbtn
    send Backspace 
// убрать лишний символ с экрана (если не требуется, убрать)
    
if (lastmsg $war)
        if 
#a > 0 // кол-во снятий вара корректировать по желанию
            
say *Nakilon is under attackNo more time for meditation!*
            
stop_script
        end_if
        set 
#a #a + 1
        
send Tab // снять вар мод
        
goto try
    
end_if
    wait 3s
end_while
say 
*Nakilon's magic energy succesfully refreshed*
alarm
// set #b 0
// возможно потом придумаю систему для безостановочной работы
stop_script 
__________________
May the Force be with you..
Sindo вне форума   Ответить с цитированием
Re: МАКРОСЫ
Старый 27.01.2010, 10:41   #28
Sindo
The Hero
 
Регистрация: 02.02.2007
Адрес: KIDs
Возраст: 36
Сообщений: 969
Репутация: 52 [+/-]
имеет хорошую репутацию (от 26 до 75)
Sindo имеет хорошую репутацию (от 26 до 75)
Чар: Sindoatan
Гильдия: KIDs
По умолчанию Re: МАКРОСЫ

Раньше копал этим на базе, теперь, вероятно, пригодится лишь в Т2А
PHP код:
// Mining near wall by Sindo
// Интервал между строк 20
set #napravl 3 // направление на обкапываемую скалу (0=N,1=E,2=S,3=W)
set $miningbtn01 F10 // кнопка с биндом LastObject/WFT в клиенте
set $miningbtn2 F11 // кнопка с биндом LastTarget в клиенте
set #wstep 1500 // задержка до перехода чара на новый тайл после подачи команды к этому
set #wmine 4300 // задержка до окончания вскапывания чаром указанного тэйла после вызова $miningbtn2
set #pich 1 // индикатор необходимости поддержки замены кирки при поломке (0=нужно, 1=не нужно)
set %pickaxe[1// ID первой запасной кирки
set %pickaxe[2// ID второй запасной кирки
set %pickaxe[3// ID третьей запасной кирки
set #pickaxetype 0 // итемтайп кирок

set $s1 is no ore here
set $s2 have no line
set $s3 
try mining
set $s4 too far away
set $s5 has changed
set $s6 loosen some rocks
set $s7 has increased
set $s8 put the
set $broke broke 
// сообщение при поломке кирки
set $loose reach that // собщение при потере кирки (в том числе при поломке)
set #broke 0 // счетчик поломок кирки
set #a 0 // индикатор необходимости разворота
set #ston 0 // индикатор застоя на месте
set #superston 0 // индикатор капитального застоя на месте

if (#napravl = 0)
    
set $correctx 0
    set $correcty 
1
    set $nexttilebtn Home
    set $otskalibtn End
    set $kskalebtn PageUp
end_if
if (#napravl = 1)
    
set $correctx 1
    set $correcty 
0
    set $nexttilebtn PageUp
    set $otskalibtn Home
    set $kskalebtn PageDown
end_if
if (#napravl = 2)
    
set $correctx 0
    set $correcty 
1
    set $nexttilebtn Home
    set $otskalibtn PageUp
    set $kskalebtn End
end_if
if (#napravl = 3)
    
set $correctx 1
    set $correcty 
0
    set $nexttilebtn PageUp
    set $otskalibtn PageDown
    set $kskalebtn Home
end_if

:start

set lasttargetx charposx $correctx
set lasttargety charposy $correcty
set lasttargetkind 2
send $miningbtn01 300
set $prevmsg lastmsg
if (lastmsg $broke) or (lastmsg $loose)
    if (
#pich = 0)
        
set #broke #broke + 1
        
if (#broke <= 3)
            
set LastObjectID %pickaxe[#broke]
            
set LastObjectType #pickaxetype
            
goto start
        
else
            
msg У вас закончились запасные кирки!
        
end_if
    
else
        
msg У вас сломалась кирка!
    
end_if
end_if
send $miningbtn2 
#wmine
if (lastmsg $prevmsg)
                
alarm
    say Ping troubles
Либо вы лагаетелибо неправильно выставлена "#wmine"либо вылез антимакрос.
end_if
set timer
while_not 
(lastmsg $s1) or (lastmsg $s2) or (lastmsg $s4// or (timer > 800)
    
while_not (lastmsg $s5) or (lastmsg $s6) or (lastmsg $s7) or (lastmsg $s8) or (timer 7000)
        if (
lastmsg $s3// подход к скале, если линия вскапывания отдалилась от нас (срабатывает на отсутствие скалы)
            
repeat 2
                send $kskalebtn 
#wstep
            
end_repeat
            
goto start
        end_if
        set 
#a 1
    
end_while
    
goto start
end_while

:nextstep
set 
#prevx charposx
set #prevy charposy
if (#a >< 0)
    
send $nexttilebtn #wstep
    
set #a 0
end_if
send $nexttilebtn 
#wstep

if (charposx #prevx) and (charposy = #prevy) // обход припятствия от скалы в сторону чара (срабатывает на застой на месте (в том числе при упирании в скалу))
    
set #ston #ston + 1
    
set #superston #superston + 1
    
if (#ston > 2)
        
repeat 2
            send $otskalibtn 
#wstep
        
end_repeat
        set 
#ston 0
        
set #superston 0
        
set #a 1
        
goto nextstep
    
else
        goto 
nextstep
    end_if
else
    
set #ston 0
    
set #superston 0
end_if

goto start



// Перед использованием скрипта необходимо:
// Проверить чтобы не было препятствий для перпендикулярного отхода от скалы на всем ее протяжении
// Учесть что копать следует с ~юга на ~север, а не наоборот (позволяет обойти большинство багов текстур)
// не забываем юзать кирку ручками перед каждым новым стартом скрипта 
__________________
May the Force be with you..
Sindo вне форума   Ответить с цитированием
Re: МАКРОСЫ
Старый 27.01.2010, 11:28   #29
Sindo
The Hero
 
Регистрация: 02.02.2007
Адрес: KIDs
Возраст: 36
Сообщений: 969
Репутация: 52 [+/-]
имеет хорошую репутацию (от 26 до 75)
Sindo имеет хорошую репутацию (от 26 до 75)
Чар: Sindoatan
Гильдия: KIDs
По умолчанию Re: МАКРОСЫ

PHP код:
//деление руды с переплавкой
//общая задержка при GPRS 150
drag 848562    903559    1
wait 300
move 903
559
double_left 898
546 
wait 200 
PHP код:
// 1) в левый верхний угол пака кладешь свою кучку руды (желательно до 500 единиц за раз)
// 2) в окне "Скрипт" пилота ставишь галочку в квадратике справа от "Точка (Ctrl+A)"
// 3) вставляешь в скрипт вот это:
// //деление руды без переплавки
// drag 848, 562    903, 559    1
// wait 300
// 4) выделяешь в скрипте 848, 562
// 5) в окне уо наводишь курсор на кучку руды в паке и жмешь Ctrl+A. у тя должны вместо 848, 562 появица другие цифры в таком же формате
// 6) выделяешь в скрипте 903, 559
// 7) в окне уо наводишь примерно на центр пака и жмешь Ctrl+A. Терь у тя должны изменица цыфры вместо 903, 559
// 8) запускаешь скрипт и ждешь пока он по 1 кусочку разделит всю кучку
// 9) потом через вкладку "Общее" ставишь даблклик на координаты руды, лежащей у тя в паке по 1 ( или пишешь в скриптах double_left 898, 546 меняя координаты на координаты твоей кучки) 
PHP код:
//Camping by Sindoatan
set #dl 40 //Кратчайшее расстояние между центрами соседних тайлов в пикселях (40для 640*480)
set #mbasex 319 //X координата пикселя кучки щепок под чаром
set #mbasey 245 //Y координата пикселя кучки щепок под чаром
//goto test 
//////////////////////////////////////// 
set #basex #mbasex 
set #basey #mbasey 
for #x -#dl #dl #dl 
    
for #y -#dl #dl #dl 
        
set #Targx #basex +#x 
        
set #Targy #basey +#y 
        
set #a #basex -#dl 
        
set #b #basey +#dl 
        
set #c #basey -#dl 
        
if ((#Targx = #a) and (#Targy = #b)) or ((#Targx = #mbasex) and  (#Targy = #mbasey)) or ((#Targx = #mbasex) and (#Targy = #c)) 
            
goto next1 
        end_if 
        repeat 19 
            drag 
#mbasex, #mbasey #Targx, #Targy 1 
            
wait 50 
            set 
#a LastLiftedID 
            
set LastObjectID #a 
            
repeat 4 
                send F11 
// LastObject в клиенте 
            
end_repeat 
        end_repeat 
        
:next1 
    end_for 
end_for 
 
//:test 
set #a #dl / 2 
set #b #dl / 2 
set #basex #mbasex + #a 
set #basey #mbasey - #b 
 
for #x -#dl #dl #dl 
    
for #y -#dl #dl #dl 
        
set #Targx #basex +#x 
        
set #Targy #basey +#y 
        
set #a #basex +#dl 
        
set #b #basey -#dl 
        
if (#Targx = #a) and (#Targy = #b) 
            
goto next2 
        end_if 
        repeat 19 
            drag 
#mbasex, #mbasey #Targx, #Targy 1 
            
wait 50 
            set 
#a LastLiftedID 
            
set LastObjectID #a 
            
repeat 4 
                send F11 
// LastObject в клиенте 
            
end_repeat 
        end_repeat 
        
:next2 
    end_for 
end_for 
 
//repeat 5 
    
alarm 
//    wait 2s 
//end_repeat 
//stop_script
//Не забываем биндить кнопку с LastObject 
__________________
May the Force be with you..

Последний раз редактировалось Sindo; 09.12.2012 в 22:51..
Sindo вне форума   Ответить с цитированием
Re: МАКРОСЫ
Старый 12.01.2012, 19:05   #30
sskrd
The Hero
 
Аватар для sskrd
 
Регистрация: 11.01.2011
Адрес: 23 RuS
Возраст: 39
Сообщений: 827
Репутация: 145 [+/-]
имеет отличную репутацию (от 126 до 175)
sskrd имеет отличную репутацию (от 126 до 175)sskrd имеет отличную репутацию (от 126 до 175)
Чар: sskrd
Гильдия: 23 RuS
По умолчанию Re: МАКРОСЫ

Цитата:
Сообщение от Sindo Посмотреть сообщение
PHP код:
//деление руды с переплавкой
//общая задержка при GPRS 150
drag 848562    903559    1
wait 300
move 903
559
double_left 898
546 
wait 200 
PHP код:
// 1) в левый верхний угол пака ложишь свою кучку руды (желательно до 500 единиц за раз)
// 2) в окне "Скрипт" пилота ставишь галочку в квадратике справа от "Точка (Ctrl+A)"
// 3) вставляешь в скрипт вот это:
// //деление руды без переплавки
// drag 848, 562    903, 559    1
// wait 300
// 4) выделяешь в скрипте 848, 562
// 5) в окне уо наводишь курсор на кучку руды в паке и жмешь Ctrl+A. у тя должны вместо 848, 562 появица другие цифры в таком же формате
// 6) выделяешь в скрипте 903, 559
// 7) в окне уо наводишь примерно на центр пака и жмешь Ctrl+A. Терь у тя должны изменица цыфры вместо 903, 559
// 8) запускаешь скрипт и ждешь пока он по 1 кусочку разделит всю кучку
// 9) потом через вкладку "Общее" ставишь даблклик на координаты руды, лежащей у тя в паке по 1 ( или пишешь в скриптах double_left 898, 546 меняя координаты на координаты твоей кучки) 
В окне скрипта цифры при нажатии Ctrl+A меняются?
При работе макроса в левом нижнем углу игрового окна появляются хоть какие-нибудь сообщения?
При запуске макроса мышка бегает по экрану?
В окне скрипта в пилоте по кнопке W окно с чаром выбрано?
sskrd вне форума   Ответить с цитированием
Re: МАКРОСЫ
Старый 06.01.2017, 07:26   #31
Aleksei4ik
Newbie
 
Регистрация: 04.03.2015
Возраст: 35
Сообщений: 52
Репутация: 1 [+/-]
имеет нулевую репутацию
Aleksei4ik имеет нулевую репутацию
Чар: Aleksei
По умолчанию Re: МАКРОСЫ

Цитата:
Сообщение от Sindo Посмотреть сообщение
Раньше копал этим на базе, теперь, вероятно, пригодится лишь в Т2А
// Mining near wall by Sindo
// Интервал между строк 20
Что-то совсем не работает скрипт...даже ходить не пытается (изначально не понял,какими он кнопками ходит...думал всё,как у людей - up,down и т.д.,ан-нет) и даже не поворачивается,чтоб копать другой тайтл...
Aleksei4ik вне форума   Ответить с цитированием
Re: МАКРОСЫ
Старый 08.01.2017, 13:55   #32
KudesNIK
Newbie
 
Регистрация: 12.11.2016
Адрес: old Pycu4u
Сообщений: 31
Репутация: 1 [+/-]
имеет нулевую репутацию
KudesNIK имеет нулевую репутацию
Чар: KudesNIK
Гильдия: old Pycu4u
По умолчанию Re: МАКРОСЫ

Цитата:
Сообщение от Aleksei4ik Посмотреть сообщение
Что-то совсем не работает скрипт...даже ходить не пытается (изначально не понял,какими он кнопками ходит...думал всё,как у людей - up,down и т.д.,ан-нет) и даже не поворачивается,чтоб копать другой тайтл...
Попробуй версию пилота поменять [Только зарегистрированные пользователи могут видеть ссылки. Регистрация!]
KudesNIK вне форума   Ответить с цитированием
Re: МАКРОСЫ
Старый 10.01.2017, 13:27   #33
капитан какао
Junior Player
 
Регистрация: 05.12.2015
Сообщений: 147
Репутация: 1 [+/-]
имеет нулевую репутацию
капитан какао имеет нулевую репутацию
Чар: dani california
По умолчанию Re: МАКРОСЫ

[QUOTE=Sindo;279380]Раньше копал этим на базе, теперь, вероятно, пригодится лишь в Т2А
PHP код:
// Mining near wall by Sindo
// Интервал между строк 20
set #napravl 3 // направление на обкапываемую скалу (0=N,1=E,2=S,3=W)
set $miningbtn01 F10 // кнопка с биндом LastObject/WFT в клиенте
set $miningbtn2 F11 // кнопка с биндом LastTarget в клиенте
set #wstep 1500 // задержка до перехода чара на новый тайл после подачи команды к этому
set #wmine 4300 // задержка до окончания вскапывания чаром указанного тэйла после вызова $miningbtn2
set #pich 1 // индикатор необходимости поддержки замены кирки при поломке (0=нужно, 1=не нужно)
set %pickaxe[1// ID первой запасной кирки
set %pickaxe[2// ID второй запасной кирки
set %pickaxe[3// ID третьей запасной кирки
set #pickaxetype 0 // итемтайп кирок

set $s1 is no ore here
set $s2 have no line
set $s3 
try mining
set $s4 too far away
set $s5 has changed
set $s6 loosen some rocks
set $s7 has increased
set $s8 put the
set $broke broke 
// сообщение при поломке кирки
set $loose reach that // собщение при потере кирки (в том числе при поломке)
set #broke 0 // счетчик поломок кирки
set #a 0 // индикатор необходимости разворота
set #ston 0 // индикатор застоя на месте
set #superston 0 // индикатор капитального застоя на месте

if (#napravl = 0)
    
set $correctx 0
    set $correcty 
1
    set $nexttilebtn Home
    set $otskalibtn End
    set $kskalebtn PageUp
end_if
if (#napravl = 1)
    
set $correctx 1
    set $correcty 
0
    set $nexttilebtn PageUp
    set $otskalibtn Home
    set $kskalebtn PageDown
end_if
if (#napravl = 2)
    
set $correctx 0
    set $correcty 
1
    set $nexttilebtn Home
    set $otskalibtn PageUp
    set $kskalebtn End
end_if
if (#napravl = 3)
    
set $correctx 1
    set $correcty 
0
    set $nexttilebtn PageUp
    set $otskalibtn PageDown
    set $kskalebtn Home
end_if

:start

set lasttargetx charposx $correctx
set lasttargety charposy $correcty
set lasttargetkind 2
send $miningbtn01 300
set $prevmsg lastmsg
if (lastmsg $broke) or (lastmsg $loose)
    if (
#pich = 0)
        
set #broke #broke + 1
        
if (#broke <= 3)
            
set LastObjectID %pickaxe[#broke]
            
set LastObjectType #pickaxetype
            
goto start
        
else
            
msg У вас закончились запасные кирки!
        
end_if
    
else
        
msg У вас сломалась кирка!
    
end_if
end_if
send $miningbtn2 
#wmine
if (lastmsg $prevmsg)
                
alarm
    say Ping troubles
Либо вы лагаетелибо неправильно выставлена "#wmine"либо вылез антимакрос.
end_if
set timer
while_not 
(lastmsg $s1) or (lastmsg $s2) or (lastmsg $s4// or (timer > 800)
    
while_not (lastmsg $s5) or (lastmsg $s6) or (lastmsg $s7) or (lastmsg $s8) or (timer 7000)
        if (
lastmsg $s3// подход к скале, если линия вскапывания отдалилась от нас (срабатывает на отсутствие скалы)
            
repeat 2
                send $kskalebtn 
#wstep
            
end_repeat
            
goto start
        end_if
        set 
#a 1
    
end_while
    
goto start
end_while

:nextstep
set 
#prevx charposx
set #prevy charposy
if (#a >< 0)
    
send $nexttilebtn #wstep
    
set #a 0
end_if
send $nexttilebtn 
#wstep

if (charposx #prevx) and (charposy = #prevy) // обход припятствия от скалы в сторону чара (срабатывает на застой на месте (в том числе при упирании в скалу))
    
set #ston #ston + 1
    
set #superston #superston + 1
    
if (#ston > 2)
        
repeat 2
            send $otskalibtn 
#wstep
        
end_repeat
        set 
#ston 0
        
set #superston 0
        
set #a 1
        
goto nextstep
    
else
        goto 
nextstep
    end_if
else
    
set #ston 0
    
set #superston 0
end_if

goto start



// Перед использованием скрипта необходимо:
// Проверить чтобы не было препятствий для перпендикулярного отхода от скалы на всем ее протяжении
// Учесть что копать следует с ~юга на ~север, а не наоборот (позволяет обойти большинство багов текстур)
// не забываем юзать кирку ручками перед каждым новым стартом скрипта 
у


у меня на этом скрипте все время вылазит:
say Ping troubles! Либо вы лагаете, либо неправильно выставлена "#wmine", либо вылез антимакрос.

Добавлено через 33 секунды
сталкивался кто?

Последний раз редактировалось капитан какао; 10.01.2017 в 13:28.. Причина: Добавлено сообщение
капитан какао на форуме   Ответить с цитированием
Re: МАКРОСЫ
Старый 29.01.2010, 00:13   #34
Гопнег
The Hero
 
Аватар для Гопнег
 
Регистрация: 28.02.2009
Адрес: никто не приютил :(
Возраст: 15
Сообщений: 536
Репутация: 7 [+/-]
на правильном пути, пока что (от 5 до 15)
Гопнег на правильном пути, пока что (от 5 до 15)
Чар: fd2.
Гильдия: никто не приютил :(
По умолчанию Re: МАКРОСЫ

PHP код:
//by #m#i#c#a# ламбер вспомогательный ДЛЯ ЗОНЫ 
//uopilot 2.14, client v. 1.26.4b, 0 ms пауза между строк 
//f9 - LastObject
//f11 - LastObject+Waitfortarget+LastTarget
:start
send f11 500
// f11 LastObject+Waitfortarget+TargetLast
:asd
set timer
while_not 
(lastmsg You can't) or (lastmsg There are no logs) or (lastmsg far away) or (lastmsg chopping)
if (lastmsg You put) or (timer > 5000)
goto start
end_if
if (lastmsg You hack) 
wait 1500
end_if
end_while
send f9 250
while target = 1
end_while
goto asd 
таргет появляеться сам вырубает как вырубит появляеться новый таргет и так далее
__________________
На земле нет ничего такого хорошего, что в своем первоисточнике не имело бы гадости.
Гопнег вне форума   Ответить с цитированием
СКРИПТ НА ФИШИНГ
Старый 06.02.2010, 13:43   #35
IYDA
Newbie
 
Регистрация: 04.09.2009
Сообщений: 52
Репутация: 1 [+/-]
имеет нулевую репутацию
IYDA имеет нулевую репутацию
Чар: IYDA
По умолчанию СКРИПТ НА ФИШИНГ

PHP код:
//-----------FISHING-------------
gosub fishingsub //вылов рыбы 
//13 тайлов по мосту
repeat 13
send PageDown 200 
//направление движения. Изменить на нужное
end_repeat
end_repeat 
//идем по берегу на исходную точку 7 тайл.
repeat 27 //один тайл на разворот.
send home 200
end_repeat
send PageDown 200 
//разворот.
// сколько циклов сделали за ночь (для оптимистов и статистиков)
set #counter #counter +1
:fishingsub //fishing sub
// энта часть заимствована у кого-то, но оптимизирована и доработана до слабой узнаваемости.
for #y -6 6 1 // !!!воот тут, если копаете с берега, а не с моста,
for #x -6 6 1 // !!!надо подправить макс координаты по X и Y.
:fishing //подпрограмма вылова рыбы
set lasttargetx charposx #x
set lasttargety charposy #y
set lasttargetkind 2
send F1 1000 
// LastObject, WaitForTarget, LastTarget
set timer 0
while_not 
(lastmsg pull) or (lastmsg fail) or (lastmsg Try) or (lastmsg quick) or (lastmsg no fish) or (timer 6000)
end_while
if (lastmsg Try) or (lastmsg quick) or (lastmsg no fish) or (lastmsg fail)
wait 1500 // задержка после неудачного использования на удочке.
end_if
 
if (lastmsg pull) and (wght 620//!!! если цель просто прокачка, это можно отключить для экономии времени.
drag 406298 404254 all // перетаскивание рыбы на себя.
drag 406298 404254 all // перетаскивание рыбы на себя.
wait 500
end_if
 
if lastmsg destroer //сломалась удочка
send f3 500 //!!! в ассисте - target type на удочку
double_left 81068 //!!! координаты удочки в руке. Надежнее, чем брать из пака.
wait 500
send f2 1000
end_if
if_not 
(lastmsg are no fish) or (lastmsg Try) or (lastmsg pull
//!!! последний or - ловля будет продолжаться только один раз вместо ловли до no fish
//если длина берега достаточная, это ускоряет процесс ловли и прокачки. 
//Если скилл меньше 60, то имеет смысл поставить // перед or (lastmsg pull) 
goto fishing // процедура вылова рыбы.
end_if
end_for
end_for
return //fishing 
 
 
дополнение к скрипту
//паузы скрипта фишинга чтобы скрипт не прервался в какой-нибудь неудобный момент
if lastmsg world
pause_script 3 
//!!!номер останавливаемого скрипта прописать надо!
wait 10000
say Save the Power of Macros
//эт чтобы сбросить Lastmsg
resume_script 3 //!!!номер останавливаемого скрипта прописать надо!
end_if
// проверка - не убивают ли вас, пока вы спокойно удите..
if (lastmsg hit) or (lastmsg attacking you) or (hits str)
repeat 3
say guards
wait 1000
end_repeat
end_if 
IYDA вне форума   Ответить с цитированием
Ответ



Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ПВП макросы MDEA Ньюби Таун 35 08.07.2007 17:23
Про макросы! Dvalin Ньюби Таун 3 21.02.2007 20:51





Powered by: vBulletin® Version 3.8.7
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
© 2004-2024 Forgotten World