<?php
// country_capital_quiz.php
// RJM Programming
// November, 2016
// Country capital quiz ... thanks to TikiWiki regarding flag country list, and to https://www.countries-ofthe-world.com/capitals-of-the-world.html for capitals themselves
     

$isSafari=true; //false;
$user_agent = $_SERVER['HTTP_USER_AGENT']; 
if (stripos( $user_agent, 'Chrome') !== false) {
    $isSafari=true; //$isSafari;
} elseif (stripos( $user_agent, 'Safari') !== false) {
   $isSafari=true;
}

$lastcc='';
$foundcc='';
$iso_country_codes=['AF','Afghanistan',
'ax','Aland Islands',
'Al','Albania',
'DZ','Algeria',
'as','American Samoa',
'ad','Andorra',
'AO','Angola',
'ai','Anguilla',
'AQ','Antarctica',
'ag','Antigua and Barbuda',
'AR','Argentina',
'AM','Armenia',
'aw','Aruba',
'AU','Australia',
'At','Austria',
'AZ','Azerbaijan',
'bs','Bahamas',
'Bh','Bahrain',
'BD','Bangladesh',
'bb','Barbados',
'BY','Belarus',
'BE','Belgium',
'BZ','Belize',
'BJ','Benin',
'bm','Bermuda',
'Bt','Bhutan',
'BO','Bolivia',
'Ba','Bosnia and Herzegovina',
'Bw','Botswana',
'bv','Bouvet Island (Bouvetoya)',
'BR','Brazil',
'io','British Indian Ocean Territory (Chagos Archipelago)',
'vg','British Virgin Islands',
'Bn','Brunei Darussalam',
'BG','Bulgaria',
'BF','Burkina Faso',
'bi','Burundi',
'KH','Cambodia',
'CM','Cameroon',
'CA','Canada',
'cv','Cape Verde',
'ky','Cayman Islands',
'CF','Central African Republic',
'TD','Chad',
'CL','Chile',
'CN','China',
'cx','Christmas Island',
'cc','Cocos (Keeling) Islands',
'CO','Colombia',
'km','Comoros',
'CD','Democratic Republic of the Congo',
'CG','Republic of the Congo',
'ck','Cook Islands',
'CR','Costa Rica',
'CI',"Cote d'Ivoire",
'HR','Croatia',
'CU','Cuba',
'Cy','Cyprus',
'CZ','Czech Republic',
'dK','Denmark',
'Dj','Djibouti',
'DM','Dominica',
'DO','Dominican Republic',
'EC','Ecuador',
'EG','Egypt',
'SV','El Salvador',
'GQ','Equatorial Guinea',
'ER','Eritrea',
'Ee','Estonia',
'ET','Ethiopia',
'FO','Faroe Islands',
'FK','Falkland Islands',
'fJ','Fiji',
'FI','Finland',
'FR','France',
'GF','French Guiana',
'pf','French Polynesia',
'tf','French Southern Territories',
'GA','Gabon',
'GM','Gambia the',
'GE','Georgia',
'DE','Germany',
'GH','Ghana',
'gi','Gibraltar',
'gR','Greece',
'GL','Greenland',
'gd','Grenada',
'gp','Guadeloupe',
'gu','Guam',
'GT','Guatemala',
'gg','Guernsey',
'GN','Guinea',
'GW','Guinea-Bissau',
'GY','Guyana',
'HT','Haiti',
'hm','Heard Island and McDonald Islands',
'va','Holy See (Vatican City State)',
'HN','Honduras',
'hk','Hong Kong',
'HU','Hungary',
'is','Iceland',
'IN','India',
'ID','Indonesia',
'IR','Iran',
'IQ','Iraq',
'IE','Ireland',
'im','Isle of Man',
'Il','Israel',
'IT','Italy',
'Jm','Jamaica',
'JP','Japan',
'JE','Jersey',
'Jo','Jordan',
'KZ','Kazakhstan',
'KE','Kenya',
'kI','Kiribati',
'KP','North Korea',
'KR','South Korea',
'KW','Kuwait',
'KG','Kyrgyz Republic',
'kg','Kyrgyzstan',
'LA','Laos',
'Lv','Latvia',
'Lb','Lebanon',
'ls','Lesotho',
'LR','Liberia',
'LY','Libya',
'li','Liechtenstein',
'Lt','Lithuania',
'lu','Luxembourg',
'mo','Macao',
'MK','North Macedonia',
'Mk','Macedonia',
'MG','Madagascar',
'MW','Malawi',
'MY','Malaysia',
'mv','Maldives',
'ML','Mali',
'MT','Malta',
'mh','Marshall Islands',
'mq','Martinique',
'MR','Mauritania',
'mu','Mauritius',
'yt','Mayotte',
'MX','Mexico',
'fm','Micronesia',
'MD','Moldova',
'mc','Monaco',
'MN','Mongolia',
'Me','Montenegro',
'ms','Montserrat',
'MA','Morocco',
'MZ','Mozambique',
'MM','Myanmar (Burma)',
'NA','Namibia',
'nr','Nauru',
'NP','Nepal',
'an','Netherlands Antilles',
'NL','Netherlands',
'nc','New Caledonia',
'nZ','New Zealand',
'NI','Nicaragua',
'NE','Niger',
'NG','Nigeria',
'nu','Niue',
'NF','Norfolk Island',
'mp','Northern Mariana Islands',
'NO','Norway',
'om','Oman',
'PK','Pakistan',
'pw','Palau',
'ps','Palestine',
'PA','Panama',
'PG','Papua New Guinea',
'PY','Paraguay',
'PE','Peru',
'PH','Philippines',
'pn','Pitcairn Islands',
'PL','Poland',
'PT','Portugal',
'pr','Puerto Rico',
'qa','Qatar',
're','Reunion',
'RO','Romania',
'RU','Russia',
'Rw','Rwanda',
'bl','Saint Barthelemy',
'sh','Saint Helena',
'kn','Saint Kitts and Nevis',
'lc','Saint Lucia',
'mf','Saint Martin',
'pm','Saint Pierre and Miquelon',
'vc','Saint Vincent and the Grenadines',
'ws','Samoa',
'sm','San Marino',
'st','Sao Tome and Principe',
'SA','Saudi Arabia',
'SN','Senegal',
'RS','Serbia',
'sc','Seychelles',
'SL','Sierra Leone',
'sg','Singapore',
'SK','Slovakia',
'Si','Slovenia',
'SB','Solomon Islands',
'SO','Somalia',
'ZA','South Africa',
'gs','South Georgia and the South Sandwich Islands',
'ES','Spain',
'LK','Sri Lanka',
'SD','Sudan',
'SR','Suriname',
'sj','Svalbard & Jan Mayen Islands',
'sz','Swaziland',
'SE','Sweden',
'Ch','Switzerland',
'Sy','Syria',
'Tw','Taiwan',
'TJ','Tajikistan',
'TZ','Tanzania',
'TH','Thailand',
'tl','Timor-Leste',
'TG','Togo',
'tk','Tokelau',
'td','Tonga',
'tt','Trinidad and Tobago',
'TN','Tunisia',
'TR','Turkey',
'TM','Turkmenistan',
'tc','Turks and Caicos Islands',
'tV','Tuvalu',
'UG','Uganda',
'UA','Ukraine',
'AE','United Arab Emirates',
'GB','United Kingdom',
'US','United States of America',
'UM','United States Minor Outlying Islands',
'vi','United States Virgin Islands',
'UY','Uruguay, Eastern Republic of',
'UZ','Uzbekistan',
'vu','Vanuatu',
'VE','Venezuela',
'VN','Vietnam',
'wf','Wallis and Futuna',
'EH','Western Sahara',
'YE','Yemen',
'ZM','Zambia',
'ZW','Zimbabwe'];

// Eg. <tr class="grey"><td>Bahamas</td><td>Nassau</td></tr> ... thanks
//$capbits=@file_get_contents("https://www.countries-ofthe-world.com/capitals-of-the-world.html");
$capbits="
<thead><tr><th>Country</th><th>Capital city</th></tr></thead><tbody>
<tr><td colspan='2' class='letter'>A</td></tr>
<tr class='grey'><td></td><td>Kabul</td></tr>
<tr><td>Albania</td><td>Tirana</td></tr>
<tr class='grey'><td>Algeria</td><td>Algiers</td></tr>
<tr><td>Andorra</td><td>Andorra la Vella</td></tr>
<tr class='grey'><td>Angola</td><td>Luanda</td></tr>
<tr><td>Antigua and Barbuda</td><td>Saint John's</td></tr>
<tr class='grey'><td>Argentina</td><td>Buenos Aires</td></tr>
<tr><td>Armenia</td><td>Yerevan</td></tr>
<tr class='grey'><td>Australia</td><td>Canberra</td></tr>
<tr><td>Austria</td><td>Vienna</td></tr>
<tr class='grey'><td>Azerbaijan</td><td>Baku</td></tr>
<tr><td colspan='2' class='letter'>B</td></tr>
<tr class='grey'><td>Bahamas</td><td>Nassau</td></tr>
<tr><td>Bahrain</td><td>Manama</td></tr>
<tr class='grey'><td>Bangladesh</td><td>Dhaka</td></tr>
<tr><td>Barbados</td><td>Bridgetown</td></tr>
<tr class='grey'><td>Belarus</td><td>Minsk</td></tr>
<tr><td>Belgium</td><td>Brussels</td></tr>
<tr class='grey'><td>Belize</td><td>Belmopan</td></tr>
<tr><td>Benin</td><td>Porto-Novo</td></tr>
<tr class='grey'><td>Bhutan</td><td>Thimphu</td></tr>
<tr><td>Bolivia</td><td>La Paz (administrative), Sucre (judicial)</td></tr>
<tr class='grey'><td>Bosnia and Herzegovina</td><td>Sarajevo</td></tr>
<tr><td>Botswana</td><td>Gaborone</td></tr>
<tr class='grey'><td>Brazil</td><td>Brasilia</td></tr>
<tr><td>Brunei</td><td>Bandar Seri Begawan</td></tr>
<tr class='grey'><td>Bulgaria</td><td>Sofia</td></tr>
<tr><td>Burkina Faso</td><td>Ouagadougou</td></tr>
<tr class='grey'><td>Burundi</td><td>Bujumbura</td></tr>
<tr><td colspan='2' class='letter'>C</td></tr>
<tr class='grey'><td>Cabo Verde</td><td>Praia</td></tr>
<tr><td>Cambodia</td><td>Phnom Penh</td></tr>
<tr class='grey'><td>Cameroon</td><td>Yaounde</td></tr>
<tr><td>Canada</td><td>Ottawa</td></tr>
<tr class='grey'><td>Central African Republic</td><td>Bangui</td></tr>
<tr><td>Chad</td><td>N'Djamena</td></tr>
<tr class='grey'><td>Chile</td><td>Santiago</td></tr>
<tr><td>China</td><td>Beijing</td></tr>
<tr class='grey'><td>Colombia</td><td>Bogotá</td></tr>
<tr><td>Comoros</td><td>Moroni</td></tr>
<tr class='grey'><td><span>Democratic Republic of the</span> Congo</td><td>Kinshasa</td></tr>
<tr><td><span>Republic of the</span> Congo</td><td>Brazzaville</tr>
<tr class='grey'><td>Costa Rica</td><td>San Jose</td></tr>
<tr><td>Cote d'Ivoire</td><td>Yamoussoukro</td></tr>
<tr class='grey'><td>Croatia</td><td>Zagreb</td></tr>
<tr><td>Cuba</td><td>Havana</td></tr>
<tr class='grey'><td>Cyprus</td><td>Nicosia</td></tr>
<tr><td>Czech Republic</td><td>Prague</td></tr>
<tr><td colspan='2' class='letter'>D</td></tr>
<tr class='grey'><td>Denmark</td><td>Copenhagen</td></tr>
<tr><td>Djibouti</td><td>Djibouti (city)</td></tr>
<tr class='grey'><td>Dominica</td><td>Roseau</td></tr>
<tr><td>Dominican Republic</td><td>Santo Domingo</td></tr>
<tr><td colspan='2' class='letter'>E</td></tr>
<tr class='grey'><td>Ecuador</td><td>Quito</td></tr>
<tr><td>Egypt</td><td>Cairo</td></tr>
<tr class='grey'><td>El Salvador</td><td>San Salvador</td></tr>
<tr><td>Equatorial Guinea</td><td>Malabo</td></tr>
<tr class='grey'><td>Eritrea</td><td>Asmara</td></tr>
<tr><td>Estonia</td><td>Tallinn</td></tr>
<tr class='grey'><td>Ethiopia</td><td>Addis Ababa</td></tr>
<tr><td colspan='2' class='letter'>F</td></tr>
<tr class='grey'><td>Fiji</td><td>Suva</td></tr>
<tr><td>Finland</td><td>Helsinki</td></tr>
<tr class='grey'><td>France</td><td>Paris</td></tr>
<tr><td colspan='2' class='letter'>G</td></tr>
<tr class='grey'><td>Gabon</td><td>Libreville</td></tr>
<tr><td>Gambia</td><td>Banjul</td></tr>
<tr class='grey'><td>Georgia</td><td>Tbilisi</td></tr>
<tr><td>Germany</td><td>Berlin</td></tr>
<tr class='grey'><td>Ghana</td><td>Accra</td></tr>
<tr><td>Greece</td><td>Athens</td></tr>
<tr class='grey'><td>Grenada</td><td>Saint George's</td></tr>
<tr><td>Guatemala</td><td>Guatemala City</td></tr>
<tr class='grey'><td>Guinea</td><td>Conakry</td></tr>
<tr><td>Guinea-Bissau</td><td>Bissau</td></tr>
<tr class='grey'><td>Guyana</td><td>Georgetown</td></tr>
<tr><td colspan='2' class='letter'>H</td></tr>
<tr class='grey'><td>Haiti</td><td>Port-au-Prince</td></tr>
<tr><td>Honduras</td><td>Tegucigalpa</td></tr>
<tr class='grey'><td>Hungary</td><td>Budapest</td></tr>
<tr><td colspan='2' class='letter'>I</td></tr>
<tr class='grey'><td>Iceland</td><td>Reykjavik</td></tr>
<tr><td>India</td><td>New Delhi</td></tr>
<tr class='grey'><td>Indonesia</td><td>Jakarta</td></tr>
<tr><td>Iran</td><td>Tehran</td></tr>
<tr class='grey'><td>Iraq</td><td>Baghdad</td></tr>
<tr><td>Ireland</td><td>Dublin</td></tr>
<tr class='grey'><td>Israel</td><td>Jerusalem</td></tr>
<tr><td>Italy</td><td>Rome</td></tr>
<tr><td colspan='2' class='letter'>J</td></tr>
<tr class='grey'><td>Jamaica</td><td>Kingston</td></tr>
<tr><td>Japan</td><td>Tokyo</td></tr>
<tr class='grey'><td>Jordan</td><td>Amman</td></tr>
<tr><td colspan='2' class='letter'>K</td></tr>
<tr class='grey'><td>Kazakhstan</td><td>Astana</td></tr>
<tr><td>Kenya</td><td>Nairobi</td></tr>
<tr class='grey'><td>Kiribati</td><td>South Tarawa</td></tr>
<tr><td>Kosovo</td><td>Pristina</td></tr>
<tr class='grey'><td>Kuwait</td><td>Kuwait City</td></tr>
<tr><td>Kyrgyzstan</td><td>Bishkek</td></tr>
<tr><td colspan='2' class='letter'>L</td></tr>
<tr class='grey'><td>Laos</td><td>Vientiane</td></tr>
<tr><td>Latvia</td><td>Riga</td></tr>
<tr class='grey'><td>Lebanon</td><td>Beirut</td></tr>
<tr><td>Lesotho</td><td>Maseru</td></tr>
<tr class='grey'><td>Liberia</td><td>Monrovia</td></tr>
<tr><td>Libya</td><td>Tripoli</td></tr>
<tr class='grey'><td>Liechtenstein</td><td>Vaduz</td></tr>
<tr><td>Lithuania</td><td>Vilnius</td></tr>
<tr class='grey'><td>Luxembourg</td><td>Luxembourg</td></tr>
</tbody>
</table>
<table class='two-column td-red'>
<thead><tr><th>Country</th><th>Capital city</th></tr></thead><tbody>
<tr><td colspan='2' class='letter'>M</td></tr>
<tr class='grey'><td>Macedonia</td><td>Skopje</td></tr>
<tr><td>Madagascar</td><td>Antananarivo</td></tr>
<tr class='grey'><td>Malawi</td><td>Lilongwe</td></tr>
<tr><td>Malaysia</td><td>Kuala Lumpur</td></tr>
<tr class='grey'><td>Maldives</td><td>Male</td></tr>
<tr><td>Mali</td><td>Bamako</td></tr>
<tr class='grey'><td>Malta</td><td>Valletta</td></tr>
<tr><td>Marshall Islands</td><td>Majuro</td></tr>
<tr class='grey'><td>Mauritania</td><td>Nouakchott</td></tr>
<tr><td>Mauritius</td><td>Port Louis</td></tr>
<tr class='grey'><td>Mexico</td><td>Mexico City</td></tr>
<tr><td>Micronesia</td><td>Palikir</td></tr>
<tr class='grey'><td>Moldova</td><td>Chisinau</td></tr>
<tr><td>Monaco</td><td>Monaco</td></tr>
<tr class='grey'><td>Mongolia</td><td>Ulaanbaatar</td></tr>
<tr><td>Montenegro</td><td>Podgorica</td></tr>
<tr class='grey'><td>Morocco</td><td>Rabat</td></tr>
<tr><td>Mozambique</td><td>Maputo</td></tr>
<tr class='grey'><td>Myanmar (Burma)</td><td>Naypyidaw</td></tr>
<tr><td colspan='2' class='letter'>N</td></tr>
<tr class='grey'><td>Namibia</td><td>Windhoek</td></tr>
<tr><td>Nauru</td><td>Yaren District</td></tr>
<tr class='grey'><td>Nepal</td><td>Kathmandu</td></tr>
<tr><td>Netherlands</td><td>Amsterdam</td></tr>
<tr class='grey'><td>New Zealand</td><td>Wellington</td></tr>
<tr><td>Nicaragua</td><td>Managua</td></tr>
<tr class='grey'><td>Niger</td><td>Niamey</td></tr>
<tr><td>Nigeria</td><td>Abuja</td></tr>
<tr class='grey'><td>North Korea</td><td>Pyongyang</td></tr>
<tr><td>Norway</td><td>Oslo</td></tr>
<tr><td colspan='2' class='letter'>O</td></tr>
<tr class='grey'><td>Oman</td><td>Muscat</td></tr>
<tr><td colspan='2' class='letter'>P</td></tr>
<tr class='grey'><td>Pakistan</td><td>Islamabad</td></tr>
<tr><td>Palau</td><td>Ngerulmud</td></tr>
<tr class='grey'><td>Palestine</td><td>Ramallah</td></tr>
<tr><td>Panama</td><td>Panama City</td></tr>
<tr class='grey'><td>Papua New Guinea</td><td>Port Moresby</td></tr>
<tr><td>Paraguay</td><td>Asunción</td></tr>
<tr class='grey'><td>Peru</td><td>Lima</td></tr>
<tr><td>Philippines</td><td>Manila</td></tr>
<tr class='grey'><td>Poland</td><td>Warsaw</td></tr>
<tr><td>Portugal</td><td>Lisbon</td></tr>
<tr><td colspan='2' class='letter'>Q</td></tr>
<tr class='grey'><td>Qatar</td><td>Doha</td></tr>
<tr><td colspan='2' class='letter'>R</td></tr>
<tr class='grey'><td>Romania</td><td>Bucharest</td></tr>
<tr><td>Russia</td><td>Moscow</td></tr>
<tr class='grey'><td>Rwanda</td><td>Kigali</td></tr>
<tr><td colspan='2' class='letter'>S</td></tr>
<tr class='grey'><td>Saint Kitts and Nevis</td><td>Basseterre</td></tr>
<tr><td>Saint Lucia</td><td>Castries</td></tr>
<tr class='grey'><td>Saint Vincent and the Grenadines</td><td>Kingstown</td></tr>
<tr><td>Samoa</td><td>Apia</td></tr>
<tr class='grey'><td>San Marino</td><td>San Marino</td></tr>
<tr><td>Sao Tome and Principe</td><td>São Tomé</td></tr>
<tr class='grey'><td>Saudi Arabia</td><td>Riyadh</td></tr>
<tr><td>Senegal</td><td>Dakar</td></tr>
<tr class='grey'><td>Serbia</td><td>Belgrade</td></tr>
<tr><td>Seychelles</td><td>Victoria</td></tr>
<tr class='grey'><td>Sierra Leone</td><td>Freetown</td></tr>
<tr><td>Singapore</td><td>Singapore</td></tr>
<tr class='grey'><td>Slovakia</td><td>Bratislava</td></tr>
<tr><td>Slovenia</td><td>Ljubljana</td></tr>
<tr class='grey'><td>Solomon Islands</td><td>Honiara</td></tr>
<tr><td>Somalia</td><td>Mogadishu</td></tr>
<tr class='grey'><td>South Africa</td><td>Pretoria (administrative), Cape Town (legislative), Bloemfontein (judicial)</td></tr>
<tr><td>South Korea</td><td>Seoul</td></tr>
<tr><td>South Ossetia</td><td>Tskhinvali</td></tr>
<tr><td>South Sudan</td><td>Juba</td></tr>
<tr class='grey'><td>Spain</td><td>Madrid</td></tr>
<tr><td>Sri Lanka</td><td>Sri Jayawardenepura Kotte</td></tr>
<tr class='grey'><td>Sudan</td><td>Khartoum</td></tr>
<tr><td>Suriname</td><td>Paramaribo</td></tr>
<tr class='grey'><td>Swaziland</td><td>Mbabane</td></tr>
<tr><td>Sweden</td><td>Stockholm</td></tr>
<tr class='grey'><td>Switzerland</td><td>Bern</td></tr>
<tr><td>Syria</td><td>Damascus</td></tr>
<tr class='grey'><td colspan='2' class='letter'>T</td></tr>
<tr><td>Taiwan</td><td>Taipei</td></tr>
<tr class='grey'><td>Tajikistan</td><td>Dushanbe</td></tr>
<tr><td>Tanzania</td><td>Dodoma</td></tr>
<tr class='grey'><td>Thailand</td><td>Bangkok</td></tr>
<tr><td>Timor-Leste</td><td>Dili</td></tr>
<tr class='grey'><td>Togo</td><td>Lomé</td></tr>
<tr><td>Tonga</td><td>Nukuʻalofa</td></tr>
<tr class='grey'><td>Trinidad and Tobago</td><td>Port of Spain</td></tr>
<tr><td>Tunisia</td><td>Tunis</td></tr>
<tr class='grey'><td>Turkey</td><td>Ankara</td></tr>
<tr><td>Turkmenistan</td><td>Ashgabat</td></tr>
<tr class='grey'><td>Tuvalu</td><td>Funafuti</td></tr>
<tr><td colspan='2' class='letter'>U</td></tr>
<tr class='grey'><td>Uganda</td><td>Kampala</td></tr>
<tr><td>Ukraine</td><td>Kyiv</td></tr>
<tr class='grey'><td>United Arab Emirates</td><td>Abu Dhabi</td></tr>
<tr><td>United Kingdom</td><td>London</td></tr>
<tr class='grey'><td>United States of America</td><td>Washington, D.C.</td></tr>
<tr><td>Uruguay</td><td>Montevideo</td></tr>
<tr class='grey'><td>Uzbekistan</td><td>Tashkent</td></tr>
<tr><td colspan='2' class='letter'>V</td></tr>
<tr class='grey'><td>Vanuatu</td><td>Port Vila</td></tr>
<tr><td>Vatican City (Holy See)</td><td>Vatican City</td></tr>
<tr class='grey'><td>Venezuela</td><td>Caracas</td></tr>
<tr><td>Vietnam</td><td>Hanoi</td></tr>
<tr><td colspan='2' class='letter'>Y</td></tr>
<tr class='grey'><td>Yemen</td><td>Sana'a</td></tr>
<tr><td colspan='2' class='letter'>Z</td></tr>
<tr class='grey'><td>Zambia</td><td>Lusaka</td></tr>
<tr><td>Zimbabwe</td><td>Harare</td></tr>";

$thiscap="";

function yourflag($incn) {
   global $iso_country_codes, $foundcc;
   for ($jk=1; $jk<sizeof($iso_country_codes); $jk+=2) {
      if (strtoupper($iso_country_codes[$jk]) == strtoupper($incn)) {
        $foundcc=strtoupper($iso_country_codes[-1 + $jk]);
        return orflag(strtoupper($iso_country_codes[-1 + $jk]));
      }
   }
   return '';
}

function orflag($incc) {
    global $foundcc;
    $uretv='';
    $lri=["A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z"];
    $dri=["127462","127463","127464","127465","127466","127467","127468","127469","127470","127471","127472","127473","127474","127475","127476","127477","127478","127479","127480","127481","127482","127483","127484","127485","127486","127487"];
    for ($jjm=0; $jjm<strlen($incc); $jjm++) {
      for ($jm=0; $jm<sizeof($lri); $jm++) {
       if (strtoupper(substr(substr($incc,$jjm),0,1)) == $lri[$jm]) {
         $uretv.='&#' . $dri[$jm] . ";"; 
         $foundcc=$incc;
       }
      }
    }
    return $uretv;
}

function countryid($cinis) {
  return str_replace('.', '_', str_replace(' ', '_', str_replace('"', '_', str_replace("'", "_", $cinis))));
}

function mapcapital($cincountry) {
  global $capbits, $thiscap;
  $retcap="";
  $thiscap="";
  $ctrys=explode(" title='", $cincountry);
  if (sizeof($ctrys) > 1) {
    $ctryiss=explode("'", $ctrys[1]);
    $huhbits=explode(">" . $ctryiss[0], $capbits);
    if (sizeof($huhbits) == 1) $huhbits=explode("(" . $ctryiss[0], $capbits);
    if (sizeof($huhbits) > 1) {
      $posthuhbits=explode("</td><td>", $huhbits[1]);
      if (sizeof($posthuhbits) > 1) {
       $preposthuhbits=explode("</td>", $posthuhbits[1]);
       $thiscap=str_replace('.', '_', str_replace(' ', '_', str_replace('"', '_', str_replace("'", "_", str_replace("'", "`", $preposthuhbits[0])))));
       $retcap=str_replace("title='" . $ctryiss[0] . "", "title='" . str_replace("'", "`", $preposthuhbits[0]) . "", $cincountry);
      }
    }
  }
  return $retcap;
}

$num=0;
$countries=[];
$capitals=[];
$countryids=[];
$countryccs=[];
$idisplay="";
$ititle="";
if (isset($_GET['capital_country'])) { $idisplay="visibility:hidden;"; $ititle="Anagram of capital.  You choose country at left."; }
$htmlis="<!doctype html><html><head></head><body onload=choose();><div style='position:absolute;z-index:4;top:0px;left:calc(100% - 370px);height:320px;width:400px;overflow:hidden;' id='dgeochart'></div><h1>Country Capital Quiz</h1><h2 id=score style='width:595px;'>Score: 0 Goes: 0</h2><br><div id=xssuffix style='width:595px;'></div><br><h3>RJM Programming</h3><h3>November, 2016</h3><br><br><br><table style='width:100%;'><tbody style='background-color:#f0f0f0;'><tr><th style='text-align:right;'>Country</th><th style='text-align:left;'><select onchange=' location.href=\"./country_\" + this.value.toLowerCase() + \"_quiz.php\"; '><option value=Capital>Capital</option><option value=Currency>Currency</option><option value=Flag>Flag</option><option value=\"capital_quiz.php?capital_country=y#\">Country via Capital</option></select>?</th></tr><tr><td id=tdcountry style='background-color:pink;text-align:right;'></td><td id=tdcapital style='text-align:left;'><input title='" . $ititle . "' placeholder='' id=icapital onblur='check(this);' type=text value=></input></td></tr></tbody></table><div id=mydpost style=display:none;></div></body></html>";
$scriptis="<meta charset='UTF-8'><title>Country Capital Quiz</title> \n<link href='//www.rjmprogramming.com.au/PHP/emboss_h1.css' rel='stylesheet' type='text/css'> \n <style> body { background-color:lightblue; }   </style> \n <scri" . "pt type='text/javascript'> var sprefix='', choice=-1, score=0, goes=0, num=0, capitals=[], countries=[], countryids=[], countryccs=[];   var uprefix=\"//www.rjmprogramming.com.au/PHP/GeoChart/geo_chart.php?title=Countries&onclick=y&width=298&height=194&country=Country&popularity=Intensity&guess=&data=\";  function iframeit() { document.getElementById('dgeochart').innerHTML='<iframe name=\"myipost\" id=\"myipost\" style=\"" . $idisplay . "height:320px;width:350px;\" src=\"' + checkforpost(uprefix,document.getElementById('myipost'),null) + '\" title=Context></iframe>';   }  function checkforpost(insg, oiframe, owhere) {
  var outs=insg, fbits='', anal=0, capis='';
  if (oiframe == null) {
    fbits='<form style=display:none; target=\"myipost\" method=\"POST\" action=\"//www.rjmprogramming.com.au/PHP/GeoChart/geo_chart.php\"><input type=submit id=myspost value=Submit></input><input name=wouldlikeyoutoseekpermission value=y type=hidden></input></form>';
  } else {
    if (oiframe.name != '') {
     fbits='<form style=display:none; target=\"' + oiframe.name + '\" method=\"POST\" action=\"//www.rjmprogramming.com.au/PHP/GeoChart/geo_chart.php\"><input type=submit id=myspost value=Submit></input><input name=wouldlikeyoutoseekpermission value=y type=hidden></input></form>';
    } else {
     fbits='<form style=display:none; target=\"myipost\" method=\"POST\" action=\"//www.rjmprogramming.com.au/PHP/GeoChart/geo_chart.php\"><input type=submit id=myspost value=Submit></input><input name=wouldlikeyoutoseekpermission value=y type=hidden></input></form>';
    }
  }
  if (insg.length > 950) {
    var outarr=insg.split('#')[0].split('?');
    if (outarr.length > 1) {
       var outarrtwo=outarr[1].split('&'), oath;
       for (var im=0; im<outarrtwo.length; im++) {
         oath=outarrtwo[im].split('=');
         fbits=fbits.replace('</form>','<input type=hidden name=' + oath[0] + ' value=\"' + (oath[1]) + '\"></input></form>');
       }
    }
    if (owhere == null) {
      owhere=document.getElementById('mydpost');
      if (owhere == null) {
        if (document.getElementById('mydpost')) {
          document.getElementById('mydpost').innerHTML=fbits;
          setTimeout(andlater,1500); 
          outs=\"#\";
        } else {
          document.body.innerHTML+='<div id=mydpost>' + fbits + '</div>';
          setTimeout(andlater,1500); 
          outs=\"#\";
        }
      }  else {
        owhere.innerHTML=fbits;
        setTimeout(andlater,1500); 
        outs=\"#\";
      }
    } else {
      owhere.innerHTML=fbits;
      setTimeout(andlater,1500); 
      outs=\"#\";
    }
  }
  return outs;
} 
function selchangeit(osel) {
 if (osel.id == 'countrytwo') {
  //alert(osel.value + ' vs ' + document.getElementById('country').value);
  check(osel);
  this.value='';
 } else {
  uprefix+=sprefix + '%20[~' + encodeURIComponent(osel.options[osel.selectedIndex].text) + '~,66]%20'; 
  sprefix=','; 
  iframeit(); 
 }
}
function andlater() { if (document.URL.indexOf('capital_country') == -1) { document.getElementById('myspost').click(); }  }  function setup(ins) {  if (document.URL.indexOf('capital_country') == -1) {  uprefix+=sprefix + '%20[~' + encodeURIComponent(ins) + '~,66]%20'; sprefix=','; iframeit();  }  }  function ourcomp(c1,c2) { if (c1 == c2) { return true; } var xc1=c1.replace(/_/g,' ').replace(/`/g,' '); var xc2=c2.split('-')[1].replace(/_/g,' ').replace(/`/g,' ');  if (xc2.toLowerCase().indexOf(xc1.toLowerCase()) != -1 && xc1.toLowerCase().length > 3) { return true; } return false; }  \n function why(owhy) { if (1 == 1) { return owhy; } else { return owhy.split('(')[0].split('-')[0].replace(/_/g,' ').replace(/-/g,' '); } } \n  function precheck() { if (document.getElementById('countrylist')) { if (document.getElementById('country').value != '') { selchangeit(document.getElementById('country')); } } } \n function check(inv) { if (inv.value != '') { var suffix=''; goes++; if (ourcomp(inv.value,document.getElementById('country').value)) { score++; } else {  suffix=' The country ' + document.getElementById(countryids[choice]).id.replace(/_/g,' ') + ' <BR>represented by <img src=' + document.getElementById(countryids[choice]).src + '></img> <BR>has the capital city ' + document.getElementById(countryids[choice]).title; } if (document.getElementById('ssuffix')) { document.getElementById('ssuffix').innerHTML=suffix; suffix=''; }    document.getElementById('score').innerHTML='Score: ' + score + ' Goes: ' + goes + suffix; choose(); } } \n function choose() {  choice = Math.floor(Math.random() * num); document.getElementById('country').value=why(countryids[choice] + '-' + capitals[choice]); capis=capitals[choice];  setup(countryids[choice].replace(/_/g,' ')); document.getElementById('icapital').value=''; anal=0; if (\"" . $ititle . "\" != \"\") { document.getElementById('countrytwo').value=''; document.getElementById('icapital').placeholder=''; fit(); } setTimeout(fit, 1500);  } function fit() {  if (\"" . $ititle . "\" != \"\") { if (eval(-1 + anal) < capis.length) { document.getElementById('icapital').placeholder+=capis.substring(anal,eval(1 + anal)).replace('_',' '); anal++; setTimeout(fit,1500); }  } else { document.getElementById('icapital').focus(); }  } \n</scr" . "ipt><scr" . "ipt type='text/javascript' src='country_quiz.js?rand=" . rand(0,19878654) . "' defer='defer'></scr" . "ipt>";
if ($isSafari){
$seloneis="<select style=\"color:black;" . $idisplay . "\" onchange=\"selchangeit(this);\" id=country><option value=>Country shown below ...</option></select><div id=divssel style=\"display:inline;\"></div>";
} else {
$seloneis="<input style='width:200px;' list='countrylist' id='country' name='country' placeholder=\"Which country's capital is this?\" onblur=selchangeit(this);><datalist id=countrylist></datalist><!--select style=\"color:black;" . $idisplay . "\" onchange=\"selchangeit(this);\" id=country><option value=>Country shown below ...</option></select--><div id=divssel style=\"display:inline;\"></div>";
}
if (isset($_GET['capital_country'])) { $seloneis=str_replace("</div>", "<select style=\"color:black;\" onchange=\"selchangeit(this);\" id=countrytwo><option value=>Pick Country below of Capital at right ...</option></select></div>", $seloneis);  }
$divis="<div id=flags></div>";

$ctysarr=explode("<tr class='grey'><td>", $capbits);
if (sizeof($ctysarr) > 1) {
for ($ihj=1; $ihj<sizeof($ctysarr); $ihj++) {
  $postbits=explode("<", str_replace('<span>','',str_replace('</span>','',$ctysarr[$ihj])));
  if (yourflag($postbits[0]) != '') {
    $idis=countryid($postbits[0]);
    $outcapital=mapcapital("<p style='display:none;' data-cc='" . $foundcc . "' id='" . $idis . "' title='" . str_replace("_", " ", $postbits[0]) . "'>" . yourflag($postbits[0]) . "</p>");
  if ($outcapital != "") {
   $countries[$num]=$postbits[0];
   $scriptis=str_replace("</scr" . "ipt>", " countries.push(\"" . str_replace("_", " ", $postbits[0]) . "\");  countryids.push(\"" . $idis . "\");  countryccs.push(\"" . $foundcc . "\");  capitals.push(\"" . $thiscap . "\"); num++; \n</scr" . "ipt>", $scriptis);
   $countryids[$num]=$idis;
   if ($isSafari){
   $seloneis=str_replace("</select>", "<option value=" . $idis . "-" . $thiscap . ">" . str_replace("_", " ", $postbits[0]) . "</option></select>", $seloneis);
   } else {
   $seloneis=str_replace("</datalist>", "<option value=" . $idis . "-" . $thiscap . ">" . str_replace("_", " ", $postbits[0]) . "</option></datalist>", $seloneis);
   }
   $divis=str_replace("</div>", $outcapital . "</div>", $divis);
   $num++;
  }
  }
}
} else {
foreach (glob("../tikiwiki/img/flags/*.gif") as $filename) {
  $bits=explode("/", $filename);
  $postbits=explode(".", $bits[-1 + sizeof($bits)]);
  $idis=countryid($postbits[0]);
  $outcapital=mapcapital("<img src='/tikiwiki/img/flags/" . $postbits[0] . ".gif' style='display:none;' id='" . $idis . "' title='" . str_replace("_", " ", $postbits[0]) . "'></img>");
  if ($outcapital != "") {
   $countries[$num]=$postbits[0];
   $scriptis=str_replace("</scr" . "ipt>", " countries.push(\"" . str_replace("_", " ", $postbits[0]) . "\");  countryids.push(\"" . $idis . "\");  capitals.push(\"" . $thiscap . "\"); num++; \n</scr" . "ipt>", $scriptis);
   $countryids[$num]=$idis;
   if ($isSafari){
   $seloneis=str_replace("</select>", "<option value=" . $idis . "-" . $thiscap . ">" . str_replace("_", " ", $postbits[0]) . "</option></select>", $seloneis);
   } else {
   $seloneis=str_replace("</datalist>", "<option value=" . $idis . "-" . $thiscap . ">" . str_replace("_", " ", $postbits[0]) . "</option></datalist>", $seloneis);
   }
   $divis=str_replace("</div>", $outcapital . "</div>", $divis);
   $num++;
  }
}
}

echo  str_replace("</body>", $divis . "<input type='text' style='margin-left:-6786px;width:1px;height:1px;' value=''></input></body>", str_replace("<head></head>", "<head>" . $scriptis . "</head>", str_replace("</td><td", $seloneis . "</td><td", $htmlis)));

?>
