Mercurial > vba-clojure

comparison clojure/com/aurellem/gb/pokemon.clj @ 216:d7f2e0384d24

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
remove debug stuff from pokemon.clj
author Robert McIntyre <rlm@mit.edu>
date Fri, 23 Mar 2012 19:29:09 -0500
parents 8523faa122b0
children 1af1a279895b
comparison
equal deleted inserted replaced
215:aba78e52faba 216:d7f2e0384d24
462 (merge (pokemon state poke-num) 462 (merge (pokemon state poke-num)
463 new-pokemon-data))) 463 new-pokemon-data)))
464 ([poke-num new-pokemon-data] 464 ([poke-num new-pokemon-data]
465 (edit-pokemon @current-state poke-num new-pokemon-data))) 465 (edit-pokemon @current-state poke-num new-pokemon-data)))
466 466
467 467 (def young-jigglypuff
468
469 (def jiggly-lvl-3 (read-state "jiggly-lvl-3"))
470
471 (def jiggly-4-pp (read-state "jiggly-4-pp"))
472
473 (def jiggly-3-pp (read-state "jiggly-3-pp"))
474
475 (def jiggly-2-pp (read-state "jiggly-2-pp"))
476
477 (def jiggly-1-pp (read-state "jiggly-1-pp"))
478
479 (def jiggly-0-pp (read-state "jiggly-0-pp"))
480
481 (def jiggly-struggle-once (read-state "jiggly-struggle-once"))
482
483
484 (def poke-syn-jiggly-4-pp
485 {:name "JIGGLYPUFF", :species :jigglypuff, :species2 :jigglypuff, 468 {:name "JIGGLYPUFF", :species :jigglypuff, :species2 :jigglypuff,
486 :status :normal, 469 :status :normal,
487 :moves [[:sing {:pp-ups 0, :current-pp 4}]], 470 :moves [[:sing {:pp-ups 0, :current-pp 4}]],
488 :dv {:attack 8, :defense 7, :speed 4, :special 12, :hp 4}, 471 :dv {:attack 8, :defense 7, :speed 4, :special 12, :hp 4},
489 :experience {:main-exp 21, :hp-exp 0, :attack-exp 0, :defense-exp 472 :experience {:main-exp 21, :hp-exp 0, :attack-exp 0, :defense-exp
491 :type [:normal], 474 :type [:normal],
492 :original-trainer "RLM", 475 :original-trainer "RLM",
493 :stats {:level 3, :current-hp 5, :hp 20, :attack 8, :defense 6, 476 :stats {:level 3, :current-hp 5, :hp 20, :attack 8, :defense 6,
494 :speed 6, :special 7}, 477 :speed 6, :special 7},
495 :ID 5195}) 478 :ID 5195})
496
497
498 (def syn-jiggly-4-pp (read-state "syn-jiggly-4-pp"))
499 (def syn-jiggly-3-pp (read-state "syn-jiggly-3-pp"))
500 (def syn-jiggly-2-pp (read-state "syn-jiggly-2-pp"))
501 (def syn-jiggly-1-pp (read-state "syn-jiggly-1-pp"))
502 (def syn-jiggly-0-pp (read-state "syn-jiggly-0-pp"))