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

Полезные скрипты!

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

Гость zaharik

АВТО ХИЛ

 

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

 

 

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

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


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

Join the conversation

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

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

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

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

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

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

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

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

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