From 5d28f7b6b3bfd48bc9b8710b0c4f215fc8cdbe61 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andr=C3=A9s=20Cuervo?= <acwervo@gmail.com>
Date: Mon, 24 Apr 2023 15:11:47 -0400
Subject: Add halo message

---
 virtual-programs/label.folk | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'virtual-programs')

diff --git a/virtual-programs/label.folk b/virtual-programs/label.folk
index 52bfae11..036e8752 100644
--- a/virtual-programs/label.folk
+++ b/virtual-programs/label.folk
@@ -23,3 +23,17 @@ When /thing/ has region /region/ {
 		}
 	}
 }
+
+proc text {coords text angle} {
+  Display::text Display::fb [lindex $coords 0] [lindex $coords 1] _ $text $angle
+}
+
+When /anyone/ wishes /p/ has halo message /message/ {
+  When $p has region /r/ {
+     lassign [lindex $r 0] a b c d
+     lassign $a x y
+     text $a $message 0
+     text $d $message 180
+     Wish $this is labelled TEST
+  }
+}
\ No newline at end of file
-- 
cgit v1.2.3