Posted to tcl by sennin at Mon Oct 01 20:04:37 GMT 2018view raw

  1. sqlite3 db master.db
  2. set iterator 3
  3. while {$iterator > 0} {
  4. set results [db eval {SELECT `id` FROM `cards` WHERE `rarity` = 3}]
  5. set num_results [llength results]
  6. set random_result [expr {int(rand()*$num_results)}]
  7. set which_card [lindex $results $random_result]
  8. set card_name [db eval {SELECT `name` FROM `cards` WHERE `id` = $which_card}]
  9. putquick "PRIVMSG $chan :$nick!$uhost: $card_name"
  10. set iterator [expr {$iterator - 1}]
  11. }
  12.