| 1 | (define countries |
| 2 | (list (list "AF" "AFGHANISTAN") |
| 3 | (list "AL" "ALBANIA") |
| 4 | (list "DZ" "ALGERIA") |
| 5 | (list "AS" "AMERICAN SAMOA") |
| 6 | (list "AD" "ANDORRA") |
| 7 | (list "AO" "ANGOLA") |
| 8 | (list "AI" "ANGUILLA") |
| 9 | (list "AQ" "ANTARCTICA") |
| 10 | (list "AG" "ANTIGUA AND BARBUDA") |
| 11 | (list "AR" "ARGENTINA") |
| 12 | (list "AM" "ARMENIA") |
| 13 | (list "AW" "ARUBA") |
| 14 | (list "AU" "AUSTRALIA") |
| 15 | (list "AT" "AUSTRIA") |
| 16 | (list "AZ" "AZERBAIJAN") |
| 17 | (list "BS" "BAHAMAS") |
| 18 | (list "BH" "BAHRAIN") |
| 19 | (list "BD" "BANGLADESH") |
| 20 | (list "BB" "BARBADOS") |
| 21 | (list "BY" "BELARUS") |
| 22 | (list "BE" "BELGIUM") |
| 23 | (list "BZ" "BELIZE") |
| 24 | (list "BJ" "BENIN") |
| 25 | (list "BM" "BERMUDA") |
| 26 | (list "BT" "BHUTAN") |
| 27 | (list "BO" "BOLIVIA") |
| 28 | (list "BA" "BOSNIA AND HERZEGOWINA") |
| 29 | (list "BW" "BOTSWANA") |
| 30 | (list "BV" "BOUVET ISLAND") |
| 31 | (list "BR" "BRAZIL") |
| 32 | (list "IO" "BRITISH INDIAN OCEAN TERRITORY") |
| 33 | (list "BN" "BRUNEI DARUSSALAM") |
| 34 | (list "BG" "BULGARIA") |
| 35 | (list "BF" "BURKINA FASO") |
| 36 | (list "BI" "BURUNDI") |
| 37 | (list "KH" "CAMBODIA") |
| 38 | (list "CM" "CAMEROON") |
| 39 | (list "CA" "CANADA") |
| 40 | (list "CV" "CAPE VERDE") |
| 41 | (list "KY" "CAYMAN ISLANDS") |
| 42 | (list "CF" "CENTRAL AFRICAN REPUBLIC") |
| 43 | (list "TD" "CHAD") |
| 44 | (list "CL" "CHILE") |
| 45 | (list "CN" "CHINA") |
| 46 | (list "CX" "CHRISTMAS ISLAND") |
| 47 | (list "CC" "COCOS (KEELING) ISLANDS") |
| 48 | (list "CO" "COLOMBIA") |
| 49 | (list "KM" "COMOROS") |
| 50 | (list "CG" "CONGO") |
| 51 | (list "CD" "CONGO, THE DEMOCRATIC REPUBLIC OF THE") |
| 52 | (list "CK" "COOK ISLANDS") |
| 53 | (list "CR" "COSTA RICA") |
| 54 | (list "CI" "COTE D'IVOIRE") |
| 55 | (list "HR" "CROATIA (local name: Hrvatska)") |
| 56 | (list "CU" "CUBA") |
| 57 | (list "CY" "CYPRUS") |
| 58 | (list "CZ" "CZECH REPUBLIC") |
| 59 | (list "DK" "DENMARK") |
| 60 | (list "DJ" "DJIBOUTI") |
| 61 | (list "DM" "DOMINICA") |
| 62 | (list "DO" "DOMINICAN REPUBLIC") |
| 63 | (list "TP" "EAST TIMOR") |
| 64 | (list "EC" "ECUADOR") |
| 65 | (list "EG" "EGYPT") |
| 66 | (list "SV" "EL SALVADOR") |
| 67 | (list "GQ" "EQUATORIAL GUINEA") |
| 68 | (list "ER" "ERITREA") |
| 69 | (list "EE" "ESTONIA") |
| 70 | (list "ET" "ETHIOPIA") |
| 71 | (list "FK" "FALKLAND ISLANDS (MALVINAS)") |
| 72 | (list "FO" "FAROE ISLANDS") |
| 73 | (list "FJ" "FIJI") |
| 74 | (list "FI" "FINLAND") |
| 75 | (list "FR" "FRANCE") |
| 76 | (list "FX" "FRANCE, METROPOLITAN") |
| 77 | (list "GF" "FRENCH GUIANA") |
| 78 | (list "PF" "FRENCH POLYNESIA") |
| 79 | (list "TF" "FRENCH SOUTHERN TERRITORIES") |
| 80 | (list "GA" "GABON") |
| 81 | (list "GM" "GAMBIA") |
| 82 | (list "GE" "GEORGIA") |
| 83 | (list "DE" "GERMANY") |
| 84 | (list "GH" "GHANA") |
| 85 | (list "GI" "GIBRALTAR") |
| 86 | (list "GR" "GREECE") |
| 87 | (list "GL" "GREENLAND") |
| 88 | (list "GD" "GRENADA") |
| 89 | (list "GP" "GUADELOUPE") |
| 90 | (list "GU" "GUAM") |
| 91 | (list "GT" "GUATEMALA") |
| 92 | (list "GN" "GUINEA") |
| 93 | (list "GW" "GUINEA-BISSAU") |
| 94 | (list "GY" "GUYANA") |
| 95 | (list "HT" "HAITI") |
| 96 | (list "HM" "HEARD AND MC DONALD ISLANDS") |
| 97 | (list "VA" "HOLY SEE (VATICAN CITY STATE)") |
| 98 | (list "HN" "HONDURAS") |
| 99 | (list "HK" "HONG KONG") |
| 100 | (list "HU" "HUNGARY") |
| 101 | (list "IS" "ICELAND") |
| 102 | (list "IN" "INDIA") |
| 103 | (list "ID" "INDONESIA") |
| 104 | (list "IR" "IRAN (ISLAMIC REPUBLIC OF)") |
| 105 | (list "IQ" "IRAQ") |
| 106 | (list "IE" "IRELAND") |
| 107 | (list "IL" "ISRAEL") |
| 108 | (list "IT" "ITALY") |
| 109 | (list "JM" "JAMAICA") |
| 110 | (list "JP" "JAPAN") |
| 111 | (list "JO" "JORDAN") |
| 112 | (list "KZ" "KAZAKHSTAN") |
| 113 | (list "KE" "KENYA") |
| 114 | (list "KI" "KIRIBATI") |
| 115 | (list "KP" "KOREA, DEMOCRATIC PEOPLE'S REPUBLIC OF") |
| 116 | (list "KR" "KOREA, REPUBLIC OF") |
| 117 | (list "KW" "KUWAIT") |
| 118 | (list "KG" "KYRGYZSTAN") |
| 119 | (list "LA" "LAO PEOPLE'S DEMOCRATIC REPUBLIC") |
| 120 | (list "LV" "LATVIA") |
| 121 | (list "LB" "LEBANON") |
| 122 | (list "LS" "LESOTHO") |
| 123 | (list "LR" "LIBERIA") |
| 124 | (list "LY" "LIBYAN ARAB JAMAHIRIYA") |
| 125 | (list "LI" "LIECHTENSTEIN") |
| 126 | (list "LT" "LITHUANIA") |
| 127 | (list "LU" "LUXEMBOURG") |
| 128 | (list "MO" "MACAU") |
| 129 | (list "MK" "MACEDONIA, THE FORMER YUGOSLAV REPUBLIC OF") |
| 130 | (list "MG" "MADAGASCAR") |
| 131 | (list "MW" "MALAWI") |
| 132 | (list "MY" "MALAYSIA") |
| 133 | (list "MV" "MALDIVES") |
| 134 | (list "ML" "MALI") |
| 135 | (list "MT" "MALTA") |
| 136 | (list "MH" "MARSHALL ISLANDS") |
| 137 | (list "MQ" "MARTINIQUE") |
| 138 | (list "MR" "MAURITANIA") |
| 139 | (list "MU" "MAURITIUS") |
| 140 | (list "YT" "MAYOTTE") |
| 141 | (list "MX" "MEXICO") |
| 142 | (list "FM" "MICRONESIA, FEDERATED STATES OF") |
| 143 | (list "MD" "MOLDOVA, REPUBLIC OF") |
| 144 | (list "MC" "MONACO") |
| 145 | (list "MN" "MONGOLIA") |
| 146 | (list "MS" "MONTSERRAT") |
| 147 | (list "MA" "MOROCCO") |
| 148 | (list "MZ" "MOZAMBIQUE") |
| 149 | (list "MM" "MYANMAR") |
| 150 | (list "NA" "NAMIBIA") |
| 151 | (list "NR" "NAURU") |
| 152 | (list "NP" "NEPAL") |
| 153 | (list "NL" "NETHERLANDS") |
| 154 | (list "AN" "NETHERLANDS ANTILLES") |
| 155 | (list "NC" "NEW CALEDONIA") |
| 156 | (list "NZ" "NEW ZEALAND") |
| 157 | (list "NI" "NICARAGUA") |
| 158 | (list "NE" "NIGER") |
| 159 | (list "NG" "NIGERIA") |
| 160 | (list "NU" "NIUE") |
| 161 | (list "NF" "NORFOLK ISLAND") |
| 162 | (list "MP" "NORTHERN MARIANA ISLANDS") |
| 163 | (list "NO" "NORWAY") |
| 164 | (list "OM" "OMAN") |
| 165 | (list "PK" "PAKISTAN") |
| 166 | (list "PW" "PALAU") |
| 167 | (list "PA" "PANAMA") |
| 168 | (list "PG" "PAPUA NEW GUINEA") |
| 169 | (list "PY" "PARAGUAY") |
| 170 | (list "PE" "PERU") |
| 171 | (list "PH" "PHILIPPINES") |
| 172 | (list "PN" "PITCAIRN") |
| 173 | (list "PL" "POLAND") |
| 174 | (list "PT" "PORTUGAL") |
| 175 | (list "PR" "PUERTO RICO") |
| 176 | (list "QA" "QATAR") |
| 177 | (list "RE" "REUNION") |
| 178 | (list "RO" "ROMANIA") |
| 179 | (list "RU" "RUSSIAN FEDERATION") |
| 180 | (list "RW" "RWANDA") |
| 181 | (list "KN" "SAINT KITTS AND NEVIS") |
| 182 | (list "LC" "SAINT LUCIA") |
| 183 | (list "VC" "SAINT VINCENT AND THE GRENADINES") |
| 184 | (list "WS" "SAMOA") |
| 185 | (list "SM" "SAN MARINO") |
| 186 | (list "ST" "SAO TOME AND PRINCIPE") |
| 187 | (list "SA" "SAUDI ARABIA") |
| 188 | (list "SN" "SENEGAL") |
| 189 | (list "SC" "SEYCHELLES") |
| 190 | (list "SL" "SIERRA LEONE") |
| 191 | (list "SG" "SINGAPORE") |
| 192 | (list "SK" "SLOVAKIA (Slovak Republic)") |
| 193 | (list "SI" "SLOVENIA") |
| 194 | (list "SB" "SOLOMON ISLANDS") |
| 195 | (list "SO" "SOMALIA") |
| 196 | (list "ZA" "SOUTH AFRICA") |
| 197 | (list "GS" "SOUTH GEORGIA AND THE SOUTH SANDWICH ISLANDS") |
| 198 | (list "ES" "SPAIN") |
| 199 | (list "LK" "SRI LANKA") |
| 200 | (list "SH" "ST. HELENA") |
| 201 | (list "PM" "ST. PIERRE AND MIQUELON") |
| 202 | (list "SD" "SUDAN") |
| 203 | (list "SR" "SURINAME") |
| 204 | (list "SJ" "SVALBARD AND JAN MAYEN ISLANDS") |
| 205 | (list "SZ" "SWAZILAND") |
| 206 | (list "SE" "SWEDEN") |
| 207 | (list "CH" "SWITZERLAND") |
| 208 | (list "SY" "SYRIAN ARAB REPUBLIC") |
| 209 | (list "TW" "TAIWAN, PROVINCE OF CHINA") |
| 210 | (list "TJ" "TAJIKISTAN") |
| 211 | (list "TZ" "TANZANIA, UNITED REPUBLIC OF") |
| 212 | (list "TH" "THAILAND") |
| 213 | (list "TG" "TOGO") |
| 214 | (list "TK" "TOKELAU") |
| 215 | (list "TO" "TONGA") |
| 216 | (list "TT" "TRINIDAD AND TOBAGO") |
| 217 | (list "TN" "TUNISIA") |
| 218 | (list "TR" "TURKEY") |
| 219 | (list "TM" "TURKMENISTAN") |
| 220 | (list "TC" "TURKS AND CAICOS ISLANDS") |
| 221 | (list "TV" "TUVALU") |
| 222 | (list "UG" "UGANDA") |
| 223 | (list "UA" "UKRAINE") |
| 224 | (list "AE" "UNITED ARAB EMIRATES") |
| 225 | (list "GB" "UNITED KINGDOM") |
| 226 | (list "US" "UNITED STATES") |
| 227 | (list "UM" "UNITED STATES MINOR OUTLYING ISLANDS") |
| 228 | (list "UY" "URUGUAY") |
| 229 | (list "UZ" "UZBEKISTAN") |
| 230 | (list "VU" "VANUATU") |
| 231 | (list "VE" "VENEZUELA") |
| 232 | (list "VN" "VIET NAM") |
| 233 | (list "VG" "VIRGIN ISLANDS (BRITISH)") |
| 234 | (list "VI" "VIRGIN ISLANDS (U.S.)") |
| 235 | (list "WF" "WALLIS AND FUTUNA ISLANDS") |
| 236 | (list "EH" "WESTERN SAHARA") |
| 237 | (list "YE" "YEMEN") |
| 238 | (list "YU" "YUGOSLAVIA") |
| 239 | (list "ZM" "ZAMBIA") |
| 240 | (list "ZW" "ZIMBABWE"))) |
| 241 | |
| 242 | (define (get-country channel ext) |
| 243 | (let ((t (assoc (string-upcase! ext) countries))) |
| 244 | (if t |
| 245 | (bot:say channel (string-append ext " is " (cadr t))) |
| 246 | (bot:say channel (string-append "I don't know which country stands for " ext))))) |
| 247 | |
| 248 | (bot:addcommand "country" get-country #t 2 bot:user-none) |