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

Помогите написать перемещение объектов
http://forum.yoko.com.ua/viewtopic.php?f=17&t=15700		 Page 1 of 1
Author:  Login9000 [ 2010-04-15 13:11:58 ]
Post subject:  Помогите написать перемещение объектов
Скажу сразу скрипты я никогда не писал. Однако, когда мне мне понадобилась прокачка 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
Author:  Андрюха из Одессы [ 2010-04-15 13:47:48 ]
Post subject:  Re: Помогите написать перемещение объектов
Code:
sub tailor() 

UO.Exec('exec Reconnect') 

VAR Instrum = '0x0F9D'
Var Fak = '0x175D'
VAR k = 0 
var Meshok = '0x175D'  #<<<<<< Замени на id мешка.
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
uo.FindType(Bandana,'-1','backpack')
     if uo.FindCount() then
       uo.moveitem('finditem','all',Meshok)
       wait(500)
     end if
until UO.Dead()
end sub


Правил в окне, так что проверяй.
Author:  Beyonder [ 2010-04-15 14:53:38 ]
Post subject:  Re: Помогите написать перемещение объектов
В догонку:

Code:
UO.WaitTargetType( Fak )
UO.UseType( Instrum )
UO.WaitMenu ("Headwear", "Bandana")


WaitMenu так-же как и остальные Wait* надо ставить перед действием а не после. Тоесть будет так:

Code:
UO.WaitTargetType( Fak )
UO.WaitMenu ("Headwear", "Bandana") 
UO.UseType( Instrum )
Author:  Login9000 [ 2010-04-15 15:36:48 ]
Post subject:  Re: Помогите написать перемещение объектов
Всем спасибо, все работает.
Author:  Cash [ 2012-05-04 06:37:00 ]
Post subject:  Re: Помогите написать перемещение объектов
а если мешок заполнится он будет в другой складывать или как?
Author:  ZeroDX [ 2012-05-04 17:13:40 ]
Post subject:  Re: Помогите написать перемещение объектов
нет
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/