Помогите написать перемещение объектов
Posted: 2010-04-15 13:11:58
Скажу сразу скрипты я никогда не писал. Однако, когда мне мне понадобилась прокачка Tailoring, единственный простой скрипт, который я нашел, не складывал сшитые шмотки в специальный мешочек в рюкзаке. Прочитав о паре функций на оф. сайте Yoko, я написал некоторые строки кода, однако, после этого (в чем нет ничего удивительно) заветного перемещения бандан в мешочек так и не получилось. Допишите, кому не сложно.
sub tailor()
UO.Exec('exec Reconnect')
VAR Instrum = '0x0F9D'
Var Fak = '0x175D'
VAR k = 0
var Meshok = '0x175D'
var Bandana = '0x153F'
repeat
UO.DeleteJournal()
UO.WaitTargetType( Fak )
UO.UseType( Instrum )
UO.WaitMenu ("Headwear", "Bandana")
k = 0
while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 3000 )
k = k + 1
wait(500)
wend
if UO.Count( Bandana ) > 0 then
UO.MoveItem(Bandana, 1, Meshok )
wait(1000)
until UO.Dead()
end sub
sub tailor()
UO.Exec('exec Reconnect')
VAR Instrum = '0x0F9D'
Var Fak = '0x175D'
VAR k = 0
var Meshok = '0x175D'
var Bandana = '0x153F'
repeat
UO.DeleteJournal()
UO.WaitTargetType( Fak )
UO.UseType( Instrum )
UO.WaitMenu ("Headwear", "Bandana")
k = 0
while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 3000 )
k = k + 1
wait(500)
wend
if UO.Count( Bandana ) > 0 then
UO.MoveItem(Bandana, 1, Meshok )
wait(1000)
until UO.Dead()
end sub