egghelp/eggheads community

Tcl Problem: Command for the user count on a channel

2004-10-27T14:03:32-04:00

Mhm, Sorry
It's not my mind.

Thx for the help

If anybody will help me:
demian@demian-hartmann.de

*closed*

Statistics: Posted by Guest — Wed Oct 27, 2004 2:03 pm

Tcl Problem: Command for the user count on a channel

2004-10-27T13:45:31-04:00

The topic seems abit off, you don't have a problem, you just want us to make half your script

Statistics: Posted by metroid — Wed Oct 27, 2004 1:45 pm

Tcl Problem: Command for the user count on a channel

2004-10-27T06:03:00-04:00

Yes I understand,
But I dont know much from tcl.
So,
I dont know how I script this,
Do you can help me?

Code:

         bind raw            procname

this is the command. I know and this come in a new file.
But how I set the values?
and how I link the 2 scripts?

Statistics: Posted by Guest — Wed Oct 27, 2004 6:03 am

Tcl Problem: Command for the user count on a channel

2004-10-25T09:42:15-04:00

join is not a tcl command.

wrong.

Code:

channel add $channelset total [llength [chanlist $channel]]

This will not work, as the bot won't join the channel before your proc returns. After joining, eggdrop will perform /MODE #chan +b, /MODE #chan, /WHO #chan. "chanlist" will not be complete untill the END OF /WHO reply (315) is recieved by your bot. You need a delay or a raw bind to make sure you don't check the llength of [chanlist $channel] untill the list is complete. (so you'll need to split your code into two procs)

Statistics: Posted by user — Mon Oct 25, 2004 9:42 am

Tcl Problem: Command for the user count on a channel

2004-10-24T17:46:31-04:00

Yes, I learn Tcl ^^
Thank you for the Help file.
I read that now.

But The Script isn't that what I want.
Here ist the full script:

Code:

# BotRequest by Domian # #Domi @ Quakenet# Version 0.1# Command:# !request  <#Channel> # Settingsset botnicks "Bello` KriXDesiGn"# Here are the Botnicks which can requested# Here beginn the scriptbind pub -|- !request pub:requestproc pub:request {nick uhost handle chan text} {global botnicks receiver waittime  set ipmask [lindex [split [maskhost $nick![getchanhost $nick $chan]] "@"] 1]  set userm [lindex [split [getchanhost $nick $chan] "@"] 0]  set userhost *!*$userm@$ipmask  set requestbot [lindex [split $text " "] 0]  set channel [lindex [split $text " "] 1]  set email [lindex [split $text " "] 2]    if {$requestbot == ""} {      putserv "NOTICE $nick :Wrong !request-format."      putserv "NOTICE $nick :To request use: 4!request  #channel "      putserv "NOTICE $nick :You also need an e-mail acc and 10 or more Members in the requested channel."      } else {      if {$channel == ""} {        putserv "NOTICE $nick :Wrong !request-format."        putserv "NOTICE $nick :To request use: 4!request  #channel "        putserv "NOTICE $nick :You also need an e-mail acc and 10 or more Members in the requested channel."        } else {        if {[string first "#" $channel] == -1} {          putserv "NOTICE $nick :Wrong !request-format."          putserv "NOTICE $nick :To request use: 4!request  #channel "          putserv "NOTICE $nick :You also need an e-mail acc and 10 or more Members in the requested channel."          } else {           if {[string first $requestbot $botnicks] != -1} {             if {$channel != ""} {               if {$email != ""} {                 putserv "NOTICE $nick :Request send."                 channel add $channel                 set total [llength [chanlist $channel]]                 if { $total >= 10} {                     putserv "NOTICE $nick :The Bot will soon join."                   putbot $requestbot .join $channel"                   putbot $requestbot .adduser $nick $userhost"                   putbot $requestbot .chattr $nick +n $channel"                   }} else {                     putserv "NOTICE $nick :The Channel is to small, the Bot won't join"               }             }             } else {             putserv "NOTICE $nick :You typed a wrong bot-nick. Known bot-nick's are:"             putserv "NOTICE $nick :$botnicks"           }         }       }     }   }putlog "Loaded BotRequest 0.1 by Domian"

Do you know now what I will?
The bot join the channel, and he send the first notice.
But the user count script ...
there ist a mistake.

Sorry for my bad english...

Statistics: Posted by Guest — Sun Oct 24, 2004 5:46 pm

Tcl Problem: Command for the user count on a channel

2004-10-24T12:17:48-04:00

yanno, you will never, ever be able to write this script without FIRST reading tcl-commands.doc. This document is vital for the scripter... every question you have asked could be answered with the information contained within that doc.... and then some.
The script you seek to create, believe it or not, has already been written, for the most part, as a netbots component by Johoho named cdiss.tcl... I'm sure it would be easier for you to rewrite this tcl than to write your own.

Statistics: Posted by YooHoo — Sun Oct 24, 2004 12:17 pm

Tcl Problem: Command for the user count on a channel

2004-10-24T08:40:36-04:00

Thx, The bot joint now the channel.

Code:

                 putserv "NOTICE $nick :Request send."                 channel add $channel                 putserv "NOTICE $nick :The Bot will soon join."                 putbot $requestbot .join $channel"                 putbot $requestbot .adduser $nick $userhost"                 putbot $requestbot .chattr $nick +n $channel"

So,
But how I told the Bot that he look the user count,
and if the user count ist higher than 10 he give the user the flags.
but if in the channel are less than 10 user, they part.

Can you help me?

Statistics: Posted by Guest — Sun Oct 24, 2004 8:40 am

Tcl Problem: Command for the user count on a channel

2004-10-24T05:39:28-04:00

The command is not "join", which by the way, is not a tcl command. The command you seek is channel add, read all about it in tcl-commands.doc

Statistics: Posted by YooHoo — Sun Oct 24, 2004 5:39 am

Tcl Problem: Command for the user count on a channel

2004-10-24T04:56:46-04:00

No,

Code:

                 putserv "NOTICE $nick :Request send."                  join $channel                  putserv "NOTICE $nick :The Bot will soon join."

The bot send the first notice, after 3 seconds the bot send the second notice,
But he doesn't join the channel. and the join command is inside the notices.

Statistics: Posted by Guest — Sun Oct 24, 2004 4:56 am

Tcl Problem: Command for the user count on a channel

2004-10-24T04:40:14-04:00

if the bot is sending the replys or the data i am asuming to the ohter bot .. then you should check that other bot..

Statistics: Posted by Ofloo — Sun Oct 24, 2004 4:40 am

Tcl Problem: Command for the user count on a channel

2004-10-24T05:39:13-04:00

Thank you,

Another Problem:

Code:

           if {[string first $requestbot $botnicks] != -1} {             if {$channel != ""} {               if {$email != ""} {                 putserv "NOTICE $nick :Request send."                 join $channel                 putserv "NOTICE $nick :The Bot will soon join."                 putserv "PRIVMSG $requestbot :.join $channel"                 putserv "PRIVMSG $requestbot :.adduser $nick $userhost"                 putserv "PRIVMSG $requestbot :.chattr $nick +n $channel"

The bot send the notice, but he doesn't join.
where is the mistake?

The Script with the user is after the join command.
The bot join the Channel,
look the user count,
and if there more than 10 user,
the $requestbot will join,

Statistics: Posted by Guest — Sun Oct 24, 2004 4:17 am

Tcl Problem: Command for the user count on a channel

2004-10-23T22:24:05-04:00

Code:

bind dcc - chanstat dcc:chanstatproc dcc:chanstat {hand idx text} { set chan [lindex [split $text] 0] if {$chan == ""} {   putidx $idx "Usage: .chanstat <#channel>"   return } set ops 0; set voice 0; set users 0 foreach user [chanlist $chan] {   if {[isop $user $chan]} {     incr ops   } elseif {[isvoice $user $chan]} {     incr voice   } else {     incr users  } } set total [expr $ops+$voice+$users] putidx $idx "ChanStats $chan: $ops ops, $voice voice, $users users (total $total)"}

Statistics: Posted by greenbear — Sat Oct 23, 2004 10:24 pm

Tcl Problem: Command for the user count on a channel

2004-10-23T20:15:04-04:00

Hello,
I need a Tcl command, where the bot tell me the user count on a channel. not a peak script,
but the user count.

example:
5 ops,
2 voice,
20 other user.

I need this for a Bot request script.
a user post !request botname #channel
the requestbot join den channel.
if there more than 10 user
the requestbot leave the chan
and the bot with the botname join the channel,
thats is,
and for this I need a script.
The Beginning is finished,
but the requestbot will'nt join the channel,
and i dont know how much user are on the channel.

I hope anyone can help me.

Statistics: Posted by Guest — Sat Oct 23, 2004 8:15 pm