egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2006-08-15T18:43:20-04:00 https://forum.eggheads.org/app.php/feed/topic/12287 2006-08-15T18:43:20-04:00 2006-08-15T18:43:20-04:00 https://forum.eggheads.org/viewtopic.php?p=65504#p65504 <![CDATA[stats from the web]]>
Also, seems like pieces of code is actually missing there.. you use gets on a file that you hav'nt opened..
That would be because we're cannibalising other's code and then asking in the forums to sort it out. :)

Statistics: Posted by Alchera — Tue Aug 15, 2006 6:43 pm

]]> 2006-08-15T15:24:09-04:00 2006-08-15T15:24:09-04:00 https://forum.eggheads.org/viewtopic.php?p=65492#p65492 <![CDATA[stats from the web]]>
edit:
I'd also suggest you read up on your tcl-manual, to get atleast a basic understanding on how to use [], {}, basic commands such as "set", how to use lists and strings (ie. not using list commands on strings), knowing that variable names are case sensitive

Also, seems like pieces of code is actually missing there.. you use gets on a file that you hav'nt opened..

Probably a few more flaws/faults that I failed to notice while skimming thru that code...

Statistics: Posted by nml375 — Tue Aug 15, 2006 3:24 pm

]]> 2006-08-15T15:08:35-04:00 2006-08-15T15:08:35-04:00 https://forum.eggheads.org/viewtopic.php?p=65491#p65491 <![CDATA[stats from the web]]>

Code: 

set webport 80set webserv "www.nintendowifi.com"set webpath "/gaminghub/MetroidHuntersLicenseFrame.jsp?gspid="set localfilename "wifi/gspid.txt"set update_feq 120set update_in_progress 0set outfile ""bind pub - &stats pub:statsproc func:read_stats_data {text} {if {[file exists $localfilename r]set mph_stats ""while {!{eof $localfile]} {gets $localfile mph_stats_tempappend mph_stats "-$mph_stats_temp"set overall rank_temp [join [list [split $mph_stats_temp :]]]set Alt_kills [lindex $kills_temp 1]if {$Alt_kills < 6} Pset mph_top_five($alt_kills) "Driver: [lindex $rank_temp 0] Rank: [lindex $Rank_temp 1]Game wons: [lindex $rank_temp 2]"}}putlog "Mphstats.tcl -$localfilename."close $localfile}}proc pub:stats {nick host handle chan text} {global statsglobal mph_top_fiveset query_name [string trim $text]if {]string match "" $text] } {set mph_top_five_i 1putserv "PRIVMSG $chan :MPH top 5 players..."while {$mph_top_fivw_i < 6} {putserv "PRIVMSG $chan :$mph_top_five($mph_top_five_i)"incr mph_top_five_i}} else {foreach mph_stat [join [list [split $mph_stats "-" ]]] {         set driver_data [join [list [split [string trim $mph_stat] : ]]]         if { [string match -nocase "*$query_name*" [lindex $driver_data 0]] } {            putserv "PRIVMSG $chan :Driver: [lindex $mph_data 0]   Rank: [lindex $mphr_data 1]   Points: [lindex $mph_data 2]"         }      }   }}
why doesnt it display the info

Statistics: Posted by monie089 — Tue Aug 15, 2006 3:08 pm

]]>