コロッケ食べ放題

croquettes.clj

(ns tnoda.eat.croquettes
  (:import (org.openqa.selenium By)
           (org.openqa.selenium.firefox FirefoxDriver)
           (org.openqa.selenium.interactions Actions)))

(defn -main
  "Eats more than one thousand pieces of croquettes"
  [& args]
  (let [driver (doto (FirefoxDriver.)
                 (.get "http://vnctst.tir.jp/op0012-4/"))
        _ (Thread/sleep 10000)
        canvas (.findElement driver (By/tagName "canvas"))
        click (fn
                [x y]
                (.. (Actions. driver)
                    (moveToElement canvas (int x) (int y))
                    click
                    perform))
        start #(click 320 310)
        carpet-bomb #(doseq [[x y] (shuffle
                                    (for [x (range 5 640 5)
                                          y (range 80 360 5)]
                                      [x y]))]
                       (click x y))
        t0 (System/currentTimeMillis)]
    (start)
    (Thread/sleep 5000)
    (loop []
      (when (> 1e6 (- (System/currentTimeMillis) t0))
        (carpet-bomb)
        (recur)))))