я кретин
Posted: 2008-08-05 16:58:09
помогите пожалуйсто.вот скриптик на кузнеца он куйот и плавит а когда кончаются инги он берёт из сундучка.но проблема заключаетца в том что он грабает инги из сундучка слишком часто и получаетца перевес и всё падает на пол и он ничего не куёт.скажите пожалуйста в чом может быть проблема?
Code: Select all
sub BlacksmithyIM()
VAR Exit=0, LastTimer
while Exit<>1
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords & Blades','Swords & Blades','cutlass') ;Что куем
UO.UseType(0x1BEF) ;Инги айрона
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 ;Время создания дагера
EndIf
UO.FindType('0x1440',-1,'backpack')
wait(500)
If UO.GetQuantity('finditem') then
UO.WaitTargetObject('finditem')
UO.UseObject(0x401998E0) ; Форж
Endif
UO.FindType('0x1BEF',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0000','0x4024F5B5') ;Cундук с ингами
wait(1000)
UO.Grab('90','finditem')
Endif
wait(1000)
wend
end sub