Browse Source

Replace BT.ChanCmds.tcl

BLaCkShaDoW 5 năm trước cách đây
mục cha
commit
c08509ab72
1 tập tin đã thay đổi với 10 bổ sung0 xóa
  1. 10 0
      BlackTools/Commands/BT.ChanCmds.tcl

+ 10 - 0
BlackTools/Commands/BT.ChanCmds.tcl

@@ -28,6 +28,16 @@ if {$return == "0"} {
 		return
 		return
 }
 }
 switch [string tolower $cmd] {
 switch [string tolower $cmd] {
+vote {
+	set type 0
+	set word [lindex [split $arg] 1]
+    set text [join [lrange [split $arg] 2 end]]
+    set id [lindex [split $arg] 2]
+	set opt [lindex [split $arg] 3]
+	set vote_next [lindex [split $arg] 4]
+	vote:process $nick $char $host $hand $chan $chan1 $type [list $word $text $id $opt $vote_next]
+}
+
 alias {
 alias {
 if {[matchattr $hand mno|MAO $chan]} {
 if {[matchattr $hand mno|MAO $chan]} {
 	set chan1 $chan
 	set chan1 $chan