egghelp.org community Forum Index
[ egghelp.org home | forum home ]		 egghelp.org community
Discussion of eggdrop bots, shell accounts and tcl scripts.
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

[Request/Resolved] SearchIRC Network Ranking

 
Post new topic   Reply to topic    egghelp.org community Forum Index -> Script Requests
View previous topic :: View next topic  
Author Message
mr_fanatic
Voice


Joined: 31 Aug 2007
Posts: 11
PostPosted: Wed Aug 26, 2009 3:23 pm    Post subject: [Request/Resolved] SearchIRC Network Ranking Reply with quote
It would be lovely if anyone can code it like this:

<mr_fanatic> !rank Dalnet
<eggdrop> Dalnet ranked #6 out of 5,402

<mr_fanatic> !rank Undernet
<eggdrop> Undernet ranked #2 out of 5,402

Info page: http://searchirc.com/rank/undernet
If its too complex, a display for only one network will be lovely too ^^

Last edited by mr_fanatic on Sat Aug 29, 2009 11:51 am; edited 1 time in total
Back to top
View user's profile Send private message
TCL_no_TK
Owner


Joined: 25 Aug 2006
Posts: 509
Location: England, Yorkshire
PostPosted: Sat Aug 29, 2009 11:31 am    Post subject: Reply with quote
Code:
 package require http

 ..snipped..

 bind pub -|- !rank pub:rank
 setudef flag network-rank

 proc pub:rank {nick host hand chan text} {
  if {[llength $text] == 0} {
   puthelp "NOTICE $nick :Usage: !rank <IRC Network>"
   puthelp "NOTICE $nick :Displays the rank of the given irc network on searchirc"
   return 0
  }
  if {![channel get "$chan" network-rank]} {
   return 0
  }
  set network_name [lindex [split $text] 0]
  return [networkrank "$network_name" "$chan"]
 }

 putlog "loaded searchirc_network_rank.tcl by TCL_no_TK version 1.0"
 return

_________________
TCL the misunderstood

Last edited by TCL_no_TK on Sat Aug 29, 2009 9:11 pm; edited 1 time in total
Back to top
View user's profile Send private message Send e-mail
mr_fanatic
Voice


Joined: 31 Aug 2007
Posts: 11
PostPosted: Sat Aug 29, 2009 11:48 am    Post subject: Reply with quote
Thank you so much. Works perfect!! If anyone is interested in this tcl, usage is: .chanset #channel +network-rank
Back to top
View user's profile Send private message
TCL_no_TK
Owner


Joined: 25 Aug 2006
Posts: 509
Location: England, Yorkshire
PostPosted: Sat Aug 29, 2009 9:10 pm    Post subject: Reply with quote
yw Smile
_________________
TCL the misunderstood
Back to top
View user's profile Send private message Send e-mail
vbirc
Voice


Joined: 20 Oct 2009
Posts: 2
PostPosted: Tue Oct 20, 2009 9:24 am    Post subject: Reply with quote
I see the code, but it has ..snipped.. am I missing something?
Sorry, but I don't see essential code to have it be a working script,
and egghelp tcl archive doesn't have a script for keyword "SearchIRC".

*scratches head*
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    egghelp.org community Forum Index -> Script Requests All times are GMT - 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Forum hosting provided by Reverse.net

Powered by phpBB © 2001, 2005 phpBB Group
subGreen style by ktauber