Page 1 of 1
Народ будте добры дайте скриты на магию>Ин нокс
Posted: 2004-10-13 18:06:35
by killmon
Плиз а то мой скрипт збивается после каждого ворлд сэива так бесит...ПЛИИИЗ ХЕЛП Я ВАС ПРОШУУУУУУУУУУ!!:
sub magery()
VAR LastTimer
while NOT UO.Dead()
CheckLag()
UO.Cast('Poison','self')
wait(3000)
while UO.MANA < UO.INT
UO.DeleteJournal()
UO.UseSkill('Meditation')
repeat
wait(150)
until UO.InJournal("You are") OR UO.InJournal("You lose")
wend
wend
end sub
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(500)
until UO.InJournal('backpack')
end sub
Re: Народ будте добры дайте скриты на магию>Ин нокс
Posted: 2004-10-14 09:00:29
by MitAl
killmon wrote:Плиз а то мой скрипт збивается после каждого ворлд сэива так бесит...ПЛИИИЗ ХЕЛП Я ВАС ПРОШУУУУУУУУУУ!!:
Я вот на этом прокачал до ГМ. Автора не знаю.
Code: Select all
sub magery()
VAR LastTimer
while NOT UO.Dead()
UO.FindType('0x0F88','0x0000','backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x0F88','0x0000','0x401C7D02') ;serial sunduka s travoyi
UO.Grab('30','finditem')
wait(300)
Endif
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
Re: Народ будте добры дайте скриты на магию>Ин нокс
Posted: 2004-10-14 14:23:23
by killmon
Спасибо 1 ворлд сеив он уже прошол ща прослежу за остальными
Re: Народ будте добры дайте скриты на магию>Ин нокс
Posted: 2004-10-14 19:43:58
by Sfagnum
killmon wrote:Спасибо 1 ворлд сеив он уже прошол ща прослежу за остальными
за всеми????:D
Posted: 2004-10-14 23:17:30
by autopilot
Скрип для этого и нужен чтоб не смотреть на монитор ! Скрипт этот работает не боись
