Зёма 0 Жалоба Опубликовано 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 0 Жалоба Опубликовано 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™© 0 Жалоба Опубликовано 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 тоесть кладешь в сумку жаренную рубу, карася там или плотвичку, на свое усмотрение, регов, книжек там магических, и юзаешь Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
Onis 0 Жалоба Опубликовано 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 0 Жалоба Опубликовано 2 сентября, 2006 Онис, поменяй в WaitTargetTile 1343 на другой параметр, который узнаешь через функцию ,infotile. Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
Onis 0 Жалоба Опубликовано 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 0 Жалоба Опубликовано 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 0 Жалоба Опубликовано 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 0 Жалоба Опубликовано 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 0 Жалоба Опубликовано 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 0 Жалоба Опубликовано 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 0 Жалоба Опубликовано 6 сентября, 2006 просто дам ссылку на скрипт на ДБ http://middle33.valuehost.ru/forum/index.php?showtopic=447 Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
Onis 0 Жалоба Опубликовано 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 0 Жалоба Опубликовано 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 0 Жалоба Опубликовано 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 0 Жалоба Опубликовано 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 0 Жалоба Опубликовано 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 0 Жалоба Опубликовано 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 0 Жалоба Опубликовано 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 0 Жалоба Опубликовано 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 0 Жалоба Опубликовано 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 0 Жалоба Опубликовано 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 0 Жалоба Опубликовано 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 0 Жалоба Опубликовано 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™© 0 Жалоба Опубликовано 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 Суть скрипта такая: он в бекпаке раскладывает монетки по одной штуке, убедившись, что они все лежат по одной, он начинает тырить. Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты