Гость zaharik Жалоба Опубликовано 21 марта, 2011 АВТО ХИЛ sub heal() #Бинты uo.print('AUTOHEAL LOAD...') while not uo.dead() wait(100) if uo.life<uo.str then UO.msg('.bandage self') wait(2000) end if wend sub GHFish() #Грейт хил и рыба хил uo.print('AUTOHEAL GH+FISH LOAD...') while not uo.dead() wait(100) if uo.life<=uo.str-50 then uo.findtype('0x0F0E','0x0690') uo.useobject('finditem') wait(1000) end if wait(100) if uo.life<=uo.str-65 then wait(200) uo.findtype('0x0DD6','0x0009') uo.useobject('finditem') wait(1000) end if wend end sub sub GHF() #Вортекс грейт хил и рыба хил uo.print('Autoheal GH+FISH Load...') while not uo.dead() wait(100) if uo.life<=uo.str-70 then wait(100) UO.msg('.drink greaterhealpotion') wait(1000) end if wait(100) if uo.life<=uo.str-60 then UO.usetype('0x0DD6' , '0x0009') wait(1000) end if wait(200) if uo.life<=uo.str-35 then UO.msg('.v') wait(1000) end if wend end sub Инорт для паладина sub inort() UO.msg(".disarm") UO.msg(".cast sacredweapon") UO.Exec("waittargettype weapon") end sub Фаст рекол для файтера sub tel() UO.Exec("disarm") UO.Exec("usetype '0x0EFA'") Wait(100) UO.LClick(65,81) #координата руны в буке(определяеться в окне редактирование скрипта в инже-кнопкой сверху) wait(100) UO.LClick(65,81) uo.msg(' ') uo.msg(' ') uo.msg(' ') uo.msg(' ') uo.msg(' ') end sub Мининг Sub MiningTile(t, x, y, z) var timer repeat uo.WaitTargetTile(Str(t), Str(x), Str(y), Str(z)) uo.UseType(0x0E85) #Кирка uo.DeleteJournal() timer = 0 repeat wait(1000) timer = timer + 1 until UO.injournal("You cannot prospect any ore") or uo.injournal("There is no ore") or uo.injournal("gotov") or timer > 30 UO.Usetype("0x097B"); uo.useskill('Detect') wait(1000) if uo.InJournal("Found someone") or uo.InJournal("detecting has failed") or uo.InJournal("attacking you") then if uo.InJournal("Found someone") or uo.InJournal("detecting has failed")then uo.msg(".c *DETECT kopalka*") else uo.msg(".c *ATTACK kopalka*") endif endif until uo.injournal("There is no ore") or uo.InJournal("line") or uo.InJournal("far away") end sub sub Mining() var i, j, tile, f, b, p f = 0 b = 0 while not uo.dead() for i = -2 to 2 for j = -2 to 2 tile = 168 while (not uo.PrivateGetTile(uo.GetX() + i, uo.GetY() + j, 251, tile, tile)) and (tile < 1343) if tile == 171 then tile = 310 else if tile == 311 then tile = 1339 else tile = tile + 1 endif endif wend if tile < 1339 then tile = 0 endif if tile < 1343 then uo.concolor(0x53) uo.Print("Копаем тайл " + Str((i + 2) * 5 + j + 3) + " из 25...") uo.concolor(0) MiningTile(tile, uo.GetX() + i, uo.GetY() + j, 251) endif next next uo.Print("Завершил круг. Продолжаю.") f = f + 1 if b == 2 then for p=1 to 11 wait(500) uo.press(36) next uo.press(34) f = 0 b = 0 else if f == 3 then for p=1 to 5 wait(500) uo.press(34) next f = 0 b = b + 1 endif endif wend end sub Алхимия от GM MeSSiR ############################################################ # Скрипт для прокачки скилла Alchemy. Варит необходимое зелье # # из книги рецептов. Варит по одному зелью. # # Для работы скрипта необходимо: # # - Пустые бутылки # # - Ступка (a mortart) # # - Книга рецептов. # # - Необходимые для этого рецепта реагенты # # Желательно: # # - Еда # # - Бинты # # - Одеться так чтоб было 120+ жизней. # ############################################################ # Для работы скрипта необходимо указать ниже код необходимого # # зелья. # ###################### Настройка переменных #################### var food='0x097B' # Тип еды, которую будем кушать в процессе. # '0x097B' - жаренная рыба # '0x09F2' - жаренное мясо # '0x171F' - бананы var code= 7 # Код зелья, которое собираетесь варить. # 1 - Lesser Heal Potion # 2 - Heal Potion # 3 - Greater Heal Potion # 4 - Lesser Poison Potion # 5 - Poison Potion # 6 - Greater Poison Potion # 7 - Deadly Poison Potion # 8 - Lesser Explosion Potion # 9 - Explosion Potion # 10 - Greater Explosion Potion # 11 - Lesser Agility Potion # 12 - Agility Potion # 13 - Greater Agility Potion # 14 - Refresh Potion # 15 - Full Refresh Potion # 16 - Lesser Strength Potion # 17 - Strength Potion # 18 - Greater Strength Potion # 19 - Nightvision Potion # 20 - Lesser Cure Potion # 21 - Cure Potion # 22 - Greater Cure Potion # 23 - Lesser Mana Potion # 24 - Mana Potion # 25 - Greater Mana Potion # 26 - Lessir Invisibility Potion # 27 - Invisibility Potion # 28 - Greater Invisibility Potion # 29 - Lesser Intelligence Potion # 30 - Intelligence Potion # 31 - Greater Intelligence Potion sub Alchemy() var time=0 uo.set('norbcheck',1) uo.set('norbcalc',1) uo.msg(".pray") if uo.str < 120 then uo.print("У Вас менее 120 хп! Для варки сложных зелий желательно иметь 120+ хп") endif while uo.count(0x0F0E) > 0 uo.deletejournal() uo.findtype(0x0FBD) if uo.findcount() then uo.recall('finditem',code) CheckLag() uo.say("1") repeat wait(1000) time=time+1 until uo.injournal("You don't have bottles|You don't have a mortar|You don't have enough reagents|You pour out the useless mixture|You create the potion and put it in your backpack|Cancelled|That mixture sends off a choking gas") OR uo.Life < uo.Str or time>30 time=0 else uo.print("Не нахожу книгу рецептов!") wait(3000) endif text() recharge() eda() wend end sub Sub text() if uo.injournal("You don't have bottles") then uo.print("Нехватает бутылок") uo.msg("не могу варить") endif if uo.injournal("You don't have a mortar") then uo.print("Нехватает ступки (mortar)") uo.msg("не могу варить") endif if uo.injournal("You don't have enough reagents") then uo.print("Нехватает регов") uo.msg("не могу варить") endif if uo.injournal("You don't have enough reagents") then uo.print("Нехватает регов") uo.msg("не могу варить") endif end sub Sub recharge() while uo.str > uo.life uo.findtype(0x0E21) if uo.findcount() then uo.msg(".bandage self") else uo.print("Нет Бинтов.") endif wait(1000) wend end sub Sub eda() uo.findtype(food) if uo.findcount() then uo.usetype(food) else uo.print("Нет еды!") endif wait(100) end sub Sub CheckLag() UO.Click('backpack') repeat wait(500) until UO.InJournal('ackpack') end sub Авто-каст sub avtocast() uo.deletejournal() var i=0 while not uo.dead() if uo.injournal("Cast!") then i = uo.getSerial(uo.JournalSerial(uo.InJournal("Cast!")-1)) uo.waittargetobject(i) uo.cast('Bless') uo.msg("Casting in progress.. 50%") wait(2500) uo.waittargetobject(i) uo.cast('Protection') wait(2500) uo.msg("Casting in progress.. 99%") uo.deletejournal() endif if uo.injournal("Bless!") then i = uo.getSerial(uo.JournalSerial(uo.InJournal("Bless!")-1)) uo.msg("Another casting in progress..") uo.waittargetobject(i) uo.cast('Bless') wait(2500) uo.deletejournal() endif wait(1000) wend end sub Фишинг sub fishing() var i,j,x1,y1,x,y x=526 y=333 begin: x1=x y1=y for i=1 to 3 for j=1 to 10 uo.exec("usetype 0x0DBF") wait(500) uo.lclick(x1,y1) x1=x1-24 y1=y1+24 wait(2000) ;UO.Say(".grab") ;wait(500) ;uo.lclick(319,246) ;wait(1000) next x1=x+(24*i) y1=y+(24*i) next goto begin end sub sub eda() aaa: uo.usetype('0x097B') wait(5000) goto aaa 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 Прокачка скилов ############################################################ # Скрипт для прокачки пассивных скиллов. Для работы нужно # # настроить под скиллы своего персонажа переменные, которые # # находятся ниже данного описания в "НАСТРОЙКАХ ПЕРЕМЕННЫХ". # # При запуске скрипта будет предложено отметить таргетом 3 # # цели: # # 1) Таргет на животное для изучения Animal Taming # # 2) Таргет на оружее для изучения Arms Lore и Item ID # # 3) Таргет на поушен для изучения Taste Identification # # # # Ниже приведены переменные с числами. Для ограничения скилла # # измените переменную на необходимую вам (по-умолчанию 90). # # Если вы не хотите качать какой-либо скилл, то введите # # значение равное нулю (0). # # !!! ВАЖНО !!! # # Помните! На сервере существует ограничение прокачки скиллов # # по уровню персонажа: # # - Нулевой уровень. Максимальный уровень скилла = 90 # # - Первый уровень. Максимальный уровень скилла = 98 # # - Второй уровень. Максимальный уровень скилла = 105 # # - Третий уровень. Максимальный уровень скилла = 120 # # Под переменными скиллов можно изменить значение максимальной # # дистанции для поиска животного и установить тип еды. # ############################################################ ###################### НАСТРОЙКИ ПЕРЕМЕННЫХ #################### var anatomia = 90 # Ограничение скилла Anatomy var animlor = 0 # Ограничение скилла Animal Lore var armlor = 80 # Ограничение скилла Arms Lore var evalint = 70 # Ограничение скилла Evaluating Intelligence var forens = 80 # Ограничение скилла Forensic Evaluation var itemid = 80 # Ограничение скилла Item Identification var testid = 80 # Ограничение скилла Taste Identification var detect = 90 # Ограничение скилла Detecting Hidden var hide = 35 # Ограничение скилла Hiding var stealth = 0 # Ограничение скилла Stealth var spirit = 100 # Ограничение скилла Spirit Speak var track = 50 # Ограничение скилла Tracking var dist=10 # Дистанция поиска указанного животного в тайлах var food='0x097B' # Тип еды, которую будем кушать в процессе. # '0x097B' - жаренная рыба # '0x09F2' - жаренное мясо # '0x171F' - бананы sub Lors() UO.canceltarget() if animlor <> 0 AND uo.skillval("Animal Lore",1) <> (animlor*10) then UO.Print("Укажите животное для изучения") uo.AddObject('animal') While uo.Targeting() Wait(100) Wend UO.Set('finddistance','dist') endif if armlor <> 0 AND itemid <> 0 OR uo.skillval("Arms Lore",1) <> (armlor*10) OR uo.skillval("Item ID",1) <> (itemid*10) then UO.Print("Укажите оружее для изучения") uo.AddObject('item') While uo.Targeting() Wait(100) Wend endif if testid <> 0 AND uo.skillval("Taste Identification",1) <> (testid*10) then UO.Print("Укажите зелье для изучения") uo.AddObject('potion') While uo.Targeting() Wait(100) Wend endif uo.msg(".pray") # Молимся. while not uo.dead() if uo.injournal("Saving World State") then repeat wait(500) until uo.injournal("complete.") uo.deletejournal() endif if uo.skillval("Anatomy",1) < (anatomia*10) then uo.useskill("Anatomy",'self') wait(10000) endif if uo.skillval("Animal Lore",1) < (animlor*10) then uo.findtype('animal','ground') if uo.findcount() then uo.useskill("Animal Lore",'animal') wait(10000) else uo.print("Не найдено указанное животное для изучения скилла Animal Lore") wait(1000) endif endif if uo.skillval("Arms Lore",1) < (armlor*10) then uo.findtype('item','my') if uo.findcount() then uo.useskill("Arms Lore",'item') wait(10000) else uo.print("Не найден указанный предмет для изучения скилла Arms Lore") wait(1000) endif endif if uo.skillval("Evaluate Intelligence",1) < (evalint*10) then uo.useskill("Evaluating Intelligence",'self') wait(10000) endif if uo.skillval("Forensic Evaluation",1) < (forens*10) then uo.useskill("Forensic Evaluation",'self') wait(10000) endif if uo.skillval("Item ID",1) < (itemid*10) then uo.findtype('item','my') if uo.findcount() then uo.useskill("Item Identification",'item') wait(10000) else uo.print("Не найден указанный предмет для изучения скилла Item Identification") wait(1000) endif endif if uo.skillval("Taste Identification",1) < (testid*10) then uo.findtype('potion','my') if uo.findcount() then uo.useskill("Taste Identification",'potion') wait(10000) else uo.print("Не найден поушен для изучения скилла Taste Identification") wait(1000) endif endif if uo.skillval("Detect Hidden",1) < (detect*10) then uo.useskill("Detect Hidden") wait(10000) endif if uo.skillval("Hiding",1) < (hide*10-1) then uo.useskill("Hiding") wait(10000) endif if uo.skillval("Stealth",1) < (stealth*10) then while uo.hidden()==0 uo.useskill("Hiding") wait(5000) wend uo.useskill("Stealth") wait(10000) endif if uo.skillval("Spirit Speak",1) < (spirit*10) then uo.useskill("Spirit Speak") wait(10000) endif if uo.skillval("Tracking",1) < (track*10) then uo.waitmenu('Select','1') uo.useskill("Tracking") wait(10000) endif eda() wend endsub Sub eda() uo.findtype(food) if uo.findcount() then uo.usetype(food) wait(1000) else uo.print("Нет еды!") wait(1000) endif end sub Медит и магери sub magery() while not uo.dead() if uo.mana >50 then UO.exec("msg '.cast magicr' self") #тут вставляете тот каст который нужно кастовать(сокращения кастов есть на сайте в разделе магия) UO.WaitTargetObject('last') wait(9000) else a: while UO.Mana<UO.Int UO.UseSkill("Meditation") wait(5000) uo.press(36,2,500) wait(300) uo.press(34,2,500) goto a end if UO.UseType('0x171F') wend endif wend end sub Пойзон sub Poisoning() UO.Addobject("device") UO.Print("Choose the object to poison!") while uo.targeting() wait(100) wend if (UO.InJournal("Saving World State")) then while (not UO.InJournal("complete")) wait(100) wend UO.DeleteJournal() endif while UO.Count("0x0F0E",0x0694)>0 UO.Findtype("0x0F0E",0x0694,-1) wait(100) UO.Waittargetobject('finditem','device') UO.Useskill("Poisoning") wait(10000) uo.exec("usetype '0x097B'") wend end sub Сразу прошу выкладывайте только скрипты, не надо лишних постов. Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
Leonardo González 0 Жалоба Опубликовано 22 июня, 2013 Ещё пожалуйста Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты