Mercurial > vba-clojure
comparison clojure/com/aurellem/gb/pokemon.clj @ 212:8523faa122b0
fixed compilaition error in dylan's code
| author | Robert McIntyre <rlm@mit.edu> |
|---|---|
| date | Fri, 23 Mar 2012 18:06:37 -0500 |
| parents | 565f5d17f90a |
| children | d7f2e0384d24 |
comparison
equal
deleted
inserted
replaced
| 211:661d35f1b56e | 212:8523faa122b0 |
|---|---|
| 445 (set-OT-id poke-num (:ID pokemon*)) | 445 (set-OT-id poke-num (:ID pokemon*)) |
| 446 (set-OT-name poke-num (:original-trainer pokemon*)) | 446 (set-OT-name poke-num (:original-trainer pokemon*)) |
| 447 (give-moves-pps poke-num (:moves pokemon*)) | 447 (give-moves-pps poke-num (:moves pokemon*)) |
| 448 (give-status poke-num (:status pokemon*)) | 448 (give-status poke-num (:status pokemon*)) |
| 449 (give-stats poke-num (:stats pokemon*)) | 449 (give-stats poke-num (:stats pokemon*)) |
| 450 (give-experience poke-num (:experience pokemon*))))) | 450 (give-experience poke-num (:experience pokemon*)) |
| 451 | |
| 452 ;; this was 11 dec | |
| 453 (set-memory (+ 0xD16D | |
| 454 (* pokemon-record-width poke-num)) | |
| 455 0x00)))) | |
| 451 ([poke-num pokemon] | 456 ([poke-num pokemon] |
| 452 (give-pokemon @current-state poke-num pokemon))) | 457 (give-pokemon @current-state poke-num pokemon))) |
| 458 | |
| 459 (defn edit-pokemon | |
| 460 ([^SaveState state poke-num new-pokemon-data] | |
| 461 (give-pokemon state poke-num | |
| 462 (merge (pokemon state poke-num) | |
| 463 new-pokemon-data))) | |
| 464 ([poke-num new-pokemon-data] | |
| 465 (edit-pokemon @current-state poke-num new-pokemon-data))) | |
| 466 | |
| 467 | |
| 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, | |
| 486 :status :normal, | |
| 487 :moves [[:sing {:pp-ups 0, :current-pp 4}]], | |
| 488 :dv {:attack 8, :defense 7, :speed 4, :special 12, :hp 4}, | |
| 489 :experience {:main-exp 21, :hp-exp 0, :attack-exp 0, :defense-exp | |
| 490 0, :speed-exp 0, :special-exp 0}, | |
| 491 :type [:normal], | |
| 492 :original-trainer "RLM", | |
| 493 :stats {:level 3, :current-hp 5, :hp 20, :attack 8, :defense 6, | |
| 494 :speed 6, :special 7}, | |
| 495 :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")) |