Posted to tcl by sennin at Mon Oct 01 20:04:37 GMT 2018view raw
- 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}]
- }