egghelp/eggheads community

Some fairly easy TCL questions

2004-03-12T14:01:32-04:00

Thanks mate, it works

Statistics: Posted by Real — Fri Mar 12, 2004 2:01 pm

Some fairly easy TCL questions

2004-03-11T15:25:38-04:00

This should work .. but not tested it yet altho i don't realy see the point of sutch script .....

Code:

bind pub - !admin pub:adminset mychan "#telenet.to"proc pub:admin {nick host hand chan arg} {  global mychan   if {[string match -nocase $mychan $chan]} {     foreach user [chanlist $chan] {      if {[isop $user $chan]} {        if {[info exists list]} {          append list " $user"        } else {          set list "$user"        }              }     }    putserv "PRIVMSG $chan :\0034$list -- \0037Admin needed! \00310Reason: [lrange $arg 0 end]"  } }

Statistics: Posted by Ofloo — Thu Mar 11, 2004 3:25 pm

Some fairly easy TCL questions

2004-03-11T14:54:28-04:00

It doesn't on mine :/

Can somebody see what's wrong?

Statistics: Posted by Real — Thu Mar 11, 2004 2:54 pm

Some fairly easy TCL questions

2004-03-11T13:09:26-04:00

I think you should have read my previous post. Do you mean 'pub'

It worked on my eggdrop with the bind pubm....

Statistics: Posted by Xpert — Thu Mar 11, 2004 1:09 pm

Some fairly easy TCL questions

2004-03-11T12:58:16-04:00

lol, and i thought you removed it:P
I think this code will worked:
Code:
bind pubm - !admin pub:admin...

I think you should have read my previous post. Do you mean 'pub'?

Statistics: Posted by user — Thu Mar 11, 2004 12:58 pm

Some fairly easy TCL questions

2004-03-11T11:51:59-04:00

lol, and i thought you removed it:P
I think this code will worked:

Code:

bind pubm - !admin pub:admin proc pub:admin {nick host hand chan args} {   if {$chan == "#telenet.to"]} {     set list ""     foreach nick2 [chanlist $chan] {       if {[isop $nick2 $chan]} {         append list " $nick2"       }     }     putserv "PRIVMSG $chan :\0034$list -- \0037Admin needed! \00310Reason: [lrange $args 1 end]"   } }

Statistics: Posted by Xpert — Thu Mar 11, 2004 11:51 am

Some fairly easy TCL questions

2004-03-11T11:48:41-04:00

I forgot to paste it, it's in my TCL script though :p

And it doesnt work

Statistics: Posted by Real — Thu Mar 11, 2004 11:48 am

Some fairly easy TCL questions

2004-03-11T11:43:26-04:00

Where's the bind gone?:)
Add this bind to your script:

Code:

bind pubm - !admin pub:admin

Statistics: Posted by Xpert — Thu Mar 11, 2004 11:43 am

Some fairly easy TCL questions

2004-03-11T11:47:35-04:00

Code:

bind pubm - "!admin *" pub:adminproc pub:admin {nick host hand chan args} { if {[string equal -nocase $chan "#telenet.to"]} {   set list ""   foreach nick2 [chanlist $chan] {     if {[isop $nick2 $chan]} {       append list " $nick2"     }   }   putserv "PRIVMSG $chan :\0034$list -- \0037Admin needed! \00310Reason: [lrange $args 1 end]" } }

Can somebody then tell me why this doesn't work? Thanks

Doesn't it have to be "bind pub" instead of "bind pubm" ?

And {nick mask hand channel args} instead of {nick host hand chan args} ?

Just guessing a bit

Statistics: Posted by Real — Thu Mar 11, 2004 11:40 am

RTFM!

2004-03-10T13:26:54-04:00

bind pubm - "!admin *" pub:admin

doc/tcl-commands.doc - bind pubm

The mask is matched against the channel name followed by the text

Statistics: Posted by user — Wed Mar 10, 2004 1:26 pm

Some fairly easy TCL questions

2004-03-09T15:10:01-04:00

Code:

bind pubm - "!admin *" pub:admin proc pub:admin {nick host hand chan args} { if {[string equal -nocase $chan "#anychannel"]} {  set list ""   foreach nick2 [chanlist $chan] {     if {[isop $nick2 $chan]} {       append list " $nick2"     }   }   putserv "PRIVMSG $chan :4$list -- 7Admin needed! 10Reason: [lrange $args 1 end]" } }

Statistics: Posted by Careto — Tue Mar 09, 2004 3:10 pm

Some fairly easy TCL questions

2004-03-09T13:15:10-04:00

Thanks very much, I can't test it now, since the person who can update the eggdrop is offline.

One more question though, can you change it so that it only works on 1 channel?
Thank you!

Statistics: Posted by Real — Tue Mar 09, 2004 1:15 pm

Some fairly easy TCL questions

2004-03-09T07:24:39-04:00

Try this code:

Code:

bind pubm - "!admin *" pub:adminproc pub:admin {nick host hand chan args} {  set list ""  foreach nick2 [chanlist $chan] {    if {[isop $nick2 $chan]} {      append list " $nick2"    }  }  putserv "PRIVMSG $chan :4$list -- 7Admin needed! 10Reason: [lrange $args 1 end]"}

I think it should work, but i didn't test it.
Hope it helps

Statistics: Posted by Xpert — Tue Mar 09, 2004 7:24 am

Some fairly easy TCL questions

2004-03-08T17:26:03-04:00

ok so my first problem is solved, but there's still the !admin problem, and I think this one's really hard.

Can anyone help me with this please? :-/

Statistics: Posted by Real — Mon Mar 08, 2004 5:26 pm

Some fairly easy TCL questions

2004-03-08T11:43:33-04:00

Hello,

I can use a shell of a friend of mine to put my irc bot on. But I don't know anything about TCL scripts, so I'm going to ask some help here

EDIT: *first problem solved*

Next, there's the !admin command. Everybody can use the !admin command. This will highlight every op on the channel, and give them to reason.
Example:

PersonA: !admin Just testing.
Eggbot: Op1 , Op2 , Op3 Message: Just testing.

I have this in my irc script already, but I have no idea how to write it in TCL, if it's even possible.
The irc script is:

Code:

on 1:TEXT:!admin *:#here:{  set %i 1   set %list $null   :next   set %nick $nick(#,%i,o)   if %nick == $null goto done   %lijst = %list $chr(32) $+ %nick   inc %i   goto next   :done   /msg $chan 4 $+ %list -- 7Admin needed! 10Reason: $2-}

Please help

Statistics: Posted by Real — Mon Mar 08, 2004 11:43 am