From 2a09b9a3e081e43c7aedbb2692ae65df9da82305 Mon Sep 17 00:00:00 2001
From: Aleteoryx <alyx@aleteoryx.me>
Date: Sat, 8 Feb 2025 14:27:30 -0500
Subject: [PATCH] comment in s/pick

---
 s/pick | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/s/pick b/s/pick
index 2044261eacb7757812efa72990d4ec7ba508e1fd..bc6c2827a67bfdc1492ecbed3f66e4fab2c50a8f 100755
--- a/s/pick
+++ b/s/pick
@@ -21,14 +21,18 @@ if {[catch {sqlite3 db $dbpath -create false}]} {
   fatal "can't open \"$dbpath\""
 }
 
-set unplayed [db eval {SELECT name,href FROM titles WHERE played ISNULL AND ignore = 0}]
+set unplayed [db eval {SELECT name,href,comment FROM titles WHERE played ISNULL AND ignore = 0}]
 
 set chan [::tcl::chan::random [::tcl::randomseed]]
 binary scan [read $chan 4] i1 n
-set idx [expr { (abs($n) % ([llength $unplayed] / 2)) * 2 }]
+set idx [expr { (abs($n) % ([llength $unplayed] / 3)) * 3 }]
 
 set name [lindex $unplayed $idx]
 set href [lindex $unplayed $idx+1]
+set comment [lindex $unplayed $idx+2]
 
 puts "Random pick: $name"
-puts "- $href"
+puts "- link: $href"
+if {$comment != ""} {
+  puts "- comment: $comment"
+}