<?php
	function parser($begining,$end,$input) {
		If (strpos($input,$begining) == true){
		$start = strlen($begining) + strpos($input, $begining);
		$length = $start - strpos($input, $end, strpos($input, $begining));
		$length = abs($length);
		$output = substr($input, $start, $length);
		} else {
		$output = 0;
		}
		return $output;
	}

	function wonder($wonder,$input) {
		If (strpos($input,$wonder) == true){
			return 1;
		} else {
			return 0;
		}
	}

	$input = $_POST['input'];
	$input = substr($input, strpos($input, "Nation Information"));
	$input = substr($input, strpos($input,'<td width="70%" bgcolor="#FFFFFF" colspan="3">'));
	$input = substr($input, strpos($input, '</tr>'));


	$ruler_name = parser('Ruler:</td> <td bgcolor="#FFFFFF" width="33%">','<a href="invite_friends.asp"',$input);
	$nation_name = parser('Nation Name:</td> <td bgcolor="#FFFFFF" width="33%">', '<a href="nation_drill_display_map.asp?',$input);
	$infrastructure = parser('Infrastructure</a>:</td> <td bgcolor="#FFFFFF" colspan="2">','</td> </tr>',$input);
	$nation_ID = parser('offer_donation_nation.asp?Nation_ID=','">',$input);
	$nukes = parser('Nuclear Weapons</a>:</td> <td bgcolor="#FFFFFF" colspan="2">', '<img border="0" class="icon" src=',$input);
	$government_type = parser('<td width="620" valign="top">  <i>', " -",$input);
	$warchest = parser('<td bgcolor="#FFFFFF" height="34" colspan="2"><b><font color="green">', '&nbsp;',$input);
	$spies = parser('Number of Spies</a>:</td> <td bgcolor="#FFFFFF" colspan="2">',' </td>',$input);
	$tanks = parser('Number of Tanks</a>:</td> <td bgcolor="#FFFFFF" colspan="2">','</td>',$input);
	$soldiers = parser('Number of Soldiers:</a></td> <td bgcolor="#FFFFFF" colspan="2">', '(',$input);
	$population = parser('Total Population:</td> <td bgcolor="#FFFFFF" colspan="2">','&nbsp',$input);
	$population_density = parser('Population.',' Population Per Mile', $input);
	$technology = parser('Technology</a>: </td> <td bgcolor="#FFFFFF" colspan="2">0.0','. Literacy Rate:',$input);


	$improvements = parser('Improvements</a>:</td>','</tr>',$input);
	$improvements = parser('"View Improvements and Wonders"></a></td> 		<td>','		</td>',$improvements);

	$Banks = parser('Banks:',",",$improvements);
	$Barracks = parser('Barracks;',",",$improvements);
	$Border_Fortifications = parser('Border Fortifications:',",",$improvements);
	$Border_Walls = parser('Border Walls:',",",$improvements);
	$Bunkers = parser('Bunkers:',",",$improvements);
	$Casinos = parser('Casinos:',",",$improvements);
	$Churches = parser('Churches:',",",$improvements);
	$Clinics = parser('Clinics:',",",$improvements);
	$Drydocks = parser('Drydocks:',",",$improvements);
	$Factories = parser('Factories:',",",$improvements);
	$Foreign_Ministries = parser('Foreign Ministries:',",",$improvements);
	$Forward_Operating_Bases = parser('Forward Operating Bases:',",",$improvements);
	$Guerrilla_Camps = parser('Guerrilla Camps:',",",$improvements);
	$Harbors = parser('Harbors:',",",$improvements);
	$Hospitals = parser('Hospitals:',",",$improvements);
	$Intelligence_Agencies = parser('Intelligence Agencies:',",",$improvements);
	$Jails = parser('Jails:',",",$improvements);
	$Labor_Camps = parser('Labor Camps:',",",$improvements);
	$Missile_Defense = parser('Missile Defense:',",",$improvements);
	$Munitions_Factories = parser('Munitions Factories:',",",$improvements);
	$Naval_Academies = parser('Naval Academies:',",",$improvements);
	$Naval_Construction_Yards = parser('Naval Construction Yards:',",",$improvements);
	$Offices_of_Propaganda = parser('Offices of Propaganda:',",",$improvements);
	$Police_Headquarters = parser('Police Headquarters:',",",$improvements);
	$Prisons = parser('Prisons:',",",$improvements);
	$Radiation_Containment_Chambers = parser('Radiation Containment Chambers:',",",$improvements);
	$Red_Light_Districts = parser('Red Light Districts:',",",$improvements);
	$Rehabilitation_Facilities = parser('Rehabilitation Facilities:',",",$improvements);
	$Satellites = parser('Satellites:',",",$improvements);
	$Schools = parser('Schools:',",",$improvements);
	$Shipyards = parser('Shipyards:',",",$improvements);
	$Stadiums = parser('Stadiums:',",",$improvements);
	$Universities = parser('Universities:',",",$improvements);

	$wonders = parser('National Wonders</a>:','</tr>',$input);
	$wonders = parser('"View Improvements and Wonders"></a></td> 		<td>','		</td>',$wonders);

	$Agriculture_Development_Program= wonder('Agriculture Development Program',,$wonders);
	$Anti-Air_Defense_Network= wonder('Anti-Air Defense Network',,$wonders);
	$Central_Intelligence_Agency = wonder('Central Intelligence Agency',,$wonders);
	$Disaster_Relief_Agency = wonder('Disaster Relief Agency',$wonders);
	$EMP_Weaponization = wonder('EMP Weaponization',$wonders);
	$Fallout_Shelter_System = wonder('Fallout Shelter System',$wonders);
	$Federal_Aid_Commission = wonder('Federal Aid Commission',$wonders);
	$Federal_Reserve = wonder('Federal Reserve',$wonders);
	$Foreign_Air_Force_Base = wonder('Foreign Air Force Base',$wonders);
	$Foreign_Army_Base = wonder('Foreign Army Base',$wonders);
	$Foreign_Naval_Base = wonder('Foreign Naval Base',$wonders);
	$Great_Monument = wonder('Great Monument',$wonders);
	$Great_Temple = wonder('Great Temple ',$wonders);
	$Great_University = wonder('Great University',$wonders);
	$Hidden_Nuclear_Missile_Silo = wonder('Hidden Nuclear Missile Silo',$wonders);
	$Interceptor_Missile_System = wonder('Interceptor Missile System',$wonders);
	$Internet = wonder('Internet',$wonders);
	$Interstate_System = wonder('Interstate System',$wonders);
	$Manhattan_Project = wonder('Manhattan Project',$wonders);
	$Mars_Base = wonder('Mars Base',$wonders);
	$Mars_Colony = wonder('Mars Colony',$wonders);
	$Mars_Mine = wonder('Mars Mine',$wonders);
	$Mining_Industry_Consortium = wonder('Mining Industry Consortium',$wonders);
	$Moon_Base = wonder('Moon Base',$wonders);
	$Moon_Colony = wonder('Moon Colony',$wonders);
	$Moon_Mine = wonder('Moon Mine',$wonders);
	$Movie_Industry = wonder('Movie Industry',$wonders);
	$National_Cemetery = wonder('National Cemetery',$wonders);
	$National_Environment_Office = wonder('National Environment Office',$wonders);
	$National_Research_Lab = wonder('National Research Lab',$wonders);
	$National_War_Memorial = wonder('National War Memorial',$wonders);
	$Nuclear_Power_Plant = wonder('Nuclear Power Plant',$wonders);
	$Pentagon = wonder('Pentagon',$wonders);
	$Political_Lobbyists = wonder('Political Lobbyists',$wonders);
	$Scientific_Development_Center = wonder('Scientific Development Center',$wonders);
	$Social_Security_System = wonder('Social Security System',$wonders);
	$Space_Program = wonder('Space Program',$wonders);
	$Stock_Market = wonder('Stock Market',$wonders);
	$Strategic_Defense_Initiative = wonder('Strategic Defense Initiative',$wonders);
	$Superior_Logistical_Support = wonder('Superior Logistical Support',$wonders);
	$Universal_Health_Care = wonder('Universal Health Care',$wonders);
	$Weapons_Research_Complex = wonder('Weapons Research Complex',$wonders);

	$trade = parser('This nation is using ',' o',$input);
?>