macro Transferir {

	while (
		(@storamount(Coração Imortal) > 0) ||
		(@storamount(Álcool) > 0) ||
		(@invamount(Morango) > 0)
	)

	as loop

	:pegaItem

	do storage get @storage(Coração Imortal) &eval(int(((90 * $::char->{weight_max})/100 - $::char->{weight}) / 1)) if (@storamount(Coração Imortal) > 0)
	goto troca if (@invamount(Coração Imortal) > 0)

	do storage get @storage(Álcool) &eval(int(((90 * $::char->{weight_max})/100 - $::char->{weight}) / 3)) if (@storamount(Álcool) > 0)
	goto troca if (@invamount(Álcool) > 0)

	do storage get @storage(Morango) &eval(int(((90 * $::char->{weight_max})/100 - $::char->{weight}) / 2)) if (@storamount(Morango) > 0)
	goto troca if (@invamount(Morango) > 0)

	:troca

	do storage close
	pause 3
	do deal "Taken x3"
	pause 3


	pause 3 if (@invamount(Coração Imortal) > 0)
	do deal add @inventory(Coração Imortal) if (@invamount(Coração Imortal) > 0)

	pause 3 if (@invamount(Álcool) > 0)
	do deal add @inventory(Álcool) if (@invamount(Álcool) > 0)

	pause 3 if (@invamount(Morango) > 0)
	do deal add @inventory(Morango) if (@invamount(Morango) > 0)

	pause 3
	do deal
	pause 3
	do deal
	pause 3
	do talknpc
	pause 3

	end loop
}