rlm@228: (ns com.aurellem.gb.pokemon-presets)
rlm@228: 
rlm@326: (def pokemon-base
rlm@326:   {:dv {:attack 15 :hp 15 :defense 15
rlm@326:         :special 15 :speed 15}
rlm@326:    :species :ditto
rlm@326:    :original-trainer "RLM"
rlm@228:    :ID 5195
rlm@326:    :status :normal
rlm@228:    :experience
rlm@326:    {:main-exp 500
rlm@228:     :attack-exp 0xFFFF
rlm@228:     :defense-exp 0xFFFF
rlm@228:     :speed-exp 0xFFFF
rlm@326:     :special-exp 0xFFFF
rlm@326:     :hp-exp 0xFFFF}
rlm@237: 
rlm@237:    :stats
rlm@237:    {:level 2
rlm@237:     :current-hp 17
rlm@237:     :hp 17
rlm@237:     :attack 10
rlm@237:     :defense 10
rlm@237:     :speed 10
rlm@237:     :special 10}
rlm@326:       
rlm@326:    :moves [[:transform {:pp-ups 0 :current-pp 5}]]})
rlm@326: 
rlm@326: (def base-mew
rlm@326:   (merge
rlm@326:    pokemon-base
rlm@326:    {:species :mew
rlm@326:     :moves [:pound]}))
rlm@237:    
rlm@237: (def HM-mew
rlm@237:   (merge
rlm@237:    base-mew
rlm@237:    {:moves [:fly :flash :cut :strength]}))
rlm@235: 
rlm@235: (def ideal-pikachu
rlm@326:   (merge
rlm@326:    pokemon-base
rlm@326:    {:species :pikachu
rlm@326:     :moves [:thundershock :growl :surf]}))
rlm@237: 
rlm@237: 
rlm@237: (def young-jigglypuff
rlm@237:   {:name "JIGGLYPUFF", :species :jigglypuff, :species2 :jigglypuff,
rlm@237:    :status :normal,
rlm@237:    :moves [[:sing {:pp-ups 0, :current-pp 4}]],
rlm@237:    :dv {:attack 15, :defense 15, :speed 15, :special 15, :hp 15},
rlm@237:    :experience
rlm@237:    {:main-exp 21, :hp-exp 0xFF, :attack-exp 0xFF,
rlm@237:     :defense-exp 0xFF, :speed-exp 0xFF, :special-exp 0xFF}, 
rlm@237:    :type [:normal],
rlm@237:    :original-trainer "RLM",
rlm@237:    :stats {:level 3, :current-hp 5, :hp 20, :attack 8, :defense 6,
rlm@237:            :speed 6, :special 7}, 
rlm@237:    :ID 5195})
rlm@326: 
rlm@326: (def tauros
rlm@326:   (merge
rlm@326:    pokemon-base
rlm@326:    {:species :tauros
rlm@326:     :stats {:level 3, :current-hp 20, :hp 20,
rlm@326:             :attack 13, :defense 13, :speed 14, :special 11}
rlm@326:     :moves [:body-slam :hyper-beam
rlm@326:             :earthquake :blizzard]}))
rlm@326: 
rlm@326: (def chansey
rlm@326:   (merge
rlm@326:    pokemon-base
rlm@326:    {:species :chansey
rlm@326:     :stats {:level 3, :current-hp 30, :hp 30,
rlm@326:             :attack 8, :defense 8, :speed 10, :special 14}
rlm@326:     :moves [:ice-beam :thunderbolt
rlm@326:             :softboiled :thunder-wave]}))
rlm@326: 
rlm@326: (def starmie
rlm@326:   (merge
rlm@326:    pokemon-base
rlm@326:    {:species :starmie
rlm@326:     :stats {:level 3, :current-hp 19, :hp 19,
rlm@326:             :attack 12, :defense 12, :speed 14, :special 13}
rlm@326:     :moves [:thunderbolt :blizzard
rlm@326:             :thunder-wave :recover]}))
rlm@326: 
rlm@326: (def golem
rlm@326:   (merge
rlm@326:    pokemon-base
rlm@326:    {:species :golem
rlm@326:     :stats {:level 3, :current-hp 20, :hp 20,
rlm@326:             :attack 14, :defense 15, :speed 10, :special 11}
rlm@326:     :moves [:earthquake :body-slam
rlm@326:             :rock-slide :explosion]}))
rlm@326: 
rlm@326: (def exeggutor
rlm@326:   (merge
rlm@326:    pokemon-base
rlm@326:    {:species :exeggutor
rlm@326:     :stats {:level 3, :current-hp 21, :hp 21,
rlm@326:             :attack 13, :defense 12, :speed 11, :special 15}
rlm@326:     :moves [:psychic :sleep-powder
rlm@326:             :mega-drain :explosion]}))
rlm@326: 
rlm@326: (def alakazam
rlm@326:   (merge
rlm@326:    pokemon-base
rlm@326:    {:species :alakazam
rlm@326:     :stats {:level 3, :current-hp 19, :hp 19,
rlm@326:             :attack 10, :defense 10, :speed 14, :special 15}
rlm@326:     :moves [:psychic :thunder-wave
rlm@326:             :recover :seismic-toss]}))
rlm@326:             
rlm@326: (def zapdos
rlm@326:   (merge
rlm@326:    pokemon-base
rlm@326:    {:species :zapdos
rlm@326:     :moves [:thunderbolt :drill-peck
rlm@326:             :thunder-wave :agility]}))