Yoko

Мне тут уже 1 рас помогли вот решил еще раз попросить помощи а вдруг еще раз повезет
Спасибо Куперу за оказанную помощ

Люди есле кому не тяжело ... У нас на шарде с Итемом Геморой , значит нужна такая процедура ...

Есть 3 статуи ...
Юз статую 1 даблкликом
потом юз скилл итем айди на статуетку
когда в журнале появиться it's statue of item ID
то снова Юз статую и покругу ...

А есле ето будут семячки для того кто пишет , то задача усложняеться будет не 1 статуя а например 3 ...

юз статую1
юз на неё скилл итем
когда в журнале появиться it's statue of item ID
юз статую2
юз на неё скилл итем
когда в журнале появиться it's statue of item ID
юз статую3
юз на неё скилл итем
когда в журнале появиться it's statue of item ID

Заранее спасибо огромное откликнувшимся ...

sub item()
var i
dim item[2]
item[0]= id  первой статую
item[1]= id второй
item[2]= id третий
while not uo.dead()
for i=0 to 2
while not uo.InJournal("it's statue of item ID")
uo.waittargetobject(str(item[i]))
UO.Exec("useskill 'Item Identification'")
wait(3000)
wend
uo.print("Статуэтка опознана")
next
wend
end sub

токо сообщение из журнала проверь... а то у тебя оно без регистра..
ну как то так кароче =)

dim item[3]
...
for i=0 to 2
uo.DeleteJournal()
...
uo.waittargetobject(item[i])

ну сори за недочетики =)

5 лет расстрела

sub item()
var i
dim item[3]
item[0]= '0x439BF1C4'
item[1]= '0x439BF00F'
item[2]= '0x439BEF5F'
while not uo.dead()
for i=0 to 2
uo.DeleteJournal() 
while not uo.InJournal("It appears to be a statue of itemid")
uo.waittargetobject(item[i])
UO.Exec("useskill 'Item Identification'")
wait(3000)
wend
uo.print("Ñòàòóýòêà îïîçíàíà")
next
wend
end sub 

Вот что вышло , но вот проблема , После токго как статуя определилсь нужно юзнуть ее даблкликом... ;-( а так отлично прошел испытания ) Или лучше перед тем как кидать итем на нее ее нужно юзнуть ...

sub item()
var i
dim item[3]
item[0]= '0x439BF1C4'
item[1]= '0x439BF00F'
item[2]= '0x439BEF5F'
while not uo.dead()
for i=0 to 2
uo.DeleteJournal()
while not uo.InJournal("It appears to be a statue of itemid")
uo.useobject(item[i])
wait(1000) ## задержку сам выстави
uo.waittargetobject(item[i])
UO.Exec("useskill 'Item Identification'")
wait(3000)
wend
uo.print("статуетка опознана")
next
wend
end sub

;-(( всеравно работает чуток не верно извените может быть я выразился не совсем правельно ...
Нужно чтобы было примерно так , сначала юзает статую 1 рас , потом итемит ее , потом юзает вторую , итемит , потом 3 итемит , сновапервую ...
Что-бы сначала был ЮЗ а потом он итемил
примерно так

sub item()
var i
dim item[3]
item[0]= '0x439BF1C4'
item[1]= '0x439BF00F'
item[2]= '0x439BEF5F'


while not uo.dead()
uo.DeleteJournal()
uo.useobject(item[0])
UO.Exec("useskill 'Item Identification'")
uo.waittargetobject(item[0])
while not uo.InJournal("It appears to be a statue of itemid")

while not uo.dead()
uo.DeleteJournal()
uo.useobject(item[1])
UO.Exec("useskill 'Item Identification'")
uo.waittargetobject(item[1])
while not uo.InJournal("It appears to be a statue of itemid")


while not uo.dead()
uo.DeleteJournal()
uo.useobject(item[2])
UO.Exec("useskill 'Item Identification'")
uo.waittargetobject(item[2])
while not uo.InJournal("It appears to be a statue of itemid")

wend
uo.print("статуетка опознана")
next
wend
end sub

В предыдущем посте вроде норм все было, тока одно но, пробуй так

sub item() 
var i, a = 0
dim item[3] 
item[0]= '0x439BF1C4' 
item[1]= '0x439BF00F' 
item[2]= '0x439BEF5F' 

while not uo.dead() 
  for i=0 to 2 
    uo.DeleteJournal() 
    uo.useobject(item[i]) 
    start:
    wait(1000) ## задержку сам выстави 
    uo.DeleteJournal() 
    uo.waittargetobject(item[i]) 
    UO.Exec("useskill 'Item Identification'") 
    repeat
      wait(100)
    until uo.InJournal("It appears to be a statue of itemid") OR UO.InJournal('not shure')
    If UO.InJournal('not shure') then
      goto start
    end if
    uo.print("статуетка опознана")
  next
i = 0
xavka()
wend 
end sub

Sub xavka() 
var t, i
VAR eda = '' #Тип еды

UO.ServerPrint(".hungry") 
Wait(500) 
i=UO.LastMessage() 
If t=="You aren't hungry at all" Then 
  UO.UseType('eda') 
  Wait(1500) 
EndIf 
end sub 

Странно както работает ... получается что есле в журнале не появилось It appears to be a statue of itemid он занаво пытаеться узнуть статую а потом определить , а нужно что-бы он 1 рас юзал , а потом итемил до тех пор пака не появиться It appears to be a statue of itemid .

Сам поробую чегото накрутить есле получиться выкину -)) Есле у когото получеться раньше чем у меня буду благодарен ...

Кхм... странно...

Он делает все правельно юзает статую юзает на неё итем ... но если не определяет с первого раза ему к примеру пишет i'm not shure ... все скрипт останавливается ... ;-(

Не удивительно, а сразу низзя сказать было? Поправил пост со скриптом, пробуй.

О сенкс Работает ))) Вот но остался 1 бок ...

Чар должен 1 Рас Юзнуть статую а не напротяжении всего времени пока он итемит ...
Юзнул
потом пытаеться определить
определил
вторую юзнул 1 рас и так далее ...
И есле можно добавь проверку на еду

Готово, смотри пост со скриптом.

ООО Прекрасненько работает ;_)))

А еда нужно что-бы он проверочку делал ... типа так ... но как ето именно в скрипт вставить ненаю ;-(

sub xavka() 
var t 
UO.ServerPrint(".hungry") 
Wait(500) 
i=UO.LastMessage() 
If t=="You aren't hungry at all" Then 
UO.Exec("usetype HND") 
Wait(1500) 
EndIf 
end sub 

Вставил, пробуй.

If t=="You aren't hungry at all" Then 37 строчка выдает ошибку ;-(

variable undefeated I - вот ошибка

]

Поправил, пробуй