Как сделать?

act 'Вы осматриваете товар':
	*p 'В большом красном бутыле плещется зелье Противоядия. Вдруг вас в пути попытаются отравить?
В белом конвертике свернут порошок Удачи. Используете такой, и задуманное получится так, как надо.
'
	delact 'Вы осматриваете товар'
	act 'Вы решаете взять зелье Противоядия.':
		$locName = 'эликсиры'
		$cost = 0
		$curItem = 'Зелье Противоядия'
		dynamic $inv
	end
	act 'Вы решаете взять порошок Удачи.':
		$locName = 'эликсиры'
		$cost = 0
		$curItem = 'Порошок Удачи'
		dynamic $inv
	end
	act 'Вас не устраивает показанное. Вы просите показать что-нибудь еще.':
		*p 'Купец только кивает головой, убирая бутыль с порошком, и раскладывает перед вами три мешочка.
В первом - порошок, помогающий лучше владеть оружием.
Во втором - порошок, делающий вас прытче.
В третьем мешочке - порошок, усиливающий вашу силу духа.
'
		delact 'Вас не устраивает показанное. Вы просите показать что-нибудь еще.'
		delact 'Вы решаете взять зелье Противоядия.'
		delact 'Вы решаете взять порошок Удачи.'
		act 'Вы решаете взять порошок на владение оружием.':
			$locName = 'эликсиры'
			$cost = 0
			$curItem = 'Порошок на Владение оружием'
			dynamic $inv
		end
		act 'Вы решаете взять порошок на ловкость.':
			$locName = 'эликсиры'
			$cost = 0
			$curItem = 'Порошок на Ловкость'
			dynamic $inv
		end
		act 'Вы решаете взять порошок на силу духа.':
			$locName = 'эликсиры'
			$cost = 0
			$curItem = 'Порошок на Силу духа'
			dynamic $inv
		end
		act 'Вас не устраивает показанное. Вы просите показать что-нибудь еще.':
			*p 'Купец хмурится и убирает мешочки с порошком. Он уходит далеко за прилавок и долго роется в мешках, пока не выуживает однин-единственный флакончик, завернутый в шелковый платок. Развернув платок перед вами, он ставит на прилавок зелье. Вы осматриваете флакончик - на полустертой этикетке схематично нарисованы  человечки, корчащиеся в языках пламени. Мощная штука.'
			delact 'Вы решаете взять порошок на владение оружием.'
			delact 'Вы решаете взять порошок на ловкость.'
			delact 'Вы решаете взять порошок на силу духа.'
			delact 'Вас не устраивает показанное. Вы просите показать что-нибудь еще.'
			act 'Хорошо, вы берете этот эликсир. Купец облегченно выдыхает.':
			$locName = 'эликсиры'
			$cost = 0
			$curItem = 'Зелье Огня'
				dynamic $inv
			end
		end
	end
end
act 'Вы решаете не брать вещи, а взять с купца плату за разрешение на торговлю.':
	a = input ('Сколько вы решили требовать с купца?')
		if a < 5 or a = 5:
			благосостояние = благосостояние + a
			*p '
Купец благсклонно отсчитывает вам указанную сумму. Сделка заключена.'
			delact 'Хорошо, вы берете этот эликсир. Купец облегченно выдыхает.'
			delact 'Вы решаете не брать вещи, а взять с купца плату за разрешение на торговлю.'
			delact 'Вы осматриваете товар'
			act 'Покинуть шатер':
				gt 'центр_площадь'
			end
		else
			эликсиры_ушел = true
			*p '
Купец долго смотрит на вас исподлобья, слегка шевеля бровями.
- У меня нет таких денег, - заявляет он. - А даже если б были, то плата непомерно высока. Уж лучше я найду другой город для торговли.'
			delact 'Хорошо, вы берете этот эликсир. Купец облегченно выдыхает.'
			delact 'Вы решаете не брать вещи, а взять с купца плату за разрешение на торговлю.'
			delact 'Вы осматриваете товар'
			act 'Покинуть шатер':
				gt 'центр_площадь'
			end
		end
end