diff options
Diffstat (limited to 'plugins/coin')
| -rwxr-xr-x | plugins/coin | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/plugins/coin b/plugins/coin index 44a1448..cf9b29b 100755 --- a/plugins/coin +++ b/plugins/coin @@ -23,15 +23,15 @@ proc parse {line} { while {1} { set line [string trimleft $line " "] set i [string first " " $line] - if {$i == -1} { set i [string bytelength $line] } + if {$i == -1} { set i [string length $line] } if {$i == 0} { break } if {[string index $line 0] == ":"} { - lappend msg(param) [string range $line 1 [string bytelength $line]] + lappend msg(param) [string range $line 1 end] break } lappend msg(param) [string range $line 0 [expr $i - 1]] - set line [string range $line $i [string bytelength $line]] + set line [string range $line $i end] } } @@ -49,8 +49,8 @@ proc pmrespond {text} { puts "PRIVMSG $ctx :$ctx_quote$text" } -fconfigure stdin -translation crlf -fconfigure stdout -translation crlf +fconfigure stdin -translation crlf -encoding iso8859-1 +fconfigure stdout -translation crlf -encoding iso8859-1 set prefix [get_config prefix] puts "ZYKLONB register" @@ -92,10 +92,9 @@ while {[gets stdin line] != -1} { set input [lindex $msg(param) 1] set first_chars [string range $input 0 \ - [expr [string bytelength $prefix] - 1]] + [expr [string length $prefix] - 1]] if {$first_chars != $prefix} { continue } - set input [string range $input \ - [string bytelength $prefix] [string bytelength $input]] + set input [string range $input [string length $prefix] end] if {$input == "coin"} { if {rand() < 0.5} { pmrespond "Heads." } else { pmrespond "Tails." } @@ -110,7 +109,8 @@ while {[gets stdin line] != -1} { pmrespond "Nothing to choose from." } else { set c [split $args ",|"] - pmrespond [lindex $c [expr {int([llength $c] * rand())}]] + pmrespond [string trim [lindex $c \ + [expr {int([llength $c] * rand())}]]] } } elseif {[regexp {^eightball( +|$)(.*)} $input -> _ args]} { if {$args == ""} { |