Yoko
http://forum.yoko.com.ua/

HELP BS PLEASE НЕ кует
http://forum.yoko.com.ua/viewtopic.php?f=20&t=12847		 Page 1 of 1
Author:  P [ 2007-12-03 15:31:28 ]
Post subject:  HELP BS PLEASE НЕ кует
Не берет инги,Открывает минюшку и не кует надо самому тыркунть мышкой на дагер чтобы кувал,как ето исправить помогите плиз

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
Author:  -=JoKeR=- [ 2007-12-03 23:14:04 ]
Post subject: 
Зделай автоменю нормальное. Как зделать? - Смотри ТУТ Меню крафта
Author:  grundick [ 2007-12-04 06:16:23 ]
Post subject: 
менюшка у него нормальная. сам процесс ковки какой то странный...берет молоток, бьёт им себя, потом вызывает ловушки меню и инготов...Автор, расскажи как у вас ковать то надо? И что за шард? Не оском случайно?
Author:  -=JoKeR=- [ 2007-12-04 15:05:39 ]
Post subject: 
Действительно бьёт себя молотком, мазахист наверное :lol: я не смотрел.
Code:
uo.useobject(0x400CB9FC) ; Молоток 
uo.waittargetself()

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

:)
Author:  pika [ 2007-12-09 22:39:58 ]
Post subject: 
помогите плз если честно то я не знаю как это сделать =(
можете пожалуйсто сделать так чтобы он выкованное выкидывал в мусорник спасибо!
Code:
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
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/