1.1 --- a/clojure/com/aurellem/run/bootstrap_1.clj	Sun Apr 08 21:12:07 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/bootstrap_1.clj	Sun Apr 08 21:21:39 2012 -0500
     1.3 @@ -355,4 +355,54 @@
     1.4  ;;=====================================
     1.5  ;; Fresh Water        TM13 (ice-beam)
     1.6  ;; Soda Pop           TM48 (rock-slide)
     1.7 -;; Lemonade :)        TM49 (tri-attack)
     1.8 \ No newline at end of file
     1.9 +;; Lemonade :)        TM49 (tri-attack)
    1.10 +
    1.11 +
    1.12 +(defn go-to-floor-two
    1.13 +  ([] (go-to-floor-two (to-celadon)))
    1.14 +  ([script]
    1.15 +     (->> script
    1.16 +          (walk [↑ → → → → → → → → → → →
    1.17 +                 ↑ ↑ ↑ ↑ ↑ ↑
    1.18 +                 ← ← ← ← 
    1.19 +                 ↓ ↓ ↓
    1.20 +                 ← ←])
    1.21 +          (first-difference [] ↑ AF))))
    1.22 +
    1.23 +(defn get-money-floor-two
    1.24 +  [])
    1.25 +
    1.26 +(defn floor-two-TMs
    1.27 +  [])
    1.28 +
    1.29 +(defn floor-two-items
    1.30 +  [])
    1.31 +
    1.32 +(defn go-to-floor-three
    1.33 +  [])
    1.34 +
    1.35 +(defn get-TM18
    1.36 +  [])
    1.37 +
    1.38 +(defn go-to-floor-four
    1.39 +  [])
    1.40 +
    1.41 +(defn floor-four-items
    1.42 +  [])
    1.43 +
    1.44 +(defn go-to-floor-five
    1.45 +  [])
    1.46 +
    1.47 +(defn floor-five-items
    1.48 +  [])
    1.49 +
    1.50 +(defn go-to-roof
    1.51 +  [])
    1.52 +
    1.53 +(defn roof-drinks
    1.54 +  [])
    1.55 +
    1.56 +(defn get-TM13
    1.57 +  [])
    1.58 +  
    1.59 +  
    1.60 \ No newline at end of file