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

помогите мне пожалуста ((((
http://forum.yoko.com.ua/viewtopic.php?f=20&t=13253		 Page 1 of 1
Author:  warden@inbox.ru [ 2008-02-16 00:33:04 ]
Post subject:  помогите мне пожалуста ((((
нем очень хотелосьбы в этот скрипт добавить чтобы чар брал арморы из мешков которые лежат в сундуке (((
ПОМОГИТЕ
ЗАРАНЕЕ БЛОГАДАРЕН!!!!!!!!

sub SmelthingForIron()
uo.Set('findistance','5')
var i
var Forge='0x400D7F9C' #ID of your forge near house
var Sunduk='0x401E340D' #ID of a container near house
var ingot='0x1BEF' #Type of iron ingot

DIM chain[10]

chain[0]='0x13EC' #0-9 .Types of ringmail and chainmail items
chain[1]='0x13F0'
chain[2]='0x13BF'
chain[3]='0x13BB'
chain[4]='0x13EE'
chain[5]='0x13EB'
chain[6]='0x13BE'
chain[7]='0x1B76'
chain[8]='0x1411'
chain[9]='0x1413'

go(4320,3780,0) # X,Y near forge
while not uo.Hidden()
uo.UseSkill('Hiding')
wait(5000)
wend
for i = 0 to 9
uo.FindType(chain[i],'-1','backpack')
if uo.FindCount() then
while uo.FindCOunt()
uo.FindType(chain[i],'-1','backpack')
uo.WaitTargetObject('finditem')
uo.UseObject(Forge)
wait(1000)
wend
else
uo.Print('There are no chainmail armor')
end if
next
uo.FindType('0x1BEF','-1','backpack')
if uo.FindCOunt() then
uo.moveitem('finditem','all',Sunduk)
wait(1000)
end if
uo.FindType('0x1BEF','-1','ground')
if uo.FindCOunt() then
uo.moveitem('finditem','all',Sunduk)
wait(1000)
end if
end sub
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/