         (get data "channel_id")
         (str " " answer)
         (get (get data "author") "id")))))
+
+(defn delete-message
+  ([data command]
+   (delete-message 0 data command))
+  ([bot data command]
+   (let [channel_id (get data "channel_id") message (get data "id")]
+     (if (and (check-rate-limit bot) (= command (get data "content")))
+       (http/delete (str "https://discordapp.com/api/channels/" channel_id "/messages/" message "?token=" (:token (:params (get @bots bot)))) {:throw-exceptions false})))))

                                                             (log-function "Caught exception: " (.getMessage e))
                                                             (swap! bots update-in [bot] assoc :keep-alive false)
                                                             ))))))]
    
    (if (contains? @bots bot) (do 
                                (disconnect bot)
                                (Thread/sleep 5000)))
    
    (swap! bots assoc bot {:params params
                           :keep-alive true
                           :gateway (str

                                                                                     "$referrer" ""
                                                                                     "$referring_domain" ""}
                                                                       "compress" false}}))

    (while (:keep-alive (get @bots bot)) (Thread/sleep 1000))
    (try
      (connect params)
      (catch Exception e
        (do
          (log-function "Caught exception: " (.getMessage e))
          (Thread/sleep 60000)
          (try
            (connect params)
            (catch Exception e
              (do
                (log-function "Caught exception: " (.getMessage e))
                (log-function "Abandoning the attempts to reconnect bot " bot)
