<?
	# FETCHCURRENTCHAR.INC
	# depending on user's IP, grabs user's character's name, fetch all the character's values
	#
	# also calculates all secondary values for the character
	# also calls functions to decrunch talents and planning LCP lines from database
	# can be called to get any character's values (not only the current user's character), by sending	in a valid database row and setting $searchcurrentchar to "no"
?>
<?
	include Inc("fetchthetick.inc");
	# connects to the database and get the char line
	# by default will search for the current user's character (basing on user's IP)
	if ($searchcurrentchar <> "no") {
		$result = SelectDB('Characters', 'Id', $id);
		$row = mysql_fetch_array($result);
	}
	# extracts all the basic values (stored)
	$id = $row["Id"];
	$name = $row["Name"];
	$user = $row["User"];
	$image = $row["Image"];
	$creationdate = $row["CreationDate"];
	$lastused = $row["LastUsed"];
	$FP = $row["FP"];
	$FW = $row["FW"];
	$report = $row["Report"];
	$class = $row["Class"];
	$classname = $Tclass[$class];
	$level = $row["Level"];
	$race = $row["Race"];
	$racename = $Trace[$race];
	$background = $row["Background"];
	$att[1] = $row["Str"];
	$att[2] = $row["Dex"];
	$att[3] = $row["Con"];
	$att[4] = $row["Inte"];
	$att[5] = $row["Wis"];
	$att[6] = $row["Cha"];
	$hpmax = $row["HPmax"];
	$hp = $row["HP"];
	$ac = $row["AC"];
	$xp = $row["XP"];
	$gold[1] = $row["PP"];
	$gold[2] = $row["GP"];
	$gold[3] = $row["SP"];
	$gold[4] = $row["CP"];
	$totalgold = $gold[1]*10 + $gold[2] + $gold[3]/10 + $gold[4]/100;
	$weapon = $row["Weapon"];
	$armor = $row["Armor"];
	$shield = $row["Shield"];
	$armorplus = $row["ArmorPLus"];
	$shieldplus = $row["ShieldPlus"];
	$equipment = $row["Equipment"];
	DecrunchEquipment($equipment); # go decrunch the equipment !
	$spells = $row["Spells"];
	$visit = $row["Visit"];
	$planning = $row["Planning"];
	DecrunchPlanning($planning); # go decrunch the planning !
	$death = $row["Dead"];
	$agenda = $row["Agenda"];
	DecrunchAgenda($agenda);
	$xmap = $row["MapX"];
	$ymap = $row["MapY"];
	$acceptfights = $row["acceptfights"];
	$size = $row["Size"];
	$skilllist = $row["Skills"];
	$skillpts = $row["SkillPts"];
	DecrunchSkills($skilllist);
	
	# calculates other values
	$dexbonus = $Tattmod[$att[2]];
	if (($armor <> 0) and ($dexbonus > $Tamaxdexbonus[$armor])) {
		$dexbonus = $Tamaxdexbonus[$armor];
	}
	$ac = $ac + $dexbonus + $Tabonus[$armor] + $Tabonus[$shield] + $Tacsizemod[$size];
	
	$xpvalue = $Txpvalueglobal[$level];
?>