Перейти к содержанию
Форум шарда Middle-Earth
Авторизация  
_ka

Любая книга заклинаний [Injection]

Рекомендуемые сообщения

#Весь МЕ Инскрипт: три цветные книжки, спелбука, рунбуки, реколы.
#С учетом работающей при рисовании медитации.
#Для реколов: рекомендуется одеть фулл акву, скроли иметь в бакпаке.
#Для рунбук:бланк,рекол,гейтравел скроли и руны должны находиться в бакпаке. ВЫЛОЖИ СПЕЛБУКи!
#Для рисования книг: скроли под ноги чару, в бакпаке полную и пустые книги.
#После выбора нужной книги, первым таргетом тыкаем в полную, вторым таргетом в пустую.
#КАТЕГОРИЧЕСКИ НЕ РЕКОМЕНДУЕТСЯ: брать\перемещать любы предметы во время работы!
#Два режима старта
#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 6' 'Select' 'Energy Bolt'")
#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' 'Telekinesis'")
   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' 'Arch Cure'")
   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' 'Mana Drain'")
   WriteSpell("0x1F4C","waitmenu 'Select' 'Circle 4' 'Select' 'Recall'")

   WriteSpell("0x1F4D","waitmenu 'Select' 'Circle 5' 'Select' 'Blade Spirit'")
   WriteSpell("0x1F4E","waitmenu 'Select' 'Circle 5' 'Select' 'Dispel Field'")
   WriteSpell("0x1F4F","waitmenu 'Select' 'Circle 5' 'Select' 'Incognito'")
   WriteSpell("0x1F50","waitmenu 'Select' 'Circle 5' 'Select' 'Spell 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' 'SummonCreature'")

   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'")
   WriteSpell("0x1F61","waitmenu 'Select' 'Circle 7' 'Select' 'ManaVampire'")
   WriteSpell("0x1F62","waitmenu 'Select' 'Circle 7' 'Select' 'Mass Dispel'")
   WriteSpell("0x1F63","waitmenu 'Select' 'Circle 7' 'Select' 'Meteor Swarm'")
   WriteSpell("0x1F64","waitmenu 'Select' 'Circle 7' 'Select' 'Polymorph'")

   WriteSpell("0x1F65","waitmenu 'Select' 'Circle 8' 'Select' 'Earthquake'")
   WriteSpell("0x1F66","waitmenu 'Select' 'Circle 8' 'Select' 'EnergyVortex'")
   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 Elemental'")
   WriteSpell("0x1F6C","waitmenu 'Select' 'Circle 8' 'Select' 'Summon Water Elemental'")
   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

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Гость
Ответить в этой теме...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

Загрузка...
Авторизация  

×
×
  • Создать...