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

Помогите доработать скрипт БСа
http://forum.yoko.com.ua/viewtopic.php?f=20&t=2820		 Page 1 of 1
Author:  Shamus [ 2005-01-26 22:30:49 ]
Post subject:  Помогите доработать скрипт БСа
Sub Blacksmithing()
var menu1,chouse1,menu2,chouse2,menu3,chouse3
var humer='0x13E3'
var suply='0x41555049'
var anvel='0x4029D981'
var iron='0x1BEF'
var made='0x13FE'
var madereq=45
var req=8
Uo.UseObject(suply)
Uo.UnSetReceivingContainer()
While fc('iron','suply') or fc('iron','my')
While fc('made','my')
Uo.WaitTargetObject('finditem')
Uo.UseObject(anvel)
Wait(500)
Wend
If Uo.count(iron)<madereq Then
Uo.findtype('iron','-1','suply')
Uo.Grab('req','finditem')
wait(500)
End If
Uo.UseType(humer)
Repeat
wait(400)
Until UO.ObjAtLayer('Rhand')
While UO.Count(iron)>req
Uo.WaitMenu('Blacksmithing','weapons','weapons','Swords&Blades','Swords&Blades','katana')
Uo.UseType(iron)
Uo.DeleteJournal()
Repeat
Wait(300)
Until UO.InJournal('You')
WEnd
Wend
End Sub

почемуто циклит на переплавке, не могу понять в чем дело, помогите доработать. Заранее спаасибо
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/