Yoko

Posted: **2008-04-11 20:59:47**

Мне тут уже 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

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

Posted: **2008-04-12 06:47:57**

Code: Select all

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

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

Posted: **2008-04-12 13:07:34**

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

Posted: **2008-04-12 13:46:32**

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

Posted: **2008-04-12 13:54:32**

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

Posted: **2008-04-12 18:05:51**

Code: Select all

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

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

) Или лучше перед тем как кидать итем на нее ее нужно юзнуть ...

Posted: **2008-04-12 21:28:49**

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

Posted: **2008-04-13 15:19:52**

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

Code: Select all

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

Posted: **2008-04-13 15:39:01**

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

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

Code: Select all

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

Posted: **2008-04-14 11:55:37**

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

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

Posted: **2008-04-14 12:07:43**

m0nYa wrote:Странно както работает ... процедура видать правельная ... но после того как он отитемит все 3 статуи занаво не начинает ... ;-(

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

Posted: **2008-04-14 12:30:18**

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

Posted: **2008-04-14 12:35:21**

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

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

Posted: **2008-04-14 12:50:15**

О сенкс Работает ;-)

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

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

И есле можно добавь проверку на еду :roll:

Posted: **2008-04-14 13:01:16**

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

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

Posted: **2008-04-14 13:25:38**

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

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

Code: Select all

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

Posted: **2008-04-14 13:40:08**

m0nYa wrote:ООО Прекрасненько работает ;_)))
А еда нужно что-бы он проверочку делал ... типа так ... но как ето именно в скрипт вставить ненаю ;-(

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

Posted: **2008-04-14 18:12:14**

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

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

Posted: **2008-04-15 14:40:15**

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

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

]

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

Yoko

Item Indification

Item Indification