Скрипт на magery

[Angurat]

Я ищу скрипт на прокачку магии. Но не нашел его на этом форуме. Если у кого-то он есть, пожалуйста напишите код сюда (для инжы). А также мне хотелось бы получить скрипты на прокачку meditation и evaluating intelligence (если это возможно).
Я играю на ДРВ.

[Leo]

Магия:

Code: Select all

sub PoisonSelf() 
while uo.mana >= uo.INT 
Uo.Exec("cast 'Poison' self") 
wait(2500) 
wend 

while uo.mana < UO.INT 
Uo.Exec("useskill Meditation") 
wait(500) 
wend 
uo.exec("exec PoisonSelf") 
endsub

Эвалют:

Code: Select all

var obj='0x0024EA83' 
sub Evaluate() 
var count=0,i=0 
uo.useobject('backpack') 
i=0 
repeat 
i=i+1 
cheklag() 
uo.print("Evaluating...") 
UO.Useskill('Evaluating',obj) 
wait(4500) 
if i==30 then 
uo.usetype('0x097B') 
wait(1000) 
i=0 
cheklag() 
end if 
until UO.Dead() 
end sub 

sub cheklag() 
uo.deletejournal() 
uo.click('backpack') 
repeat 
wait(10) 
until uo.InJournal("backpack") 
end sub

Медитация:

Code: Select all

sub Meditation() 
var Exit, LastTimer, CharMana 
uo.Print('Выбери Курсу: ') 
uo.Exec('addobject Curse') 
while uo.Targeting() 
wait(100) 
wend 
wait(300) 
uo.DisArm() 
wait(2000) 
exit=0 
while Exit <> 1 
CharMana=uo.INT 
CheckLag() 
uo.WaitTargetType('0x0190') 
uo.UseObject('Curse') 
wait(500) 
uo.Canceltarget() 

if uo.InJournal('no target to cansel') then 
uo.DeleteJornal() 
end if 

repeat 
wait(500) 
until uo.Mana<CharMana 
CheckLag() 
LastTimer=uo.Timer() 

repeat 
uo.DisArm() 
uo.Print('Медитируем...') 
uo.Useskill('Meditation') 
wait(4000) 
until uo.Mana==uo.INT or LastTimer+300<uo.Timer() 
wend 
end sub 

sub CheckLag() 
uo.DeleteJournal() 
uo.Click('backpack') 
repeat 
wait(50) 
until uo.InJournal('backpack') 
end sub

[Angurat]

Спасибо вам большое!