Code:

# Author: tomekk# e-mail:  tomekk/@/oswiecim/./eu/./org# home page: http://tomekk.oswiecim.eu.org/## Version 0.1## This file is Copyrighted under the GNU Public License.# http://www.gnu.org/copyleft/gpl.html# if you want to use this script on your chan, type in eggdrop console (via telnet or DCC chat)                 # .chanset #channel_name +voobly# and later .save   # voobly keyset voobly_key "your_key"# !rm command reuse interval (seconds)set rm_reuse_interval 15# !cs command reuse interval (seconds)set cs_reuse_interval 15# HTTP connection timeout intervalset http_conn_timeout 10###############################################################################################bind pub -|- !rm proc_rmbind pub -|- !cs proc_cspackage require httpsetudef flag vooblyset rm_reuse_time 1set cs_reuse_time 1# borrowed from ncgi.tclproc encode { string } {for {set i 1} {$i <= 256} {incr i} {                                                              set c [format %c $i]                                                            if {![string match \[a-zA-Z0-9\] $c]} {                                                      set map($c) %[format %.2X $i]}# These are handled specially array set map {                     " " +   \n %0D%0A}}# 1 leave alphanumerics characters alone# 2 Convert every other character to an array lookup                                        # 3 Escape constructs that are "special" to the tcl parser                               # 4 "subst" the result, doing all the array substitutionsregsub -all -- \[^a-zA-Z0-9\] $string {$map(&)} string# This quotes cases like $map([) or $map($) => $map(\[) ...regsub -all -- {[][{})\\]\)} $string {\\&} string                                          return [subst -nocommand $string]}#######################proc net_data { link channel } {global http_conn_timeoutset the_data ""set the_error ""set http_handle [http::config -useragent "simple-voobly.tcl <eggdrop script>"]if {![catch {set http_handle [http::geturl $link -timeout [expr {$http_conn_timeout * 1000}]]}]} {switch -- [http::status $http_handle] {"timeout" {set the_error "connection timeout"}                        "error" {set the_error [http::error $http_handle]}                        "ok" {switch -glob [http::ncode $http_handle] {200 {set the_data [http::data $http_handle]}default {set the_error [http::ncode $http_handle]}}}}http::cleanup $http_handle} {set the_error "connection failed"}if {$the_error != ""} {putquick "PRIVMSG $channel :$the_error"}return $the_data}proc show_stats { player_chan player_nick player_scenario player_info } {global voobly_key rm_reuse_time cs_reuse_timeset url_player_nick [encode $player_nick]set user_id_data [net_data "http://www.voobly.com/api/finduser/$url_player_nick?key=$voobly_key" $player_chan]if {[string trim $user_id_data] != ""} {set user_id [lindex [split [lindex [split $user_id_data "\n"] 1] ","] 0]if {[regexp {^([0-9]+)$} $user_id]} {set user_stats_data [net_data "http://www.voobly.com/api/ladder/$player_scenario?key=$voobly_key&uid=$user_id" $player_chan]if {[string trim $user_stats_data] != ""} {set user_stats [split [lindex [split $user_stats_data "\n"] 1] ","]set user_rating [lindex $user_stats 3]set user_wins [lindex $user_stats 4]set user_loss [lindex $user_stats 5]set user_streak [lindex $user_stats 6]putquick "PRIVMSG $player_chan :â&#128;&#148;=\[ Voobly $player_info \]=â&#128;&#148;â&#128;˘ player: $player_nick rating: $user_rating wins: $user_wins loss: $user_loss streak: $user_streak"if {$player_scenario == "8"} {set rm_reuse_time [clock seconds]} elseif {$player_scenario == "10"} {set cs_reuse_time [clock seconds]}} { putquick "PRIVMSG $player_chan :â&#128;&#148;=\[ Voobly $player_info \]=â&#128;&#148;â&#128;˘ nick $player_nick not found"}} {putquick "PRIVMSG $player_chan :â&#128;&#148;=\[ Voobly \]=â&#128;&#148;â&#128;˘ nick $player_nick is not registered"}}}proc proc_rm { nick uhost hand chan arg } {global rm_reuse_time rm_reuse_intervalif {![channel get $chan voobly]} {return}if {[expr [clock seconds] - $rm_reuse_time] >= $rm_reuse_interval} {set user_nick [string trim $arg]if {$user_nick != ""} {show_stats $chan $user_nick "8" "RM"} {putquick "PRIVMSG $chan :use: !rm <nick>"}} {putquick "PRIVMSG $chan :to fast dude - try again later..."}}proc proc_cs { nick uhost hand chan arg } {global cs_reuse_time cs_reuse_intervalif {![channel get $chan voobly]} {return}if {[expr [clock seconds] - $cs_reuse_time] >= $cs_reuse_interval} {set user_nick [string trim $arg]if {$user_nick != ""} {show_stats $chan $user_nick "10" "CS"} {putquick "PRIVMSG $chan :use: !cs <nick>"}} {putquick "PRIVMSG $chan :to fast dude - try again later..."}}putlog "simple-voobly.tcl ver 0.1 by tomekk loaded"

Code:

# Author: tomekk# e-mail:  tomekk/@/oswiecim/./eu/./org# home page: http://tomekk.oswiecim.eu.org/## Version 0.1## This file is Copyrighted under the GNU Public License.# http://www.gnu.org/copyleft/gpl.html# if you want to use this script on your chan, type in eggdrop console (via telnet or DCC chat)                 # .chanset #channel_name +voobly# and later .save   # voobly keyset voobly_key "<key_in_here"# !rm command reuse interval (seconds)set rm_reuse_interval 15# !cs command reuse interval (seconds)set cs_reuse_interval 15# HTTP connection timeout intervalset http_conn_timeout 10###############################################################################################bind pub -|- !rm proc_rmbind pub -|- !cs proc_cspackage require httppackage require ncgisetudef flag vooblyset rm_reuse_time 1set cs_reuse_time 1proc net_data { link channel } {global http_conn_timeoutset the_data ""set the_error ""set http_handle [http::config -useragent "simple-voobly.tcl <eggdrop script>"]if {![catch {set http_handle [http::geturl $link -timeout [expr {$http_conn_timeout * 1000}]]}]} {switch -- [http::status $http_handle] {"timeout" {set the_error "connection timeout"}                        "error" {set the_error [http::error $http_handle]}                        "ok" {switch -glob [http::ncode $http_handle] {200 {set the_data [http::data $http_handle]}default {set the_error [http::ncode $http_handle]}}}}http::cleanup $http_handle} {set the_error "connection failed"}if {$the_error != ""} {putquick "PRIVMSG $channel :$the_error"}return $the_data}proc show_stats { player_chan player_nick player_scenario player_info } {global voobly_key rm_reuse_time cs_reuse_timeset url_player_nick [::ncgi::encode $player_nick]set user_id_data [net_data "http://www.voobly.com/api/finduser/$url_player_nick?key=$voobly_key" $player_chan]if {[string trim $user_id_data] != ""} {set user_id [lindex [split [lindex [split $user_id_data "\n"] 1] ","] 0]if {[regexp {^([0-9]+)$} $user_id]} {set user_stats_data [net_data "http://www.voobly.com/api/ladder/$player_scenario?key=$voobly_key&uid=$user_id" $player_chan]if {[string trim $user_stats_data] != ""} {set user_stats [split [lindex [split $user_stats_data "\n"] 1] ","]set user_rating [lindex $user_stats 3]set user_wins [lindex $user_stats 4]set user_loss [lindex $user_stats 5]set user_streak [lindex $user_stats 6]putquick "PRIVMSG $player_chan :—=\[ Voobly $player_info \]=—• player: $player_nick rating: $user_rating wins: $user_wins loss: $user_loss streak: $user_streak"if {$player_scenario == "8"} {set rm_reuse_time [clock seconds]} elseif {$player_scenario == "10"} {set cs_reuse_time [clock seconds]}} { putquick "PRIVMSG $player_chan :—=\[ Voobly $player_info \]=—• nick $player_nick not found"}} {putquick "PRIVMSG $player_chan :—=\[ Voobly \]=—• nick $player_nick is not registered"}}}proc proc_rm { nick uhost hand chan arg } {global rm_reuse_time rm_reuse_intervalif {![channel get $chan voobly]} {return}if {[expr [clock seconds] - $rm_reuse_time] >= $rm_reuse_interval} {set user_nick [string trim $arg]if {$user_nick != ""} {show_stats $chan $user_nick "8" "RM"} {putquick "PRIVMSG $chan :use: !rm <nick>"}} {putquick "PRIVMSG $chan :to fast dude - try again later..."}}proc proc_cs { nick uhost hand chan arg } {global cs_reuse_time cs_reuse_intervalif {![channel get $chan voobly]} {return}if {[expr [clock seconds] - $cs_reuse_time] >= $cs_reuse_interval} {set user_nick [string trim $arg]if {$user_nick != ""} {show_stats $chan $user_nick "10" "CS"} {putquick "PRIVMSG $chan :use: !cs <nick>"}} {putquick "PRIVMSG $chan :to fast dude - try again later..."}}putlog "simple-voobly.tcl ver 0.1 by tomekk loaded"