Yoko

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

sub Magery()
var LastTimer
while not uo.Dead()
uo.DeleteJournal()
CheckLag()
while uo.Mana>=10
uo.Cast('Poison','self')
wait(3000)
wend
while uo.Mana<uo.INT
LastTimer=uo.Timer()
uo.UseSkill('Meditation')
repeat
wait(100)
until uo.InJournal('You are') or uo.InJournal('You lose') or uo.Timer()>LastTimer+200
uo.DeleteJournal()
wait(2000)
wend
wend
end sub

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

_________________
Сделал дело - флуди смело !!!

ЧЕТО ОН НЕ ПАШЕТ....

[/code]Var Sunduk='0x40226380'

sub main()
While uo.count('0x0F88','0x0000')>0

if uo.skillval('Magery',1)==1000 Then
return
end if

UO.FindType('0x0F88',-1,'backpack')
While UO.GetQuantity('finditem')<5
UO.FindType('0x0F88','0x0000',Sunduk)
wait(1000)
UO.Grab('100','finditem')
wait(700)
Wend

##while uo.mana>20
cheklag()
uo.cast('Poison','self')
wait(3000)
##wend


Repeat
uo.deletejournal()
uo.useskill('Meditation')
Wait(3000)
Until UO.InJournal("You must wait to perform another action") or uo.mana >= uo.int

While uo.mana < uo.int
Wait(100)
Wend
Wait(100)

Wend
end sub

sub cheklag()
uo.deletejournal()
uo.click('backpack')
Repeat
wait(100)
Until UO.InJournal("backpack")
end sub

если правильный скрипт взял.... это он?

################################################################
;Magery v.1.00. (c) DamneD
;Чар берёт из сундука Nighshade и кастует Poison на себя.
;Если Mana закончилась- медетирует.
;Если Nighshade в backpack'е закончился, берёт из сундука.
;
;
;
sub Magery() 
   VAR NS='0x0F88' ; Тип Nighshade.
   VAR Sunduk='0x4021C658' ; Сериал(ID) Сундука.
   VAR Kolvo=10 ; Количество регов, которое чар берёт из сундука.
   While NOT UO.Dead() 
      While UO.Mana>=9 AND UO.NS>0 ; здесь можно менять со скаких маны чар начнёт медетировать, то же число следует поставить в строку *.
         UO.DeleteJournal() 
         UO.Cast('Poison', 'self') 
         wait(3000) 
      wend 
      If UO.Mana<9 Then ;*
         While UO.Mana<UO.Int 
            UO.DeleteJournal() 
            wait(1000)
            UO.Useskill('Meditation') 
            Repeat 
               wait(100) 
            until UO.InJournal("You are") OR UO.InJournal("You lose") 
         Wend 
      Endif 
      If UO.NS == 0 Then 
   UO.FindType(NS, '-1', Sunduk) 
   UO.Grab(str(Kolvo), 'finditem') 
   repeat 
      wait(100) 
   until UO.NS>0 
Endif
   Wend 
end sub 
################################################################
;Благодарность хотелось бы выразить людям, которые помогали и советовали,
;как правильно сконструировать данное ЧУДО, а именно: 666Man666, Yoko,
;gmur, Worth, Askaneli.
;Особо хочется выразить благодарность и напоить пивом на несколько лет вперёд
;Edred'a, который является больше чем соавтором этого скрипта.

Держи... И если что-то не работает пишп.

Поменяй ИД сундука на свой !!! Туда NS сложи много и в пак тоже чуток положи !!! И запускай !!! Желательно чтоб браслет маны был на руке, так оно быстрее выходит медитировать !!!
Сундук и пак должны быть открыты иначе инжа не увидит регов !!!

_________________
Сделал дело - флуди смело !!!

и так ответ !
а если ты обьяснишь, что такое ловер рег, то получишь ответ поконкретнее.
P.S. Телепаты в отпуске . (с) кто-то...