Тинкеринг
Moderators: Murderator+, Murderator
Code: Select all
#####################################################################
; Tinker. v.1.00b (c) Edred
;
; Чар берёт из сумки инги, крафтит бутылки
; ложит их в ту же сумку .
; Если инги кончились выход.
;
sub tinker()
VAR Sunduk = '0x40EB78AC' ; сериал сундука
VAR Ingi = '0x1BEF' ; тип ингов
VAR Instrum = '0x1EBC' ; инструмент тинкера
VAR Bottle = '0x0F0E' ; тип бутылок
VAR Kolvo = 400 ; сколько ингов брать
VAR k = 0
repeat
While TRUE
UO.FindType( Ingi, -1, Sunduk ) ; ищем инги в сундуке
If UO.FindCount() == 0 Then
UO.Print("Iron Ingots not found, script terminated")
return
Endif
UO.Grab( Str( Kolvo ), 'finditem' )
wait( 2000 )
While UO.Count( Ingi ) > 20
; ???? ? ???? ???? ????
UO.Print('Ostalos ' + Str( UO.Count( Ingi ) ) + ' ingots' )
UO.DeleteJournal()
UO.WaitMenu ('Tinkering', 'Tools', 'Tools', 'Empty bottle' )
UO.UseType(Instrum)
k = 0
while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 )
k = k + 1
wait(500)
wend
if UO.Count( Bottle ) > 10 then
UO.FindType( Bottle, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 1000 )
UO.Print( 'Bottle moved' )
end if
Wend
Wend
until UO.Dead()
end sub
Он берут из мешка инги и ничего дальше не делает. В чём может быть проблема?Enima wrote:Я играю на шарде DRW. Заменил, как указано в пункте №3 - всёравно не рабоатет. А если меню другое, то как быть?
Точно на ДРВ работает - сам на нем бутылки делаю...
Code: Select all
sub Bottles()
#VAR eda = 0x09bb
repeat
#UO.UseSkill('Spirit')
#wait (600)
#uo.usetype(eda)
wait (300)
CheckLag()
UO.FindType('0x1BEF','0x0000','backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0000','0x401D179E') ;serial sunduka s iron
UO.Grab('100','finditem')
wait(300)
Endif
if UO.count('0x0F0E','0x0000')>110 then
CheckLag()
UO.FindType('0x0F0E','0x0000','backpack')
UO.setreceivingcontainer('0x401D179E') ;serial sunduka s iron
UO.Grab('0','finditem')
wait(300)
endif
CheckLag()
UO.Usetype('0x1EBC')
UO.WaitMenu('Tinkering','Tools','Tools','empty bottle')
wait (1000)
CheckLag()
UO.DeleteJournal()
while not (UO.InJournal("You put") or UO.InJournal("Tinkering failed"))
wait(300)
wend
UO.UnSetReceivingContainer()
wait(200)
until UO.Dead()
end sub
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(50)
until UO.InJournal('backpack')
UO.DeleteJournal()
end sub
MitAl wrote:Enima wrote:Я играю на шарде DRW. Заменил, как указано в пункте №3 - всёравно не рабоатет. А если меню другое, то как быть?
Точно на ДРВ работает - сам на нем бутылки делаю...Code: Select all
sub Bottles()
#VAR eda = 0x09bb
repeat
#UO.UseSkill('Spirit')
#wait (600)
#uo.usetype(eda)
wait (300)
CheckLag()
UO.FindType('0x1BEF','0x0000','backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0000','0x401D179E') ;serial sunduka s iron
UO.Grab('100','finditem')
wait(300)
Endif
if UO.count('0x0F0E','0x0000')>110 then
CheckLag()
UO.FindType('0x0F0E','0x0000','backpack')
UO.setreceivingcontainer('0x401D179E') ;serial sunduka s iron
UO.Grab('0','finditem')
wait(300)
endif
CheckLag()
UO.Usetype('0x1EBC')
UO.WaitMenu('Tinkering','Tools','Tools','empty bottle')
wait (1000)
CheckLag()
UO.DeleteJournal()
while not (UO.InJournal("You put") or UO.InJournal("Tinkering failed"))
wait(300)
wend
UO.UnSetReceivingContainer()
wait(200)
until UO.Dead()
end sub
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(50)
until UO.InJournal('backpack')
UO.DeleteJournal()
end sub
хреного, то что он в сундук все не складывает, и аЙрон не берет...
-=$؆=-
Скрпит универсальный
Вот скрипт:
Вот скрипт:
Code: Select all
var Cont="0x40191B96" #container were iron ingots
var Food="0x097B" #type of food
var IronCount="600" #count of iron what we will take
sub main()
var i=0
UO.UseType("0x1EBC")
wait(700)
uo.automenu("Tinkering","Tools")
uo.automenu("Tools","bottle")
While True
While UO.Count("0x1BEF")>1
UO.DeleteJournal()
UO.UseType("0x1EBC")
wait(500)
repeat
wait(300)
until UO.InJournal("You put") or UO.InJournal("failed")
if i==50 then
Food()
i=1
else
i=i+1
endif
wend
Move()
wend
end sub
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(100)
until UO.InJournal('backpack')
end sub
sub Spirit()
UO.UseSkill("Spirit Speak")
wait(2500)
end sub
sub Food()
UO.DeleteJournal()
repeat
Spirit()
UO.UseType(Food)
wait(500)
until UO.InJournal("simply too full")
end sub
sub Move()
CheckLag()
UO.SetReceivingContainer(Cont)
repeat
UO.FindType("0x1085","0x0000","backpack")
wait(400)
UO.Grab("all","finditem")
wait(800)
until UO.Count("finditem")>0
UO.unsetreceivingcontainer()
UO.FindType("0x1BEF","0x0000",Cont)
wait(400)
UO.Grab(IronCount,"finditem")
wait(400)
end sub©Blodmoon 
Di®A†h wrote:хреного, то что он в сундук все не складывает, и аЙрон не берет...
Ты хоть бы читал скрип сначала, а уж потом пургу всякую гнал!
Или хотя бы запускай скрипты перед написанием таких ответов.
Зачем, по-твоему, тогда этот кусок нужен?
Code: Select all
UO.FindType('0x1BEF','0x0000','backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0000','0x401D179E') ;serial sunduka s iron
UO.Grab('100','finditem')
wait(300)
Endif
if UO.count('0x0F0E','0x0000')>110 then
CheckLag()
UO.FindType('0x0F0E','0x0000','backpack')
UO.setreceivingcontainer('0x401D179E') ;serial sunduka s iron
UO.Grab('0','finditem')
wait(300)
endif
Liga wrote:А есть скрипт что бы локпики делал, руду брал из сундка
Скрипт берет не руду, а инготы. Крафтит локпики и складывает их туда, куда указал в скрипте (в моем случае, берет железо и кладет туда же локпики)
Не трудно понять, что сделан он так же как и скрип на бутылки, написанный выше.
Code: Select all
sub lockpicks()
VAR eda = 0x09bb
repeat
uo.usetype(eda)
wait (300)
UO.FindType('0x1BEF','0x0000','backpack')
If UO.GetQuantity('finditem')<10 then; min kol-vo irona,
#esli men'she - beret esche iz sunduka
UO.FindType('0x1BEF','0x0000','0x401D179E') ;serial sunduka s iron
UO.Grab('100','finditem') ; skol'ko brat' irona iz sunduka
wait(300)
Endif
if UO.count('0x14FB','0x0000')>110 then ; max. kol-vo lockpickov v pake, #pri bol'shem - perekladivaet v sunduk
UO.FindType('0x14FB','0x0000','backpack')
UO.setreceivingcontainer('0x401D179E') ;serial sunduka s iron
UO.Grab('0','finditem')
wait(300)
endif
UO.Usetype('0x1EBC')
UO.WaitMenu('Tinkering','Tools','Tools','lockpick')
wait (1000)
UO.DeleteJournal()
while not (UO.InJournal("You put") or UO.InJournal("Tinkering failed"))
wait(300)
wend
UO.UnSetReceivingContainer()
wait(200)
until UO.Dead()
end sub
Liga wrote:А есть скрипт что бы локпики делал, руду брал из сундка
Берешь меняешь меню
.
Code: Select all
uo.automenu("Tinkering","Tools")
uo.automenu("Tools","bottle")
Тут меняешь и все.
©Blodmoon