blob: 67fd65510c40d9f1931684329782d7e1989a50ef (
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
|
(import scheme
(chicken base)
(prefix sdl2 "sdl2:")
(prefix sdl2-ttf "ttf:")
downstroke-engine
downstroke-renderer
downstroke-input)
(define *menu-cursor* 0)
(define *menu-items* '("Play" "Quit"))
(define *title-font* #f)
(define *menu-font* #f)
(define +bg-color+ (sdl2:make-color 0 0 0 255))
(define +text-color+ (sdl2:make-color 255 255 255 255))
(define (clear-screen! renderer)
(set! (sdl2:render-draw-color renderer) +bg-color+)
(sdl2:render-fill-rect! renderer (sdl2:make-rect 0 0 600 400)))
;; ── States ───────────────────────────────────────────────────────────────────
(define (main-menu-update game _dt)
(let ((input (game-input game)))
(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))))
(when (input-pressed? input 'a)
(case *menu-cursor*
((0) (game-start-state! game 'playing))
((1) (sdl2:quit!) (exit))))))
(define (main-menu-render game)
(let ((renderer (game-renderer game)))
(clear-screen! renderer)
(draw-ui-text renderer *title-font* "MENU DEMO" +text-color+ 200 80)
(draw-menu-items renderer *menu-font* *menu-items* *menu-cursor* 150 150 50)))
(define (playing-update game _dt)
(when (input-pressed? (game-input game) 'quit)
(set! *menu-cursor* 0)
(game-start-state! game 'main-menu)))
(define (playing-render game)
(let ((renderer (game-renderer game)))
(clear-screen! renderer)
(draw-ui-text renderer *menu-font*
"PLAYING! PRESS ESC TO RETURN" +text-color+ 120 150)))
;; ── Game ─────────────────────────────────────────────────────────────────────
(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)
(game-add-state! game 'main-menu
(make-game-state #:update main-menu-update #:render main-menu-render))
(game-add-state! game 'playing
(make-game-state #:update playing-update #:render playing-render))
(game-start-state! game 'main-menu))))
(game-run! *game*)
|
