Commit b5c2c8e7 authored by Another Bug's avatar Another Bug

Update blackjack.tcl

parent f3ca848d
......@@ -278,16 +278,16 @@ proc blackjack:idle {nick chan} {
}
proc blackjack:kick {nick chan} {
set ::player(kick,$chan) "$::blackjack(player,$chan)"
array set player $::blackjack(player,$chan)
set ::blackjack(player,$chan) ""
foreach players $::player(kick,$chan) {
foreach players $player {
if {$players != $nick} {
lappend ::blackjack(player,$chan) $players
} else {
continue;
}
}
unset ::player(kick,$chan)
unset player
}
proc blackjack:genug {nick host hand chan arg} {
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment