Advertisement
Guest User

Untitled

a guest
Jan 5th, 2015
199
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.46 KB | None | 0 0
  1. (ns game.macros)
  2.  
  3. (defmacro effect-with-pending-input [& expr]
  4. `(fn ~['state 'side 'card 'targets]
  5. ~(let [actions (map #(if (#{:runner :corp} (second %))
  6. (concat [(first %) 'state (second %)] (drop 2 %))
  7. (concat [(first %) 'state 'side] (rest %)))
  8. expr)]
  9. `(let ~['runner '(:runner @state)
  10. 'corp '(:corp @state)
  11. 'corp-reg '(get-in @state [:corp :register])
  12. 'runner-reg '(get-in @state [:runner :register])
  13. 'target '(first targets)]
  14. (if target
  15. (do ~@actions)
  16. (register-pending-input game.core/state game.core/side game.core/card nil)
  17. )))))
  18.  
  19. -------------
  20.  
  21. (ns game.core
  22. (:require-macros [game.macros :refer [effect req msg effect-with-pending-input]])
  23. (:require [game.utils :refer [remove-once has? merge-costs zone make-cid to-keyword capitalize
  24. costs-to-symbol vdissoc]]
  25. [clojure.string :refer [split-lines split join]]))
  26.  
  27. -------------
  28.  
  29. WARNING: No such namespace: game.macros at line 362 /Users/adamhiguera/Documents/Projects/netrunner/src/node/game/core.cljs
  30. WARNING: No such namespace: game.macros at line 374 /Users/adamhiguera/Documents/Projects/netrunner/src/node/game/core.cljs
  31. WARNING: No such namespace: game.macros at line 386 /Users/adamhiguera/Documents/Projects/netrunner/src/node/game/core.cljs
  32. WARNING: No such namespace: game.macros at line 386 /Users/adamhiguera/Documents/Projects/netrunner/src/node/game/core.cljs
  33. WARNING: No such namespace: game.macros at line 386 /Users/adamhiguera/Documents/Projects/netrunner/src/node/game/core.cljs
  34. WARNING: No such namespace: game.macros at line 386 /Users/adamhiguera/Documents/Projects/netrunner/src/node/game/core.cljs
  35. WARNING: No such namespace: game.macros at line 374 /Users/adamhiguera/Documents/Projects/netrunner/src/node/game/core.cljs
  36. WARNING: No such namespace: game.macros at line 374 /Users/adamhiguera/Documents/Projects/netrunner/src/node/game/core.cljs
  37. WARNING: No such namespace: game.macros at line 374 /Users/adamhiguera/Documents/Projects/netrunner/src/node/game/core.cljs
  38. WARNING: No such namespace: game.macros at line 362 /Users/adamhiguera/Documents/Projects/netrunner/src/node/game/core.cljs
  39. WARNING: No such namespace: game.macros at line 362 /Users/adamhiguera/Documents/Projects/netrunner/src/node/game/core.cljs
  40. WARNING: No such namespace: game.macros at line 362 /Users/adamhiguera/Documents/Projects/netrunner/src/node/game/core.cljs
  41. WARNING: No such namespace: game.macros at line 362 src/node/game/core.cljs
  42. WARNING: No such namespace: game.macros at line 374 src/node/game/core.cljs
  43. WARNING: No such namespace: game.macros at line 386 src/node/game/core.cljs
  44. WARNING: No such namespace: game.macros at line 386 src/node/game/core.cljs
  45. WARNING: No such namespace: game.macros at line 386 src/node/game/core.cljs
  46. WARNING: No such namespace: game.macros at line 386 src/node/game/core.cljs
  47. WARNING: No such namespace: game.macros at line 374 src/node/game/core.cljs
  48. WARNING: No such namespace: game.macros at line 374 src/node/game/core.cljs
  49. WARNING: No such namespace: game.macros at line 374 src/node/game/core.cljs
  50. WARNING: No such namespace: game.macros at line 362 src/node/game/core.cljs
  51. WARNING: No such namespace: game.macros at line 362 src/node/game/core.cljs
  52. WARNING: No such namespace: game.macros at line 362 src/node/game/core.cljs
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement