/* ------------------------------------------------------------------------
---------------------------------------------------------------------------
------------------------------------------------------------------------ */
		[Detailed debug of the problem]
/* ------------------------------------------------------------------------
---------------------------------------------------------------------------
------------------------------------------------------------------------ */

[[inFunction_SetMoney(): $type=s $new=500 $money=100090 $newmoney=99590]]

-500$
(99590$)

[[inFunction_BuyBooster(): $inset[16]=17¬Name¬R¬400 ¬ $c_num=17 $c_name=Name $c_rarity=R $c_value=400 ]]
[[inFunction_SetMoney(): $type=a $new=400 $money=995900 $newmoney=996300]]
[[inFunction_SellCard(): $value=400 ]]
(1) Obtained: Name [R], card #17

[[inFunction_BuyBooster(): $inset[85]=86¬Name¬U¬100 ¬ $c_num=86 $c_name=Name $c_rarity=U $c_value=100 ]]
[[inFunction_SetMoney(): $type=a $new=100 $money=996300 $newmoney=996400]]
[[inFunction_SellCard(): $value=100 ]]
(2) Obtained: Name [U], card #86

[[inFunction_BuyBooster(): $inset[36]=37¬Name¬U¬100 ¬ $c_num=37 $c_name=Name $c_rarity=U $c_value=100 ]]
[[inFunction_SetMoney(): $type=a $new=100 $money=996400 $newmoney=996500]]
[[inFunction_SellCard(): $value=100 ]]
(3) Obtained: Name [U], card #37

[[inFunction_BuyBooster(): $inset[79]=80¬Name¬U¬100 ¬ $c_num=80 $c_name=Name $c_rarity=U $c_value=100 ]]
[[inFunction_SetMoney(): $type=a $new=100 $money=996500 $newmoney=996600]]
[[inFunction_SellCard(): $value=100 ]]
(4) Obtained: Name [U], card #80

[[inFunction_BuyBooster(): $inset[94]=95¬Name¬C¬50 ¬ $c_num=95 $c_name=Name $c_rarity=C $c_value=50 ]]
[[inFunction_SetMoney(): $type=a $new=50 $money=996600 $newmoney=996650]]
[[inFunction_SellCard(): $value=50 ]]
(5) Obtained: Name [C], card #95

[[inFunction_BuyBooster(): $inset[92]=93¬Name¬C¬50 ¬ $c_num=93 $c_name=Name $c_rarity=C $c_value=50 ]]
[[inFunction_SetMoney(): $type=a $new=50 $money=996650 $newmoney=996700]]
[[inFunction_SellCard(): $value=50 ]]
(6) Obtained: Name [C], card #93

[[inFunction_BuyBooster(): $inset[93]=94¬Name¬C¬50 ¬ $c_num=94 $c_name=Name $c_rarity=C $c_value=50 ]]
[[inFunction_SetMoney(): $type=a $new=50 $money=996700 $newmoney=996750]]
[[inFunction_SellCard(): $value=50 ]]
(7) Obtained: Name [C], card #94

[[inFunction_BuyBooster(): $inset[52]=53¬Name¬C¬50 ¬ $c_num=53 $c_name=Name $c_rarity=C $c_value=50 ]]
[[inFunction_SetMoney(): $type=a $new=50 $money=996750 $newmoney=996800]]
[[inFunction_SellCard(): $value=50 ]]
(8) Obtained: Name [C], card #53

[[inFunction_BuyBooster(): $inset[100]=101¬Name¬C¬10 ¬ $c_num=101 $c_name=Name $c_rarity=C $c_value=10 ]]
[[inFunction_SetMoney(): $type=a $new=10 $money=996800 $newmoney=996810]]
[[inFunction_SellCard(): $value=10 ]]
(9) Obtained: Name [C], card #101

[[inFunction_BuyBooster(): $inset[99]=100¬Name¬C¬10 ¬ $c_num=100 $c_name=Name $c_rarity=C $c_value=10 ]]
[[inFunction_SetMoney(): $type=a $new=10 $money=996810 $newmoney=996820]]
[[inFunction_SellCard(): $value=10 ]]
(10) Obtained: Name [C], card #100

[[inFunction_BuyBooster(): $inset[100]=101¬Name¬C¬10 ¬ $c_num=101 $c_name=Name $c_rarity=C $c_value=10 ]]
[[inFunction_SetMoney(): $type=a $new=10 $money=996820 $newmoney=996830]]
[[inFunction_SellCard(): $value=10 ]]
(11) Obtained: Name [C], card #101

+930$
(996830$)

/* ------------------------------------------------------------------------
---------------------------------------------------------------------------
------------------------------------------------------------------------ */
			[The Code (functions.php)]
/* ------------------------------------------------------------------------
---------------------------------------------------------------------------
------------------------------------------------------------------------ */
<?php

function CompleteSet($set)
{
	global $globset;
	$the_complete = array();
	$handle = file_get_contents('./cards');
	$array = explode(chr(10), $handle);
	reset($array);
	$gotcards = array();
	foreach ($array AS $value)
	{
		list($card_set, $card_number, $r) = explode(':', $value);
		if ($card_set == $set)
		{
			$gotcards[] = $card_number;
		}
	}
	$the_complete['gots'] = count($gotcards);
	$the_complete['tots'] = $globset[$set];
	$the_complete['need'] = ($the_complete['tots'] - $the_complete['gots']);
	@$the_complete['percentage'] = round(($the_complete['gots'] / $the_complete['tots']) * 100, 1);
	return $the_complete;
}

function FetchMoney()
{
	$money = file_get_contents('./money');
	return $money;
}

function FetchName()
{
	$name = file_get_contents('./user');
	return $name;
}

function FetchCount($t)
{
	if ($t == 1)
	{
		$count = file_get_contents('./sold');
	}
	if ($t == 2)
	{
		$count = file_get_contents('./got');
	}
	if ($t == 3)
	{
		$count = file_get_contents('./boost');
	}
	if ($t == 4)
	{
		$count = file_get_contents('./specs');
	}
	if ($t == 5)
	{
		$count = file_get_contents('./cardmoney');
	}
	return $count;
}

function CountAdd($t)
{
	switch ($t)
	{
		case '1':
			$file = "./sold";
			break;
		case '2':
			$file = "./got";
			break;
		case '3':
			$file = "./boost";
			break;
		case '4':
			$file = "./specs";
			break;
		default:
			$file = "./sold";
			break;
	}
	$count = file_get_contents($file);
	if (!$count)
	{
		$count = 0;
	}
	$some = $count + 1;
	$handle = fopen($file, 'r+');
	fwrite($handle, $some);
	fclose($handle);
}

function CardMoneyAdd($value)
{
	$money = file_get_contents('./cardmoney');
	if (!$money)
	{
		$money = 0;
	}
	$some = $money + $value;
	$handle = fopen('./cardmoney', 'r+');
	fwrite($handle, $some);
	fclose($handle);
}

function SellCard($value)
{
	SetMoney('a', $value);
	CountAdd(1);
	CardMoneyAdd($value);
	echo "[[inFunction_SellCard(): <b>\$value=</b>{$value}]]";
}

function SetMoney($type, $new)
{
	$money = FetchMoney();
	switch($type)
	{
		case 'a':
			$newmoney = ($money + trim($new));
			break;
		case 's':
			$newmoney = ($money - trim($new));
			break;
		default:
			$newmoney = $money;
			break;
	}
	echo "[[inFunction_SetMoney(): <b>\$type=</b>{$type} <b>\$new=</b>{$new} <b>\$money=</b>{$money} <b>\$newmoney=</b>{$newmoney}]]";
	$file = "./money";
	$handle = fopen($file, 'r+');
	fwrite($handle, $newmoney);
	fclose($handle);
}

function ResetData()
{
	global $backlink;
	$files = "./money|./cards|./sold|./got|./boost|./specs|./cardmoney";
	$some = explode('|', $files);
	reset($some);
	$file = array();
	foreach ($some AS $value)
	{
		$file[] = $value;
	}

	for ($i=0; $i<count($file); $i++)
	{
		echo "Erasing File #" . ($i + 1) . ": " . $file[$i] . "<br>";
		switch($file[$i])
		{
			case './money':
				$value = '32000';
				break;
			case './cards':
				$value = '';
				break;
			case './sold':
				$value = '0';
				break;
			case './got':
				$value = '0';
				break;
			case './boost':
				$value = '0';
				break;
			case './specs':
				$value = '0';
				break;
			case './cardmoney':
				$value = '0';
				break;
			default:
				$value = '';
				break;
		}
		if (file_exists($file[$i]))
		{
			unlink($file[$i]);
		}
		$handle = fopen($file[$i], 'x');
		fwrite($handle, $value);
		fclose($handle);
	}
	echo "Data has been erased!<br><br>{$backlink}";
}

function GetCards($set)
{
	global $backlink, $globset;
	$iscomplete = CompleteSet($set);
	$variable = "<table class=\"tblbdr\" border=1 cellpadding=3 width=100%><tr><td class='newbg' colspan=4 align='center' valign='middle'>Printing Set # " . $set . " (owned cards) [" . $iscomplete['gots'] . " / " . $iscomplete['tots'] . "] " . $iscomplete['percentage'] . "%</td></tr><tr><td align='center' valign='middle' class='newbg'>Number</td><td align='center' valign='middle' class='newbg'>Name</td><td align='center' valign='middle' class='newbg'>Rarity</td><td align='center' valign='middle' class='newbg'>Number Owned</td></tr>";
	$handle = file_get_contents('./cards');
	$array = explode(chr(10), $handle);
	reset($array);
	$gotcards = array();
	foreach ($array AS $value)
	{
		list($card_set, $card_number, $r) = explode(':', $value);
		if ($card_set == $set)
		{
			$gotcards[] = $card_number;
		}
	}

	//draw list
	$handle2 = file_get_contents('./sets');
	$array2 = explode(chr(10), $handle2);
	reset($array2);
	foreach ($array2 AS $value)
	{
		list($card_set, $card_number, $card_name, $card_rarity, $card_value) = explode(':', $value);
		if ($card_set == $set)
		{
			$havegot = array_keys($gotcards, $card_number);
			$card_qty = count($havegot);
			$newbg = "";
			if ($card_qty)
			{
				$newbg = "class='newbg'";
			}
			$variable .= "<tr><td align='center' valign='middle' " . $newbg . ">" . $card_number . " / " . $globset[$set] . "</td><td align='center' valign='middle' " . $newbg . ">" . $card_name . "</td><td align='center' valign='middle' " . $newbg . ">" . $card_rarity . "</td><td align='center' valign='middle' " . $newbg . ">" . $card_qty . "</td></tr>";
		}
	}
	$variable .= "</table>" . $backlink . "";
	return $variable;
}

function AddCards($set, $card)
{
	$var = $set . ":" . $card . ":" . chr(10);
	$handle = fopen('./cards', 'a');
	fwrite($handle, $var);
	fclose($handle);
	CountAdd(2);
}

function DoHolo()
{
	$rand = rand(1,2);
	if ($rand == '1') //holo!
	{
		$holo = true;
	}
	if ($rand == '2') //rare..
	{
		$holo = false;
	}
	return $holo;
}

function SpecialCard()
{
	$rand = rand(1,300);   // 1 in 300 chance of getting a holo in pack, despite already having a holo or rare
	$rand2 = rand(1, 300);

	if ($rand == $rand2)
	{
		$holo = true;
		CountAdd(4);
	}
	else
	{
		$holo = false;
	}
	return $holo;
}

function BuyBooster($set, $cost)
{
	global $backlink;
	$funds = FetchMoney();
	if ($funds < $cost)
	{
		die("You do not have enough money to purchase this. Please try selling some duplicate unwanted cards in order to make some return in order to buy more cards.<br><br>" . $backlink);
	}
	if ($funds >= $cost) //proceed
	{
		$new = ($funds - $cost);
		SetMoney('s', $cost);
		echo "-" . $cost . "\$<br>(" . $new . "\$)<br><br>";
	}
	$cards = array();
	$handle2 = file_get_contents('./cards');
	$array2 = explode(chr(10), $handle2);
	reset($array2);
	$gotcards = array();
	foreach ($array2 AS $value)
	{
		list($card_set, $card_number, $r) = explode(':', $value);
		if ($card_set == $set)
		{
			$gotcards[] = $card_number;
		}
	}
	$loosepacket = CallSetGatherer($set);
	$packet = explode('¬', $loosepacket);
	foreach ($packet AS $value)
	{
		$cards[] = $value;
	}
	$handle = file_get_contents('./sets');
	$array = explode(chr(10), $handle);
	reset($array);
	$inset = array();
	foreach ($array AS $value)
	{
		list($c_set, $c_num, $c_name, $c_rarity, $c_value) = explode(':', $value);
		if ($c_set == $set)
		{
			$inset[] = $c_num . "¬" . $c_name . "¬" . $c_rarity . "¬" . $c_value . "¬";
		}
	}
	$tempgotarray = array(); //array to prevent multi adding duplicate cards
	$tempvalue = 0;
	for ($i=0; $i<(count($cards)-1); $i++)
	{
		$cnum = ($cards[$i]-1);
		list($c_num, $c_name, $c_rarity, $c_value) = explode("¬", $inset[$cnum]);
		echo "[[inFunction_BuyBooster(): <b>\$inset[{$cnum}]=</b>{$inset[$cnum]} <b>\$c_num=</b>{$c_num} <b>\$c_name=</b>{$c_name} <b>\$c_rarity=</b>{$c_rarity} <b>\$c_value=</b>{$c_value}]]";
		$prevar = $c_num . "¬" . $c_name . "¬" . $c_rarity . "¬" . $c_value;
		$havegot = array_keys($gotcards, $c_num);
		$card_qty = count($havegot);
		if ($card_qty)
		{
			SellCard($c_value);
			$tempvalue = $tempvalue + $c_value;
			$tag1 = "";
			$tag2 = "";
		}
		if (!$card_qty)
		{
			$hgot = array_keys($tempgotarray, $c_num);
			$cqty = count($hgot);
			if ($cqty) //found a duplicate card already in this packet; sell it
			{
				SellCard($c_value);
				$tempvalue = $tempvalue + $c_value;
				$tag1 = "";
				$tag2 = "";
			}
			if (!$cqty)
			{
				AddCards($set, $cards[$i]);
				$tag1 = "<strong>";
				$tag2 = "</strong>";
			}
		}
		$tempgotarray[] = $c_num;
		echo "(" . ($i + 1) . ") Obtained: " . $tag1 . $c_name . $tag2 . " [" . $tag1 . $c_rarity . $tag2 . "], " . $tag1 . "card #" . $c_num . $tag2 . "<br>";
	}
	$newsum = FetchMoney();
	echo "<br>+{$tempvalue}\$<br>({$newsum}\$)<br><br>" . $backlink;
	CountAdd(3);
}
?>