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

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