vba-clojure: clojure/com/aurellem/gb/moves.clj comparison

comparison clojure/com/aurellem/gb/moves.clj @ 198:5055ec9de278

competed move-table printing component of pokemon printing function.

author	Robert McIntyre <rlm@mit.edu>
date	Fri, 23 Mar 2012 00:30:34 -0500
parents	659764a2ea40
children	912496041f98

comparison

equal deleted inserted replaced

-:659764a2ea40
+:5055ec9de278
 :growl         40
 :growth        40
 :guillotine     5
 :gust          35
 :harden        30
-:haze
+:haze          30
-:headbutt
+:headbutt      15
-:hi-jump-kick
+:hi-jump-kick  20
-:horn-attack
+:horn-attack   25
-:horn-drill
+:horn-drill     5
-:hydro-pump
+:hydro-pump     5
-:hyper-beam
+:hyper-beam     5
-:hyper-fang
+:hyper-fang    15
-:hypnosis
+:hypnosis      20
-:ice-beam
+:ice-beam      10
-:ice-punch
+:ice-punch     15
-:jump-kick
+:jump-kick     25
-:karate-chop
+:karate-chop   25
-:kinesis
+:kinesis       15
-:leech-life
+:leech-life    15
-:leech-seed
+:leech-seed    10
-:leer
+:leer          30
-:lick
+:lick          30
-:light-screen
+:light-screen  30
-:lovely-kiss
+:lovely-kiss   10
-:low-kick
+:low-kick      20
-:meditate
+:meditate      40
-:mega-drain
+:mega-drain    10
-:mega-kick
+:mega-kick      5
-:mega-punch
+:mega-punch    20
-:metronome
+:metronome     10
-:mimic
+:mimic         10
-:minimize
+:minimize      20
-:mirror-move
+:mirror-move   20
-:mist
+:mist          30
-:night-shade
+:night-shade   15
-:pay-day
+:pay-day       20
-:peck
+:peck          35
-:petal-dance
+:petal-dance   20
-:pin-missle
+:pin-missle    20
-:poison-gas
+:poison-gas    40
-:poison-sting
+:poison-sting  35
-:poisonpowder
+:poisonpowder  35
-:pound
+:pound         35
-:psybeam
+:psybeam       20
-:psychic
+:psychic       10
-:psywave
+:psywave       15
-:quick-attack
+:quick-attack  30
-:rage
+:rage          20
-:razor-leaf
+:razor-leaf    25
-:razor-wind
+:razor-wind    10
-:recover
+:recover       20
-:reflect
+:reflect       20
-:rest
+:rest          10
-:roar
+:roar          20
-:rock-slide
+:rock-slide    10
-:rock-throw
+:rock-throw    15
-:rolling-kick
+:rolling-kick  15
-:sand-attack
+:sand-attack   15
-:scratch
+:scratch       30
-:screech
+:screech       40
-:seismic-toss
+:seismic-toss  20
-:selfdestruct
+:selfdestruct   5
-:sharpen
+:sharpen       30
-:sing
+:sing          15
-:skull-bash
+:skull-bash    15
-:sky-attack
+:sky-attack     5
-:slam
+:slam          20
-:slash
+:slash         20
-:sleep-powder
+:sleep-powder  15
-:sludge
+:sludge        20
-:smog
+:smog          20
-:smokescreen
+:smokescreen   20
-:softboiled
+:softboiled    10
-:solarbeam
+:solarbeam     10
-:sonicboom
+:sonicboom     20
-:spike-cannon
+:spike-cannon  15
-:splash
+:splash        40
-:spore
+:spore         15
-:stomp
+:stomp         20
-:strength
+:strength      15
-:string-shot
+:string-shot   40
-:struggle
+:struggle       1
-:stun-spore
+:stun-spore    30
-:submission
+:submission    25
-:substitute
+:substitute    10
-:super-fang
+:super-fang    10
-:supersonic
+:supersonic    20
-:surf
+:surf          15
-:swift
+:swift         20
-:swords-dance
+:swords-dance  30
-:tackle
+:tackle        35
-:tail-whip
+:tail-whip     30
-:take-down
+:take-down     20
-:teleport
+:teleport      20
-:thrash
+:thrash        20
-:thunder
+:thunder       10
-:thunder-wave
+:thunder-wave  20
-:thunderbolt
+:thunderbolt   15
-:thunderpunch
+:thunderpunch  15
-:thundershock
+:thundershock  30
-:toxic
+:toxic         10
-:transform
+:transform     10
-:tri-attack
+:tri-attack    10
-:twinneedle
+:twinneedle    20
-:vicegrip
+:vicegrip      30
-:vine-whip
+:vine-whip     10
-:water-gun
+:water-gun     25
-:waterfall
+:waterfall     15
-:whirlwind
+:whirlwind     20
-:wing-attack
+:wing-attack   35
-:withdraw
+:withdraw      40
-:wrap
+:wrap          20})
+(defn max-pp [name pp-ups]
+(int (* (+ 1 (* (/ 1 5) pp-ups))
+(move-name->move-pp name))))

Mercurial > vba-clojure

comparison clojure/com/aurellem/gb/moves.clj @ 198:5055ec9de278