egghelp/eggheads community

scan chan tcl

2005-05-05T09:27:35-04:00

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 ***

Statistics: Posted by MasterScript — Thu May 05, 2005 9:27 am

scan chan tcl

2005-05-04T16:38:23-04:00

Code:

bind notc - "*Founder :*" got:infoproc 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.

Statistics: Posted by Sir_Fz — Wed May 04, 2005 4:38 pm

scan chan tcl

2005-05-04T16:31:31-04:00

what does the info command return from chanserv ?

-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 ***

Statistics: Posted by avilon — Wed May 04, 2005 4:31 pm

scan chan tcl

2005-05-04T12:21:29-04:00

what does the info command return from chanserv ?

Statistics: Posted by Sir_Fz — Wed May 04, 2005 12:21 pm

scan chan tcl

2005-05-04T01:30:12-04:00

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

Statistics: Posted by MasterScript — Wed May 04, 2005 1:30 am

scan chan tcl

2005-05-03T05:23:10-04:00

Thanks a lots.

Bots didint part from channel for second time checking. I am testing on webchat server.

Statistics: Posted by MasterScript — Tue May 03, 2005 5:23 am

scan chan tcl

2005-11-11T08:05:46-04:00

Code:

bind msg n|- "scan" scan:channelproc scan:channel {nick uhost hand text} {global scanningset chan [lindex [split $text] 0]if {[string match "#?*" $chan]&&![validchan $chan]} {channel add $chanset scanning($chan) $nickbind raw - 315 check:channel}}proc check:channel {from key text} {global scanningset 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".

Statistics: Posted by avilon — Sat Apr 30, 2005 10:49 am

scan chan tcl

2005-04-30T06:54:14-04:00

do [llength [chanlist $chan]] when you recieve end-of-who

Statistics: Posted by spock — Sat Apr 30, 2005 6:54 am

scan chan tcl

2005-04-30T06:41:27-04:00

Then what is your suggestion?

Thanks

Statistics: Posted by MasterScript — Sat Apr 30, 2005 6:41 am

scan chan tcl

2005-04-30T03:14:07-04:00

you have do the whole with thing interactiv or at least timer based.
in awyeahs example 'channel remove $chan' is invoked before 'putquick "JOIN $chan"' has left the bot, meaning the bot has here 'set total_users [llength [chanlist $chan]]' an empty list ^-^.

PS: i dont believe it was meant as a complete script .
btw. 'putquick "JOIN $chan"' is redudant, because 'channel add' will invoke a JOIN anyway.

Statistics: Posted by De Kus — Sat Apr 30, 2005 3:14 am

scan chan tcl

2005-04-29T23:58:24-04:00

Thanks.

Scan Channel
-> *MyBot* scan #phpnuke

In private message:
*MyBot* Total ops on #phpnuke: 0

In party line
[11:56] joined #phpnuke but didn't want to!
and channel info bla bla....

Problem:
1. Bots dont get total user
2. bots didint give founder infomation
3. Bots has been ban

* MyBot (MyBot@=uYhgmefu.gunbound.com.my) has joined #phpnuke
* MyBot (MyBot@=uYhgmefu.gunbound.com.my) has left #phpnuke
* encik sets mode: +b *!*@=uYhgmefu.gunbound.com.my

Statistics: Posted by MasterScript — Fri Apr 29, 2005 11:58 pm

scan chan tcl

2005-04-28T10:45:23-04:00

Code:

bind msg n "scan" scan:channelproc scan:channel {nick uhost hand text} { if {[string equal "#" [string index $text 0]]} {  set chan [lindex $text 0]#Add the channel to the bots channel list and join it  channel add $chan; putquick "JOIN $chan"#Getting total channel users here    set total_users [llength [chanlist $chan]]#Doing ChanServ INFO here  putquick "PRIVMSG chanserv :INFO $chan"#Displaying one of the gotten results  putquick "PRIVMSG $nick :Total ops on $chan: $total_users"#Remove the channel from the bot's channel list  channel remove $chan  }}

Statistics: Posted by awyeah — Thu Apr 28, 2005 10:45 am

scan chan tcl

2005-04-28T05:46:49-04:00

Thanks.

Now i try make scan channel like this:

/msg botnick scan #chan

Bots Action:

1. join channel
2. scan channel for :
a) How many user in channel
b) check for clones
c) founder
3. part from channel
4. report to my channel (HUB channel)

but i dont know how to make bot join/part. I try use "cycle" but bots didint scan channel.

*Newbies

Statistics: Posted by MasterScript — Thu Apr 28, 2005 5:46 am

scan chan tcl

2005-04-27T15:01:40-04:00

Main proc, meaning your main procedure, which will scan total operators, clones etc. You have to have 2-3 procedures with 2 binds atleast for this script to work -- give 3 output results.

Statistics: Posted by awyeah — Wed Apr 27, 2005 3:01 pm

scan chan tcl

2005-04-27T03:32:46-04:00

What do u mean #For your main proc and #Bind on notc and make a proc with this?

This one you can do something like:

Code:

#For your main proc - scanning one you can do this: putserv "PRIVMSG chanserv :INFO $chan" set doscan($chan) 1

and then:

Code:

#Bind on notc and make a proc with this: global doscan if {[info exists doscan($chan)] && [string equal "ChanServ" $nick] && && [isbotnick $chan] && [string equal "Founder" [lindex $text 0]] && [string equal ":" [lindex $text 1]]} { set chanfounder [lindex $text 2]; unset doscan}#Then you can set $chanfounder global and use it in your main proc

Statistics: Posted by MasterScript — Wed Apr 27, 2005 3:32 am