supporting ios.
This commit is contained in:
@@ -136,7 +136,6 @@
|
|||||||
(actions/walk-to entities :ego [245 90] :skip-type :end))
|
(actions/walk-to entities :ego [245 90] :skip-type :end))
|
||||||
|
|
||||||
(defn flip-coin [screen entities]
|
(defn flip-coin [screen entities]
|
||||||
(println "here")
|
|
||||||
(if (and (= 0 (rand-int 2))
|
(if (and (= 0 (rand-int 2))
|
||||||
(not (get-in entities [:state :has-dropped-coin?]))
|
(not (get-in entities [:state :has-dropped-coin?]))
|
||||||
(not (get-in entities [:state :bubba-gone?]))
|
(not (get-in entities [:state :bubba-gone?]))
|
||||||
|
|||||||
@@ -38,6 +38,7 @@
|
|||||||
(if has-steam?
|
(if has-steam?
|
||||||
(eval
|
(eval
|
||||||
'(do
|
'(do
|
||||||
|
(println "defining achievement fn")
|
||||||
(defn achievement-fn [f achievement]
|
(defn achievement-fn [f achievement]
|
||||||
(steamify
|
(steamify
|
||||||
(let [stats (atom nil)]
|
(let [stats (atom nil)]
|
||||||
|
|||||||
Reference in New Issue
Block a user