Code: Select all
package require http
bind pub n !wstat getwolfstat
proc getwolfstat {nick host hand chan args} {
set token [::http::geturl "http://www.dropscape.com/stats/dropscape/wolfstat.html" -command getwolfcallback]
putserv "PRIVMSG $chan :Retrieving data.. please allow up to 30 seconds.."
}
proc getwolfcallback {token} {
set mydata [::http::data $token]
::http::cleanup $token
processwolfdata $mydata
}
proc processwolfdata {mydata} {
set position [string first "CLASS=\"PLAYERS_FIELDS_NAME_HL\"" $mydata]
set maxlen 0
for {set i 0} {$i <= 10} {incr i} {
set position [string first "<a href" $mydata $position]
set endpos [string first "</a>" $mydata $position]
set name [lindex [split [string range $mydata $position $endpos] <>] 2]
set position [string first "CLASS=\"PLAYERS_FIELDS_HL\"" $mydata $position]
set endpos [string first "</td>" $mydata $position]
set score [lindex [split [string range $mydata $position $endpos] <>] 1]
lappend names [list $name $score]
if {$maxlen < [string length $name]} {set maxlen [string length $name]}
set position [string first "CLASS=\"PLAYERS_FIELDS_NAME_HL\"" $mydata $position]
}
putlog "blah - $maxlen"
set text "Name"
set score "Score"
set maxlens 7
putserv "PRIVMSG #b0ts :| [string repeat "-" $maxlen] | [string repeat "-" $maxlens] |"
putserv "PRIVMSG #b0ts :| ${text}[string repeat " " [expr $maxlen - [string length $text] ]] | ${score}[string repeat " " [expr $maxlens - [string length $score] ]] |"
putserv "PRIVMSG #b0ts :| [string repeat "-" $maxlen] | [string repeat "-" $maxlens] |"
foreach z $names {
putserv "PRIVMSG #b0ts :| [lindex $z 0][string repeat " " [expr $maxlen - [string length [lindex $z 0]] ]] | [lindex $z 1][string repeat " " [expr $maxlens - [string length [lindex $z 1]] ]] |"
#putlog "-[expr [string length [lindex $z 0]] - $maxlen]"
}
}
Code: Select all
[12:58:17] <@[rSu]iridium> !wstat
[12:58:18] <@DeepBlue> Retrieving data.. please allow up to 30 seconds..
[12:58:34] <@DeepBlue> | ---------------- | ------- |
[12:58:35] <@DeepBlue> | Name | Score |
[12:58:36] <@DeepBlue> | ---------------- | ------- |
[12:58:38] <@DeepBlue> | xil-MentholMoose | 459 |
[12:58:40] <@DeepBlue> | [u]Korollary | 414 |
[12:58:42] <@DeepBlue> | [DS-P]StarCat | 339 |
[12:58:44] <@DeepBlue> | f!Spetsnaz | 287 |
[12:58:46] <@DeepBlue> | [BvR]BeaveRmanA | 264 |
[12:58:48] <@DeepBlue> | Decap Latte | 243 |
[12:58:50] <@DeepBlue> | T^0wi^0t | 230 |
[12:58:52] <@DeepBlue> | -xTc][Slowpa!n- | 228 |
[12:58:54] <@DeepBlue> | Slowpa1n | 211 |
[12:58:56] <@DeepBlue> | [u]GrmReap0r | 208 |
[12:58:58] <@DeepBlue> | RobinHood | 205 |