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: )))