-
Notifications
You must be signed in to change notification settings - Fork 3
/
help.lisp
27 lines (26 loc) · 1.35 KB
/
help.lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
(in-package :lispstone)
(defun add-help-to-scene (scene)
(with-slots (width height) scene
(let ((dx 200)
(dy 170))
(add-to-scene scene (make-instance 'text-entity
:id :help-dmg
:x (- width dx)
:y dy
:font *small-font*
:text (lambda ()
(i18n "ψ: damage"))))
(add-to-scene scene (make-instance 'text-entity
:id :help-dmg
:x (- width dx)
:y (+ dy *line-height*)
:font *small-font*
:text (lambda ()
(i18n "ρ: resist"))))
(add-to-scene scene (make-instance 'text-entity
:id :help-dmg
:font *small-font*
:x (- width dx)
:y (+ dy (* 2 *line-height*))
:text (lambda ()
(i18n "ξ: evasion")))))))