1.1 --- a/clojure/com/aurellem/title.clj	Sat Mar 10 19:44:32 2012 -0600
     1.2 +++ b/clojure/com/aurellem/title.clj	Sun Mar 11 13:53:27 2012 -0500
     1.3 @@ -47,10 +47,11 @@
     1.4         scroll-text
     1.5         scroll-text
     1.6         scroll-text
     1.7 -       (advance [] [:a])))
     1.8 +       ))
     1.9  
    1.10 -(defn-memo name-entry []
    1.11 +(defn-memo name-entry-rlm []
    1.12    (->> (oak)
    1.13 +       (advance [] [:a])
    1.14         (advance [] [:r] DE)
    1.15         (play-moves
    1.16          [[]
    1.17 @@ -61,9 +62,15 @@
    1.18           [:r] [] [:r] [] [:r] [] [:r] []
    1.19           [:r] [] [:d] [] [:d] [] [:d] [:a]
    1.20           ])))
    1.21 -          
    1.22 -(defn-memo rival-name-entry []
    1.23 -  (->> (name-entry)
    1.24 +
    1.25 +(defn-memo name-entry-ash []
    1.26 +  (->> (oak)
    1.27 +       (advance [] [:d])
    1.28 +       (advance [] [:d])
    1.29 +       (advance [] [:a])))
    1.30 +       
    1.31 +(defn-memo rival-name-entry-gary []
    1.32 +  (->> (name-entry-ash)
    1.33         scroll-text
    1.34         scroll-text
    1.35         scroll-text
    1.36 @@ -73,8 +80,18 @@
    1.37         (advance [] [:d])
    1.38         (advance [] [:a])))
    1.39  
    1.40 +(defn-memo rival-name-entry-blue []
    1.41 +  (->> (name-entry-ash)
    1.42 +       scroll-text
    1.43 +       scroll-text
    1.44 +       scroll-text
    1.45 +       scroll-text
    1.46 +       scroll-text
    1.47 +       (advance [] [:d])
    1.48 +       (advance [] [:a])))
    1.49 +
    1.50  (defn-memo finish-title []
    1.51 -  (->> (rival-name-entry)
    1.52 +  (->> (rival-name-entry-blue)
    1.53         scroll-text
    1.54         scroll-text
    1.55         scroll-text