cb21075d |
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 |
439869bf |
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))))) |
cb21075d |
247 | |
07686d60 |
248 | (bot:addcommand "country" get-country #t 2 bot:user-none) |