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

Скрипты / просьбы скриптов

Рекомендуемые сообщения

Привет всем ) играл года 3 назад или больше...щас вот опять решил, когда есть время =)

Как я понял тот форум невосстановиться , а новичкам было бы очень приятно и полезно посещать сию тему, если суда будут скидывать скрипты которые пригодяться новичкам ....Мининг,спаринг,перплавка руды и тд и тп...Ну и другие скрипты тоже конечно...заранее спасибо

p.s если создал не в том разделе извеняюсь или тему со скриптами с того форума восстановят , то пардон.

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
Скрипты на автоВЭЙТкаста, догонялки, юморфы, ресенды, автохилы, автострелки и тд есть, короче ток пвпшные )

За биг лаве )

 

барыга :)

 

Alchemy [Алхимия]

 

Варим ГХ ;)

 

 

sub main()

Var i, List

List = 0 # кол-во перелистываний

WHILE not UO.dead()

If UO.STR<110 Then

uo.exec("cast '16' self") # кастует на себя силу(реги нс и мр)

wait(1000)

wend

else

end if

havka()

If UO.Life<UO.STR Then

UO.Exec("bandageself") #Бинтов в сумку класть с запасом

Wait(3000)

Else

UO.Exec("usetype 0x0FBD") #книгa

Wait(1000)

For i=1 to List

UO.LClick(459,164) # Координаты угла книги

Wait(1000)

Next

UO.LClick(451,281) # координата Поушена

Wait(1000)

UO.Say("20")

If UO.InJournal("You don't have enough reagents") or UO.InJournal ("You don't have bottles")then

end sub

end if

While UO.InJournal("You grind the reagents") or UO.InJournal("Saving World State") or UO.InJournal("You create the potion and put it in your backpack") or UO.InJournal("You pour out the useless mixture")

if UO.InJournal("Saving World State")then

uo.deletejournal()

wait(20000)

else

uo.deletejournal()

wait(2000)

end if

wend

endIf

wend

sub havka()

if UO.Count("0x097B")>0 then #жаренная рыбка -)

UO.usetype ("0x097B")

Wait(700)

else

UO.Print("Еда закончилась……помру-)")

end if

end sub

 

У меня последний раз когда варил , максимально взрыв отнимал 100-110,

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

Чтобы потом не пришлось бегать поутру о хеларям-)

 

 

Варим ГП

sub main()
Var i, List
List = 1 # кол-во перелистываний
WHILE not UO.dead()
If UO.STR<110 Then
uo.exec("cast '16' self")
wait(1000)
wend
else
end if
havka()
If UO.Life<UO.STR Then
UO.Exec("bandageself") #Бинтов в сумку класть с запасом
Wait(3000)
Else
UO.Exec("usetype 0x0FBD") #книгa
Wait(1000)
For i=1 to List
UO.LClick(459,164) # Координаты угла книги
Wait(1000)
Next
UO.LClick(295,283) #Поушен
Wait(1000)
UO.Say("20")
If UO.InJournal("You don't have enough reagents") or UO.InJournal ("You don't have bottles")then
end sub
end if
While UO.InJournal("You grind the reagents") or UO.InJournal("Saving World State") or UO.InJournal("You create the potion and put it in your backpack") or UO.InJournal("You pour out the useless mixture")
if UO.InJournal("Saving World State")then
uo.deletejournal()
wait(20000)
else
uo.deletejournal()
wait(2000)
end if
wend
endIf
wend
sub havka()
if UO.Count("0x097B")>0 then #жаренная рыбка -)
UO.usetype ("0x097B") 
Wait(700)
else
UO.Print("Еда закончилась……помру-)")
end if 
end sub

 

B)

 

Варим ДедлиПойзон

sub main()
Var i, List
List = 1 # кол-во перелистываний
WHILE not UO.dead()
If UO.STR<110 Then
uo.exec("cast '16' self")
wait(1000)
wend
else
end if
havka()
If UO.Life<UO.STR Then
UO.Exec("bandageself") #Бинтов в сумку класть с запасом
Wait(3000)
Else
UO.Exec("usetype 0x0FBD") #книгa
Wait(1000)
For i=1 to List
UO.LClick(459,164) # Координаты угла книги
Wait(1000)
Next
UO.LClick(451,281) #Поушен
Wait(1000)
UO.Say("20")
If UO.InJournal("You don't have enough reagents") or UO.InJournal ("You don't have bottles")then
end sub
end if
While UO.InJournal("You grind the reagents") or UO.InJournal("Saving World State") or UO.InJournal("You create the potion and put it in your backpack") or UO.InJournal("You pour out the useless mixture")
if UO.InJournal("Saving World State")then
uo.deletejournal()
wait(20000)
else
uo.deletejournal()
wait(2000)
end if
wend
endIf
wend
sub havka()
if UO.Count("0x097B")>0 then #жаренная рыбка -)
UO.usetype ("0x097B") 
Wait(700)
else
UO.Print("Еда закончилась……помру-)")
end if 
end sub

 

зы все пашет :P

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

по одной никто не плавит - плавят по две!

sub Plavka()

while true

uo.findtype("0x19B9", -1, "ground")

uo.grab(2, "finditem")

while uo.count('0x19B9') == 0

wait(200)

wend

uo.usetype('0x19B9')

uo.deletejournal()

repeat

wait(500)

until uo.injournal("You put") or uo.injournal("You destroy")

wend

end sub

 

прописать оре - как руду..... кидать всю на землю и запускать скрипт....

ЗЫ стоять рядом с форжем :)

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

sub AutoHeal()
  var t

  repeat
    if uo.dead() == false then
      while uo.life < uo.str * 0.9
        uo.bandageself()
        uo.deletejournal()
        t = 0
        repeat
          wait(500)
          t = t + 1
        until uo.injournal("healed") or (t > 20) or (uo.life == uo.str)
        uo.concolor(0x58)
        uo.print("healing ready")
        uo.concolor(0)
      wend
    endif

    wait(500)
  until uo.dead()
end sub

 

P.S. У нас с Мишариком есть всё :).

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Вот нашел скриптик на BowCraft но возникли небольшие трудности:

 

#####################################################################

; Bowcraft2. v.1.01b © Edred

;

; Чар берет из сундука шафты и перья, крафтит из них стрелы и

; складывает эти стрелы в этот же сундук.

; Если шафты или перья закончились - выход.

;

sub bowcraft2()

VAR Sunduk = '0x404CFAA3' ; Сериал сундука

VAR Shafts = '0x1BD4' ; Тип шафтов

VAR Feather = '0x1BD1' ; Тип перьев

VAR Arrows = '0x0F3F' ; Тип стрел

VAR Kolvo = 1 ; Брать шафтов для одного крафта

VAR k = 0, j

UO.CancelMenu()

UO.AutoMenu ('Select arrow type', 'arrow' )

While TRUE

If UO.Count( Shafts ) == 0 Then

UO.FindType( Shafts, -1, Sunduk )

If UO.FindCount() == 0 Then

UO.Print("Shafts not found, script terminated")

return

Endif

UO.Grab( Str( Kolvo ), 'finditem' )

wait(500)

while UO.Count( Shafts ) < Kolvo

wait(100)

wend

CheckLag()

Endif

If UO.Count( Feather ) == 0 Then

UO.FindType( Feather, -1, Sunduk )

If UO.FindCount() == 0 Then

UO.Print("Feather not found, script terminated")

return

Endif

UO.Grab( Str( Kolvo ), 'finditem' )

wait(500)

while UO.Count( Feather ) < Kolvo

wait(100)

wend

CheckLag()

Endif

UO.DeleteJournal()

UO.UseType( Shafts )

k = 0

while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 50 )

k = k + 1

wait(300)

wend

If UO.Count( Arrows ) > 0 then

UO.FindType( Arrows, -1, -1 )

UO.MoveItem( 'finditem', 0, Sunduk )

wait(500)

while UO.Count( Arrows ) > 0

wait(100)

wend

UO.Print( 'Arrows moved' )

Endif

Wend

end sub

 

Непрнятно где брать сериал сундука или как его адаптировать под минл?

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

sub Bowcraft()
  while uo.count("0x1BD1") > 0
    uo.findtype("0x1BD4", -1, "ground")
    uo.grab(1, "finditem")
    
    repeat
      wait(250)
    until uo.count("0x1BD4") > 0

    uo.waitmenu("What", "Arrow")
    uo.waittargettype("0x1BD1")
    uo.usetype("shaft")

    uo.deletejournal()
    repeat
      wait(250)
    until uo.injournal("You create") or uo.injournal("You destroy")
    
    if uo.injournal("hungry") or uo.injournal("hurts") then
      repeat
        uo.usetype("food")
        wait(500)
      until uo.injournal("You are full, and")
    endif
  wend
end sub

 

Перья в пак, шафты на пол. Прописать в object types тип food - любая еда. Работает не у всех, только я не знаю, почему О_о. Качал себе им боукрафт.

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

На прокачку чисто стеллса или дексы:

sub Stealth()
  while not uo.dead()
    if uo.hidden() == 0 then
      uo.useskill("Hiding")
      wait(5000)
    endif
    
    uo.useskill("Stealth")
    wait(5000)
  wend
end sub

На прокачку хайдинга и стеллса:

sub Hiding()
  while not uo.dead()
    uo.useskill("Hiding")
    wait(5000)
    uo.useskill("Stealth")
    wait(5000)
  wend
end sub

На жратву (прописать тип объекта food - любая еда)

sub eat()
  while true
    if uo.injournal("hungry") or uo.injournal("hurts") then
      repeat
        uo.usetype("food")
        wait(1000)
      until uo.injournal("You are full, and")
      uo.deletejournal()
    endif

    wait(5000)
  wend
end sub

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

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

качается на чтении свитков (т.к. мне проще наделать свитков, чем реги собирать/покупать)

в руках ничего быть не должно, иначе свитки читаться не будут

если вот эти две строчки

UO.WaitTargetObject('self')

UO.Exec("useobject '^0x1F5F'")

заменить на

UO.Cast('вписать нужное заклинание','self')

то можно качать как обычно, на регах

если вы качаете не на чистой магии, а на цветной, где заклинания надо говорить, то меняете на

UO.WaitTargetObject('self')

uo.serverprint(".cast вписать нужное заклинание")

 

Sub main()

aaa:

UO.Exec("useobject '^0x097b'") # прописана жареная рыба, чтобы кушал

Wait(300)

UO.WaitTargetObject('self')

UO.Exec("useobject '^0x1F5F'") # прописан свиток флеймстрайка

Wait(5000)

UO.UseSkill('Meditation')

Wait(300)

bbb:

If UO.STR==UO.Life Then

goto ccc

Else

UO.BandageSelf()

Wait(5000)

goto bbb

Endif

ccc:

If UO.INT==UO.Mana Then

goto aaa

Else

Wait(3000)

goto ccc

Endif

goto aaa

Endsub

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

на хаммер

 

фразы на майнинг

 

[strings to continue]

You cannot

You are

The patient

What you

Who would

What you

Previous

There is no guardzone here

Targetting

You begin

[strings to end]

There is

That is too far away

Cancelled.

 

фразы на ламбер

 

[strings to continue]

You have found some deadwood

You have angered a Wood Spirit

An Ent appears to defend his forest!

Ouch! Forest guardians are angry on you!

[strings to end]

You cannot

There's not

Cancelled

 

скрипт на хилинг - автохил сделать не получилось, пока допер только использование бинтов с задержкой времени, может, кто сможет его и улучшить

 

void ataka()

{

start:

{

Sleep(10000);

}

HR.Talk(".bandage self");

goto start;

}

 

это все со старого форума, срипт там был на автовызов гвардов, я сделал замену на использование бандаг

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

С переплавкой тишина :(

Я вот на старом форуме успел найти скрипт на МИНИНГ

 

sub main() # перед запуском выключите Num Lock

var i,x

var a=7 # величина ромба по периметру которого ходит чар.

wait(1000)

while not UO.dead()

for i=1 to a

start1:

UO.DeleteJournal()

wait(100)

uo.exec("usetype 'pickaxe'") # в обжект тайп прописать кирку под именем pickaxe

wait (500)

UO.LClick (400,311)

wait (1500)

uo.exec("usetype 'pickaxe'")

wait (500)

UO.LClick (383,236)

wait(10000)

If not (UO.InJournal("no ore here to mine.") or UO.InJournal("you cannot mine that.")) then

UO.DeleteJournal()

goto start1

endif

uo.press(34)

next

for x=1 to 1

wait(500)

uo.press(35)

next

for i=1 to a

start2:

UO.DeleteJournal()

wait(100)

uo.exec("usetype 'pickaxe'")

wait (500)

UO.LClick (400,311)

wait (1500)

uo.exec("usetype 'pickaxe'")

wait (500)

UO.LClick (383,236)

wait(10000)

If not (UO.InJournal("no ore here to mine.") or UO.InJournal("you cannot mine that.")) then

UO.DeleteJournal()

goto start2

endif

uo.press(35)

next

for x=1 to 1

wait(500)

uo.press(36)

next

for i=1 to a

start3:

UO.DeleteJournal()

wait(100)

uo.exec("usetype 'pickaxe'")

wait (500)

UO.LClick (400,311)

wait (1500)

uo.exec("usetype 'pickaxe'")

wait (500)

UO.LClick (383,236)

wait(10000)

If not (UO.InJournal("no ore here to mine.") or UO.InJournal("you cannot mine that.")) then

UO.DeleteJournal()

goto start3

endif

uo.press(36)

next

for x=1 to 1

wait(500)

uo.press(33)

next

for i=1 to a

start4:

UO.DeleteJournal()

wait(100)

uo.exec("usetype 'pickaxe'")

wait (500)

UO.LClick (400,311)

wait (1500)

uo.exec("usetype 'pickaxe'")

wait (500)

UO.LClick (383,236)

wait(10000)

If not (UO.InJournal("no ore here to mine.") or UO.InJournal("you cannot mine that.")) then

UO.DeleteJournal()

goto start4

endif

uo.press(33)

next

for x=1 to 1

wait (500)

uo.press(34)

next

wend

end sub

 

Кстати подскажите какие строки и куда нужно вставить что бы он ещё гвардов звал ?

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Таак а теперь реально работающий скрипт от Misharik с моими изменениями. Теперь крафтит болты.

######################################################################
sub Bowcraft()
var Kolvo=1    # Вот изменение, задаем переменныю на количество шафтов спола
  while uo.count("0x1BD1") > 0
    uo.findtype("0x1BD4", -1, "ground")
    UO.Grab( Str( Kolvo ), 'finditem' )   # Далее когда грабим вводим нашу переменную, иначе он берет
                                                       # Все сразу
    
     repeat
      wait(250)
    until uo.count("0x1BD4") > 0

    uo.waitmenu("What", "Bolt")
    uo.waittargettype("0x1BD1")
    uo.usetype("shaft")

    uo.deletejournal()
    repeat
      wait(250)
    until uo.injournal("You create") or uo.injournal("You destroy")
    
    if uo.injournal("Hangry") or uo.injournal("hurts") then # Проверка журнала на предмет голодности чара
      repeat                                                                  # Проблемма в том что на мидле пишет что чар                                                                                       # проголодался по русски. По этому здесь еще                                                                                      # надо подумать
        uo.usetype("food")
        wait(500)
      until uo.injournal("You are full, and")
    endif
  wend
    
    
end sub

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Счас с челом придумали, что делать тем, у кого скрипт боукрафта работает некорректно. Пробуем:

sub Bowcraft()
  while uo.count(0x1BD1) > 0
    uo.findtype(0x1BD4, -1, "ground")
    uo.waittargetobject(uo.getserial("finditem"))
    uo.exec("grab 1")
    
    repeat
      wait(250)
    until uo.count(0x1BD4) > 0

    uo.waitmenu("What", "Arrow")
    uo.waittargettype(0x1BD1)
    uo.usetype("shaft")

    uo.deletejournal()
    repeat
      wait(250)
    until uo.injournal("You create") or uo.injournal("You destroy")
    
    if uo.injournal("hungry") or uo.injournal("hurts") then
      repeat
        uo.usetype("food")
        wait(500)
      until uo.injournal("You are full, and")
    endif
  wend
end sub

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

на бс

 

sub main()

while uo.count('0x1BF2')>9 # тут проставить кол-во ингов, необходимое для выковываемой вещи

UO.Exec("waitmenu 'What do you wish to make?' 'Armor' 'Select armor' 'Chainmail' 'Select item' 'Gnomish Chainmail Coif'") # здесь вписывается, что куем

UO.Exec("waittargetobject '^0x1BF2'")

UO.Exec("useobject '^0x13E3'")

wait(2000)

UO.Exec("waittargetobject '^0x13C0'") # здесь вписываем тип вещи, определяется командой ",info"

Wait (300)

UO.Exec("useobject '^0x0FBB'")

Wait (3000)

UO.Exec("useobject '^0x097b'") # еда, жареная рыба, или заменяем на свое

wend

end sub

 

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

наковальни и тонги постепенно ломаются

 

а по-поводу гвардов на майнинге - проще запустить отдельный скрипт, где он зовет гвардов, например, каждые 3 секунды

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Вот вам на сбор регов:

sub GetRegs(ID)
  uo.set("finddistance", 2)

  uo.findtype(ID, -1, "ground")
  while uo.getserial("finditem") <> "0x00000000"
    uo.concolor(0x35)
    uo.print("Собираю реги...")
    uo.concolor(0)
    
    uo.useobject(uo.getserial("finditem"))
    
    uo.deletejournal()
    repeat
      wait(1000)
    until uo.injournal("You put")
    
    uo.findtype(ID, -1, "ground")
  wend
  
  uo.concolor(0x35)
  uo.print("Регов нету вокруг. Что собирать?")
  uo.concolor(0)
end sub

sub GetGA()
  GetRegs(0x18E1)
end sub

sub GetMR()
  GetRegs(0x18E0)
end sub

sub GetBM()
  GetRegs(0x1F10)
end sub

sub GetGS()
  GetRegs(0x18E9)
end sub

sub GetNS()
  GetRegs(0x18E5)
end sub

Запускаем Get<Сокражение рега> и радуемся.

 

P.S. На гвардов так можно написать:

sub GuardMacros()
  while not uo.dead()
    if uo.life < uo.str then
      uo.msg(".guards")
           wait(10000)
    endif

    wait(1000)
  wend
end sub

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

можно запускать одновременно скока хошь скриптов

а на гвардов можно еще так (по-идее будет звать, когда тебя атакуют):

 

sub GuardMacros()

while not uo.dead()

if (UO.InJournal("attacking you")) then

uo.deletejournal()

uo.say(".guards")

endif

wait(3000)

wend

end sub

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

О и правда можно =) спасибо =)

а Скрипт этот я проверил не зовёт чего то =(( может не всегда когда в шахте атакуют монстры в журнале пишится что атачат? =\

 

А этот скрипт работает =)

 

sub GuardMacros()

while not uo.dead()

if uo.life < uo.str then

uo.msg(".guards")

wait(10000)

endif

 

wait(1000)

wend

end sub

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Так. Проверяем скрипт. Основная функция - Dig(). Идёт по прямоугольнику вдоль забора (не забудьте выставить размеры своего садового участка) и вскапывает тайл под собой и справа от себя. Два своих огорода вскопал нормально. Комментарии написал подробно, думаю, что не составит труда переписать это под любую местность.

 

sub Walk(dir, steps) #делает steps шагов в направлении dir
  var btn
  var moveindir = 0
  dim directions[8], buttons[8]
  
  directions[0] = "N"
  directions[1] = "NE"
  directions[2] = "E"
  directions[3] = "SE"
  directions[4] = "S"
  directions[5] = "SW"
  directions[6] = "W"
  directions[7] = "NW"
  
  buttons[0] = 33
  buttons[1] = 39
  buttons[2] = 34
  buttons[3] = 40
  buttons[4] = 35
  buttons[5] = 37
  buttons[6] = 36
  buttons[7] = 38

  if (directions[uo.GetDir()] <> dir) then
    moveindir = 1
  endif
  
  var i = 0
  while dir <> directions[i]
    i = i + 1
  wend
  
  btn = buttons[i]
  
  if moveindir then
    uo.Press(btn)
    repeat
      wait(100)
    until (directions[uo.GetDir()] == dir)
  endif
  
  if steps then
    var x, y

    for i = 1 to steps
      x = uo.GetX()
      y = uo.GetY()
    
      uo.Press(btn)
    
      repeat
        wait(100)
      until (uo.GetX() <> x) or (uo.GetY() <> y)
    next
  endif
end sub

sub DigTile(x, y) #вскапывает тайл по координатам x, y.
  uo.ConColor(0x3f)
  uo.Print("Вскапываю...")
  uo.ConColor(0)

  uo.WaitTargetTile("0", str(x), str(y), "0")
  uo.UseType(0x0F39) #лопата, гы-гы-гы :)
  
  var t = 0
  uo.DeleteJournal()
  repeat
    wait(500)
    t = t + 1
  until uo.InJournal("You dig up") or uo.InJournal("There is nothing") or t > 20
end sub

sub Dig()
  var width = 11 #ширина садового участка по оси х
  var height = 12 #ширина садового участка по оси y
  var i
  
  Walk("E", 0) #поворачиваем чара лицом на восток
  DigTile(uo.getx(), uo.gety()) #копаем тайл под чаром
  DigTile(uo.getx(), uo.gety() + 1) #и тайл по правую руку чара

  for i = 0 to width - 2 #цикл
    Walk("E", 1) #делаем один шаг на восток
    DigTile(uo.getx(), uo.gety()) #копаем тайл под чаром
    DigTile(uo.getx(), uo.gety() + 1) #и тайл по праую руку чара
  next

  Walk("S", 1) #делаем один шаг на юг
  for i = 0 to height - 3 #цикл
    Walk("S", 1) #делаем шаг на юг
    DigTile(uo.getx(), uo.gety()) #копаем тайл под чаром
    DigTile(uo.getx() - 1, uo.gety()) #и тайл по праую руку чара
  next
  
  Walk("W", 1) #делаем один шаг на запад
  for i = 0 to width - 3 #цикл
    Walk("W", 1) #делаем один шаг на запад
    DigTile(uo.getx(), uo.gety()) #копаем тайл под чаром
    DigTile(uo.getx(), uo.gety() - 1) #и по правую руку чара
  next
  
  Walk("N", 1) #делаем один шаг на север
  for i = 0 to height - 5 #цикл
    Walk("N", 1) #делаем один шаг на север
    DigTile(uo.getx(), uo.gety()) #копаем тайл под чаром
    DigTile(uo.getx() + 1, uo.gety()) #и по правую руку чара
  next
  
  uo.ConColor(0x3f)
  uo.Print("Вскапывание огорода завершено.")
  uo.ConColor(0)
end sub

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Ну вот надоело мне заряжать посох руками посему написал такой вот скриптик

sub Recharge()

if uo.GetGraphic(uo.ObjAtLayer('Lhand')) == '0x0DF0' then

goto A

endif

var L,R

L=uo.GetGraphic(uo.ObjAtLayer('Lhand'))

R=uo.GetGraphic(uo.ObjAtLayer('Rhand'))

UO.arm('b') # на арм b должен быть забинден посох

while L==uo.GetGraphic(uo.ObjAtLayer('Lhand')) && R==uo.GetGraphic(uo.ObjAtLayer('Rhand'))

wait(50)

wend

A:

UO.say(",ongump withtext 'Iaen. ca?yaia: 10' 1") #цифра означает сколько спелов влезает в посох в данном случае 10

UO.waittargettype(0x1F52) # какие спелы заряжать в данном случае парализ

UO.useobject('0x593EFE96') # сериальник посоха

endsub

 

 

 

Небольшое замечание-пожелание господину Финадану : как правило забор стоит на 4м тайле посему надо топать посредь огорода и капать справа, слева и под собой. А так спасибо огромно а теперь я то свою виллу вскопаю ) Также можно включить туда как вскопал кликать на обьект семечка чтобы и сажать сразу.

 

Я то и сам могу поправить а вот остальной народ нефакт

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

2Зёма:

Если хаммер - то значит макрос,

а если макрос то проoе хелиться в данном случае на пилоте, либо uo loop

 

 

 

Макрос на фишинг(fishing), с проверкой полома удочек,проверкой СВ.Если нет удочки окно с уо закрываеться,

дабы чара не кильнули и он не умер от голода.

 

Режет обувку на кожу,все остальное кроме БП и магик фиш выкидывает себе под ноги.

 

В сумку кладем ножницы,несколько удочек и жаренную рыбу.

Запускаем скрипт и идем спать.

 

!!!-> Чара ставить так чтоб вода была сверху и слева.Скрипт рабочий.проверено от 14.10.2006

 

sub main()
uo.exec("disarm")
var xs,ys,y,x,tile
while not uo.dead()
if UO.Count("0x0DBF")== 0 then
uo.say("Удочки нету! Нахаляву не работаю")
uo.say(",closeuo")
end if
xs=Uo.GetX()
ys=Uo.GetY()
for x=xs-5 to xs+5
for y=ys-5 to ys+5
uo.deletejournal()
Tile= GetTileWater(x, y)
if Tile then 
while not uo.injournal("any fish|fish there|complete")
uo.deletejournal()
wait(100)
havka()
SW() 
Boots()
uo.WaitTargetTile(Tile, x, y, 0)
uo.usetype('0x0DBF')
nolomka()
SW() 
dropp()
while not uo.injournal("That is too far away|The skies|fish there|biting|You catch|any fish|location|walrus comes by to|You find|complete")
wend
wend
end if
next
next
wend
UO.Print()
end sub

sub GetTileWater(x, y)
for var i=6039 to 6045
if uo.privategettile(x, y, -1, i, i) then
return i
end if
next
Return 0
end sub


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


sub SW() 
if UO.InJournal("Saving World State|Saving Game State Now")  then
repeat 
wait(200) 
until uo.injournal("Saving World State complete|Done saving") 
end if 
uo.Click('backpack') 
repeat 
wait(200) 
until uo.InJournal("Backpack") 
wait(1000)
end sub

sub Boots()
DIM Boot[8] 
;режет обувку на кожу
   Boot[0]  = 0x170A    
   Boot[1]  = 0x170B   
   Boot[2]  = 0x170C    
   Boot[3]  = 0x170D    
   Boot[4]  = 0x170E    
   Boot[5]  = 0x170F     
   Boot[6]  = 0x1710   
   Boot[7]  = 0x1711    
   VAR i 

   For i = 0 To 7
      UO.FindType( Boot[i], '-1', 'backpack') 
      if UO.FindCount() > 0 Then
            UO.WaitTargetobject( 'finditem' ) 
            UO.UseType(0x0F9E) #ножницы
            repeat
            wait(100)
            until uo.injournal("You could")
     End if
    next
end sub

sub dropp()
DIM mycop[6] 
;выкидывает выловленный мусор себе подноги
   mycop[0]  = 0x09CD #рыба   
   mycop[1]  = 0x09CE #рыба   
   mycop[2]  = 0x09CC #рыба    
   mycop[3]  = 0x099F #sos бутылка    
   mycop[4]  = 0x0DC8 #сеть   
   mycop[5]  = 0x14ED #карта сокровищ     
       
   VAR i 

   For i = 0 To 5
      UO.FindType( mycop[i], '-1', 'backpack') 
      if UO.FindCount() > 0 Then
            UO.WaitTargetobject( 'finditem' ) 
            UO.drop() 
            wait(2000) 
     End if
    next
end sub

sub nolomka()
wait(2000)
if uo.injournal("have to equip that to go") then
main()
end if
end sub

 

Тракинг (tracking)

 

Хавает опять же жаренныю рыбу

sub main()
WHILE not uo.dead()
havka()
SW()
UO.Exec("useskill Tracking")
uo.deletejournal()
      repeat
      until uo.injournal("Points")
      wait(1000)
If uo.injournal("fail") then
SW()
wait(10000)
SW()
wend
else
UO.RClick(275,46)
wait(10000)
end if
wend
end sub

sub SW() 
if UO.InJournal("Saving World State|Saving Game State Now")  then
repeat 
wait(200) 
until uo.injournal("Saving World State complete") 
end if 
uo.Click('backpack') 
repeat 
wait(200) 
until uo.InJournal("Backpack") 
wait(1000)
end sub

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

 

скрипт рабочий, если нет то мешает кривизна рук :rolleyes:

 

Fast recall без регов

sub tel()
UO.Exec("disarm")
UO.Exec("usetype '0x0EFA'")
Wait(100)
UO.LClick(65,81) #координата руны в буке(определяеться в окне редактирование скрипта в инже-кнопкой сверху)
wait(100)
UO.LClick(65,81)
UO.Say("In Vas Por")
UO.Say("Wis Qas")
end sub

 

 

Шитье (Tailoring)

full power не ексепт

 

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

В сумку класть набор для шитья и повер кожу, и рыбу на хавку.

 

sub main()
sv()
UO.Exec("waitmenu 'Choose' 'leather' 'What' 'Tunic'")
UO.Exec("waittargettype 0x1078") #power кожа
UO.Exec("useobject '^0x0F9D'") #набор для шитья
all()

UO.Exec("waitmenu 'Choose' 'leather' 'What' 'Leggings'")
UO.Exec("waittargettype 0x1078")
UO.Exec("useobject '^0x0F9D'")
all()

UO.Exec("waitmenu 'Choose' 'leather' 'What' 'Sleeves'")
UO.Exec("waittargettype 0x1078")
UO.Exec("useobject '^0x0F9D'")
all()

UO.Exec("waitmenu 'Choose' 'leather' 'What' 'Gloves' ")
UO.Exec("waittargettype 0x1078")
UO.Exec("useobject '^0x0F9D'")
all()

UO.Exec("waitmenu 'Choose' 'leather' 'What' 'Gorget'")
UO.Exec("waittargettype 0x1078")
UO.Exec("useobject '^0x0F9D'")
all()

UO.Exec("waitmenu 'Choose' 'leather' 'What' 'Cap'")
UO.Exec("waittargettype 0x1078")
UO.Exec("useobject '^0x0F9D'")
craftum()
wait(1000)
uo.canceltarget() 
wait(1000)
uo.canceltarget() 

UO.Exec("waitmenu 'Choose' 'female' 'What' 'Bustier'")
UO.Exec("waittargettype 0x1078")
UO.Exec("useobject '^0x0F9D'")
all()

UO.Exec("waitmenu 'Choose' 'female' 'What' 'Leather Skirt'")
UO.Exec("waittargettype 0x1078")
UO.Exec("useobject '^0x0F9D'")
all()

UO.Exec("waitmenu 'Choose' 'shoes' 'What' 'Sandals'")
UO.Exec("waittargettype 0x1078")
UO.Exec("useobject '^0x0F9D'")
all()

UO.print('full комплект сшил, начинаю снова')
main()
endif
end sub

sub Info() 
uo.Print('Осталось ' + str(uo.Count('0x1078')) + ' кожи в сумке') 
end sub

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

sub craftum()
uo.deletejournal()
repeat
wait(1000)
until uo.injournal("You")
end if
end sub

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

sub all()
craftum()
havka()
Info()
sv()
end sub

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

На плавку руды по две штуки (по одной медленнее растёт). Прописать тип ore в обджект тайпах как руду. Берёт с пола две оры и плавит. Осторожно: у некоторых может брать сразу всю кучу руды, почему - не знаю.

 

sub Smelt()
  while true
    uo.findtype("ore", -1, "ground")
    uo.grab(2, "finditem")
    repeat
      wait(250)
    until uo.count("ore") > 0
    uo.usetype("ore")

    uo.deletejournal()
    repeat
      wait(500)
    until uo.injournal("You")
  wend
end sub

 

Если у кого-то будет брать сразу всю кучу руды:

sub Smelt()
  while true
    uo.findtype("ore", -1, "ground")
    uo.waittargetobject("finditem")
    uo.exec("grab 2")
    repeat
      wait(250)
    until uo.count("ore") > 0
    uo.usetype("ore")

    uo.deletejournal()
    repeat
      wait(500)
    until uo.injournal("You")
  wend
end sub

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
sub main()

Var i, List

List = 0 # кол-во перелистываний

WHILE not UO.dead()

If UO.STR<110 Then #указать сока у вас силы с учетом(если они одеты) шмоток на силу

uo.exec("cast '16' self") # кастует на себя силу(реги нс и мр)

wait(1000)

wend

else

end if

havka()

If UO.Life<UO.STR Then

UO.Exec("bandageself") #Бинтов в сумку класть с запасом

Wait(3000)

Else

UO.Exec("usetype 0x0FBD") #книгa

Wait(1000)

UO.LClick(451,281) # координата Поушена

Wait(1000)

UO.Say("20")

If UO.InJournal("You don't have enough reagents") or UO.InJournal ("You don't have bottles")then

end sub

end if

While UO.InJournal("You grind the reagents") or UO.InJournal("Saving World State") or UO.InJournal("You create the potion and put it in your backpack") or UO.InJournal("You pour out the useless mixture")

if UO.InJournal("Saving World State")then

uo.deletejournal()

wait(20000)

else

uo.deletejournal()

wait(2000)

end if

wend

endIf

wend

sub havka()

if UO.Count("0x097B")>0 then #жаренная рыбка -)

UO.usetype ("0x097B")

Wait(700)

else

UO.Print("Еда закончилась……помру-)")

end if

end sub

почему не перелистывает страницу когда ставлю list=1

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

2 Ara:

Дико извиняюсь) не проверенный скрипт выложил.

Не перелистывает поскоку не юзает List

Сейчас исправлю старый скрипт :huh:

 

 

2 Finadan:

Конечно не выкладывай скрипт,

Ведь мега задроты не дадут того чего нету :rolleyes:

 

 

 

Рекалл-скролы ,из расчета что пишет друид

sub main()
while uo.life>0
havka()
UO.Exec ("waitmenu 'Select' 'Circle 4spells' 'Select' 'Recall'")
UO.Exec ("waittargetobject '_0x0e34' '0x568d091b'")
wait(500)
UO.UseSkill("Inscription")
uo.deletejournal()
repeat
until uo.injournal("You dont have enough mana")
endif
wait(1000)
while uo.life>0
   UO.Exec ("useskill 'Meditation'")
   uo.say(".ab 2")
   wait(10000)
   if uo.mana == uo.int then
   main()
  else
end if
wend
endif
wend
end sub

sub havka()
if UO.Count("0x097B")>0 then 
UO.usetype ("0x097B") 
Wait(700)
else
UO.Print("Хочу кушать.....оченно!!!")
end if 
end sub

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Кстати, Ярик, спасибо :). Я в каком-то твоём скрипте нашёл финт один, после чего почесал репу и придумал, как писать скрипты на добычу.

 

Те же реколлы:

sub Meditation()
  while uo.Count(0x0e34) > 0
    uo.Deletejournal()
    uo.WaitTargetType(0x0e34)
    uo.UseSkill("Inscription")

    repeat
      wait(100)
    until uo.Waiting() == 0
    uo.WaitTargetType(0x0efa)

    uo.waitmenu("Select a circle to inscribe", "Circle 4spells", "Select a spell to inscribe", "Recall")

    repeat
      wait(1000)
    until uo.InJournal("mana") or uo.InJournal("finished")

    wait(1000)
    uo.DeleteJournal()
    repeat
      uo.UseSkill("Meditation")
      wait(10000)
    until uo.InJournal("Points gained!") or (uo.mana == uo.int)
    
    repeat
      wait(500)
    until uo.mana == uo.int
    wait(1000)
  wend
end sub

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Проверяем скрипт на сплав, может и не работает:

sub MakeAlloy(obj_pri, col_pri, cnt_pri, obj_sec, col_sec, cnt_sec)
  uo.FindType(obj_pri, col_pri, "ground")
  uo.Grab(cnt_pri, uo.GetSerial("finditem"))
  repeat
    wait(500)
  until uo.Count(obj_pri, col_pri) > 0
  
  uo.FindType(obj_sec, col_sec, "ground")
  uo.Grab(cnt_sec, uo.GetSerial("finditem"))  
  repeat
    wait(500)
  until uo.Count(obj_sec, col_sec) > 0  

  uo.FindType(obj_sec, col_sec, "my")
  uo.WaitTargetObject("finditem")
  uo.FindType(obj_pri, col_pri, "my")
  uo.UseObject("finditem")
end sub

sub MakeSteel()
  uo.Set("finddistance", 2)

  MakeAlloy(0x1BF2, 0, 19, 0x1BF2, 0x03E7, 1)

  repeat
    wait(1000)
  until uo.Count(0x1BF2, 0) > 0

  uo.FindType(0x1BF2, 0, "my")
  uo.MoveItem("finditem", 0, <ID контейнера, в который сталь складывать>)
end sub

sub MakeSunshine()
  uo.Set("finddistance", 2)
  MakeAlloy(0x1BF2, 0x0488, 6, 0x1BF2, 0x0690, 1)
end sub

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

ыыы

Я никому ничего доказывать не собираюсь\

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

Ближе к зиме когда народ подтянеться погамлю :)

 

 

пойзонинг

sub main() 
uo.exec('addobject p') 
uo.print('!!Выбери пойзон бутылки!! ') 
while uo.targeting() 
wait(1000) 
wend

uo.exec('addobject k') 
uo.print('!!Выбери что травим!! ') 
while uo.targeting() 
wait(1000) 
wend

sub poison()
UO.Exec ("waittargetobject 'p' 'k'")
uo.useskill("Poisoning")
wait(10000)
havka()
poison()
end sub

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

 

 

Карпентри-делаем бланк руны и кидаем их к себе под ноги

sub main()
goto d1
d1:
UO.Exec("waitmenu 'Choose' 'Misc' 'Choose' 'Recall Rune'")
UO.Exec("waittargettype 0x1BDD")
UO.Exec("usetype 0x1030")
wait(2000)
if UO.Injournal ("You destroy some") then
UO.deletejournal()
wait(200)
goto d1
else
wait(8000)
UO.Exec("waittargettype 0x1F14")         
UO.Drop(",,")
wait(300)
goto d1
endif
end sub

B)

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Гость
Ответить в этой теме...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

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

Загрузка...

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