Basic main menu and README

src/bitter-duel.scm

@@ -0,0 +1,15 @@
+(module (bitter-duel) ()
+(import scheme
+	(chicken base)
+	raylib
+	(imugi core)
+	(imugi input)
+	(main-menu))
+
+(register-action 'click 'mouse-press MOUSE_BUTTON_LEFT)
+
+((main-menu (lambda ()
+	      (display "Loading game scene...")
+	      (newline))))
+
+(create-window))

src/main-menu.scm

@@ -0,0 +1,64 @@
+(module (main-menu) ()
+(import scheme
+	(chicken base)
+	(chicken module)
+	(imugi core)
+	(imugi input)
+	(imugi scene)
+	(imugi math)
+	(bd ui))
+
+(export main-menu)
+(define (main-menu play-callback)
+  (scene
+   push-actions
+   draw-labels
+   handle-buttons
+
+;;; Text
+   ;; Title
+   (entity
+    (title
+     (vec
+      ;; 0 because automatically centered on x
+      0
+      (/ (cdr (*window-size*))
+	 6))
+     "Bitter Duel"
+     centered: (cons #t #f)))
+   ;; Subtitle
+   (entity
+    (subtitle
+     (vec
+      ;; 0 because automatically centered on x
+      0
+      (/ (cdr (*window-size*))
+	 3))
+     "Made for the Spring Lisp Game Jam 2026"
+     centered: (cons #t #f)))
+   ;; Acknowledgements footer
+   (entity
+    (footer
+     (vec
+      ;; 0 because automatically centered on x
+      0
+      (- (cdr (*window-size*))
+	 30))
+     "By Jakub Nowak with Imugi+Raylib"
+     centered: (cons #t #f)))
+
+   (entity
+    (button
+     (vec (- (/ (car (*window-size*))
+		2)
+	     50)
+	  (- (/ (car (*window-size*))
+		2)
+	     100))
+     (footer
+      (vec 0 0)
+      "Start Game!")
+     play-callback))
+   ))
+)
+