Подсчет бутылок химии в паке? Оском.

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Dron D.
Posts: 190
Joined: 2004-12-13 01:27:00

Подсчет бутылок химии в паке? Оском.

Post by Dron D. »

Привет всем. Хотел только что написать скрипт такой, чтобы подсчитывал сколько в паке осталось гх, ман, инвизок, но что то не пойму смысл и логику скрипта :oops:
Хотел чтобы он выдавал мне вот так инфу:

Code: Select all

"xx Mana refresh" - '0x0F09', '0x0388'
"xx Greater Heal" - '0x0F0C', '0x0000'
"xx Invisibilty" - '0x0F09', '0x0060'


Если не сложно - помогите, буду благодарен.
CFA
Posts: 64
Joined: 2006-02-03 06:53:36

Re: Подсчет бутылок химии в паке? Оском.

Post by CFA »

Code: Select all

sub countBottles()
   var bottles = 3

   dim bottleType[3]
   dim bottleColor[3]
   dim bottleName[3]

   bottleType[0] = '0x0F09'
   bottleType[1] = '0x0F0C'
   bottleType[2] = '0x0F09'

   bottleColor[0] = '0x0388'
   bottleColor[1] = '0x0000'
   bottleColor[2] = '0x0060'
   
   bottleName[0] = 'Mana refresh'
   bottleName[1] = 'Greater Heal'
   bottleName[2] = 'Invisibilty'
   

   uo.IgnoreReset()

   var bottleCount
   for var f = 0 to bottles - 1
      bottleCount = 0
      repeat
         uo.FindType(bottleType[f], bottleColor[f])
         if (uo.FindCount()) then
            bottleCount = bottleCount + uo.GetQuantity('finditem')
            uo.ignore('finditem')
         end if
      until uo.FindCount() == 0
      uo.print(STR(bottleCount) + ' ' + bottleName[f])
   next
   
   uo.IgnoreReset()
   
end sub
Post Reply