Yoko

Posted: **2007-12-03 15:31:28**

Не берет инги,Открывает минюшку и не кует надо самому тыркунть мышкой на дагер чтобы кувал,как ето исправить помогите плиз

sub BlacksmithyIM()
VAR Exit, LastTimer
while Exit<>1
UO.DeleteJournal()
uo.useobject(0x400CB9FC) ; Молоток
uo.waittargetself()
wait(100)
LastTimer=UO.Timer()
wait(100)
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger') ;Что куем
UO.UseType(0x1BF2) ;Инги айрона

while NOT UO.InJournal("You put") AND NOT UO.InJournal("Вы так и не смогли сделать хоть что-нибудь стоящее!")
wait(500)
wend
If UO.InJournal("Вы так и не смогли сделать хоть что-нибудь стоящее!") then
repeat
wait(100)
until UO.Timer()>=LastTimer+100 ;Время создания дагера
EndIf

UO.FindType('0x0F51',-1,'backpack')
wait(500)

If UO.GetQuantity('finditem') then
UO.WaitTargetObject('finditem')
UO.UseObject(0x40217325) ; Форж
Endif

UO.FindType('0x13E2',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x0E41','0x0000','0x4019AF37') ;Cундук с ингами
wait(1000)
UO.Grab('300','finditem')

Endif
wait(1000)
wend
end sub

Posted: **2007-12-03 23:14:04**

Зделай автоменю нормальное. Как зделать? - Смотри ТУТ Меню крафта

Posted: **2007-12-04 06:16:23**

менюшка у него нормальная. сам процесс ковки какой то странный...берет молоток, бьёт им себя, потом вызывает ловушки меню и инготов...Автор, расскажи как у вас ковать то надо? И что за шард? Не оском случайно?

Posted: **2007-12-04 15:05:39**

Действительно бьёт себя молотком, мазахист наверное :lol:

я не смотрел.

Code: Select all

uo.useobject(0x400CB9FC) ; Молоток 
uo.waittargetself()

А насчёт меню я просто использую всегда

Code: Select all

 uo.automenu

Posted: **2007-12-09 22:39:58**

помогите плз если честно то я не знаю как это сделать =(
можете пожалуйсто сделать так чтобы он выкованное выкидывал в мусорник спасибо!

Code: Select all

sub Blacksmithing() 
var Exit=0, LastTimer 
while Exit<>1 
uo.DeleteJournal() 
LastTimer=uo.Timer() 
uo.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger') 
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 
end if 

uo.FindType('0x0F51',-1,'backpack') 
wait(500) 

if uo.GetQuantity('finditem') then 
uo.WaitTargetObject('finditem') 
uo.UseObject('0x40001072') ; Форж 
end if 

uo.FindType('0x1BEF',-1,'backpack') 
if uo.GetQuantity('finditem')<10 then 
uo.FindType('0x1BEF','0x0000','0x40001234') ;Cундук с ингами 
wait(1000) 
uo.Grab('1000','finditem') 
Endif 
wait(1000) 
wend    
end sub

Yoko

HELP BS PLEASE НЕ кует

HELP BS PLEASE НЕ кует