Edred wrote:
Шард у него, насколько я понимаю, Antares, у них там меню БСа аналогичное АоСным.
Решается это через команду recall.
Решается это через команду recall.
Вы абсолютно правы, Антарес.
Хм... что за команды и как её едять ?
Вот скрипт который я намазюкал
Code:
sub Blacksmithy()
VAR Sunduk = '0x40EF80A4'
VAR Ingi = '0x1BEF'
VAR Katana = '0x0F51'
VAR Kolvo = 700
VAR Hamer = '0x40F80DE0'
var oldcount
repeat
UO.FindType(Ingi, -1, Sunduk )
wait(500)
If UO.FindCount() > Kolvo Then
UO.Grab( Str( Kolvo ), 'finditem' )
wait( 2000 )
else
if UO.FindCount() > 0 Then
UO.Grab( Str( Kolvo ), 'finditem' )
wait(200)
else
return
endif
endif
While UO.Count( Ingi ) > 40
UO.Print('Ostalos ' + Str( UO.Count( Ingi ) ) + ' Ings' )
UO.DeleteJournal()
UO.WaitTargetType( Ingi )
UO.UseObject( Hamer )
wait(4000)
UO.LClick(257,416)
while NOT UO.InJournal("You put") AND NOT UO.InJournal("fail")
wait(100)
wend
wait(100)
While UO.Count(Katana)>0
UO.FindType(Katana,-1,-1)
UO.MoveItem('finditem',0,0x40F8549A)
wait(1000)
Wend
wend
until UO.Dead()
end sub
sub Stop()
wait(500)
UO.Exec("terminate all")
end sub
Если подскажите как его поправить что бы на лагах не сбивался, подскажите =)