This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.

For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

scan chan tcl

Old posts that have not been replied to for several years.
Locked
User avatar
avilon
Halfop
Posts: 64
Joined: Tue Jul 13, 2004 6:58 am
Location: Germany

Post by avilon »

Code: Select all

bind msg n|- "scan" scan:channel

proc scan:channel {nick uhost hand text} {
	global scanning
	set chan [lindex [split $text] 0]
	if {[string match "#?*" $chan]&&![validchan $chan]} {
		channel add $chan
		set scanning($chan) $nick
		bind raw - 315 check:channel
	}
}

proc check:channel {from key text} {
	global scanning
	set chan [lindex [split $text] 1]
	if {[botonchan $chan]&&[info exists scanning($chan)]} {
		set total_users [llength [chanlist $chan]]
		putquick "PRIVMSG chanserv :INFO $chan"
		putquick "PRIVMSG $scanning($chan) :Total users on $chan: $total_users"
		unset scanning($chan)
		channel remove $chan
	}
	unbind raw - 315 check:channel
}
I'm short on experience concerning raws, I tested it on QuakeNet (ircu/asuka), where raw 315 catches "End of /WHO list".
Last edited by avilon on Fri Nov 11, 2005 8:05 am, edited 1 time in total.
Top
M
MasterScript
Halfop
Posts: 41
Joined: Tue Apr 26, 2005 1:44 am

Post by MasterScript »

Thanks a lots.

Bots didint part from channel for second time checking. I am testing on webchat server.
Top
M
MasterScript
Halfop
Posts: 41
Joined: Tue Apr 26, 2005 1:44 am

Post by MasterScript »

My problem now is bots didint give founder nick just channel info at party line. I want bots send msg to #MyHUB:

1. how many user
2. Clones if bots find it
3. Channel Founder

Like this:
scan on #iwebteam: duration(0.05) clones(0) usercount(150) founder(MasterScript)
Thanks
Top
User avatar
Sir_Fz
Revered One
Posts: 3794
Joined: Sun Apr 27, 2003 3:10 pm
Location: Lebanon
Contact:
Contact Sir_Fz

Post by Sir_Fz »

what does the info command return from chanserv ?
Top
User avatar
avilon
Halfop
Posts: 64
Joined: Tue Jul 13, 2004 6:58 am
Location: Germany

Post by avilon »

Sir_Fz wrote:what does the info command return from chanserv ?
MasterScript wrote:
-ChanServ- *** #iWEBTEAM is iWEBTEAM Enterprise http://www.iwebteam.com
-ChanServ- Founder : MasterScript
-ChanServ- CSN : 101983
-ChanServ- Registered : 12/09/04 10:58:44 GMT
-ChanServ- Last Opping : 04/26/05 09:58:39 GMT
-ChanServ- Last Topic : Selamat Datang Ke Laman http://www.iwebteam.com http://www.mircmalaysia.com/index.php?o ... &Itemid=52 (MasterScript)
-ChanServ- ModeLock : +rtn-k
-ChanServ- Options : ModeLock, OpGuard, KeepTopic
-ChanServ- MemoLevel : UOp
-ChanServ- *** End of info ***
Top
User avatar
Sir_Fz
Revered One
Posts: 3794
Joined: Sun Apr 27, 2003 3:10 pm
Location: Lebanon
Contact:
Contact Sir_Fz

Post by Sir_Fz »

Code: Select all

bind notc - "*Founder :*" got:info

proc got:info {nick uhost hand arg dest} {
 global gotfounder
 if {[isbotnick $dest]} {
  set gotfounder [lindex [split $arg] 2]
 }
}
this should set the founder's nick in $gotfounder.
Top
M
MasterScript
Halfop
Posts: 41
Joined: Tue Apr 26, 2005 1:44 am

Post by MasterScript »

I am on irc.webchat.org

/msg chanserv info #channame

Example:
-ChanServ- *** #iWEBTEAM is iWEBTEAM Enterprise http://www.iwebteam.com
-ChanServ- Founder : MasterScript
-ChanServ- CSN : 101983
-ChanServ- Registered : 12/09/04 10:58:44 GMT
-ChanServ- Last Opping : 04/26/05 09:58:39 GMT
-ChanServ- Last Topic : Selamat Datang Ke Laman http://www.iwebteam.com http://www.mircmalaysia.com/index.php?o ... &Itemid=52 (MasterScript)
-ChanServ- ModeLock : +rtn-k
-ChanServ- Options : ModeLock, OpGuard, KeepTopic
-ChanServ- MemoLevel : UOp
-ChanServ- *** End of info ***
Top
Locked

Return to “Archive”