Page 1 of 1

Считывание инфы из-под таргета

Posted: 2008-01-30 20:04:49
by Avel Mink
Нужен срочно маленький скрипт, который считывает информацию из-под таргета и записывает ее. Например запускаю скрипт, появляется таргет, я им клацаю на рунбук, а в блокнот записывается строка такого типа

Runebook
0x0EFA 0x0510 0x404070A3


Первая строка - считывается имя итема
Во второй - Тип/Цвет/ID итема

Заранее спасибо.
ЗЫ: Нужен срочно

Re: Считывание инфы из-под таргета

Posted: 2008-01-30 20:14:58
by Kynep
Avel Mink wrote:Нужен срочно маленький скрипт, который считывает информацию из-под таргета и записывает ее. Например запускаю скрипт, появляется таргет, я им клацаю на рунбук, а в блокнот записывается строка такого типа

Runebook
0x0EFA 0x0510 0x404070A3


Первая строка - считывается имя итема
Во второй - Тип/Цвет/ID итема

Заранее спасибо.
ЗЫ: Нужен срочно


По моему уже пора хелп прочитать, это скрипт на пять команд. Неужели лень хоть что то самому написать?

Posted: 2008-01-30 20:29:51
by Avel Mink
Я же не прошу чего-то сверхестественного, мне нужен этот скрипт срочно. Напиши пожалуйста

ЗЫ: Я бы и сам написал, но не знаю какими командами считывается Тип/Цвет/ID

Posted: 2008-01-30 20:45:33
by Kynep
Avel Mink wrote:Я же не прошу чего-то сверхестественного, мне нужен этот скрипт срочно. Напиши пожалуйста

ЗЫ: Я бы и сам написал, но не знаю какими командами считывается Тип/Цвет/ID


Code: Select all

sub targinfo()
   var tip, cvet, id, name, ser

   uo.Print('Выбери Обьект: ')
   uo.Exec('addobject podop')
   while uo.Targeting()
      wait(100)
   wend

   UO.TextOpen()
   UO.TextClear()
   UO.Click('podop')
   ser = UO.GetSerial('podop') 
   name = UO.GetName(ser)
   wait(100)
   tip = UO.GetGraphic(ser)
   wait(100)
   cvet = UO.GetColor(ser)
   wait(100)
   UO.TextPrint(name)
   UO.TextPrint(tip + ' / ' + cvet + ' / ' + ser)
end sub

Posted: 2008-01-30 21:11:24
by Avel Mink
Вот как получилось правильно


Code: Select all

sub targinfo() 
var tip, cvet, id, name, Item,ser

UO.AddObject('Item')
while uo.Targeting()
wait(100)
wend

UO.TextOpen()
UO.Click('Item')
wait(300)
ser = UO.GetSerial('Item')
name = UO.GetName('Item')
tip = UO.GetGraphic('Item')
cvet = UO.GetColor('Item')
UO.TextPrint(name)
UO.TextPrint(tip + '  ' + cvet + '  ' + ser)
end sub

Posted: 2008-01-30 21:13:35
by Kynep
Avel Mink wrote:Все время пишет вместо значений нули (кроме имени)


Поправил

Posted: 2008-01-30 21:17:31
by Avel Mink
Хы, ответил быстрее чем я сам поправил ) А можно еще допустим чтобы в имени не писались цифровые значения, вместо '3 Silver Ore', чтоб писалось просто 'Silver Ore' ?

Posted: 2008-01-30 21:19:37
by Kynep
Avel Mink wrote:Хы, ответил быстрее чем я сам поправил ) А можно еще допустим чтобы в имени не писались цифровые значения, вместо '3 Silver Ore', чтоб писалось просто 'Silver Ore' ?


Это сложно и незачем, для такого скрипта

Posted: 2008-01-30 21:25:00
by Avel Mink
Все равно спасибо

Posted: 2008-01-30 21:28:12
by Kynep
Avel Mink wrote:Все равно спасибо


Да не за что(играю на ДРВ, приму в дар ГП :roll: )))