blob: 2564bd058b9742af088e6cd73225d96bfcdaeb2c (
plain)
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
64
65
66
67
68
69
70
|
(import scheme
(chicken base)
(prefix sdl2 "sdl2:")
(prefix sdl2-ttf "ttf:")
downstroke-engine
downstroke-renderer
downstroke-input)
;; Global state for menu cursor
(define *menu-cursor* 0)
(define *menu-items* '("Play" "Quit"))
(define *title-font* #f)
(define *menu-font* #f)
(define *game*
(make-game
title: "Demo: Menu System" width: 600 height: 400
preload: (lambda (game)
(set! *title-font* (ttf:open-font "demo/assets/DejaVuSans.ttf" 24))
(set! *menu-font* (ttf:open-font "demo/assets/DejaVuSans.ttf" 16)))
create: (lambda (game)
;; Register the main-menu state
(game-add-state! game 'main-menu
(make-game-state
#:update (lambda (game dt)
(let ((input (game-input game)))
;; Navigate menu with up/down
(when (input-pressed? input 'up)
(set! *menu-cursor* (max 0 (- *menu-cursor* 1))))
(when (input-pressed? input 'down)
(set! *menu-cursor* (min (- (length *menu-items*) 1) (+ *menu-cursor* 1))))
;; Confirm selection
(when (input-pressed? input 'a)
(case *menu-cursor*
((0) ; Play
(game-start-state! game 'playing))
((1) ; Quit
(sdl2:quit!)
(exit))))))
#:render (lambda (game)
(let ((renderer (game-renderer game)))
(set! (sdl2:render-draw-color renderer) (sdl2:make-color 0 0 0 255))
(sdl2:render-fill-rect! renderer (sdl2:make-rect 0 0 600 400))
(let ((white (sdl2:make-color 255 255 255 255)))
(draw-ui-text renderer *title-font* "MENU DEMO" white 200 80)
(draw-menu-items renderer *menu-font* *menu-items* *menu-cursor*
150 150 50))))))
;; Register the playing state
(game-add-state! game 'playing
(make-game-state
#:update (lambda (game dt)
(let ((input (game-input game)))
;; Return to menu on quit (Escape)
(when (input-pressed? input 'quit)
(set! *menu-cursor* 0)
(game-start-state! game 'main-menu))))
#:render (lambda (game)
(let ((renderer (game-renderer game)))
(set! (sdl2:render-draw-color renderer) (sdl2:make-color 0 0 0 255))
(sdl2:render-fill-rect! renderer (sdl2:make-rect 0 0 600 400))
(let ((white (sdl2:make-color 255 255 255 255)))
(draw-ui-text renderer *menu-font* "PLAYING! PRESS ESC TO RETURN" white 120 150))))))
;; Start with the main menu
(game-start-state! game 'main-menu))))
(game-run! *game*)
|
