U ma problema etot skript u ma po4emuto 4asto zaedaet prost perestajet rabotat 4to takoe ((( plz pomagite (drw)
sub BS()
VAR Exit=0, LastTimer
while Exit<>1
UO.FindType('0x1BEF','0x0000','backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0000','0x40193fbb') ;serial sunduka s iron
UO.Grab('300','finditem')
wait(300)
Endif
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger')
UO.UseType(0x1BEF) ; iron ings
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 ;time to make a dagger
EndIf
UO.FindType('0x0F51',-1,'backpack') ; dagger
wait(500)
If UO.GetQuantity('finditem') then
UO.WaitTargetObject('finditem')
UO.UseObject(0x40243395) ;forge
Endif
wait(1000)
wend
end sub
POMAGITE POZALUSTA (BS)
Moderators: Murderator+, Murderator
Re: POMAGITE POZALUSTA (BS)
Cornor wrote:U ma problema etot skript u ma po4emuto 4asto zaedaet prost perestajet rabotat 4to takoe ((( plz pomagite (drw)
Единственное, что приходит в голову, это то, что он у тебя не берет инги из сундука, когда они заканчиваются, и чар стоит пустой. Наверное, забываешь перед запуском открыть разок контейнер. Пропиши на всякий случай в скрипте сразу после VARов строчку
UO.UseObject('0x40193fbb')
Re: POMAGITE POZALUSTA (BS)
тут меняешь меню:
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger')
везде заменяешь этот тип: '0x0F51' на тип катаны.
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger')
везде заменяешь этот тип: '0x0F51' на тип катаны.