Some fairly easy TCL questions

[Real]

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 <reason> 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: Select all

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

[Real]

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? :-/

[Xpert]

Try this code:

Code: Select all

bind pubm - "!admin *" pub:admin
proc 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

[Real]

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!

[Careto]

Code: Select all

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]" 
} 
}

[user]

bind pubm - "!admin *" pub:admin

bind pubm - "!admin *" pub:admin

doc/tcl-commands.doc - bind pubm

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

[Real]

Code: Select all

bind pubm - "!admin *" pub:admin

proc 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

[Xpert]

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

Code: Select all

bind pubm - !admin pub:admin

[Real]

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

And it doesnt work

[Xpert]

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

Code: Select all

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]" 
  } 
}

[user]

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

Code: Select all

bind pubm - !admin pub:admin
...

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

[Xpert]

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

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

[Real]

It doesn't on mine :/

Can somebody see what's wrong?

[Ofloo]

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

Code: Select all

bind pub - !admin pub:admin

set 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]"
  } 
}

[Real]

Thanks mate, it works