Voice joiners to a channel

[maxie]

Hopefully this should be fairly simple.

Hope you can provide a tcl equivalent of this mrc code :-

ON *:JOIN:#:{
if $left($nick,6) == [Clan] && $me isop # && $nick != $me { mode # +v $nick }
}


Basically channels where the bot is an op to voice users who's nick match certain criteria i.e. their names are [Clan].

[Alchera]

Add a user using the required nick as a host and setting the channel flags '+fg'.

Code: Select all

.+user [Clan]
.+host [Clan] [Clan]!*@*
.chattr [Clan] +fg #channel

[cannot_delete]

this would be the same as tcl:

Code: Select all

#check on join: 
bind join - * voice_on_joined 

#procedere on join: 
proc voice_on_joined {nick host handle channel} { 

  #set the name of your chanserv. just "chanserv" won't work. 
  set chanserv "chanserv@services.gamesurge.net" 

  #set the channel in which the user will be voiced. $channel will be all 
  set voicechannel "#Quiz.de" 

  #setting criteria
  set criteria "\[Clan\]"


   if {![regexp -nocase -- $nick $criteria] || $channel != $voicechannel} {
  
    #if nick won't match the criteria or nick doesnt join the right channel  the script will halt
    return 
    } 

    #sending voice-command to chanserv 
    putquick "PRIVMSG $chanserv :$channel voice $nick" 
  
}

[speechles]

this would be the same as tcl:

Code: Select all

if {![regexp -nocase -- $nick $criteria] || $channel != $voicechannel} {

that isn't equivalent to $left($nick,6)... remember, he used "if $left($nick,6) == [Clan]"

Code: Select all

if {![string match [join [lrange [split $nick] 0 5]] $criteria] || $channel != $voicechannel} {

This is actually closer to $left's function in mirc/basic.
But all this is actually irrelevant, as using eggdrops "built-in" capability (aka, Alchera's suggestion) to do this supersedes in both speed and function the equivalent in a tcl script.

Alchera most likely meant to use .+host [Clan] [Clan]*!*@* as well. So any person using the [clan] prefix on their nickname would be voiced and match the entry.

[cannot_delete]

ok, I don't know mirc

and yes, alchera's way is much easier but i thought he was looking for an tcl-script. and i was bored...

regards,

-typ-