Page 1 of 1

Помогите со скриптом

Posted: 2005-09-20 15:20:58
by dioXido
Хочу чтоб ковал щит "bronze shield"под ДРВ. Но не магу настроить. Помогите плиз чтоб руду брал с мундука но крафтился из ирона. Очень прошу

Posted: 2005-09-20 15:22:10
by Leo
Не хочешь скрипт выложить?

Posted: 2005-09-20 15:25:38
by dioXido
блин я понятия не имею напиши хотяб как это делать или сам скрипт напиши пожалуста =)

Posted: 2005-09-20 15:31:34
by Leo
Куёт и плавит. Осталось вписать ID сундука и форджи.

Code: Select all

sub Blacksmithy() 

UO.Usetype ('0x13E3') ;-тип молотка
wait(500)

VAR Exit=0, LastTimer
while Exit<>1
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.WaitMenu ('Blacksmithing','Shields','Shields','bronze shield') ;
UO.UseType(0x1BEF) ; тип ингов
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
wait(500)
wend
CheckLag()
If UO.InJournal("You have failed") 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(0x402A765A) ;  -форжа
Endif
UO.Usetype('0x198E')
UO.FindType('0x1BEF',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0000','0x40316D34') ##ID сундука
wait(1000)
UO.Grab('1000','finditem')
UO.Usetype ('0x13E3') ;- тип хамера
wait(500)
Endif
wait(1000)
wend
end sub

sub CheckLag()
   UO.DeleteJournal()
   UO.Click('backpack')
   repeat
      wait(50)
   until UO.InJournal('backpack')
   UO.DeleteJournal()
end sub

Posted: 2005-09-20 15:55:37
by dioXido
и ечё скрипт плизз чтоб он их патом плавил =)

Posted: 2005-09-20 15:58:05
by Leo
Читай внимательно что я написал в предыдущем посте.

Posted: 2005-09-20 15:58:59
by dioXido
так он не плавит!

Posted: 2005-09-20 16:04:14
by Leo

Code: Select all

UO.FindType('0x0F51',-1,'backpack')  ; - Тип вещи, которую куём (для плавки)


Code: Select all

UO.UseObject(0x402A765A) ;  -форжа


Внимательнее. Выяснить всё это можно с помощью команды ,info

Posted: 2005-09-20 16:22:17
by dioXido
большое спасибо

Posted: 2005-09-20 16:25:44
by Leo
dioXido wrote:большое спасибо

Огромное пожалуйста :D

Posted: 2006-03-08 20:58:22
by xarek
а как сделать чтоб катаны ковал вместо щитов, а то я ваще непонимаю