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

Nominee · Post by **Nominee** » 2008-01-20 19:23:58

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

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

stickman · Post by **stickman** » 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

Kynep · Post by **Kynep** » 2008-01-21 09:09:37

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

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

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

stickman · Post by **stickman** » 2008-01-21 10:53:14

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

Kynep · Post by **Kynep** » 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

Nominee · Post by **Nominee** » 2008-01-21 16:32:59

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

Kynep · Post by **Kynep** » 2008-01-21 16:37:20

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

Не за что

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