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

Item Indification
http://forum.yoko.com.ua/viewtopic.php?f=17&t=13486		 Page 1 of 1
Author:  m0nYa [ 2008-04-11 20:59:47 ]
Post subject:  Item Indification
Мне тут уже 1 рас помогли вот решил еще раз попросить помощи а вдруг еще раз повезет ;-) :lol:
Спасибо Куперу за оказанную помощ ;-)

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

Есть 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

Заранее спасибо огромное откликнувшимся ...
Author:  fritz321 [ 2008-04-12 06:47:57 ]
Post subject: 
Code:
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



токо сообщение из журнала проверь... а то у тебя оно без регистра..
ну как то так кароче =)
Author:  Grin [ 2008-04-12 13:07:34 ]
Post subject: 
dim item[3]
...
for i=0 to 2
uo.DeleteJournal()
...
uo.waittargetobject(item[i])
Author:  fritz321 [ 2008-04-12 13:46:32 ]
Post subject: 
ну сори за недочетики =)
Author:  Grin [ 2008-04-12 13:54:32 ]
Post subject: 
5 лет расстрела
Author:  m0nYa [ 2008-04-12 18:05:51 ]
Post subject: 
Code:
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
Вот что вышло , но вот проблема , После токго как статуя определилсь нужно юзнуть ее даблкликом... ;-( а так отлично прошел испытания ;-)) Или лучше перед тем как кидать итем на нее ее нужно юзнуть ...
Author:  fritz321 [ 2008-04-12 21:28:49 ]
Post subject: 
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
Author:  m0nYa [ 2008-04-13 15:19:52 ]
Post subject: 
;-(( всеравно работает чуток не верно извените может быть я выразился не совсем правельно ...
Нужно чтобы было примерно так , сначала юзает статую 1 рас , потом итемит ее , потом юзает вторую , итемит , потом 3 итемит , сновапервую ...
Что-бы сначала был ЮЗ а потом он итемил
примерно так ;-)

Code:
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
Author:  Kynep [ 2008-04-13 15:39:01 ]
Post subject: 
m0nYa wrote:
;-(( всеравно работает чуток не верно извените может быть я выразился не совсем правельно ...
Нужно чтобы было примерно так , сначала юзает статую 1 рас , потом итемит ее , потом юзает вторую , итемит , потом 3 итемит , сновапервую ...
Что-бы сначала был ЮЗ а потом он итемил
примерно так ;-)



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

Code:
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
Author:  m0nYa [ 2008-04-14 11:55:37 ]
Post subject: 
Странно както работает ... получается что есле в журнале не появилось It appears to be a statue of itemid он занаво пытаеться узнуть статую а потом определить , а нужно что-бы он 1 рас юзал , а потом итемил до тех пор пака не появиться It appears to be a statue of itemid .

Сам поробую чегото накрутить есле получиться выкину -)) Есле у когото получеться раньше чем у меня буду благодарен ... ;-)
Author:  Kynep [ 2008-04-14 12:07:43 ]
Post subject: 
m0nYa wrote:
Странно както работает ... процедура видать правельная ... но после того как он отитемит все 3 статуи занаво не начинает ... ;-(


Кхм... странно...
Author:  m0nYa [ 2008-04-14 12:30:18 ]
Post subject: 
Он делает все правельно юзает статую юзает на неё итем ... но если не определяет с первого раза ему к примеру пишет i'm not shure ... все скрипт останавливается ... ;-(
Author:  Kynep [ 2008-04-14 12:35:21 ]
Post subject: 
m0nYa wrote:
Он делает все правельно юзает статую юзает на неё итем ... но если не определяет с первого раза ему к примеру пишет i'm not shure ... все скрипт останавливается ... ;-(


Не удивительно, а сразу низзя сказать было? Поправил пост со скриптом, пробуй.
Author:  m0nYa [ 2008-04-14 12:50:15 ]
Post subject: 
О сенкс Работает ;-)))) Вот но остался 1 бок ...

Чар должен 1 Рас Юзнуть статую а не напротяжении всего времени пока он итемит ...
Юзнул
потом пытаеться определить
определил
вторую юзнул 1 рас и так далее ...
:roll: И есле можно добавь проверку на еду :roll:
Author:  Kynep [ 2008-04-14 13:01:16 ]
Post subject: 
m0nYa wrote:
О сенкс Работает ;-)))) Вот но остался 1 бок ...
Чар должен 1 Рас Юзнуть статую а не напротяжении всего времени пока он итемит ...
Юзнул
потом пытаеться определить
определил
вторую юзнул 1 рас и так далее ...
:roll: И есле можно добавь проверку на еду :roll:



Готово, смотри пост со скриптом.
Author:  m0nYa [ 2008-04-14 13:25:38 ]
Post subject: 
ООО Прекрасненько работает ;_)))

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

Code:
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
Author:  Kynep [ 2008-04-14 13:40:08 ]
Post subject: 
m0nYa wrote:
ООО Прекрасненько работает ;_)))
А еда нужно что-бы он проверочку делал ... типа так ... но как ето именно в скрипт вставить ненаю ;-(


Вставил, пробуй.
Author:  m0nYa [ 2008-04-14 18:12:14 ]
Post subject: 
If t=="You aren't hungry at all" Then 37 строчка выдает ошибку ;-(

variable undefeated I - вот ошибка
Author:  Kynep [ 2008-04-15 14:40:15 ]
Post subject: 
m0nYa wrote:
If t=="You aren't hungry at all" Then 37 строчка выдает ошибку ;-(

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

Поправил, пробуй
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/