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

напишите простенький скрипт
http://forum.yoko.com.ua/viewtopic.php?f=20&t=7586		 Page 1 of 1
Author:  BoBBaH [ 2006-05-06 11:47:59 ]
Post subject:  напишите простенький скрипт
Здраствуйте игроки вот мне задолбало перекидывать итемы одинаковых типов в мешочки прощу написать не сложный скрипт:
из мешочка(его айди) перекидывать айтемы(их тип) в другой мешочек(его айди) напишите каму не трудно плиз
Author:  Kynep [ 2006-05-06 12:36:14 ]
Post subject:  Re: напишите простенький скрипт
BoBBaH wrote:
Здраствуйте игроки вот мне задолбало перекидывать итемы одинаковых типов в мешочки прощу написать не сложный скрипт:
из мешочка(его айди) перекидывать айтемы(их тип) в другой мешочек(его айди) напишите каму не трудно плиз



Запускаешь, указываешь прицелом мешок источник, затем мешок приемник, после товар и вперед
Code:
sub pereklad()
#****ДРВ*****# 
# (C) Cooper 
#****v1.0****#
VAR Ttov

UO.Print('Выбери ИСТОЧНИК')
UO.Exec('addobject istok')
while UO.Targeting()
wait(100)
wend
UO.UseObject('istok')

UO.Print('Выбери ПРИЕМНИК')
UO.Exec('addobject priem')
while UO.Targeting()
wait(100)
wend

UO.Print('Выбери ТОВАР')
UO.Exec('addobject tovar')
while UO.Targeting()
wait(100)
wend

TTov = UO.GetGraphic('tovar')
UO.FindType(Ttov,'-1','istok')
If UO.FindCount() > 0 then
     repeat
          UO.MoveItem('finditem', '0', 'priem')
          wait(1000)
          UO.FindType(Ttov,'-1','istok')
     until not UO.FindCount()
UO.Print('Закончили...')
else
UO.Print('А кидать то нечего...')
endif
end sub
Author:  DerMeister =) [ 2006-05-06 16:17:18 ]
Post subject:  Re: напишите простенький скрипт
Cooper wrote:
BoBBaH wrote:
Здраствуйте игроки вот мне задолбало перекидывать итемы одинаковых типов в мешочки прощу написать не сложный скрипт:
из мешочка(его айди) перекидывать айтемы(их тип) в другой мешочек(его айди) напишите каму не трудно плиз



Прописываешь тип товара, запускаешь, указываешь прицелом мешок источник, затем мешок приемник
Code:
sub pereklad()
VAR tovar=0x0E76 #Тип товара

UO.Print('Выбери ИСТОЧНИК')
UO.Exec('addobject istok')
while UO.Targeting()
wait(100)
wend

UO.Print('Выбери ПРИЕМНИК')
UO.Exec('addobject priem')
while UO.Targeting()
wait(100)
wend

UO.FindType(tovar,'-1','istok')
If UO.FindCount() > 0 then
repeat
UO.MoveItem('finditem', '0', 'priem')
wait(1000)
UO.FindType(tovar,'-1','istok')
until not UO.FindCount()
UO.Print('Закончили...')
else
UO.Print('А кидать то нечего...')
endif
end sub


Да мля! Чо вы тварите??? Этож геммор такой!

,massmove [задержка] [кол-во]
Например:
Code:
,massmove 100 100
Author:  BoBBaH [ 2006-05-06 16:19:06 ]
Post subject: 
купер можешь еще в этом скрипте поставить вместо указания типа объекта его цвет ну не иди так как он у всех собственный а вот я хз подойдет ли цвет, чтобы мне рыбок можно было переклаывать а то по типу трули от рар не отличаются почему-то
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/