Basic combat

modules/ui.scm

@@ -29,6 +29,22 @@
   (color label-color set-label-color!)
   (text label-text set-label-text!))
 
+(export process-dynamic-labels)
+(define process-dynamic-labels
+  (make-system
+   'process-dynamic-labels
+   9
+   'entity
+   '(<label> <dynamic-label>)
+   (lambda (_ label d-label)
+     (set-label-text! label ((label-func d-label))))))
+
+(export dynamic-label)
+(define-record-type <dynamic-label>
+  (dynamic-label func)
+  dynamic-label?
+  (func label-func))
+
 ;; Title/subtitle/footer etc are basically just different styles
 (export title)
 (define (title position text