Merge pull request #253 from zuzak/xkcd-module

xkcd module

modules/link/README.md

@@ -21,3 +21,5 @@ page. If called without a link, the bot will attempt the same on the last link
 which was posted in the current channel.
 #### ~ud [headword]
 Returns the first [Urban Dictionary](http://www.urbandictionary.com) definition for the headword provided.
+#### ~xkcd <comic ID>
+Returns a link to the [xkcd](http://xkcd.com) comic specified, or the latest one if a comic is not given.

modules/link/link.js

@@ -33,6 +33,24 @@ var link = function(dbot) {
             this.fetchTitle(event, link);
         },
         
+        '~xkcd': function(event) {
+            var comicId = event.params[1];
+            if(comicId){
+                comicId = comicId + "/";
+            } else {
+                comicId = "";
+            }
+            var link = "http://xkcd.com/"+comicId+"info.0.json";
+            request(link,  function(error, response, body) {
+                if (response.statusCode == "200") {
+                    data = JSON.parse(body);
+                    event.reply(dbot.t("xkcd",data));
+                } else {
+                    event.reply(dbot.t("no-hits"));
+                }
+            });
+        },
+
         '~ud': function(event) {
 	    var query = event.input[1];
             var reqUrl = 'http://api.urbandictionary.com/v0/define?term=' + encodeURI(query); 

modules/link/strings.json

@@ -2,5 +2,11 @@
     "title_not_found": {
         "english": "No page title found.",
         "na'vi": "Oel ke tsun run 'upxare atxin."
+    },
+    "xkcd": {
+        "english": "xkcd {num}: {title} https://xkcd.com/{num}"
+    },
+    "no-hits": {
+        "english": "No hits."
     }
 }