Oskom Forums

Oskom Forums


Добро пожаловать на Oskom Forums.
 
 
Сейчас на шардах UO Oskom
 
+ Ответить в теме
Страница 20 из 30 ПерваяПервая ... 10 18 19 20 21 22 ... ПоследняяПоследняя
Показано с 381 по 400 из 588

Тема: Скрипты

  1. #381

    По умолчанию

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

    Учавствуют два чара :
    1- кому качаем тактику, хилинг и врестлинг (легко подправить под какой нить свордмэншип например)
    2- кукла. Если хотим парринг то ставим себе в руки щит и становимся вместо куклы.
    Тестил сегодня цлый день - вроде не слетал.
    Умирать персы будут только при плохом коннекте (у меня коннект средний но не дохли ни разу)


    Вот 1-ый чар :
    Код:

    set $a Имя_Чара: aaa // ставим имя куклы
    set $b Имя_Чара: bbb // ставим имя куклы
    set $c You are a healer not medicineman, come closer!
    while 1 = 1
    send F1 // Ф1 - аттак ласт
    set $l lastmsg
    if $l = $a
    wait 200
    send F2 //Ф2 - вар/пеас
    wait 200
    while charposx = 1688 and charposy = 2170 //(*)
    send PageUp
    end_while
    wait 500
    while 1 = 1
    send F3 // Ф3 - ласт обект
    WaitForTarget 5000
    wait 100
    Left 159, 180 // координаты хилов куклы
    wait 50
    set $k = lastmsg
    if $k = $c
    wait 100
    send End
    wait 100
    end_if
    wait 3900
    set $l lastmsg
    if $l = $b
    if hits < 158 //158 - ваша сила
    send F3
    WaitForTarget 5000
    wait 100
    Left 399, 258 // координаты вашего персонажа
    //^^^^можно заменить на send F4
    //(Ф4- ласт обект-вэйт таргет-таргет селф)
    end_if
    while stam < 2
    wait 1000
    end_while
    Break
    end_if
    end_while
    wait 100
    send F2
    wait 500
    while_not charposx = 1688 and charposy = 2170 //(*)
    wait 100
    send End
    wait 100
    wait 100
    end_while
    end_if
    end_while



    Задержка между строк: 0


    (*) - координаты вашего чара номер 1, когда непосредственно между ним и куклой ровно 1 клетка



    Чар номер 2 (тобишь кукла) :

    Код:

    send F1 //Ф1 - вар/пис
    if hits = 147 //147 - кол-во силы куклы
    repeat 3
    send F1
    say bbb
    repeat 4
    send F1
    end_repeat
    end_repeat
    end_if
    if hits < 90
    send F1
    repeat 3
    send F1
    say aaa
    repeat 4
    send F1
    end_repeat
    end_repeat
    end_if


    Задержка между строк 50

    Теперь о порядке запуска:
    1-ое окно:

    1) загружаем в 1-ого чара бинтов (я загружаю по 4к - хватает надолго)

    2) используем бинты на кукле

    3) выносим табличку со здоровьем куклы (не забываем изменить координаты в скрипте)

    4) открываем свои статы(они должны быть развернутые - ну без полосочек а где циферками все написано)

    5) ставим главного чара непосредственно рядом с куклой(не на куклу а именно рядом) + очень важно чтобы главный чар относительно куклы стоял на севере.(до того как встать рядом с куклой встаньте в вар режим аттаканите куклу и выключите вар режим)

    (не забудьте заменить координаты в скрипте для клетки через одну от куклы (тоже севернее))

    6) Переключаем на вар мод

    Подготовка куклы :

    1) Она готова =) (статы куклы тоже должны быть в развернцтом режиме (не там где полосочки ,а там где циферки(жизнь,сила и т.д.))

    Теперь запускаем оба пилота (сначала запускается пилот для куклы) и идем спать.

    вроде ничего не забыл, удачи... жду критики =))

  2. Master

    Регистрация
    21.04.2006
    Адрес
    lolwhat?
    Сообщений
    1,296
    #382

    По умолчанию

    Вообщем я создание ленивое
    Искал тут у вас скрипт на Провокацию. Не нашел.
    Решил написать сам, оказалось не трудно

    Provocation , с хавчиком
    Код:
    // __! ПРОВОКАЦИЯ !__
    // #1 и #2 - это координаты папердола лошадей. 
    // сделал именно через папердолы, т.к. лошади не стоят на //месте и координаты могут сбиватся.
    repeat 1
    send f1 // useskill Provocation
    waitfortarget
    move 711, 581 // #1
    left 711, 581 // #1
    waitfortarget
    move 561, 580 // #2
    left 561, 580 // #2
    wait 2s
    end_repeat

  3. #383

    По умолчанию

    вот простенький скрипт на провокацию
    перед запуском надо
    1 поесть
    2 спровоцировать животину саму на себя
    в уо биндим кнопки
    F1 LastObject
    F2 UseSkill Provocation
    WaitForTarget
    LastTarget
    WaitForTarget
    LastTarget

    ивот сам скрипт:

    send F1
    repeat 30
    send F2
    wait 3s //время можно подкорректировать =)
    end_repeat

  4. #384

    По умолчанию

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

    1 биндим в УО F1 LastObject WaitForTarget LastTarget
    2 идём в пещеру, предварительно поев
    3 встаём ф хайд (можно и не вставать конешно)
    4 капаем разок
    5 запускаем скрипт

    Код:
    set $s1 You put the
    set $s2 You loosen some rocks
    set $s3 Your skill
    set $s4 There is no ore here to mine
    set $s5 That is too far away.
    set $s6 Try mining in rock
    set $s7 You have no line of sight to that location
    set $s8 You can't see the target
    
    set #tx1 charposx - 4
    set #tx2 charposx + 4
    set #ty1 charposy - 4
    set #ty2 charposy + 4
    
    set lasttargetz charposz
    set lasttargetkind 3      //    Static
    set laststatictype 1342   //    тип тайла в пещере
    set #MaxReadLM 200        //    скока раз ждать сообщения
      
    for #tx #tx1 #tx2
        for #ty #ty1 #ty2
            set lasttargetx #tx
            set lasttargety #ty
            send F1 // LastObject WaitForTarget LastTarget
            gosub WaitMessage
        end_for
    end_for
    stop_script
    
    :WaitMessage
        set #rep 0
        while #rep < #MaxReadLM
            set $lm lastmsg
            if ($lm = $s1) or ($lm = $s2) or ($lm = $s3)
                send F1 // LastObject WaitForTarget LastTarget
                wait 200
                set #rep 0
            end_if
            if ($lm = $s4) or ($lm = $s5) or ($lm = $s6) or ($lm = $s7) or ($lm = $s8)
                set #rep #MaxReadLM
            end_if
            set #rep #rep + 1
        end_while    
    return

  5. #385

    По умолчанию

    set #xx charposx // текущие координаты чара
    set #yy charposy

    где он их должен брать?? у мя везде 0 , 0

    ненаю, кажется в этом трабл.. деревяь стоя на месте кучит так что дай Бог каждому

    ??

  6. Grandmaster

    Регистрация
    21.12.2002
    Адрес
    [Sith]- Профсоюз. I'm Choosen One. Memento Mori. Рукавичко[Нефармат]
    Сообщений
    2,537
    #386

    По умолчанию

    Ты не забыл поставить во вкладке "еще" версию клиента 2.0.3?

  7. #387

    По умолчанию

    не, 2.0.3
    но при калибровке пишет, что в версии 2.0.3 не трубуется

    у мя уоп версии 1.02 бетта, на всякий случай дайте ссылочку на версию поновее ^_*

  8. #388

    По умолчанию

    Часть сферы перевели на русский теперь вместе lastmsg there is no пишет "Тут не осталось руды" следовательно все скрипты на мининг не работают
    Подскажите скрипт чтобы чар сам ходил и копал

  9. Grandmaster

    Регистрация
    21.12.2002
    Адрес
    [Sith]- Профсоюз. I'm Choosen One. Memento Mori. Рукавичко[Нефармат]
    Сообщений
    2,537
    #389

    По умолчанию

    Такие скрипты тут не выкладывают. Пиши сам. Часов за восемь напишешь.

  10. Master

    Регистрация
    21.04.2006
    Адрес
    lolwhat?
    Сообщений
    1,296
    #390

    По умолчанию

    Немного разъясню ситуация на счёт Руссифицированных сообщений (системных).
    Вообщем...вы знакомы с юникодом надеюсь?
    Я могу конечно ошибатся, для начала, скачайте вместо uoPilot UOH...и попробуйте тупо вписать -
    if lastmsg Ты копалка?
    и зарабатотает, то радуемся %) Если не катит, то тогда надо будет переводить "Русский текст" в тот же русский но на юникод буковках... %)
    сайт UOH - http://rbg.al.ru/uoh/
    На счёт перевода, я думаю вы сможете сами скачать какойни-ть TogerPad и перевести? А то мне лень %))

  11. Apprentice

    Регистрация
    16.04.2006
    Адрес
    Зачем вообще что-то писать если мы все равно все умрем! =(
    Сообщений
    104
    #391

    По умолчанию

    Ответ насчет русских сообщений в Уопилоте:
    В закладке Еще>Char Parameters есть промежуток где написаны сообщения которые принимаются с сервера, копируем и вставяем - работает! Насчет руды выглядит так:
    lastmsg "CB (= lastmsg Тут не осталось руды).

  12. Master
    [Banned]
    Регистрация
    28.05.2006
    Адрес
    По стене ползет верблюд, Все коленки ободрал... Ну и пусть себе ползет! Йогурт сэмЭчки грызет ;)
    Сообщений
    1,284
    #392

    По умолчанию

    Вот скрипт на добычу веток

    Код:
    //Перед запуском обезательно хотябы один раз добыть ветку
    :go
    repeat 10000
    send f1 //Ласт обжект,ласт тагрет, мона ставить на свои 
    //кнопки
    if lastmsg There is no wood left to harvest
    goto vibor
    end_if  
    end_repeat
    
    :vibor
    repeat 999 //количисьво попыток найти дерево
    send f2 //ласт обджект
    wait 1s //время на поиски одного дерева
    if  lastmsg You put the kindling in your pack//Для
    //того если промахнулись и нажали не на дерево
    goto go 
    end_if
    end_repeat
    //по советам,глюкам,замечанием,дополнением и т.п писать
    // на мейл slam91@list.ru или в асю 275286282
    Кстате если кто зделает функцию проверки на перевес и рекол буду благодерен

  13. #393

    По умолчанию

    Цитата Сообщение от Hostler
    Дайте скрипт на переплавку айрона по одному.
    На:
    // Smelt by 1
    drag 901, 533 975, 534 1 //1е координаты - куча
    //2е - куда тащим (любое место в паке, я предпочитаю угол по диагонали от кучи)
    wait 1s
    double_left 968, 522 // новообразовавшаяся кучка из 1 руды
    //координаты слегка ДРУГИЕ чем куда тащишь
    wait 1s

    По настройке скрипта:
    1.Кладем куче руды в 1 угол пака. вставляем ее координаты в пилота.
    2.Вставляем произвольные координаты места, куда перетащить 1 руду.
    3. ЗАПУСКАЕМ скрипт.
    4. Как только перетащит, ОСТАНАВЛИВАЕМ
    5. вставляем координаты 1 руды (т.е. новой кучи).
    6. ЗАПУСКАЕМ... и идем курить (или еще куда нить, по интересам короче). минут через 15 - 20 все переплавится.

    Когда останется 2 - 3 штучки от большой кучи - скрипт собьется, но это не страшно...там уже и ручками можно...

  14. Apprentice

    Регистрация
    13.06.2006
    Адрес
    Забил....реал интересней, скиллов разных побольше :)
    Сообщений
    149
    #394

    По умолчанию

    как сделать чтоб эта дрянь на лагах из айрона гвозди не делала ?

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

  15. Grandmaster

    Регистрация
    21.12.2002
    Адрес
    [Sith]- Профсоюз. I'm Choosen One. Memento Mori. Рукавичко[Нефармат]
    Сообщений
    2,537
    #395

    По умолчанию

    Проверкой цвета, а вобще мой совет-юзать УО скрипт.

  16. Apprentice

    Регистрация
    13.06.2006
    Адрес
    Забил....реал интересней, скиллов разных побольше :)
    Сообщений
    149
    #396

    По умолчанию

    кто нить напишите плз, как проверять цвет

  17. Master

    Регистрация
    21.04.2006
    Адрес
    lolwhat?
    Сообщений
    1,296
    #397

    По умолчанию

    Цитата Сообщение от Samanat
    кто нить напишите плз, как проверять цвет
    Проверка цвета в определенных координатах:
    if <коорд> <цвет> [цвет2]
    Если цвет в точке <коорд> равен <цвет>
    Примечание: если задан цвет2, то цвет точки проверяется на принадлежность диапазону от цвет до цвет2. Учтите, что проверка цвета в определенных координатах корректно работает только при развернутом окне ультимы.

  18. Expert

    Регистрация
    28.10.2004
    Адрес
    Lokrus[Siberia] , [R.C.]
    Сообщений
    627
    #398

    По умолчанию

    Давно не бегаю на пилоте, но тут недавно слегка поспорили с другом, пишется ли на пилоте парализ филд под ласттаргет, оказалось - легко пишется. В вынесенном топике подобных скриптов не нашел, поэтому решил выложить.
    set #lt LastTargetID
    set lastspell 46
    set LastTargetKind 2
    send f6 // lastspell
    waitfortarget 3000
    send f5, 500 // lasttarget
    set LastTargetID #lt
    set lasttargetkind 1
    end_script

    и вот еще из написанного за последний год, удобный скриптик для выкладывания товара на вендора. Биндим на кнопку, перетаскиваем итем на вендора, жмем кнопку.
    say price 11000
    waitfortarget
    set lasttargetid lastliftedid
    send f5, 500 // lasttarget
    end_script

  19. #399

    По умолчанию

    Цитата Сообщение от Hostler
    Ответ насчет русских сообщений в Уопилоте:
    В закладке Еще>Char Parameters есть промежуток где написаны сообщения которые принимаются с сервера, копируем и вставяем - работает! Насчет руды выглядит так:
    lastmsg "CB (= lastmsg Тут не осталось руды).
    "CB в переводе с юникода означает тут. UOPilot воспринимает из русского сообщения от сервера только одно слово до первого пробела. Сообщения "Тут не осталось руды" и "Тут не осталось пригодной древисины" выглядят одинаково. Таким образом данный обходной маневр можно использовать только для первых слов сообщений, если попытаться перевести на юникод слово из середины сообщения и использовать его - ничего не получится. Хочется надеяться, что ситуация будет исправлена в новых версиях пилота, новее 2.05. Кстати, кто-нибудь скачивал версию 2.07 или 2.08? В 2.07 заявлено, что исправлена проблема с непечатными символами, может это как-то поможет?
    Добавлено:
    Не поможет - в 2.0.8 та же беда.

  20. #400

    По умолчанию

    Народ вот неиграл давно, может кто поможет?
    Хотел покопать руды на продажу... не тут то было, пока меня небыло перевели системки на русский... ниодин макрос под пилотом непашет...
    Вот вложу строчку, может кто расскажет как щас сделать чтобы снова работало... Заранее спс. Wink


    while_not lastmsg mine.
    send F4 500

Ваши права

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