view clojure/com/aurellem/gb/pokemon_presets.clj @ 349:37616a97beaa

fixed a few blocks that were not tangling properly.
author Dylan Holmes <ocsenave@gmail.com>
date Sun, 08 Apr 2012 07:57:52 -0500
parents 8484e6f6db2c
children
line wrap: on
line source
1 (ns com.aurellem.gb.pokemon-presets)
3 (def pokemon-base
4 {:dv {:attack 15 :hp 15 :defense 15
5 :special 15 :speed 15}
6 :species :ditto
7 :original-trainer "RLM"
8 :ID 5195
9 :status :normal
10 :experience
11 {:main-exp 500
12 :attack-exp 0xFFFF
13 :defense-exp 0xFFFF
14 :speed-exp 0xFFFF
15 :special-exp 0xFFFF
16 :hp-exp 0xFFFF}
18 :stats
19 {:level 2
20 :current-hp 17
21 :hp 17
22 :attack 10
23 :defense 10
24 :speed 10
25 :special 10}
27 :moves [[:transform {:pp-ups 0 :current-pp 5}]]})
29 (def base-mew
30 (merge
31 pokemon-base
32 {:species :mew
33 :moves [:pound]}))
35 (def HM-mew
36 (merge
37 base-mew
38 {:moves [:fly :flash :cut :strength]}))
40 (def ideal-pikachu
41 (merge
42 pokemon-base
43 {:species :pikachu
44 :moves [:thundershock :growl :surf]}))
47 (def young-jigglypuff
48 {:name "JIGGLYPUFF", :species :jigglypuff, :species2 :jigglypuff,
49 :status :normal,
50 :moves [[:sing {:pp-ups 0, :current-pp 4}]],
51 :dv {:attack 15, :defense 15, :speed 15, :special 15, :hp 15},
52 :experience
53 {:main-exp 21, :hp-exp 0xFF, :attack-exp 0xFF,
54 :defense-exp 0xFF, :speed-exp 0xFF, :special-exp 0xFF},
55 :type [:normal],
56 :original-trainer "RLM",
57 :stats {:level 3, :current-hp 5, :hp 20, :attack 8, :defense 6,
58 :speed 6, :special 7},
59 :ID 5195})
61 (def tauros
62 (merge
63 pokemon-base
64 {:species :tauros
65 :stats {:level 3, :current-hp 20, :hp 20,
66 :attack 13, :defense 13, :speed 14, :special 11}
67 :moves [:body-slam :hyper-beam
68 :earthquake :blizzard]}))
70 (def chansey
71 (merge
72 pokemon-base
73 {:species :chansey
74 :stats {:level 3, :current-hp 30, :hp 30,
75 :attack 8, :defense 8, :speed 10, :special 14}
76 :moves [:ice-beam :thunderbolt
77 :softboiled :thunder-wave]}))
79 (def starmie
80 (merge
81 pokemon-base
82 {:species :starmie
83 :stats {:level 3, :current-hp 19, :hp 19,
84 :attack 12, :defense 12, :speed 14, :special 13}
85 :moves [:thunderbolt :blizzard
86 :thunder-wave :recover]}))
88 (def golem
89 (merge
90 pokemon-base
91 {:species :golem
92 :stats {:level 3, :current-hp 20, :hp 20,
93 :attack 14, :defense 15, :speed 10, :special 11}
94 :moves [:earthquake :body-slam
95 :rock-slide :explosion]}))
97 (def exeggutor
98 (merge
99 pokemon-base
100 {:species :exeggutor
101 :stats {:level 3, :current-hp 21, :hp 21,
102 :attack 13, :defense 12, :speed 11, :special 15}
103 :moves [:psychic :sleep-powder
104 :mega-drain :explosion]}))
106 (def alakazam
107 (merge
108 pokemon-base
109 {:species :alakazam
110 :stats {:level 3, :current-hp 19, :hp 19,
111 :attack 10, :defense 10, :speed 14, :special 15}
112 :moves [:psychic :thunder-wave
113 :recover :seismic-toss]}))
115 (def zapdos
116 (merge
117 pokemon-base
118 {:species :zapdos
119 :moves [:thunderbolt :drill-peck
120 :thunder-wave :agility]}))