Вирд 0 Жалоба Опубликовано 7 августа, 2006 Привет всем ) играл года 3 назад или больше...щас вот опять решил, когда есть время =) Как я понял тот форум невосстановиться , а новичкам было бы очень приятно и полезно посещать сию тему, если суда будут скидывать скрипты которые пригодяться новичкам ....Мининг,спаринг,перплавка руды и тд и тп...Ну и другие скрипты тоже конечно...заранее спасибо p.s если создал не в том разделе извеняюсь или тему со скриптами с того форума восстановят , то пардон. Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
YariK™© 0 Жалоба Опубликовано 7 августа, 2006 Скрипты на автоВЭЙТкаста, догонялки, юморфы, ресенды, автохилы, автострелки и тд есть, короче ток пвпшные ) За биг лаве ) барыга 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 Варим ДедлиПойзон 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 зы все пашет Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
Misharik 0 Жалоба Опубликовано 8 августа, 2006 по одной никто не плавит - плавят по две! 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 прописать оре - как руду..... кидать всю на землю и запускать скрипт.... ЗЫ стоять рядом с форжем Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
Finadan 0 Жалоба Опубликовано 8 августа, 2006 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. У нас с Мишариком есть всё . Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
Da`Bazz 0 Жалоба Опубликовано 9 августа, 2006 Вот нашел скриптик на 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 Непрнятно где брать сериал сундука или как его адаптировать под минл? Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
Finadan 0 Жалоба Опубликовано 9 августа, 2006 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 - любая еда. Работает не у всех, только я не знаю, почему О_о. Качал себе им боукрафт. Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
Finadan 0 Жалоба Опубликовано 9 августа, 2006 На прокачку чисто стеллса или дексы: 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 Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
Зёма 0 Жалоба Опубликовано 10 августа, 2006 скрипт на прокачку магии и меджик резиста, без проверок на наличие бинтов (бинты должны быть в паке) качается на чтении свитков (т.к. мне проще наделать свитков, чем реги собирать/покупать) в руках ничего быть не должно, иначе свитки читаться не будут если вот эти две строчки 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 Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
Зёма 0 Жалоба Опубликовано 10 августа, 2006 на хаммер фразы на майнинг [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; } это все со старого форума, срипт там был на автовызов гвардов, я сделал замену на использование бандаг Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
Вирд 0 Жалоба Опубликовано 10 августа, 2006 С переплавкой тишина Я вот на старом форуме успел найти скрипт на МИНИНГ 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 Кстати подскажите какие строки и куда нужно вставить что бы он ещё гвардов звал ? Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
Da`Bazz 0 Жалоба Опубликовано 10 августа, 2006 Таак а теперь реально работающий скрипт от 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 Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
Finadan 0 Жалоба Опубликовано 12 августа, 2006 Счас с челом придумали, что делать тем, у кого скрипт боукрафта работает некорректно. Пробуем: 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 Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
Зёма 0 Жалоба Опубликовано 15 августа, 2006 на бс 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 секунды Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
Finаdan 0 Жалоба Опубликовано 16 августа, 2006 Вот вам на сбор регов: 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 Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
Зёма 0 Жалоба Опубликовано 16 августа, 2006 можно запускать одновременно скока хошь скриптов а на гвардов можно еще так (по-идее будет звать, когда тебя атакуют): sub GuardMacros() while not uo.dead() if (UO.InJournal("attacking you")) then uo.deletejournal() uo.say(".guards") endif wait(3000) wend end sub Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
Вирд 0 Жалоба Опубликовано 16 августа, 2006 О и правда можно =) спасибо =) а Скрипт этот я проверил не зовёт чего то =(( может не всегда когда в шахте атакуют монстры в журнале пишится что атачат? =\ А этот скрипт работает =) sub GuardMacros() while not uo.dead() if uo.life < uo.str then uo.msg(".guards") wait(10000) endif wait(1000) wend end sub Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
Finаdan 0 Жалоба Опубликовано 16 августа, 2006 Так. Проверяем скрипт. Основная функция - 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 Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
Ethlaw 0 Жалоба Опубликовано 16 августа, 2006 Ну вот надоело мне заряжать посох руками посему написал такой вот скриптик 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м тайле посему надо топать посредь огорода и капать справа, слева и под собой. А так спасибо огромно а теперь я то свою виллу вскопаю ) Также можно включить туда как вскопал кликать на обьект семечка чтобы и сажать сразу. Я то и сам могу поправить а вот остальной народ нефакт Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
YariK™© 0 Жалоба Опубликовано 16 августа, 2006 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 скрипт рабочий, если нет то мешает кривизна рук 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 Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
Finаdan 0 Жалоба Опубликовано 17 августа, 2006 На плавку руды по две штуки (по одной медленнее растёт). Прописать тип 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 Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
Ara 0 Жалоба Опубликовано 19 августа, 2006 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 Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
YariK™© 0 Жалоба Опубликовано 22 августа, 2006 2 Ara: Дико извиняюсь) не проверенный скрипт выложил. Не перелистывает поскоку не юзает List Сейчас исправлю старый скрипт 2 Finadan: Конечно не выкладывай скрипт, Ведь мега задроты не дадут того чего нету Рекалл-скролы ,из расчета что пишет друид 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 Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
Finаdan 0 Жалоба Опубликовано 23 августа, 2006 Кстати, Ярик, спасибо . Я в каком-то твоём скрипте нашёл финт один, после чего почесал репу и придумал, как писать скрипты на добычу. Те же реколлы: 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 Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
Finаdan 0 Жалоба Опубликовано 23 августа, 2006 Проверяем скрипт на сплав, может и не работает: 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 Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
YariK™© 0 Жалоба Опубликовано 23 августа, 2006 ыыы Я никому ничего доказывать не собираюсь\ На данный момент вообе не гамаю,надоело заморачиваться при таком онлайне и таких людях. Ближе к зиме когда народ подтянеться погамлю пойзонинг 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 Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты