killmon wrote:
Плиз а то мой скрипт збивается после каждого ворлд сэива так бесит...ПЛИИИЗ ХЕЛП Я ВАС ПРОШУУУУУУУУУУ!!:
Я вот на этом прокачал до ГМ. Автора не знаю.
Code:
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