Page 4 of 4
Posted: 2005-07-04 20:45:12
by Neznaika
Помогите пожалуйста со скриптом на кэмпинг!!! Очень нуно!
Posted: 2005-07-05 00:19:11
by Arsuri
Neznaika wrote:Почему то в скрипте на кемпинг , чар идя от дерева 1 к дереву 2 делае только 1 шаг , не достаёт до дерева и идёт к дереву 3 и опять один шаг и т.д.
Скажите пожалуйста , в чём проблема?
Замени начало функции GotoXY(x,y) на это:
Code: Select all
Sub GotoXY(x,y)
VAR i
VAR dir,ldir,rdir,key,olddir
VAR dx,dy,Exit=0
x=x+1 # Тут сам подбирай. Влом было писать определение дистан-
y=y+1 # ции по направлению к дереву
While Exit<>1
dx=x-UO.GetX()
dy=y-UO.GetY()
If dx==0 AND dy==0 Then
Exit=1
Endif
If dx<>0 AND dy<>0 Then
В этом случае чар будет подходить к деревьям с одной стороны, с какой - подбери сам.
Posted: 2005-07-05 00:21:02
by Arsuri
Neznaika wrote:И ещё если всё таки удаётся добыть хвороста , то он бросает его и пытается зажеч , если с 2-3 раз не удалось , он бросает следующи , а это оставляет =(
Смотри внимательно сообщения. Скорее всего там выходит месага, что вы не можете юзать этот итем.
Скрипт на перекладку - на "тыках"
Posted: 2005-07-05 10:07:15
by Sfagnum
Описание: скрипт на перекладку однотипных item'ов (цвет тоже учитывается) из одного контейнера в другой.
Особенности: по умолчанию поставленно перекладывание по 50к менять переменную следует, если перекладываемые вами item'ы складывабтся в кучку и вы не можете поднять на борт 50к этих item'ов;
если надо опустошить какой то контейнер то после фразы
'Что брать то?' нажимаете ESC.
Code: Select all
sub MoveFromTo()
var qType = '50000' #кол-во перекладываемых за раз item'ов
var tType, cType
UO.Print('Откуда тырим?')
uo.addobject('objFrom')
while uo.Targeting()
wait(200)
wend
UO.Print('И куда ж пререложим то?')
uo.addobject('objResiv')
while uo.Targeting()
wait(200)
wend
uo.useobject('objFrom')
CheckLag()
UO.Print('Что брать то?')
uo.addobject('objType')
while uo.Targeting()
wait(200)
wend
tType = uo.GetGraphic('objType')
cType = uo.GetColor('objType')
UO.Findtype(tType,cType,'objFrom')
while UO.GetQuantity('finditem')>0
UO.MoveItem('finditem',qType,'objResiv')
wait(1000)
CheckLag()
UO.Findtype(tType,cType,'objFrom')
wend
UO.Print('< < < Усё > > >')
end sub
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(50)
until UO.InJournal('backpack')
end sub
Posted: 2005-07-06 15:55:21
by Neznaika
Arsuri wrote:Neznaika wrote:И ещё если всё таки удаётся добыть хвороста , то он бросает его и пытается зажеч , если с 2-3 раз не удалось , он бросает следующи , а это оставляет =(
Смотри внимательно сообщения. Скорее всего там выходит месага, что вы не можете юзать этот итем.
Нет. Достать могу , он его юзает 2-3 раза , если не зажёгся , то переходит к следующиму , а этот остаётся лежать.