Перейти к содержанию
Форум шарда Middle-Earth

Catscan

Members
  • Публикаций

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

  • Посещение

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


  1. sub main()

    UO.Addobject("device")

    UO.Print("Choose the object to poison!")

    while uo.targeting()

    wait(100)

    wend

    while UO.Count("0x0F0E",0x0694)>0

    UO.Findtype("0x0F0E",0x0694,-1)

    wait(100)

    UO.Waittargetobject('finditem','device')

    UO.Useskill("Poisoning")

    wait(10000)

    wend

    end sub

     

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


  2. sub main()

    var num_of_potions, type_of_work, side_of_recipe, num_of_page, num_4_make, cast_bless

    var x_rlist, y_rlist, x_lbtn, y_lbtn, x_rbtn, y_rbtn,x_okbtn, y_okbtn, i, k

     

    num_of_potions = 1000 ; количество поушенов для изготовления

    type_of_work = "numr" ; тип работы скрипта: для изготовления определенного количества указать nump, для работы, пока не кончаться реги numr

    side_of_recipe = 1 ; 0 - левая страница, 1 - правая страница

    num_of_page = 0 ; номер страницы. 0 это первая страница

    num_4_make = "20" ; сколько делать поушенов (вводиться в строку после выбора типа поушена)

    cast_bless = 0 ; кастовать ли bless на себя

    x_rlist = 462 ; x - координата правого листа, для переворачивания страниц

    y_rlist = 165 ; y - координата правого листа, для переворачивания страниц

    x_lbtn = 294 ; x - координата левой кнопки приготовления поушена

    y_lbtn = 282 ; y - координата левой кнопки приготовления поушена

    x_rbtn = 451 ; x - координата правой кнопки приготовления поушена

    y_rbtn = 280 ; y - координата правой кнопки приготовления поушена

    x_okbtn = 320 ; x - координата кнопки "ОК"

    y_okbtn = 307 ; y - координата кнопки "ОК"

     

    if ((cast_bless == 1) and (UO.Count(0x0F84) > 0) and (UO.Count(0x0F86) > 0)) or (cast_bless == 0) then

     

    ###################### Часть выполнения, если тип работы по количеству регов и бутылок ################################

    if type_of_work == "numr" then

    While (UO.Count(0x0F88) > 19)

     

    # книга рецептов

    UO.Exec("usetype 0x0fbd")

    wait(500)

     

    # если первая страница, то не переворачиваем

    if (num_of_page <> 0) then

    # если не первая, то нажимаем на уголок страницы нужное количество раз

    for i=0 to num_of_page

    UO.LClick(x_rlist, y_rlist)

    Wait(300)

    next

    endif

     

    # кликаем на кнопку приготовления

    if side_of_recipe == 0 then

    UO.LClick(x_lbtn, y_lbtn)

    wait(500)

    endif

     

    # кликаем на кнопку приготовления

    if side_of_recipe == 1 then

    UO.LClick(x_rbtn, y_rbtn)

    wait(500)

    endif

     

    # говорим, сколько сделать поушенов и ждем

    UO.Say(num_4_make)

    UO.LClick(x_okbtn, y_okbtn)

    wait(10000)

     

    while uo.life < uo.str

    uo.exec("bandageself")

    wait(5000)

    wend

     

    wend

    endif

    end sub


  3. Автосмена в спаринге: я делал так, кто-то конечно скажет что у меня круче, но я перелопачивал первый попавшийся скрипт :)

    sub main()

    while UO.life > 0

    UO.exec('waittargetself')

    UO.exec("useskill 'Evaluating Intelligence'")

    wait(2000)

    uo.exec("usetype '0x097B'")

    wait(3000)

    UO.exec("equipt Rhand 0x0f51")

    wait(5000)

    wend

    end sub

    UO.exec("equipt Rhand 0x0f51") - тип предмета который будет браться в руку, узнать мона командой ,info.


  4. Я не адский скриптер, обычно делаю просто чтобы работало :)

    Автохил:

    sub main()

    while not uo.dead()

    while uo.life < 130

    uo.exec("bandageself")

    wait(5000)

    endif

    wend

    wend

    end sub

     

    Переплавка руды: руду кинуть в любой контейнер, а контейнер в пак. (чтобы грабить 2 руды "UO.exec("grab 2 ore");")

    sub main()

    while UO.count("0x19B9") > 0

    while UO.count("0x19B9") > 0

    UO.waittargettype("0x19B9");

    UO.exec("addobject 'ore'");

    UO.exec("grab 1 ore");

    UO.useobject("ore");

    UO.print(STR(UO.count("0x19B9")));

    wait(500);

    wend

    wait(2500);

    wend

    end sub

    Ну и как вопрос: зачем по 2 руды плавить? тогда мининг растет на переплавке?

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