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")) |