Code: Select all
UO.FindType('0x1B73',-1,-1)
wait(500)
If UO.GetQuantity('finditem')>5 then
UO.UseObject('0x40041B2F') ; Фордж
UO.WaitTargetObject('finditem')
else
Endif
Moderators: Murderator+, Murderator
Code: Select all
UO.FindType('0x1B73',-1,-1)
wait(500)
If UO.GetQuantity('finditem')>5 then
UO.UseObject('0x40041B2F') ; Фордж
UO.WaitTargetObject('finditem')
else
Endif
Code: Select all
UO.UseObject('0x40041B2F') ; Фордж
UO.WaitTargetObject('finditem')
Code: Select all
UO.WaitTargetObject('finditem')
Code: Select all
UO.UseObject('0x40041B2F')
Code: Select all
UO.WaitTargetObject('finditem')
UO.UseObject('0x40041B2F')
Code: Select all
sub BS()
var LastTimer,box1,forge
while not uo.dead()
uo.useskill ('Spirit Speak')
################################
######### берём инги #########
################################
UO.FindType('0x1BEF',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0000', '0x40074018' )
wait(1000)
UO.Grab('200','finditem')
Endif
################################
######### переплавка #########
################################
UO.FindType('0x0F51','0x000','backpack') ; ищем ножи
wait(500)
If UO.GetQuantity('finditem')>5 then
UO.WaitTargetObject('finditem')
UO.UseObject('0x40024CDE') ; Фордж
else
Endif
#############################
######### ковка #########
#############################
LastTimer=UO.Timer()
UO.DeleteJournal()
UO.UseType('0x1BEF')
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Sword','Sword','dagger')
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
wait(500)
wend
If UO.InJournal("You have failed") then
repeat
wait(100)
until UO.Timer()>=LastTimer+100
Else
EndIf
wend
end sub
pandinus wrote:да я пробовал так и так- всё равно не хочет
вот мой скрипт. всё работает, дагеры находит а форджу юзать не хочетCode: Select all
sub BS()
var LastTimer,box1,forge
while not uo.dead()
uo.useskill ('Spirit Speak')
################################
######### берём инги #########
################################
UO.FindType('0x1BEF',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0000', '0x40074018' )
wait(1000)
UO.Grab('200','finditem')
Endif
################################
######### переплавка #########
################################
UO.FindType('0x0F51','0x000','backpack') ; ищем ножи
wait(500)
If UO.GetQuantity('finditem')>5 then
UO.WaitTargetObject('finditem')
UO.UseObject('0x40024CDE') ; Фордж
else
Endif
#############################
######### ковка #########
#############################
LastTimer=UO.Timer()
UO.DeleteJournal()
UO.UseType('0x1BEF')
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Sword','Sword','dagger')
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
wait(500)
wend
If UO.InJournal("You have failed") then
repeat
wait(100)
until UO.Timer()>=LastTimer+100
Else
EndIf
wend
end sub
Code: Select all
################################
######### переплавка #########
################################
UO.FindType('0x0F51','-1','backpack') ; ищем ножи
wait(500)
If UO.GetQuantity('finditem')>5 then
UO.WaitTargetObject('finditem')
UO.UseObject('0x40024CDE') ; Фордж
Endif
pandinus wrote:да я пробовал так и так- всё равно не хочет
вот мой скрипт. всё работает, дагеры находит а форджу юзать не хочетCode: Select all
sub BS()
var LastTimer,box1,forge
while not uo.dead()
uo.useskill ('Spirit Speak')
################################
######### берём инги #########
################################
UO.FindType('0x1BEF',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0000', '0x40074018' )
wait(1000)
UO.Grab('200','finditem')
Endif
################################
######### переплавка #########
################################
UO.FindType('0x0F51','0x000','backpack') ; ищем ножи
wait(500)
If UO.GetQuantity('finditem')>5 then
UO.WaitTargetObject('finditem')
UO.UseObject('0x40024CDE') ; Фордж
else
Endif
#############################
######### ковка #########
#############################
LastTimer=UO.Timer()
UO.DeleteJournal()
UO.UseType('0x1BEF')
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Sword','Sword','dagger')
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
wait(500)
wend
If UO.InJournal("You have failed") then
repeat
wait(100)
until UO.Timer()>=LastTimer+100
Else
EndIf
wend
end sub
Code: Select all
################################
######### переплавка #########
################################
UO.FindType('0x0F51','-1','backpack') ; ищем ножи
wait(500)
If UO.GetQuantity('finditem') then
UO.WaitTargetObject('finditem')
UO.UseObject('0x40024CDE') ; Фордж
Endif
Cooper wrote:
Пробуй так: и заодно проверь ID ФоржыCode: Select all
################################
######### переплавка #########
################################
UO.FindType('0x0F51','-1','backpack') ; ищем ножи
wait(500)
If UO.GetQuantity('finditem') then
UO.WaitTargetObject('finditem')
UO.UseObject('0x40024CDE') ; Фордж
Endif
Code: Select all
################################
######### переплавка #########
################################
UO.FindType('0x0F51','0x000','backpack') ; ищем ножи
wait(500)
If UO.FindCount('finditem')>5 then
UO.WaitTargetObject('finditem')
UO.UseObject('0x40024CDE') ; Фордж
Endif
pandinus wrote:вот так???
так тоже не пашет..
я челу дал скрипт у него даже инги из сундука не берёт
pandinus wrote:да, скорее всего не со скриптом.....
и месьами я менял...