nepret

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

и будет он тебе постоянно просить лошадь... в итоге скрипт сглючит и выдаст парс в самый не подходящий момент... да ещё и эту лошадь придётся указывать таргетом =( инжект способен на лучшее

sub Medit() UO.DeleteJournal() dress: uo.dress("1") uo.arm("1") wait(1000) goto mana undress: uo.dress("2") uo.arm("2") wait(1000) goto dress mana: if UO.Mana < UO.INT then UO.UseSkill("Meditation") goto wait else goto undress endif wait: if UO.InJournal("Points gained") then UO.DeleteJournal() goto wait_mana else if UO.InJournal("Points not") then UO.DeleteJournal() goto mana else wait(1000) goto wait endif endif wait_mana: if uo.mana < uo.int then wait(5000) goto wait_mana else goto undress endif end sub

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

а эти то зачем? на инжекте же уже есть норм скрипт на спаринг...

наврядли...

вообще, это был баг

учи... в паскале нет ничего сложного

Переделал скрипт на резку обуви. Мой не парсит... sub Boots() DIM Boot[9] Boot[0] = 0x170A Boot[1] = 0x170B Boot[2] = 0x170C Boot[3] = 0x170D Boot[4] = 0x170E Boot[5] = 0x170F Boot[6] = 0x1710 Boot[7] = 0x1711 Boot[8] = 0x0DC8 VAR i For i = 0 To 8 while uo.Count(Boot[i]) > 0 uo.findtype(Boot[i]) if uo.FindCount() > 0 then UO.WaitTargetobject('finditem') UO.UseType(0x0F9E) wait(3500) endif wend next end sub

Чуть доработал скрипт. Что добавил: Проверка на наличие удочек в бекпаке, если удочек не сталось, закрываем клиент. Авто-кормёжка + проверка на наличие еды, если еды не осталось, закрываем клиент. Дроп пойманной обуви себе под ноги. Удаление пойманных сос-бутылок, карт и старых рыбацких сетей. В бекпаке ВСЕГДА иметь: Trash бочку. Еду. Удочки. При старте, скрипт попросит вас указать Trash бочку. По поводу самого скрипта на ловлю: Чар начинает ловить с правого верхнего угла, потом плавно переходит ближе к чару. Поэтому приходиться ставить рыбака в верхний угол лодки... Что-бы можно было поставить второго чара, на нижний угол, надо в скрипте, в строке FishTile(tile, uo.GetX() + i, uo.GetY() + j, 251) перед i поменять + на -, тогда всё заработает как надо. var food='0x097B' # Тип еды #'0x097B' - жаренная рыба #'0x09F2' - жаренное мясо #'0x171F' - бананы Sub check() var q dim bot[7] bot[0] = '0x170D' bot[1] = '0x170E' bot[2] = '0x170C' bot[3] = '0x170B' bot[4] = '0x170F' bot[5] = '0x1710' bot[6] = '0x1711' for q=0 to 6 while uo.Count(bot[q]) > 0 uo.findtype(bot[q]) if uo.FindCount() > 0 then uo.exec("moveitem 'finditem' '1' 'ground'") wait(300) endif wend next dim shlak[3] shlak[0] = '0x14ED' shlak[1] = '0x0DC8' shlak[2] = '0x099F' for q=0 to 2 while uo.Count(shlak[q]) > 0 uo.findtype(shlak[q]) if uo.FindCount() > 0 then uo.exec("moveitem 'finditem' '1' 'trash'") wait(300) endif wend next if uo.count("0x0DBF")<1 then uo.closeuo() endif uo.findtype(food) if uo.findcount() then uo.usetype(food) else uo.closeuo() endif end sub Sub FishTile(t, x, y, z) var timer repeat check() uo.WaitTargetTile(Str(t), Str(x), Str(y), Str(z)) uo.UseType(0x0DBF) #Удочка uo.DeleteJournal() timer = 0 repeat wait(1000) timer = timer + 1 until uo.InJournal("Points") or uo.InJournal("here") or uo.InJournal("line") or uo.InJournal("broken") or timer > 120 until uo.InJournal("here") or uo.InJournal("line") end sub sub Fishing() UO.canceltarget() UO.Print("Укажите Trash бочку...") UO.addobject('trash') While UO.Targeting() Wait(100) Wend var i, j, tile uo.Disarm() while not uo.dead() for i = -6 to 6 for j = -6 to 6 tile = 168 while (not uo.PrivateGetTile(uo.GetX() + i, uo.GetY() + j, 251, tile, tile)) and (tile < 6045) if tile == 171 then tile = 310 else if tile == 311 then tile = 6039 else tile = tile + 1 endif endif wend if tile < 6039 then tile = 0 endif if tile < 6045 then uo.concolor(0x53) uo.Print("Fishing: " + Str((i + 6) * 13 + j + 7) + "/169...") uo.concolor(0) FishTile(tile, uo.GetX() + i, uo.GetY() + j, 251) endif next next uo.Print("Завершил круг. Продолжаю.") wend end sub

Скрипт крафтит полный комплект брони Exceptional Dwarven Platemail ################################################################ # # Скрипт изготавливает полный комплект эгзептовой брони Dwarven Platemail + щит Heater и # перекладывает готовые части в контейнер. # Контейнер указывается таргетом после старта скрипта. # Если во время ковки поломался молоток, тонг, наковальня или кончились инги, # скрипт встанет на паузу пока в бекпаке не появится нужные предметы. # Для работы скрипта в бекпаке должны лежать: # *Инги # *Тонг # *Молоток # Так же, чар должен стоять возле плавильни и наковальни (не дальше 2 тайлов от обоих). # В настройках скрипта можно выбрать тип еды и ковка комплекта как с щитом, так и без него. # ################################################################ var food = '0x097B' # Тип еды, которую будем кушать в процессе. # '0x097B' - жаренная рыба # '0x09F2' - жаренное мясо # '0x171F' - бананы var shield = 0 # Если нужен комплект брони без щита, поставте 0 sub FEDP() var i, c var t = 0 UO.set('finddistance','3') UO.canceltarget() UO.Print("Куда складывать броню?") UO.addobject('Bag') While UO.Targeting() Wait(100) Wend dim armor[7] armor[0]='0x1416' #Breastplate armor[1]='0x141A' #Legs armor[2]='0x1417' #Arms armor[3]='0x1419' #Helm armor[4]='0x1418' #Gloves armor[5]='0x1413' #Gorget armor[6]='0x1B76' #Shield dim menu1[7] menu1[0]='Armor' menu1[1]='Armor' menu1[2]='Armor' menu1[3]='Armor' menu1[4]='Armor' menu1[5]='Armor' menu1[6]='Shields' dim menu2[7] menu2[0]='Platemail' menu2[1]='Platemail' menu2[2]='Platemail' menu2[3]='Helmets' menu2[4]='Platemail' menu2[5]='Platemail' menu2[6]='Heater' dim menu3[6] menu3[0]='Dwarven Platemail Breastplate' menu3[1]='Dwarven Platemail Legs' menu3[2]='Dwarven Platemail Arms' menu3[3]='Dwarven Plate Helm' menu3[4]='Dwarven Platemail Gloves' menu3[5]='Platemail Gorget' for i=0 to 5 repeat c = 1 check() uo.DeleteJournal() uo.waitmenu('What', menu1[i], 'Select', menu2[i], 'Select', menu3[i]) uo.waittargettype('0x1BF2') uo.usetype('0x13E3') repeat wait(1000) t = t + 1 until uo.injournal("You create|You destroy|You make") or t == 20 t = 0 if uo.injournal("exceptional") then uo.findtype(armor[i]) if uo.findcount() then uo.moveitem('finditem', 1, 'Bag') wait(300) endif c = 0 wait(500) else uo.findtype(armor[i]) if uo.findcount() > 0 then uo.waittargetobject('finditem') uo.usetype('0x0FBB') repeat wait(1000) t = t + 1 until uo.injournal("You could make") or t == 20 t = 0 wait(3000) endif endif until c == 0 next if shield == 1 then repeat c = 1 uo.DeleteJournal() uo.waitmenu('What', menu1[6], 'Select', menu2[6]) uo.waittargettype('0x1BF2') uo.usetype('0x13E3') repeat wait(1000) t = t + 1 until uo.injournal("You create|You destroy|You make") or t == 20 t = 0 if uo.injournal("exceptional") then c = 0 wait(500) else uo.findtype(armor[6]) if uo.findcount() > 0 then uo.waittargetobject('finditem') uo.usetype('0x0FBB') repeat wait(1000) t = t + 1 until uo.injournal("You could make") or t == 20 t = 0 wait(3000) endif endif until c == 0 endif end sub Sub check() uo.findtype(food) if uo.findcount() then uo.usetype(food) else uo.print("Нет еды!") endif while uo.count('0x1BF2') < 30 uo.print("Нет инготов в бекпаке! Либо их меньше 30 штук.") wait(5000) wend while uo.count('0x13E3') < 1 uo.print("Нет молотка!") wait(5000) wend while uo.count('0x0FBB') < 1 uo.print("Нет тонга!") wait(5000) wend uo.findtype('0x0FAF',-1,'ground') while uo.findcount() < 1 uo.findtype('0x0FAF',-1,'ground') if uo.findcount() < 1 then uo.print("Рядом нет наковальни") wait(5000) endif wend end sub ЗЫ: дим брал из этого поста

выключи нумлок

проблема со стаками ткани, к примеру 2 рулона по 100 в каждом, если оба порезать на ткань, то есть большая вероятность (50-50) что они не будут стаковаться 100 рулонов это где-то 5к ткани причём, один из этих стаков не будет "принимать в себя" резаную ткань из вещей которые были сделаны из этого же стака клиент 200, но пробывал и на 403, таже хрень вин7 х64 зы: заметил такую вещь! если при переделки баулов в ткань, шмотка сфейлиться, то ткань пойдёт нормальная, и на оборот

я вот сейчас заглянул в раздел файлы на сайте и немного удивился вот этому с каких пор хамер потдерживает скрипты инжекта? оО

google?

с этим не поборешся, либо терпи либо забей...

мог бы и сам написать скрипты лементарные, кроме мининга всё это есть в этой теме

есть сайт с описанием команд инжекта есть форум инжекта где можно взять кучу примеров есть лень, которая мешает воспользоваться поиском! это главный барьер...

дк качаеться за 2 дня макроса...

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

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

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

странно, ниразу не видел пала или ренжака в шахте с киркой и в лесу с топором...

почему то нет ареса и резака в списках...

непомню откуда брал, скорей всего с этого форума скрипт на спаринг, 100% рабочий!!!!! sub sparring() var oppHpThreshold = 50/100 #порог хп оппонента, при котором отходить var selfHpThreshold = 50/100 #порог своего хп, при котором отходить uo.AddObject('opponent') while uo.targeting() wait(100) wend var done = 0 var oppHpLow = 0 var selfHpLow = 0 var selfX = uo.GetX() var selfY = uo.GetY() var oppX = uo.GetX('opponent') var oppY = uo.GetY('opponent') var dx = oppX - selfX var dy = oppY - selfY var Rhand = uo.GetGraphic(uo.ObjAtLayer('Rhand')) #тип объекта в правой руке (0x0000 если пусто) var Lhand = uo.GetGraphic(uo.ObjAtLayer('Lhand')) #тип объекта в левой руке (0x0000 если пусто) uo.WarMode(1) uo.Attack('opponent') repeat if (uo.GetHP('opponent') < uo.GetMaxHP('opponent') * oppHpThreshold) then oppHpLow = 1 end if if (uo.Life < uo.str * selfHpThreshold) then selfHpLow = 1 end if #если у кого-то мало хп, отходи и лечимся if (oppHpLow or selfHpLow) then Step(-dx, -dy) uo.WarMode(0) if (oppHpLow) then HealOpponent() oppHpLow = 0 end if if (selfHpLow) then HealSelf() selfHpLow = 0 end if Step(dx, dy) uo.WarMode(1) uo.Attack('opponent') end if wait(500) #иногда на сейвах слетает вар if (not uo.WarMode()) then uo.WarMode(1) uo.Attack('opponent') end if #если в правой руке не то, что было в самом начале, #и если в самом начале там что-то было, пытаемся взять тоже самое #если того-же самого нет, ставим флаг завершения if (uo.GetGraphic(uo.ObjAtLayer('Rhand')) <> Rhand and Rhand <> '0x0000') then uo.FindType(Rhand) if (uo.FindCount()) then uo.Equipt('Rhand', Rhand) uo.print('Equip Rhand device') else done = 1 uo.print('no more Rhand devices') end if end if #аналогично правой руке if (uo.GetGraphic(uo.ObjAtLayer('Lhand')) <> Lhand and Lhand <> '0x0000') then uo.FindType(Lhand) if (uo.FindCount()) then uo.Equipt('Lhand', Lhand) uo.print('Equip Lhand device') else done = 1 uo.print('no more Lhand devices') end if end if #проверка на дохлость if (uo.GetHP('opponent') == 0 or uo.Life == 0) then done = 1 uo.print('somebody is dead') end if #если бинты кончились, заканчиваем if (uo.B == 0) then done = 1 uo.print('no more bandages') end if until done Step(-dx, -dy) uo.WarMode(0) uo.print('Done traning') end sub #--------------------------------------------- #вспомогательные функции sub HealOpponent() uo.print('heal opponent') repeat uo.waittargetobject('opponent') uo.usetype('0x0E21') #бинты wait(5000) until uo.getHP('opponent') == uo.getMaxHP('opponent') uo.print('opponent heal complete') end sub sub HealSelf() uo.print('heal self') repeat uo.bandageself() wait(5000) until uo.Life == uo.STR uo.print('self heal complete') end sub sub Step(dx, dy) var direction dim directions[9] directions[1] = 8 directions[2] = 7 directions[3] = 4 directions[4] = 9 directions[5] = 5 directions[6] = 1 directions[7] = 6 directions[8] = 3 directions[9] = 2 var idx = (sign(dx) + 1) * 3 + (sign(dy) + 1) + 1 uo.AddStep(directions[idx]) end sub sub sign(n) if (n < 0) then n = -1 end if if (n > 0) then n = 1 end if return n end sub