forked from Shirakumo/kandria
-
Notifications
You must be signed in to change notification settings - Fork 0
/
actions.lisp
63 lines (55 loc) · 1.98 KB
/
actions.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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
(in-package #:org.shirakumo.fraf.kandria)
(defmethod handle ((ev quit-game) (controller controller)))
(define-action-set in-editor)
(define-action undo (in-editor))
(define-action redo (in-editor))
(define-action-set in-menu (exclusive-action-set))
(define-action skip (in-menu))
(define-action advance (in-menu))
(define-action select-left (in-menu))
(define-action select-right (in-menu))
(define-action select-up (in-menu))
(define-action select-down (in-menu))
(define-action accept (in-menu))
(define-action back (in-menu))
(define-action mark-for-bulk (in-menu))
(define-action toggle-editor ())
(define-action toggle-menu ())
(define-action screenshot ())
(define-action report-bug ())
(define-action load-state ())
(define-action toggle-fullscreen ())
(define-action toggle-diagnostics ())
(define-action-set in-game (exclusive-action-set))
(define-action quickmenu (in-game))
(define-action open-map (in-game))
(define-action interact (in-game))
(define-action jump (in-game))
(define-action dash (in-game))
(define-action climb (in-game))
(define-action crawl (in-game))
(define-action light-attack (in-game))
(define-action heavy-attack (in-game))
(define-action left (in-game analog-action))
(define-action right (in-game analog-action))
(define-action up (in-game analog-action))
(define-action down (in-game analog-action))
(define-action-set fishing (exclusive-action-set))
(define-action cast-line (fishing))
(define-action reel-in (fishing))
(define-action stop-fishing (fishing))
(define-action-set in-map (exclusive-action-set))
(define-action pan-left (in-map))
(define-action pan-right (in-map))
(define-action pan-up (in-map))
(define-action pan-down (in-map))
(define-action zoom-in (in-map))
(define-action zoom-out (in-map))
(define-action close-map (in-map))
(define-action toggle-trace (in-map))
(define-action toggle-marker (in-map))
(defmethod (setf active-p) :after (value (set in-game))
(when *context*
(if value
(hide-cursor *context*)
(show-cursor *context*))))