Page 1 of 1
Проблема с БС
Posted: 2006-06-19 03:46:17
by Dominator
Вот есть скрипт на БС я его малость переделал, но возникла такая проблема - когда инги заканчиваются в бек паке, то они поидее должны браться из сундука, но этого непроисходит
ЗЫ - я бы хотел ещё чтобы дописал кто нибудь, чтобы когда чар сковал из всего айрона в бекпаке, эти все вещи выкидывал в сундук, а потом брал инги и занаго продолжался скрипт
Code: Select all
sub BlackSmithing()
VAR LastTimer
while NOT UO.Dead()
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.say('.makelast')
wait(18000)
wend
if UO.InJournal('You have failed') then
repeat
wait(100)
until UO.Timer()>=LastTimer+100 ;time to make a dagger
EndIf
UO.FindType('0x1BEF',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0000','0x400115BA')
wait(1000)
UO.Grab('100','finditem')
endif
wait(1000)
wend
end sub
UO.say('.makelast') - это команда для повтора кравта,того что делал до этого
Я её использовал в данном скрипте так как на шарде зависит сильно прокачка от % умения (да и просто мне так удобнее)
Заранее благодарен за помощь
Posted: 2006-06-19 09:23:07
by Scripts Writer
Code: Select all
sub BlackSmithing()
VAR LastTimer
var ingots='0x1BEF'
var sunduk='0x400115BA'
var item=' type того что куешь '
while NOT UO.Dead()
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.say('.makelast')
wait(18000)
wend
if UO.InJournal('You have failed') then
repeat
wait(100)
until UO.Timer()>=LastTimer+100 ;time to make a dagger
EndIf
UO.FindType(ingots,-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType(ingots,'0x0000',sunduk)
wait(1000)
UO.Grab('100','finditem')
endif
uo.FindType(item,'-1','backpack')
if uo.FindCount() then
while uo.FindCount()
uo.FindType(item,'-1','backpack')
uo.moveitem('finditem','1',sunduk)
wait(500)
wend
end if
wait(1000)
wend
end sub
Posted: 2006-06-19 13:45:12
by Dominator
You Must Die wrote:Code: Select all
sub BlackSmithing()
VAR LastTimer
var ingots='0x1BEF'
var sunduk='0x400115BA'
var item=' type того что куешь '
while NOT UO.Dead()
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.say('.makelast')
wait(18000)
wend
if UO.InJournal('You have failed') then
repeat
wait(100)
until UO.Timer()>=LastTimer+100 ;time to make a dagger
EndIf
UO.FindType(ingots,-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType(ingots,'0x0000',sunduk)
wait(1000)
UO.Grab('100','finditem')
endif
uo.FindType(item,'-1','backpack')
if uo.FindCount() then
while uo.FindCount()
uo.FindType(item,'-1','backpack')
uo.moveitem('finditem','1',sunduk)
wait(500)
wend
end if
wait(1000)
wend
end sub
Огромное спасибо
,ты уже который раз мне помогеш
Posted: 2006-06-19 16:25:47
by Scripts Writer
Обращайся
Posted: 2006-06-20 17:14:29
by BigMouseI
А ещё он флудит
Posted: 2006-06-21 03:56:13
by Dominator
BigMouseI wrote:А ещё он флудит
Даров Маус, давно тя невидел.
ЗЫ сам то нафлудил и убежал
Posted: 2006-06-21 10:48:11
by BigMouseI
Dominator wrote:BigMouseI wrote:А ещё он флудит
Даров Маус, давно тя невидел.
ЗЫ сам то нафлудил и убежал
да лан? прям такие убежал?
Posted: 2006-06-22 01:12:22
by Dominator
Posted: 2006-06-22 09:01:24
by BigMouseI