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

dioXido · Post by **dioXido** » 2005-09-20 15:20:58

Хочу чтоб ковал щит "bronze shield"под ДРВ. Но не магу настроить. Помогите плиз чтоб руду брал с мундука но крафтился из ирона. Очень прошу

Leo · Post by **Leo** » 2005-09-20 15:22:10

Не хочешь скрипт выложить?

dioXido · Post by **dioXido** » 2005-09-20 15:25:38

блин я понятия не имею напиши хотяб как это делать или сам скрипт напиши пожалуста =)

Leo · Post by **Leo** » 2005-09-20 15:31:34

Куёт и плавит. Осталось вписать 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

dioXido · Post by **dioXido** » 2005-09-20 15:55:37

и ечё скрипт плизз чтоб он их патом плавил =)

Leo · Post by **Leo** » 2005-09-20 15:58:05

Читай внимательно что я написал в предыдущем посте.

dioXido · Post by **dioXido** » 2005-09-20 15:58:59

так он не плавит!

Leo · Post by **Leo** » 2005-09-20 16:04:14

Code: Select all

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

Code: Select all

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

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

dioXido · Post by **dioXido** » 2005-09-20 16:22:17

большое спасибо

Leo · Post by **Leo** » 2005-09-20 16:25:44

dioXido wrote:большое спасибо

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

xarek · Post by **xarek** » 2006-03-08 20:58:22

а как сделать чтоб катаны ковал вместо щитов, а то я ваще непонимаю