Posted to tcl by sennin at Mon Oct 01 20:04:37 GMT 2018view pretty
sqlite3 db master.db set iterator 3 while {$iterator > 0} { set results [db eval {SELECT `id` FROM `cards` WHERE `rarity` = 3}] set num_results [llength results] set random_result [expr {int(rand()*$num_results)}] set which_card [lindex $results $random_result] set card_name [db eval {SELECT `name` FROM `cards` WHERE `id` = $which_card}] putquick "PRIVMSG $chan :$nick!$uhost: $card_name" set iterator [expr {$iterator - 1}] }