#by wiebe @ QuakeNet #update list + put url here #country pub #bind pub -|- !country country:pub proc country:pub { nick uhost handle chan text } { if { ![string equal $text ""] } { set msg [country:country $text] if { [string match *c* [lindex [split [getchanmode $chan]] 0]] } { set msg [stripcodes c $msg] } puthelp "PRIVMSG $chan :$msg" } else { lappend output "Usage: country | (wildcards supported)" if { [catch {set x [cnotice $nick $output]} error] || !$x } { foreach t $output { puthelp "NOTICE $nick :$t" } } } return 1 } #country msg #bind msg -|- country country:msg proc country:msg { nick uhost handle text } { if { ![string equal $text ""] } { set msg [country:country $text] lappend output $msg } else { lappend output "Usage: country | (wildcards supported)" } if { [catch {set x [cnotice $nick $output]} error] || !$x } { foreach t $output { puthelp "NOTICE $nick :$t" } } return 1 } #country dcc bind dcc -|- country country:dcc proc country:dcc { handle idx text } { if { ![string equal $text ""] } { set msg [country:country $text] putidx $idx $msg } else { putidx $idx "Usage: country | (wildcards supported)" } return 1 } #country lookup proc country:country { text } { set countrys { "AFGHANISTAN" "ÅLAND ISLANDS" "ALBANIA" "ALGERIA" "AMERICAN SAMOA" "ANDORRA" "ANGOLA" "ANGUILLA" "ANTARCTICA" "ANTIGUA AND BARBUDA" "ARGENTINA" "ARMENIA" "ARUBA" "AUSTRALIA" "AUSTRIA" "AZERBAIJAN" "BAHAMAS" "BAHRAIN" "BANGLADESH" "BARBADOS" "BELARUS" "BELGIUM" "BELIZE" "BENIN" "BERMUDA" "BHUTAN" "BOLIVIA" "BOSNIA AND HERZEGOVINA" "BOTSWANA" "BOUVET ISLAND" "BRAZIL" "BRITISH INDIAN OCEAN TERRITORY" "BRUNEI DARUSSALAM" "BULGARIA" "BURKINA FASO" "BURUNDI" "CAMBODIA" "CAMEROON" "CANADA" "CAPE VERDE" "CAYMAN ISLANDS" "CENTRAL AFRICAN REPUBLIC" "CHAD" "CHILE" "CHINA" "CHRISTMAS ISLAND" "COCOS (KEELING) ISLANDS" "COLOMBIA" "COMOROS" "CONGO" "CONGO, THE DEMOCRATIC REPUBLIC OF THE" "COOK ISLANDS" "COSTA RICA" "CÔTE D'IVOIRE" "CROATIA" "CUBA" "CYPRUS" "CZECH REPUBLIC" "DENMARK" "DJIBOUTI" "DOMINICA" "DOMINICAN REPUBLIC" "ECUADOR" "EGYPT" "EL SALVADOR" "EQUATORIAL GUINEA" "ERITREA" "ESTONIA" "ETHIOPIA" "FALKLAND ISLANDS (MALVINAS)" "FAROE ISLANDS" "FIJI" "FINLAND" "FRANCE" "FRENCH GUIANA" "FRENCH POLYNESIA" "FRENCH SOUTHERN TERRITORIES" "GABON" "GAMBIA" "GEORGIA" "GERMANY" "GHANA" "GIBRALTAR" "GREECE" "GREENLAND" "GRENADA" "GUADELOUPE" "GUAM" "GUATEMALA" "GUINEA" "GUINEA-BISSAU" "GUYANA" "HAITI" "HEARD ISLAND AND MCDONALD ISLANDS" "HOLY SEE (VATICAN CITY STATE)" "HONDURAS" "HONG KONG" "HUNGARY" "ICELAND" "INDIA" "INDONESIA" "IRAN, ISLAMIC REPUBLIC OF" "IRAQ" "IRELAND" "ISRAEL" "ITALY" "JAMAICA" "JAPAN" "JORDAN" "KAZAKHSTAN" "KENYA" "KIRIBATI" "KOREA, DEMOCRATIC PEOPLE'S REPUBLIC OF" "KOREA, REPUBLIC OF" "KUWAIT" "KYRGYZSTAN" "LAO PEOPLE'S DEMOCRATIC REPUBLIC" "LATVIA" "LEBANON" "LESOTHO" "LIBERIA" "LIBYAN ARAB JAMAHIRIYA" "LIECHTENSTEIN" "LITHUANIA" "LUXEMBOURG" "MACAO" "MACEDONIA, THE FORMER YUGOSLAV REPUBLIC OF" "MADAGASCAR" "MALAWI" "MALAYSIA" "MALDIVES" "MALI" "MALTA" "MARSHALL ISLANDS" "MARTINIQUE" "MAURITANIA" "MAURITIUS" "MAYOTTE" "MEXICO" "MICRONESIA, FEDERATED STATES OF" "MOLDOVA, REPUBLIC OF" "MONACO" "MONGOLIA" "MONTSERRAT" "MOROCCO" "MOZAMBIQUE" "MYANMAR" "NAMIBIA" "NAURU" "NEPAL" "NETHERLANDS" "NETHERLANDS ANTILLES" "NEW CALEDONIA" "NEW ZEALAND" "NICARAGUA" "NIGER" "NIGERIA" "NIUE" "NORFOLK ISLAND" "NORTHERN MARIANA ISLANDS" "NORWAY" "OMAN" "PAKISTAN" "PALAU" "PALESTINIAN TERRITORY, OCCUPIED" "PANAMA" "PAPUA NEW GUINEA" "PARAGUAY" "PERU" "PHILIPPINES" "PITCAIRN" "POLAND" "PORTUGAL" "PUERTO RICO" "QATAR" "RÉUNION" "ROMANIA" "RUSSIAN FEDERATION" "RWANDA" "SAINT HELENA" "SAINT KITTS AND NEVIS" "SAINT LUCIA" "SAINT PIERRE AND MIQUELON" "SAINT VINCENT AND THE GRENADINES" "SAMOA" "SAN MARINO" "SAO TOME AND PRINCIPE" "SAUDI ARABIA" "SENEGAL" "SERBIA AND MONTENEGRO" "SEYCHELLES" "SIERRA LEONE" "SINGAPORE" "SLOVAKIA" "SLOVENIA" "SOLOMON ISLANDS" "SOMALIA" "SOUTH AFRICA" "SOUTH GEORGIA AND THE SOUTH SANDWICH ISLANDS" "SPAIN" "SRI LANKA" "SUDAN" "SURINAME" "SVALBARD AND JAN MAYEN" "SWAZILAND" "SWEDEN" "SWITZERLAND" "SYRIAN ARAB REPUBLIC" "TAIWAN, PROVINCE OF CHINA" "TAJIKISTAN" "TANZANIA, UNITED REPUBLIC OF" "THAILAND" "TIMOR-LESTE" "TOGO" "TOKELAU" "TONGA" "TRINIDAD AND TOBAGO" "TUNISIA" "TURKEY" "TURKMENISTAN" "TURKS AND CAICOS ISLANDS" "TUVALU" "UGANDA" "UKRAINE" "UNITED ARAB EMIRATES" "UNITED KINGDOM" "UNITED STATES" "UNITED STATES MINOR OUTLYING ISLANDS" "URUGUAY" "UZBEKISTAN" "VANUATU" "VENEZUELA" "VIET NAM" "VIRGIN ISLANDS, BRITISH" "VIRGIN ISLANDS, U.S." "WALLIS AND FUTUNA" "WESTERN SAHARA" "YEMEN" "ZAMBIA" "ZIMBABWE" } set symbols { "AF" "AX" "AL" "DZ" "AS" "AD" "AO" "AI" "AQ" "AG" "AR" "AM" "AW" "AU" "AT" "AZ" "BS" "BH" "BD" "BB" "BY" "BE" "BZ" "BJ" "BM" "BT" "BO" "BA" "BW" "BV" "BR" "IO" "BN" "BG" "BF" "BI" "KH" "CM" "CA" "CV" "KY" "CF" "TD" "CL" "CN" "CX" "CC" "CO" "KM" "CG" "CD" "CK" "CR" "CI" "HR" "CU" "CY" "CZ" "DK" "DJ" "DM" "DO" "EC" "EG" "SV" "GQ" "ER" "EE" "ET" "FK" "FO" "FJ" "FI" "FR" "GF" "PF" "TF" "GA" "GM" "GE" "DE" "GH" "GI" "GR" "GL" "GD" "GP" "GU" "GT" "GN" "GW" "GY" "HT" "HM" "VA" "HN" "HK" "HU" "IS" "IN" "ID" "IR" "IQ" "IE" "IL" "IT" "JM" "JP" "JO" "KZ" "KE" "KI" "KP" "KR" "KW" "KG" "LA" "LV" "LB" "LS" "LR" "LY" "LI" "LT" "LU" "MO" "MK" "MG" "MW" "MY" "MV" "ML" "MT" "MH" "MQ" "MR" "MU" "YT" "MX" "FM" "MD" "MC" "MN" "MS" "MA" "MZ" "MM" "NA" "NR" "NP" "NL" "AN" "NC" "NZ" "NI" "NE" "NG" "NU" "NF" "MP" "NO" "OM" "PK" "PW" "PS" "PA" "PG" "PY" "PE" "PH" "PN" "PL" "PT" "PR" "QA" "RE" "RO" "RU" "RW" "SH" "KN" "LC" "PM" "VC" "WS" "SM" "ST" "SA" "SN" "CS" "SC" "SL" "SG" "SK" "SI" "SB" "SO" "ZA" "GS" "ES" "LK" "SD" "SR" "SJ" "SZ" "SE" "CH" "SY" "TW" "TJ" "TZ" "TH" "TL" "TG" "TK" "TO" "TT" "TN" "TR" "TM" "TC" "TV" "UG" "UA" "AE" "GB" "US" "UM" "UY" "UZ" "VU" "VE" "VN" "VG" "VI" "WF" "EH" "YE" "ZM" "ZW" } set code [string trimleft [string toupper [lindex $text 0]] .] set country [join [lrange [split $text] 0 end]] set x [lsearch -exact $symbols $code] if { $x > -1 } { set country [lindex $countrys $x] return "country name for .$code is $country" } else { set country2 $country regsub -all -- {\[} $country2 {\\\[} country2 regsub -all -- {\]} $country2 {\\\]} country2 regsub -all -- {\\} $country2 {\\\\} country2 foreach c $countrys { if { [string match -nocase $country2 $c] } { set y [lsearch -exact $countrys $c] if { $y > -1 } { set code [lindex $symbols $y] return "country code for $c is .$code" } } } return "no country name or code found for $country" } }