nixo
/
tsukundere-menu-exmaple
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Update to current devel/best practices.

This commit is contained in:
Leo Prikler 2021-01-05 19:09:34 +01:00 committed by nixo
parent 7cc7088036
commit 6691d6cc9e
1 changed files with 37 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

89
run.scm
View File

@ -2,11 +2,7 @@
(sdl2)
(sdl2 ttf)
(ice-9 match)
(tsukundere menu button)
(tsukundere game)
(tsukundere scene)
(tsukundere math)
(tsukundere script utils))
(tsukundere menu button))
(define (load)
(let* ((scene
@ -55,59 +51,48 @@
#:text-pos (s32vector 0 0)
#:anchor 'center
#:text-alignment '(center . center)
#:callback simple-button-callback)))
#:callback simple-button-callback))
(nixo (make-speaker "nixo")))
(init-script!
(lambda ()
(background paper)
(say "nixo" "This is not an exam!")
(pause)
(say "nixo" "Chose one and press enter!")
(say "nixo"
(format #f "You choose: ~a\n"
(menu
'("Select me!" "Or me!" "No, select me!")
#:template radio-button)))
(pause)
(say "nixo" "Chose as many as you want!")
(say "nixo"
(format #f "You selected: ~a\n"
(menu '(("A") ("B") ("C"))
#:template checkbox-button)))
(pause)
(say "nixo" "Click it!")
(say "nixo"
(format #f "You selected the element: ~a\n"
(menu
'((yep "Yes") (maybe "Maybe") (nope "No way")))))
(say "nixo"
(format #f "You selected the element number: ~a\n"
(menu
'("Yes" "Maybe" "No way"))))
(say "nixo"
(format #f "You selected the element: ~a\n"
(menu
'(("Yes") ("Maybe") ("No way")))))
(say "nixo"
(format #f "You selected the element: ~a\n"
(menu
'((yep "Yes") (maybe "Maybe") (nope "No way")))))
(pause))
(script
(begin
(background paper)
(nixo "This is not an exam!"))
(nixo "Chose one and press enter!")
(nixo
(format #f "You choose: ~a\n"
(menu
'("Select me!" "Or me!" "No, select me!")
#:prototype radio-button)))
(nixo "Chose as many as you want!")
(nixo
(format #f "You selected: ~a\n"
(menu '(("A") ("B") ("C"))
#:prototype checkbox-button
#:seed '() #:pressed cons)))
(nixo "Click it!")
(nixo
(format #f "You selected the element number: ~a\n"
(menu
'("Yes" "Maybe" "No way"))))
(nixo "Click it again!")
(nixo
(format #f "You selected the element: ~a\n"
(menu
'(("Yes") ("Maybe") ("No way")))))
(nixo "Once more!")
(nixo
(format #f "You selected the element: ~a\n"
(menu
'(("Yes" . yep) ("Maybe" . maybe) ("No way" . nope)))))
*unspecified*))
scene)
(init-menu! 100 100 (s32vector 0 50) font textures
(s32vector 50 18)
#:colors colors
#:template simple-button)
(init-text! 10 300 280 font font)))
(init-menu! #s32(100 100) #s32(0 50) #f simple-button #:scene scene)
(init-text! 10 300 280 font font #:scene scene)))
(run-game
#:game-name ".tsukundere-example-buttons"
#:window-width 400
#:window-height 400
#:init! load)
(use-modules (ice-9 match))
(let ((option "OK"))
(match option
(selected selected)
((value selected) selected)
((selected . value) selected)))