Yoko

Posted: **2008-01-20 19:23:58**

Как бы написать скрипт, что бы при запуске появлялся таргет - им клацать на сундук, и скрипт выводил в UO.Text ( Тектовое окно типа как выдаёт ,info ) инфу формала
10 Iron Ingots
20 Rusty Ingots

и тд, дайте мне наброски, а типы и цвета я и сам втулю ) Заранее спасибо

Posted: **2008-01-21 00:18:25**

считает руду. переделай.

Code: Select all

######################
### накалякал Купер (c) =)###
######################
sub kolvo2() 
DIM rud[4] 
var vsego = 0 
var cvet = 0 
var prost = 0 
var i, sunduk 
rud[0] = '0x19B7' # 1 штука 
rud[1] = '0x19BA' # 2 штуки 
rud[2] = '0x19B8' # 3 штуки 
rud[3] = '0x19B9' # больше 3х штук 

uo.Print('Выбери сундук: ') 
uo.Exec('addobject sunduk') 
while uo.Targeting() 
wait(100) 
wend 

UO.UseObject('sunduk') 
wait(1000) 
For i = 0 to 3 
  UO.FindType(rud[i], '-1', 'sunduk') 
   While UO.FindCount() > 0 
    If UO.GetColor('finditem') == '0x0000' then 
     prost = prost + UO.GetQuantity('finditem') 
     UO.Ignore('finditem') 
     UO.FindType(rud[i], '-1', 'sunduk') 
    else 
     cvet = cvet + UO.GetQuantity('finditem') 
     UO.Ignore('finditem') 
     UO.FindType(rud[i], '-1', 'sunduk') 
    endif 
   wend 
next 
vsego = prost + cvet 

UO.Print('У тебя в сундуке всего ' + str(vsego) + ' руды') 
UO.Print('Из них ' + str(cvet) +' цветной и ' + str(prost) + ' простой') 
UO.IgnoreReset() 
endsub

Posted: **2008-01-21 09:09:37**

stickman wrote:считает руду. переделай.

Ипать этож мой скрипт ))) копирайты не забываем.

Ваапще то человеку надо не много подругому. Ему нужно с выводом в текст окно имен, где то я видел тут такой скрипт.

Posted: **2008-01-21 10:53:14**

дык а че ты скрипты без копирайтов пишешь))

Posted: **2008-01-21 10:56:22**

Попробуй так:

Code: Select all

sub kolvo2() 
DIM rud[4] 
var name 
var i, sunduk 
rud[0] = '0x19B7' # 1 штука 
rud[1] = '0x19BA' # 2 штуки 
rud[2] = '0x19B8' # 3 штуки 
rud[3] = '0x19B9' # больше 3х штук 

uo.Print('Выбери сундук: ') 
uo.Exec('addobject sunduk') 
while uo.Targeting() 
wait(100) 
wend 

UO.UseObject('sunduk') 
wait(1000)
UO.TextOpen()
UO.TextClear()
For i = 0 to 3 
  UO.FindType(rud[i], '-1', 'sunduk') 
   While UO.FindCount() > 0 
      UO.Click('finditem')
      wait(100)
      name = UO.GetName('finditem')
      UO.TextPrint(name)
      UO.Ignore('finditem')
      UO.FindType(rud[i], '-1', 'sunduk') 
   wend 
next 
UO.Print('Закончили') 
UO.IgnoreReset() 
endsub

Posted: **2008-01-21 16:32:59**

Огромное спасибо, всё работает =))))

Posted: **2008-01-21 16:37:20**

Nominee wrote:Огромное спасибо, всё работает =))))

Не за что

рад был помочь.

Yoko

Подсчёт ингов в сундуке

Подсчёт ингов в сундуке