Ultima Online Antares

sub Lockpicks()
VAR LastTimer, Quant=0, i=1

UO.Print('укажите контейнер с рудой и деревом (готовые отмычки будем складываться туда же')
UO.Set('quiet','1')
UO.Exec('addobject container')
while UO.Targeting()
wait(300)
wend
ToHide()

UO.Set('finddistance','2')
UO.FindType('container',-1,'1')
if UO.FindCount() then
repeat
UO.FindType('0x1ebc', -1, 2)
if UO.FindCount() then
UO.FindType('0x1BEF','-1','container')
wait(400)
if UO.FindCount() then
UO.Grab('1','finditem')
wait(500)
UO.FindType('0x1BDD','-1','container')
wait(400)
if UO.FindCount() then
UO.Grab('1','finditem')
wait(400)
ToHide()

deljournal("You put|fail")
LastTimer=UO.Timer()
UO.Automenu('Tinkering','Tools')
UO.Automenu('Tools','lockpick')
CheckLag()
UO.UseType("0x1EBC")
repeat
wait(300)
until UO.InJournal("You put|fail")

if NOT UO.InJournal("You have failed") then
UO.FindType('0x14FB',-1,'-1')
Quant=Quant+1
while UO.FindCount()
UO.FindType('0x14FB')
UO.MoveItem('finditem','0','container')
wait(400)
wend
if Quant/i==10 then
UO.Set('quiet','0')
UO.Print('Изготовлено '+Str(Quant)+' отмычек')
UO.Set('quiet','1')
i=i+1
end if
end if

UO.CancelMenu()
wait(300)
else
UO.Set('quiet','0')
UO.Print('В контейнере нет логов. Работа закончена')
UO.FindType('0x14FB','-1','container')
if UO.FindCount() then
UO.Print('Отмычек в контейнере всего: '+Str(UO.GetQuantity('finditem')))
UO.Print('За время работы отмычек изготовлено: '+Str(Quant))
end if
return
end if
else
UO.Set('quiet','0')
UO.Print('В контейнере нет ингов. Работа закончена')
UO.FindType('0x14FB','-1','container')
if UO.FindCount() then
UO.Print('Отмычек в контейнере всего: '+Str(UO.GetQuantity('finditem')))
UO.Print('За время работы отмычек изготовлено: '+Str(Quant))
end if
return
end if
else
UO.Set('quiet','0')
UO.Print('В паке должен быть инструмент. Нет инструмента - нет работы')
return
end if
until UO.Dead()
else
UO.Set('quiet','0')
UO.Print('слишком далеко от контейнера... ближе подойди')
end if
end sub


###---ЧЕКЛАГ

Sub checklag()
deljournal("backpack|Backpack")
UO.Click("backpack")
repeat
wait(100)
until UO.InJournal("backpack|Backpack")
end sub

###---СТЕРЕТЬ ЖУРНАЛ

Sub deljournal(msg)
while UO.InJournal(msg)
UO.SetJournalLine(UO.InJournal(msg)-1,"")
wend
end sub


###---ПРЯТАЛКА (HOTKEY F10)

sub ToHide()
var LastTimer
if NOT UO.Hidden() then
UO.DeleteJournal()
UO.Exec('warmode 0')
UO.Print('Щас как спрячусь!..')
UO.UseSkill('Hiding')
LastTimer=UO.Timer()
repeat
wait(300)
if UO.InJournal("can't seem to hide|to perform|stop trying") then
UO.DeleteJournal()
UO.Exec('warmode 0')
UO.UseSkill('Hiding')
end if
until UO.InJournal("have hidden yourself") || UO.Timer()>LastTimer+500
end if
end sub

###---ТЕРМИНАТОР - ОСТАНОВКА ВСЕХ РАБОТАЮШИХ СКРИПТОВ (HOTKEY ALT+Z)

sub MyTerminate()
UO.Set('quiet','1')
UO.CancelMenu()
UO.IgnoreReset()
UO.Set('quiet','0')
UO.Exec('terminate all')
end sub

sub Lockpicks()
var lockpick='0x14FB'
var sunduk='0x406DA66F'
VAR LastTimer
repeat
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.WaitMenu ('Tinkering', 'Tools', 'Tools', 'lockpick')
UO.UseType(0x1EBC)
repeat
wait(500)
until UO.InJournal("You put") or UO.InJournal("You can't make") or UO.InJournal("Tinkering failed") OR UO.Timer()>LastTimer+200
wait(300)
UO.FindType(lockpick,-1,'backpack')
UO.MoveItem('finditem',0,sunduk)
wait(100)
until UO.Count("0x1BEF")<1 or UO.Count("0x1BDD")<1
end sub

UO.MoveItem('finditem',0,sunduk)