121 lines
3.2 KiB
Org Mode
121 lines
3.2 KiB
Org Mode
#+title: Fate Accelerated + One Page Solo Engine
|
|
|
|
[[elisp:(fae/roll-ndF 4)][Roll 4dF]]
|
|
|
|
* Characters
|
|
|
|
** PC
|
|
|
|
*** CHARACTER NAME
|
|
:PROPERTIES:
|
|
:FatePoints: 0
|
|
:Refresh: 0
|
|
:END:
|
|
|
|
CHARACTER DESCRIPTION
|
|
|
|
**** Stress
|
|
- [ ] 1
|
|
- [ ] 2
|
|
- [ ] 3
|
|
|
|
**** Aspects
|
|
- *High Concept*:
|
|
- *Trouble*:
|
|
- *Aspect 1*:
|
|
|
|
***** Consequences
|
|
- *Consequence 1*:
|
|
- *Consequence 2*:
|
|
- *Consequence 3*:
|
|
|
|
**** Approaches
|
|
#+name: pc1
|
|
| +x | Approach |
|
|
|----+----------|
|
|
| +2 | [[elisp:(fae/roll-approach "pc1" "Careful")][Careful]] |
|
|
| +0 | [[elisp:(fae/roll-approach "pc1" "Clever")][Clever]] |
|
|
| +8 | [[elisp:(fae/roll-approach "pc1" "Flashy")][Flashy]] |
|
|
| +3 | [[elisp:(fae/roll-approach "pc1" "Forecful")][Forceful]] |
|
|
| +0 | [[elisp:(fae/roll-approach "pc1" "Quick")][Quick]] |
|
|
| +0 | [[elisp:(fae/roll-approach "pc1" "Sneaky")][Sneaky]] |
|
|
|
|
**** Stunts
|
|
|
|
|
|
* Log
|
|
|
|
* Code
|
|
#+name: startup
|
|
#+begin_src elisp :results silent
|
|
(org-sbe "fae")
|
|
|
|
(define-minor-mode srpg-mode
|
|
"Minor mode for solo RPG gameplay."
|
|
:init-value nil
|
|
:keymap (make-keymap))
|
|
|
|
(define-key srpg-mode-map (kbd "M-r") 'fae/take-action)
|
|
#+end_src
|
|
|
|
#+name: prop-tbl-lookup
|
|
#+begin_src elisp :var lookup="" target="" :results silent
|
|
(alist-get target
|
|
(mapcar #'(lambda (x) (cons (replace-regexp-in-string "\\(\\[\\[.*\\]\\[\\)\\(.*\\)\\]\\]" "\\2" (cadr x)) (car x)))
|
|
(cl-remove-if (lambda (x) (not (listp x))) lookup))
|
|
nil
|
|
nil
|
|
(lambda (x y) (let ((z (string-search x y)))
|
|
(and z (= 0 z)))))
|
|
#+end_src
|
|
|
|
** Fate Accelerated
|
|
#+name: fae
|
|
#+begin_src elisp :results silent
|
|
(defun fae/roll-fate-die ()
|
|
"Rolls a single fate die, returning either 1, 0, or -1."
|
|
(interactive)
|
|
(- (random 3) 1))
|
|
|
|
(defun fae/roll-ndF (n)
|
|
"Rolls `n' fate dice, and returns the result."
|
|
(interactive)
|
|
(defun roll (i acc)
|
|
(if (= i n)
|
|
acc
|
|
(roll (+ 1 i)
|
|
(+ acc (fae/roll-fate-die)))))
|
|
(roll 0 0))
|
|
|
|
(defun fae/get-approach-modifier (approach)
|
|
"Get approach value."
|
|
(let ( (table (read-string "For which approach table? ")))
|
|
(or (org-babel-execute-src-block nil (org-babel-lob-get-info `(babel-call (:call "prop-tbl-lookup" :arguments ,(format "%s, \"%s\"" table approach))))) 0)))
|
|
|
|
(defun fae/roll-approach (table approach)
|
|
"Get careful approach value."
|
|
(+ (fae/roll-ndF 4)
|
|
(or (org-babel-execute-src-block nil (org-babel-lob-get-info `(babel-call (:call "prop-tbl-lookup" :arguments ,(format "%s, \"%s\"" table approach))))) 0)
|
|
(if (y-or-n-p "Any other modifiers?")
|
|
(read-minibuffer "+? ")
|
|
0)))
|
|
|
|
(defun fae/take-action ()
|
|
"Say what you're trying to do and insert a roll outcome."
|
|
(interactive)
|
|
(let* ((action (read-string "What are you trying to do? "))
|
|
(dice-roll (fae/roll-ndF 4))
|
|
(approach (completing-read
|
|
"Select approach: "
|
|
'("Careful" "Clever" "Flashy" "Forceful" "Quick" "Sneaky")))
|
|
(app-mod (fae/get-approach-modifier approach))
|
|
(add-mod (if (y-or-n-p "Any other modifiers?")
|
|
(read-minibuffer "+? ")
|
|
0)))
|
|
(insert (format "%s (Approach %s, Rolled %s+%s+%s=%s)\n" action approach dice-roll app-mod add-mod (+ dice-roll app-mod add-mod)))))
|
|
#+end_src
|
|
|
|
# Local Variables:
|
|
# org-confirm-babel-evaluate: nil
|
|
# eval: (progn (org-sbe "startup"))
|
|
# End:
|