Amba 0 Жалоба Опубликовано 10 ноября, 2006 Тема для универсальных, модульных=гибких в настройке, проверенных скриптов. Система "поощрений" "дайте скрипт" = 7 дней бана "вот скрипт, но нужно доработать кувалдой и напильником" = 7 дней бана "скрипт с шарда www.цензоред.ru"= 7 дней бана "у меня куче есть, но не дам" = 14 дней бана Для таких просьб\сриптов юзаем ветку: http://middle33.valuehost.ru/forum/index.php?showtopic=61 Тема ТОЛЬКО для КРАФТ СКРИПТОВ, никаких вопросов, просьб и т.п. т.к. надоело по 20-40 флуда просматривать и ничего не находить. КРАФТ = БС, БК, инскрипт, тинкер и т.п. В идеале один скрипт на крафт, но содержащий максимально полезной инофрмации. Ни каких скриптов на надцатЪ страниц типа : script1: UO.Exec("waittargetobject '^0x13DB'") Wait (300) UO.Exec("useobject '^0x0F9E'") Wait (7000) UO.Exec("waitmenu 'Choose a category.' 'studded' 'What do you want to create?' 'Studded Tunic'") UO.Exec("waittargetobject '^0x1078'") UO.Exec("useobject '^0x0F9D'") wait(15000) if UO.Injournal ("exceptional") then UO.deletejournal() uo.exec("moveitem '^0x13DB' '1' '^0x0E76'") wait(2000) goto script2 else goto script1 endif script2: Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
A.K.M. 0 Жалоба Опубликовано 10 ноября, 2006 #Весь МЕ Инскрипт: три цветные книжки, спелбука, рунбуки, реколы. #С учетом работающей при рисовании медитации. #Для реколов: рекомендуется одеть фулл акву, скроли иметь в бакпаке. #Для рунбук:бланк,рекол,гейтравел скроли и руны должны находиться в бакпаке. ВЫЛОЖИ СПЕЛБУКи! #Для рисования книг: скроли под ноги чару, в бакпаке полную и пустые книги. #После выбора нужной книги, первым таргетом тыкаем в полную, вторым таргетом в пустую. #КАТЕГОРИЧЕСКИ НЕ РЕКОМЕНДУЕТСЯ: брать\перемещать любы предметы во время работы! #Два режима старта #mine()-полный автомат, внимательно читаем меню и тыркаем в нужные кнопки #mine2()-ручной запуск нужной функции, ставим-убираем знак # где нужно, для реколов\рунбук ставим и перед UseBooks() # (c) A.K.M. sub main2() UseBooks() #DarkBook() #LightBook() #DruidBook() SpellBook() #Recalls() #RuneBooks() end sub sub Recalls() var SpellBook,Delay UO.CancelTarget(); UO.Print('Targetom na SpellBook') UO.AddObject('SpellBook') while uo.targeting() wait(100) wend while UO.Count('0x0E34')>0 if UO.Mana<20 then Meditate() end if UO.Exec ("waitmenu 'Select' 'Circle 4' 'Select' 'Recall'") #UO.Exec ("waitmenu 'Select' 'Circle 7' 'Select' 'Gate'") UO.Exec ("waittargetobject '^0x0E34' 'SpellBook'") UO.UseSkill("Inscription") UO.Deletejournal() Delay=0 repeat wait(500) Delay=Delay+500 until uo.injournal("enough mana") or uo.injournal("move and stop") or uo.injournal("finish") if Delay<10000 then wait(10000-Delay) end if wend UO.Print('Prived Zayac!!! Scroli to gde? Gde scroli?!') end sub sub main() var Result Result =message('[YES=DarkBook/LightBook/DruidBook] [NO=SpellBook/RuneBooks/Recalls] ','ChooseMenu', 4, 4) If Result==6 then Result=message('[YES=DarkBook] [NO=LightBook] [CANCEL=DruidBook]','Choose book', 3, 3) If Result==6 then Uo.Say('OK! Risuem DarkBook!') UseBooks() DarkBook() end if If Result==7 then Uo.Say('OK! Risuem LightBook!') UseBooks() LightBook() end if If Result==2 then Uo.Say('OK! Risuem DruidBook!') UseBooks() DruidBook() end if else Result =message('[YES=SpellBook] [NO=RuneBooks] [CANCEL=Recalls]','Choose book', 3, 3) If Result==6 then Uo.Say('OK! Risuem SpellBook!') UseBooks() SpellBook() end if If Result==7 then Uo.Say('OK! Risuem RuneBooks!') RuneBooks() end if If Result==2 then Uo.Say('OK! Risuem Recalls!') Recalls() end if end if end sub sub RuneBooksTargetControl() var Pause Pause=0 while UO.Waiting() wait(300) Pause=Pause+300 If Pause >60000 then Uo.Print('Alarma. Reboot script.') Uo.Print('Alarma. Reboot script.') Uo.Print('Alarma. Reboot script.') Uo.Print('Script stopped!') Uo.Exec('terminate all') end if wend end sub sub RuneBooks() while UO.Count('0x1F14')>0 AND UO.Count('0x0E34')>7 AND UO.Count('0x1F4C')>0 AND UO.Count('0x1F60')>0 UO.waittargettype('0x1F14') UO.UseSkill('Inscription') RuneBooksTargetControl() UO.waittargettype('0x0E34') RuneBooksTargetControl() UO.waittargettype('0x1F4C') RuneBooksTargetControl() UO.waittargettype('0x1F60') RuneBooksTargetControl() wait(9000) wend UO.Print('Done!') end sub sub DarkBook() WriteSpell("0x1F3B","waitmenu 'Select' 'Dead Flesh'") WriteSpell("0x1F3F","waitmenu 'Select' 'Drain'") WriteSpell("0x1F3C","waitmenu 'Select' 'Impale'") WriteSpell("0x1F34","waitmenu 'Select' 'Ghoul'") WriteSpell("0x1F3E","waitmenu 'Select' 'Regeneration'") WriteSpell("0x1F37","waitmenu 'Select' 'Wraith'") WriteSpell("0x1F36","waitmenu 'Select' 'Raise Dead'") WriteSpell("0x1F39","waitmenu 'Select' 'Ghost'") WriteSpell("0x1F3D","waitmenu 'Select' 'Darkness'") WriteSpell("0x1F30","waitmenu 'Select' 'Lower'") WriteSpell("0x1F31","waitmenu 'Select' 'Vulnerability'") WriteSpell("0x1F32","waitmenu 'Select' 'Pain'") WriteSpell("0x1F38","waitmenu 'Select' 'Unholy'") WriteSpell("0x1F3A","waitmenu 'Select' 'Great'") WriteSpell("0x1F33","waitmenu 'Select' 'Sacrifice'") WriteSpell("0x1F35","waitmenu 'Select' 'Kill'") UO.Print('Done!') end sub sub LightBook() WriteSpell("0x1F30","waitmenu 'Select' 'Poison'") WriteSpell("0x1F30","waitmenu 'Select' 'Spirit'") WriteSpell("0x1F3F","waitmenu 'Select' 'Free'") WriteSpell("0x1F30","waitmenu 'Select' 'Magic'") WriteSpell("0x1F30","waitmenu 'Select' 'Heal'") WriteSpell("0x1F30","waitmenu 'Select' 'Greater'") WriteSpell("0x1F3F","waitmenu 'Select' 'Glyph'") WriteSpell("0x1F3F","waitmenu 'Select' 'Bolt'") WriteSpell("0x1F30","waitmenu 'Select' 'Sacred'") WriteSpell("0x1F3F","waitmenu 'Select' 'Celestial'") WriteSpell("0x1F30","waitmenu 'Select' 'Ray of Light'") WriteSpell("0x1F30","waitmenu 'Select' 'Prayer'") WriteSpell("0x1F30","waitmenu 'Select' 'Holy'") WriteSpell("0x1F30","waitmenu 'Select' 'Day'") WriteSpell("0x1F3F","waitmenu 'Select' 'Light Elemental'") WriteSpell("0x1F30","waitmenu 'Select' 'Divine'") UO.Print('Done!') end sub sub DruidBook() WriteSpell("0x1F32","waitmenu 'Select' 'Protection'") WriteSpell("0x1F32","waitmenu 'Select' 'Disease'") WriteSpell("0x1F30","waitmenu 'Select' 'Call Woodland'") WriteSpell("0x1F32","waitmenu 'Select' 'Stoneskin'") WriteSpell("0x1F31","waitmenu 'Select' 'Call Lightning'") WriteSpell("0x1F32","waitmenu 'Select' 'Remove'") WriteSpell("0x1F32","waitmenu 'Select' 'Burnt'") WriteSpell("0x1F32","waitmenu 'Select' 'Entangle'") WriteSpell("0x1F32","waitmenu 'Select' 'Nature'") WriteSpell("0x1F31","waitmenu 'Select' 'Miscast'") WriteSpell("0x1F32","waitmenu 'Select' 'Gust'") WriteSpell("0x1F32","waitmenu 'Select' 'Insect'") WriteSpell("0x1F32","waitmenu 'Select' 'Turn'") WriteSpell("0x1F32","waitmenu 'Select' 'Ice'") WriteSpell("0x1F32","waitmenu 'Select' 'Acid'") WriteSpell("0x1F32","waitmenu 'Select' 'Wyvern'") UO.Print('Done!') end sub sub SpellBook() WriteSpell("0x1F2D","waitmenu 'Select' 'Circle 1' 'Select' 'Reactive Armor'") WriteSpell("0x1F2E","waitmenu 'Select' 'Circle 1' 'Select' 'Clumsy'") WriteSpell("0x1F2F","waitmenu 'Select' 'Circle 1' 'Select' 'Create Food'") WriteSpell("0x1F30","waitmenu 'Select' 'Circle 1' 'Select' 'Feeblemind'") WriteSpell("0x1F31","waitmenu 'Select' 'Circle 1' 'Select' 'Heal'") WriteSpell("0x1F32","waitmenu 'Select' 'Circle 1' 'Select' 'Magic Arrow'") WriteSpell("0x1F33","waitmenu 'Select' 'Circle 1' 'Select' 'Night Sight'") WriteSpell("0x1F34","waitmenu 'Select' 'Circle 1' 'Select' 'Weaken'") WriteSpell("0x1F35","waitmenu 'Select' 'Circle 2' 'Select' 'Agility'") WriteSpell("0x1F36","waitmenu 'Select' 'Circle 2' 'Select' 'Cunning'") WriteSpell("0x1F37","waitmenu 'Select' 'Circle 2' 'Select' 'Cure'") WriteSpell("0x1F38","waitmenu 'Select' 'Circle 2' 'Select' 'Harm'") WriteSpell("0x1F39","waitmenu 'Select' 'Circle 2' 'Select' 'Magic Trap'") WriteSpell("0x1F3A","waitmenu 'Select' 'Circle 2' 'Select' 'Magic Untrap'") WriteSpell("0x1F3B","waitmenu 'Select' 'Circle 2' 'Select' 'Protection'") WriteSpell("0x1F3C","waitmenu 'Select' 'Circle 2' 'Select' 'Strength'") WriteSpell("0x1F3D","waitmenu 'Select' 'Circle 3' 'Select' 'Bless'") WriteSpell("0x1F3E","waitmenu 'Select' 'Circle 3' 'Select' 'Fireball'") WriteSpell("0x1F3F","waitmenu 'Select' 'Circle 3' 'Select' 'Magic Lock'") WriteSpell("0x1F40","waitmenu 'Select' 'Circle 3' 'Select' 'Poison'") WriteSpell("0x1F41","waitmenu 'Select' 'Circle 3' 'Select' 'Telekinisis'") WriteSpell("0x1F42","waitmenu 'Select' 'Circle 3' 'Select' 'Teleport'") WriteSpell("0x1F43","waitmenu 'Select' 'Circle 3' 'Select' 'Unlock'") WriteSpell("0x1F44","waitmenu 'Select' 'Circle 3' 'Select' 'Wall of Stone'") WriteSpell("0x1F45","waitmenu 'Select' 'Circle 4' 'Select' 'Archcure'") WriteSpell("0x1F46","waitmenu 'Select' 'Circle 4' 'Select' 'Arch Protection'") WriteSpell("0x1F47","waitmenu 'Select' 'Circle 4' 'Select' 'Curse'") WriteSpell("0x1F48","waitmenu 'Select' 'Circle 4' 'Select' 'Fire Field'") WriteSpell("0x1F49","waitmenu 'Select' 'Circle 4' 'Select' 'Greater Heal'") WriteSpell("0x1F4A","waitmenu 'Select' 'Circle 4' 'Select' 'Lightning'") WriteSpell("0x1F4B","waitmenu 'Select' 'Circle 4' 'Select' 'ManaDrain'") WriteSpell("0x1F4C","waitmenu 'Select' 'Circle 4' 'Select' 'Recall'") WriteSpell("0x1F4D","waitmenu 'Select' 'Circle 5' 'Select' 'Blade Spirits'") WriteSpell("0x1F4E","waitmenu 'Select' 'Circle 5' 'Select' 'Dispel Field'") WriteSpell("0x1F4F","waitmenu 'Select' 'Circle 5' 'Select' 'Incognito'") WriteSpell("0x1F50","waitmenu 'Select' 'Circle 5' 'Select' 'Magic Reflection'") WriteSpell("0x1F51","waitmenu 'Select' 'Circle 5' 'Select' 'Mind Blast'") WriteSpell("0x1F52","waitmenu 'Select' 'Circle 5' 'Select' 'Paralyze'") WriteSpell("0x1F53","waitmenu 'Select' 'Circle 5' 'Select' 'Poison Field'") WriteSpell("0x1F54","waitmenu 'Select' 'Circle 5' 'Select' 'Summon Creature'") WriteSpell("0x1F55","waitmenu 'Select' 'Circle 6' 'Select' 'Dispel'") WriteSpell("0x1F56","waitmenu 'Select' 'Circle 6' 'Select' 'Energy Bolt'") WriteSpell("0x1F57","waitmenu 'Select' 'Circle 6' 'Select' 'Explosion'") WriteSpell("0x1F58","waitmenu 'Select' 'Circle 6' 'Select' 'Invisibility'") WriteSpell("0x1F59","waitmenu 'Select' 'Circle 6' 'Select' 'Mark'") WriteSpell("0x1F5A","waitmenu 'Select' 'Circle 6' 'Select' 'Mass Curse'") WriteSpell("0x1F5B","waitmenu 'Select' 'Circle 6' 'Select' 'Paralyze Field'") WriteSpell("0x1F5C","waitmenu 'Select' 'Circle 6' 'Select' 'Reveal'") WriteSpell("0x1F5D","waitmenu 'Select' 'Circle 7' 'Select' 'Chain Lightning'") WriteSpell("0x1F5E","waitmenu 'Select' 'Circle 7' 'Select' 'Energy Field'") WriteSpell("0x1F5F","waitmenu 'Select' 'Circle 7' 'Select' 'Flamestrike'") WriteSpell("0x1F60","waitmenu 'Select' 'Circle 7' 'Select' 'Gate Travel'") WriteSpell("0x1F61","waitmenu 'Select' 'Circle 7' 'Select' 'Mana Vampire'") WriteSpell("0x1F62","waitmenu 'Select' 'Circle 7' 'Select' 'Mass Dispel'") WriteSpell("0x1F63","waitmenu 'Select' 'Circle 7' 'Select' 'Meteor Storm'") WriteSpell("0x1F64","waitmenu 'Select' 'Circle 7' 'Select' 'Polymorph'") WriteSpell("0x1F65","waitmenu 'Select' 'Circle 8' 'Select' 'Earthquake'") WriteSpell("0x1F66","waitmenu 'Select' 'Circle 8' 'Select' 'Energy Vortex'") WriteSpell("0x1F67","waitmenu 'Select' 'Circle 8' 'Select' 'Resurrection'") WriteSpell("0x1F68","waitmenu 'Select' 'Circle 8' 'Select' 'Summon Air Elemental'") WriteSpell("0x1F69","waitmenu 'Select' 'Circle 8' 'Select' 'Summon Daemon'") WriteSpell("0x1F6A","waitmenu 'Select' 'Circle 8' 'Select' 'Summon Earth Elemental'") WriteSpell("0x1F6B","waitmenu 'Select' 'Circle 8' 'Select' 'Summon Fire Elemenal'") WriteSpell("0x1F6C","waitmenu 'Select' 'Circle 8' 'Select' 'Summon Water Elememental'") UO.Print('Done!') end sub sub UseBooks() UO.CancelTarget(); UO.Print('Targetom na polnuu knizhku') UO.AddObject('FullBook') while uo.targeting() wait(100) wend UO.Print('Targetom na pustuu knizhku') UO.AddObject('EmptyBook') while uo.targeting() wait(100) wend end sub sub Meditate() while Uo.Mana<70 uo.useskill("Meditation") wait(2000) wend end sub sub DropBlankScrolls() while UO.Count('0x0E34')>0 UO.FindType(0x0E34, "all", "my") uo.drop("all",0,0,0,"finditem") wait(1000) wend end sub sub WriteSpell(ScrollType,SpellName) Repeat UO.DeleteJournal() DropBlankScrolls() UO.FindType(0x0E34, "all", "ground") UO.Grab('1', "finditem") wait(1000) if UO.Mana<50 then Meditate() end if UO.WaitTargetObject('^0x0E34','FullBook') UO.Exec(SpellName) UO.UseSkill("Inscription") wait(8000) until uo.injournal("You create") UO.FindType(ScrollType,'-1','Backpack') UO.MoveItem('finditem', '1', 'EmptyBook') wait(1000) end sub Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
Leaf 0 Жалоба Опубликовано 10 ноября, 2006 #общем попросили в миноке скрипт простенький на БС и объяснить как он пашет #В паке должна быть руда из которой куем, a smith's hammer и Tongs. Стоим около плавильни и наковальни. #С 50% до 60-70% БС #Код sub main1() 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 main2() 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 main3() 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 #Задержки вроде норм поставил, хотя хз щас лагает конкретно. Onis© Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
comatoza 0 Жалоба Опубликовано 10 ноября, 2006 Кое-какие скрипты... если есть желание переложите сюда... самому постить второй раз напрягает Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
Catscan 0 Жалоба Опубликовано 11 ноября, 2006 sub main() var num_of_potions, type_of_work, side_of_recipe, num_of_page, num_4_make, cast_bless var x_rlist, y_rlist, x_lbtn, y_lbtn, x_rbtn, y_rbtn,x_okbtn, y_okbtn, i, k num_of_potions = 1000 ; количество поушенов для изготовления type_of_work = "numr" ; тип работы скрипта: для изготовления определенного количества указать nump, для работы, пока не кончаться реги numr side_of_recipe = 1 ; 0 - левая страница, 1 - правая страница num_of_page = 0 ; номер страницы. 0 это первая страница num_4_make = "20" ; сколько делать поушенов (вводиться в строку после выбора типа поушена) cast_bless = 0 ; кастовать ли bless на себя x_rlist = 462 ; x - координата правого листа, для переворачивания страниц y_rlist = 165 ; y - координата правого листа, для переворачивания страниц x_lbtn = 294 ; x - координата левой кнопки приготовления поушена y_lbtn = 282 ; y - координата левой кнопки приготовления поушена x_rbtn = 451 ; x - координата правой кнопки приготовления поушена y_rbtn = 280 ; y - координата правой кнопки приготовления поушена x_okbtn = 320 ; x - координата кнопки "ОК" y_okbtn = 307 ; y - координата кнопки "ОК" if ((cast_bless == 1) and (UO.Count(0x0F84) > 0) and (UO.Count(0x0F86) > 0)) or (cast_bless == 0) then ###################### Часть выполнения, если тип работы по количеству регов и бутылок ################################ if type_of_work == "numr" then While (UO.Count(0x0F88) > 19) # книга рецептов UO.Exec("usetype 0x0fbd") wait(500) # если первая страница, то не переворачиваем if (num_of_page <> 0) then # если не первая, то нажимаем на уголок страницы нужное количество раз for i=0 to num_of_page UO.LClick(x_rlist, y_rlist) Wait(300) next endif # кликаем на кнопку приготовления if side_of_recipe == 0 then UO.LClick(x_lbtn, y_lbtn) wait(500) endif # кликаем на кнопку приготовления if side_of_recipe == 1 then UO.LClick(x_rbtn, y_rbtn) wait(500) endif # говорим, сколько сделать поушенов и ждем UO.Say(num_4_make) UO.LClick(x_okbtn, y_okbtn) wait(10000) while uo.life < uo.str uo.exec("bandageself") wait(5000) wend wend endif end sub Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
Finаdan 0 Жалоба Опубликовано 18 ноября, 2006 Скрипту на фишинг получите. Ничего прописывать не надо, запускаем fishing() и радуемся. Работает везде, вроде. Не помню, давно не проверял. sub FishTile(t, x, y, z) var timer repeat 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 EatFood() until uo.InJournal("here") or uo.InJournal("line") end sub sub Fishing() 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 Забыл сказать, для этого дела нужна свежая инда. Injection.dll с сайта Йоко качайте, МЕ-шная не подойдёт. Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты