# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1333938099 18000
# Node ID 82e3ba144773feb8116b19801562a2d3ffa706f1
# Parent  a6a123af22f69a3eecde2eaab5d90f36ad41b030
wrote skeleton for celadon purchase spree.

diff -r a6a123af22f6 -r 82e3ba144773 clojure/com/aurellem/run/bootstrap_1.clj
--- a/clojure/com/aurellem/run/bootstrap_1.clj	Sun Apr 08 21:12:07 2012 -0500
+++ b/clojure/com/aurellem/run/bootstrap_1.clj	Sun Apr 08 21:21:39 2012 -0500
@@ -355,4 +355,54 @@
 ;;=====================================
 ;; Fresh Water        TM13 (ice-beam)
 ;; Soda Pop           TM48 (rock-slide)
-;; Lemonade :)        TM49 (tri-attack)
\ No newline at end of file
+;; Lemonade :)        TM49 (tri-attack)
+
+
+(defn go-to-floor-two
+  ([] (go-to-floor-two (to-celadon)))
+  ([script]
+     (->> script
+          (walk [↑ → → → → → → → → → → →
+                 ↑ ↑ ↑ ↑ ↑ ↑
+                 ← ← ← ← 
+                 ↓ ↓ ↓
+                 ← ←])
+          (first-difference [] ↑ AF))))
+
+(defn get-money-floor-two
+  [])
+
+(defn floor-two-TMs
+  [])
+
+(defn floor-two-items
+  [])
+
+(defn go-to-floor-three
+  [])
+
+(defn get-TM18
+  [])
+
+(defn go-to-floor-four
+  [])
+
+(defn floor-four-items
+  [])
+
+(defn go-to-floor-five
+  [])
+
+(defn floor-five-items
+  [])
+
+(defn go-to-roof
+  [])
+
+(defn roof-drinks
+  [])
+
+(defn get-TM13
+  [])
+  
+  
\ No newline at end of file