я сдесь скачал скрипт,но он постоянно вылетает,на ночь фиг оставишь инжу обновил,хз че,мож посмотрите.....
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
люди помогите со скриптом по магии
Moderators: Murderator+, Murderator
[/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
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
Code: Select all
если правильный скрипт взял.... это он?
Last edited by CROVCHUK on 2005-03-18 16:09:44, edited 1 time in total.
Code: Select all
################################################################
;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, который является больше чем соавтором этого скрипта.Держи... И если что-то не работает пишп.
CROVCHUK wrote:ЧЕТО ОН НЕ ПАШЕТ....
Поменяй ИД сундука на свой !!! Туда NS сложи много и в пак тоже чуток положи !!! И запускай !!! Желательно чтоб браслет маны был на руке, так оно быстрее выходит медитировать !!!
Сундук и пак должны быть открыты иначе инжа не увидит регов !!!
Сделал дело - флуди смело !!!
. (с) кто-то...