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

Зёма · 28 августа, 2006

ЭЭЭ типо мне надо скрипт на тейлор ! на шитё чеголибо из кожи ! подкиньте плз

sub main()

While UO.Life>0

UO.Exec("waitmenu 'Choose' 'leather' 'What' 'Leather Cap'")

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

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

wait(10000)

EndIf

wend

end sub

вот на шапки, тока таргет не сбивает, когда шапка эксепт

Satanik2k · 30 августа, 2006

Более оптимальный скрипт для кача Stealth и Hiding

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

YariK™© · 31 августа, 2006

Magery

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

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

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

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

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

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

и юзаешь :blink:

Onis · 2 сентября, 2006

Вот отличный скрипт на мининг, раньше только его и юзал.

Но вот глючить стал, постоянно пишет "There is no ore to mine"=(

sub main()
var i
While UO.Life>0
for i=1 to 10
kopat()
uo.press(34)
next
uo.print("GO назад =)")
kopat()
for i=1 to 11
wait(500)
uo.press(36)
next
uo.press(34)
wend
end sub

sub kopat()
var where_x,where_y,coords,i
UO.DeleteJournal()
where_x=uo.getx()
where_y=uo.gety()
for i=-2 to 2
uo.print("Тайл "+str(i+3)+"/5")
coords="waittargettile "+" 1343 "+str(where_x)+" "+str(where_y+i)+" 0"
uo.exec(coords)
uo.exec("usetype '0x0E85'") # Здесь прописываем тип кирки
UO.DeleteJournal()
while (not (UO.InJournal("stop mining") or UO.InJournal("far") or UO.InJournal("no ore")  or UO.InJournal("cannot")))
wait(1000)
wend
next
end sub

Finаdan · 2 сентября, 2006

Онис, поменяй в WaitTargetTile 1343 на другой параметр, который узнаешь через функцию ,infotile.

Onis · 2 сентября, 2006

Вот, этот скрипт работает.

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

sub main()
var i
While UO.Life>0
for i=1 to 10
kopat()
uo.press(34)
next
uo.print("GO назад =)")
kopat()
for i=1 to 11
wait(500)
uo.press(36)
next
uo.press(34)
wend
end sub

sub kopat()
var where_x,where_y,coords,i
UO.DeleteJournal()
where_x=uo.getx()
where_y=uo.gety()
for i=-2 to 2
uo.print("Тайл "+str(i+3)+"/5")
coords="waittargettile "+" 1339 "+str(where_x)+" "+str(where_y+i)+" 0"
uo.exec(coords)
uo.exec("usetype '0x0E85'") # Здесь прописываем тип кирки
UO.DeleteJournal()
while (not (UO.InJournal("stop mining") or UO.InJournal("far") or UO.InJournal("no ore") or UO.InJournal("cannot")))
wait(1000)
wend
next
end sub

Спасибо Finаdan'у

Onis · 2 сентября, 2006

Вот отдельный скрипт для шахтеров на гвардов -

sub main()
While UO.Life>0
if UO.InJournal("elemental") or UO.InJournal("slime") then
Uo.say(".guards")
uo.DeleteJournal()
endif
wait(1000)
wend
end sub

Зовет только при появление слима или елементала.

Finаdan · 2 сентября, 2006

Спасибо Finаdan'у

Да не за что, обращайтесь .

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

sub SpiritSpeak()
  while uo.SkillVal("Spirit Speak") < 1000 #Впиши максимум скилла
    uo.UseSkill("Spirit Speak")
    wait(10000)
  wend
end sub

sub ItemID()
  while uo.SkillVal("Item ID") < 1000 #Впиши максимум скилла
    uo.WaitTargetType(0x0f51) #Даггер это
    uo.UseSkill("Item ID")
    wait(10000)
  wend
end sub

sub ForensicEval()
  while uo.SkillVal("Forensic Evaluation") < 1000 #Впиши максимум скилла
    uo.WaitTargetSelf()
    uo.UseSkill("Forensic Evaluation")
    wait(5000)
  wend
end sub

sub EvalInt()
  while uo.SkillVal("Evaluate Intelligence") < 1000 #Впиши максимум скилла
    uo.WaitTargetSelf()
    uo.UseSkill("Evaluate Intelligence")
    wait(10000)
  wend
end sub

comatoza · 3 сентября, 2006

кто-то тут просил тейлоринга

2 года назад када играл качал тейлор таким скриптом...

sub main()

var i

While UO.LIFE > 0

i=0

while i<5

UO.waittargettype('0x1078')

UO.usetype('0x0f9d')

UO.Exec("waitmenu 'Choose a category.' 'female' 'What do you want to create?' 'Studded Bustier - takes 4 hides'")

while not (uo.injournal('your pack') or uo.injournal('You destroy'))

wait(100)

wend

uo.deletejournal()

i=i+1

wend

uo.findtype("0x1c0c","-1","back")

while uo.getquantity('finditem')>0

UO.usetype('0x0f9e')

UO.waittargettype('0x1c0c')

while not uo.injournal('You could')

wait(100)

wend

uo.deletejournal()

wend

uo.usetype('0x09ec')

wait(1000)

Wend

end sub

в бэк кожу, ножницы, "иголку с ниткой" и поехали.... // запускал скрипт на хавку и на ворлд сейвы...

Onis · 5 сентября, 2006

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

Мининг переплавка.

sub main()
while not UO.Dead();
UO.waittargettype("ruda");
UO.exec("addobject 'rud'");
UO.exec("grab 2 rud");
UO.useobject("rud");
wait(500);
wend
end sub

hobu4ok · 5 сентября, 2006

Вот, этот скрипт работает.
Чар ходит по диагонале и обкапывает все тайлы вокруг себя, при неудаче он не ждет а сразу переходит к другому тайлу. Всем советую, можно еще добавить строку чтоб он звал гвардов.
sub main()
var i
While UO.Life>0
for i=1 to 10
kopat()
uo.press(34)
next
uo.print("GO назад =)")
kopat()
for i=1 to 11
wait(500)
uo.press(36)
next
uo.press(34)
wend
end sub

sub kopat()
var where_x,where_y,coords,i
UO.DeleteJournal()
where_x=uo.getx()
where_y=uo.gety()
for i=-2 to 2
uo.print("Тайл "+str(i+3)+"/5")
coords="waittargettile "+" 1339 "+str(where_x)+" "+str(where_y+i)+" 0"
uo.exec(coords)
uo.exec("usetype '0x0E85'") # Здесь прописываем тип кирки
UO.DeleteJournal()
while (not (UO.InJournal("stop mining") or UO.InJournal("far") or UO.InJournal("no ore") or UO.InJournal("cannot")))
wait(1000)
wend
next
end sub
Спасибо Finаdan'у

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

Shapka · 6 сентября, 2006

просто дам ссылку на скрипт на ДБ

http://middle33.valuehost.ru/forum/index.php?showtopic=447

Onis · 6 сентября, 2006

В общем попросили в миноке скрипт простенький на БС и объяснить как он пашет

В паке должна быть руда из которой куем, a smith's hammer и Tongs. Стоим около плавильни и наковальни.

С 50% до 60-70% БС

sub main()
while uo.count('0x1BF2')>10
UO.Exec("waitmenu 'What do you wish to make?' 'Armor' 'Select armor' 'Ringmail' 'Select item' 'Ringmail Vest'")
UO.Exec("waittargetobject '^0x1BF2'")
UO.Exec("useobject '^0x13E3'")
wait(8000)
# и плавим ее 
UO.Exec("waittargetobject '^0x13EC'")
Wait (500)
UO.Exec("useobject '^0x0FBB'")
Wait (3000)
wend
end sub

С 60-70% до 80%

sub main()
while uo.count('0x1BF2')>10
UO.Exec("waitmenu 'What do you wish to make?' 'Armor' 'Select armor' 'Chainmail' 'Select item' 'Chainmail Coif'")
UO.Exec("waittargetobject '^0x1BF2'")
UO.Exec("useobject '^0x13E3'")
wait(8000)
# и плавим ее 
UO.Exec("waittargetobject '^0x13BB'")
Wait (500)
UO.Exec("useobject '^0x0FBB'")
Wait (3000)
wend
end sub

с 80% до 100%

sub main()
while uo.count('0x1BF2')>10
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(8000)
# и плавим ее 
UO.Exec("waittargetobject '^0x13C0'")
Wait (500)
UO.Exec("useobject '^0x0FBB'")
Wait (3000)
wend
end sub

Задержки вроде норм поставил, хотя хз щас лагает конкретно.

Catscan · 6 сентября, 2006

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

Автохил:

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 руды плавить? тогда мининг растет на переплавке?

Finаdan · 7 сентября, 2006

У мну всё шоколадно - окапывает так, как надо . Ну я и копаю другим скриптом, правда.

P.S. Я достаю из широких штанин скрипт на автохилинг покруче немного того, что есть выше:

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

Скрипт на фулл спеллбуку. Надо только инжу свежую иметь, ибо на той, что с МЕ скачана, свитки с пола берутся не по одному, а сразу всем стеком. Возможно, задержки немного другие - я на МЕ2 его писал, но проверять лень.

sub MoveScrollsToBook()
  var i, book

  uo.findtype(0x0EFA)
  book = uo.getserial("finditem")
  
  for i = 0x1F2D to 0x1F6C
    uo.findtype(i)
    uo.moveitem("finditem", 1, book)
    wait(200)
  next
end sub

sub Meditate()
  var t

  repeat
    uo.deletejournal()
    uo.useskill("Meditation")

    t = 0
    repeat
      wait(1000)
      t = t + 1
    until uo.injournal("Points") or (uo.mana == uo.int) or t > 10
  until uo.injournal("Points gained") or (uo.mana == uo.int)
  
  repeat
    wait(1000)
  until uo.mana == uo.int
end sub

sub WriteSpell(SpellCircle, SpellName)
  repeat
    uo.deletejournal()

    uo.findtype(0x0E34, -1, "ground")
    uo.grab(1, "finditem")
    
    repeat
      wait(100)
    until uo.count(0x0E34)

    uo.waitmenu("Select", "Circle " + STR(SpellCircle), "Select", SpellName)
    
    uo.useskill("Inscription")
    uo.waittargettype(0x0E34)

    repeat
      wait(100)
    until uo.waiting() == 0

    uo.waittargettype(0x0EFA)
    
    repeat
      wait(500)
    until uo.injournal("You")
    
    wait(8000)
  until uo.injournal("You create")
end sub

sub FullSpellBook()
  dim SpellNames[64]
  var i
  
  SpellNames[ 0] = "Clumsy"
  SpellNames[ 1] = "Create Food"
  SpellNames[ 2] = "Feeblemind"
  SpellNames[ 3] = "Heal"
  SpellNames[ 4] = "Magic Arrow"
  SpellNames[ 5] = "Night Sight"
  SpellNames[ 6] = "Reactive Armor"
  SpellNames[ 7] = "Weaken"
  
  SpellNames[ 8] = "Agility"
  SpellNames[ 9] = "Cunning"
  SpellNames[10] = "Cure"
  SpellNames[11] = "Harm"
  SpellNames[12] = "Magic Trap"
  SpellNames[13] = "Magic Untrap"
  SpellNames[14] = "Protection"
  SpellNames[15] = "Strength"
  
  SpellNames[16] = "Bless"
  SpellNames[17] = "Fireball"
  SpellNames[18] = "Magic Lock"
  SpellNames[19] = "Poison"
  SpellNames[20] = "Telekinisis"
  SpellNames[21] = "Teleport"
  SpellNames[22] = "Unlock"
  SpellNames[23] = "Wall of Stone"
  
  SpellNames[24] = "Archcure"
  SpellNames[25] = "Arch Protection"
  SpellNames[26] = "Curse"
  SpellNames[27] = "Fire Field"
  SpellNames[28] = "Greater Heal"
  SpellNames[29] = "Lightning"
  SpellNames[30] = "ManaDrain"
  SpellNames[31] = "Recall"
  
  SpellNames[32] = "Blade Spirits"
  SpellNames[33] = "Dispel Field"
  SpellNames[34] = "Incognito"
  SpellNames[35] = "Magic Reflection"
  SpellNames[36] = "Mind Blast"
  SpellNames[37] = "Paralyze"
  SpellNames[38] = "Poison Field"
  SpellNames[39] = "Summon Creature"
  
  SpellNames[40] = "Dispel"
  SpellNames[41] = "Energy Bolt"
  SpellNames[42] = "Explosion"
  SpellNames[43] = "Invisibility"
  SpellNames[44] = "Mark"
  SpellNames[45] = "Mass Curse"
  SpellNames[46] = "Paralyze Field"
  SpellNames[47] = "Reveal"
  
  SpellNames[48] = "Chain Lightning"
  SpellNames[49] = "Energy Field"
  SpellNames[50] = "Flamestrike"
  SpellNames[51] = "Gate Travel"
  SpellNames[52] = "Mana Vampire"
  SpellNames[53] = "Mass Dispel"
  SpellNames[54] = "Meteor Storm"
  SpellNames[55] = "Polymorph"
  
  SpellNames[56] = "Earthquake"
  SpellNames[57] = "Energy Vortex"
  SpellNames[58] = "Resurrection"
  SpellNames[59] = "Summon Air Elemental"
  SpellNames[60] = "Summon Daemon"
  SpellNames[61] = "Summon Earth Elemental"
  SpellNames[62] = "Summon Fire Elemenal"
  SpellNames[63] = "Summon Water Elememental"

  for i = 0 to 63
    WriteSpell(int(i / 8) + 1, SpellNames[i])
    Meditate()
  next

  uo.print("Scribing done.")
end sub

Onis · 8 сентября, 2006

Переплавка руды: руду кинуть в любой контейнер, а контейнер в пак. (чтобы грабить 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 руды плавить? тогда мининг растет на переплавке?

Вот не выкупаю зачем нужно было повторять скипт? Я же такой же выложил несколько страниц назад.

Ответ на вопрос - на МЕ2-3 при переплавке руды мининг довольно неплохо качался, и если я не ошибаюсь количество руды при переплавки не влияло на получаемые очки, то есть фишка была в кол-ве самих переплавок. На МЕ1 я таким способом не качал так что хз работает это или нет.

Shapka · 12 сентября, 2006

sub main()

aaa:

while UO.count("shafts") > 0

UO.waittargettype("shafts");

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

UO.exec("grab 1 shaft");

UO.waitmenu('What', 'Arrow');

UO.waittargettype("feathers");

UO.useobject("shaft");

UO.print(STR(UO.count("shafts"))+" left");

wait(2000);

wend

goto aaa

end sub

KarlSohn · 13 сентября, 2006

Скрипт на Тинкер

sub main()
while true

UO.Exec("waitmenu 'Select' 'Metal Items' 'Select' 'Shovel'")

Wait(10000)

UO.Exec("waittargettype ENK")

Wait(1000)

UO.Exec("usetype GTL")

Wait(6000)

UO.Exec("drop 1 0 0 0 ^TWF")

wait(500)

wend

end sub

KarlSohn · 13 сентября, 2006

Бк скрипт

sub main()
var i=1;

while UO.Count('0x1bdd') > i; # logi

UO.Exec("waitmenu 'What' 'Heavy Crossbow'") #тут вместо можно написать то что хош делать

UO.Exec("waittargettype 0x1bdd") #logi

wait (800)

UO.Exec("usetype 0x0f51") #dagger

wait(7000)

if uo.injournal("You create") then

uo.deletejournal()

UO.Exec("waittargettype bow") #в обжект типах задай тип делаемого предмета

Wait (800)

UO.Exec("usetype 0x10e7") #scorp

Wait (5500)

endif

wend

end sub

Catscan · 13 сентября, 2006

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

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.

KarlSohn · 17 сентября, 2006

Скрипт на бланк скролы

sub main()

while true

UO.Exec("waitmenu 'Select' 'Paper items' 'Item' 'Blank Scroll'")

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

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

wait(6000)

If UO.InJournal("create the item") then

wait(100)

UO.DeleteJournal()

wait(100)

UO.Exec("moveitem '^0x0FBB' '1' '^0x0E76'")

wait(100)

EndIf

wend

end sub

Еще раз взываю к мудрости скриптеров...ДАЙТЕ СКРИПТ НА ЛАМБЕР!

Finаdan · 17 сентября, 2006

Ппц! Скрипт на ламбер (делает всё сам) занимает менее 100 строк кода.

Тут просят выложить вот это. Как работает, я не знаю, ибо толком не проверял, ибо недосуг.

sub Alchemy()
  var strbase = uo.Str #Либо запускать скрипт без обкаста, либо менять uo.Str на силу своего чара
  var caststr = 0 #Если нужен обкаст, то пишем 1, иначе - 0
  var waittime = 1000 #Задержка
  var page = 3 #На какой странице поушн (!начинается с нуля!)
  var i
  
  uo.DeleteJournal()
  while (not uo.dead()) and (not uo.InJournal("enough")) and (uo.Count(0x0F0E) > 0)
    if caststr and uo.str - strbase < 5 then
      uo.WaitTargetSelf()
      uo.Cast("Strength")
      wait(1000)
    endif
    
    if uo.Life < uo.Str then
      repeat
        uo.BandageSelf()
        wait(10000)
      until uo.Life == uo.Str
    endif

    uo.UseType(0x0FBD)
    wait(waittime)
    
    for i = 1 to int(page / 2)
      uo.LClick(466, 161)
      wait(waittime)
    next
    
    if int(page / 2) == page / 2 then
      uo.LClick(297,283)
    else
      uo.LClick(451,280)
    endif
    
    wait(waittime)
    uo.Say("20")
    
    uo.DeleteJournal()
    i = 0
    repeat
      wait(1000)
      if uo.InJournal("Points") then
        i = i + 1
        EatFood()
        uo.DeleteJournal()
      endif
    until i == 20 or uo.InJournal("gas") or uo.InJournal("mixture") or uo.Life < uo.Str or uo.InJournal("enough")
    
    EatFood()
  wend
  
  if uo.Count(0x0F0E) == 0 then
    uo.Print("Пучты матлы давай!")
  endif
end sub

nstd · 19 сентября, 2006

Ручками

По сабжу - тож хочу такой скрипт, но по-моему эт нереал

почему не реал очень даже реал .... правда немного через одно место ...

        uo.waittargetobject(object)
    while uo.Targeting()
    wait(50)
    wend 
        uo.waittargetobject(object2)
    while uo.Targeting()
    wait(50)
    wend 
        uo.waittargetobject(object3)
    while uo.Targeting()
    wait(50)
    wend 
        uo.waittargetobject(object4)
    while uo.Targeting()
    wait(50)
    wend

-----------------

п.с я не тестил ... соченил на ходу... ещё можно руками таргет(uo.target) посылать тока не просите меня объяснять как ....

3ATOH · 21 сентября, 2006

Народ,будьте добры скажите как качать стилинг(можно скрипт,можно просто подсказку)А то написал скрипт,1 чар(вор который) с открытом паком 2го чара ворует 10 логов,потом кидает их под ноги,2й чар поднимает с пола каждые 5 секунд логи(или пытаеца поднимать,если они в паке уже smile.gif )Иногда скрипт глючит и получаеца так что вместо 10 логов вор ворует только 1н,и иногда и его не ворует.Вот собсно скрипт,обьясните плз где тут косяк и как проще сделать?smile.gif

Для ворующего:

sub st()

while not uo.dead()

UO.Exec("waittargetobject drova")

wait(700)

uo.useskill('Stealing')

wait(36000)

wait(500)

UO.Exec("waittargetobject drova")

wait(400)

uo.exec("drop 10 0 0 0 drova")

wait(1000)

end if

wend

Для жертвы:

sub st2()

while not uo.dead()

uo.exec("grab 10 drova")

wait(5000)

wend

YariK™© · 21 сентября, 2006

Stealing ^ взято с Yoko forum

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

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

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

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

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

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

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

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

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

wend 
Stealing() 
end sub 

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

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

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

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

wait(3500) 

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

wend 
uo.closeuo() 
end sub 

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

sub Reconnector() 
var ReconnectTime, RFlag 
ReconnectTime = '0' 
RFlag = 1 
Repeat 
While (UO.ObjAtLayer('Bpack') == '') 
if RFlag Then 
ReconnectTime = MakeTime() 
RFlag = 0 
endif 
Wait(20000) # WorldSave Protection 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.LDblClick(357,164) 
UO.LClick(616,459) 
Wait(3000) 
WEnd 
Wait(3000) 
if (RFlag == 0) and (ReconnectTime <> '0') Then 
UO.Exec('terminate Snooping') 
wait(1000) 
UO.Exec('exec Snooping') 
UO.TextOpen() 
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 
RFlag = 1 
ReconnectTime = '0' 
endif 
Until false 
end sub 

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

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

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

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

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

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

Зёма 0

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

Ссылка на сообщение

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

Satanik2k 0

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

Ссылка на сообщение

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

YariK™© 0

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

Ссылка на сообщение

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

Onis 0

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

Ссылка на сообщение

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

Finаdan 0

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

Ссылка на сообщение

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

Onis 0

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

Ссылка на сообщение

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

Onis 0

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

Ссылка на сообщение

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

Finаdan 0

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

Ссылка на сообщение

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

comatoza 0

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

Ссылка на сообщение

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

Onis 0

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

Ссылка на сообщение

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

hobu4ok 0

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

Ссылка на сообщение

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

Shapka 0

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

Ссылка на сообщение

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

Onis 0

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

Ссылка на сообщение

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

Catscan 0

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

Ссылка на сообщение

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

Finаdan 0

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

Ссылка на сообщение

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

Onis 0

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

Ссылка на сообщение

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

Shapka 0

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

Ссылка на сообщение

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

KarlSohn 0

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

Ссылка на сообщение

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

KarlSohn 0

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

Ссылка на сообщение

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

Catscan 0

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