a simple tcl script

[Fedtmule]

hello again.

I have a Eggdrop running on my channel and whan some command.

!qop <nickname> - Give him 9999 level ~
!aop <nickname> give him level 10 &
!sop <nickname> give him level 5 @
!op <nickname> give him level 4 %
!voice <nickname> give him level 3 +

can it be do

[Dandy]

First of all, eggdrop doesn't use that kind of levels. Second i don't even know if eggdrop supports ~&%

[Fedtmule]

First of all, eggdrop doesn't use that kind of levels. Second i don't even know if eggdrop supports ~&%

but !op <nickname> does and why not other levels

[Fedtmule]

First of all, eggdrop doesn't use that kind of levels. Second i don't even know if eggdrop supports ~&%

but !op <nickname> does and why not other levels

/mode #channel +q $nick gives level ~
/mode #channel +ao $nick gives level &
/mode #channel +o $nick gives level @
/mode #channel +h $nick gives level %
/mode #channel +v $nick gives level +

[Cristian]

Just to be sure.

Where do you wish to use the script? (what network or IRCd)
What should it do exactly? (Give channel status or eggdrop user level)

[Fedtmule]

Just to be sure.

Where do you wish to use the script? (what network or IRCd)
What should it do exactly? (Give channel status or eggdrop user level)

IRC server irc.p2p-network.net

[Cristian]

I'm not sure that eggdrops support owners,admins(userflags) I have to check that out, but its possible to give channelstatus.

[Cristian]

Commands:

!qop <nickname> - gives channelstatus ~ (owner)
!aop <nickname> - gives channelstatus & (admin)
!op <nickname> - gives channelstatus @ (op)
!hop <nickname> - gives channelstatus % (halfop)
!voice <nickname> - gives channelstatus + (voice)

Change:

Channel - (Default: *)
Trigger - if you want to (Default: \!)
Flags - if others are needed. (Default: m|m)

Code: Select all

namespace eval public {

   namespace eval variable {
      variable channel "*"
      variable trigger "\!"
      variable flags "m|m"
   }

   bind PUBM $::public::variable::flags "$::public::variable::channel $::public::variable::trigger*" [namespace current]::public

   proc public {nickname hostname handle channel arg} {
      set s "[string trimleft "[lindex [split $arg] 0]" "$::public::variable::trigger"]"
      switch $s {
         qop {
            set victim "[lindex [split $arg] 1]"
            if {[onchan $victim $channel]} {
               putserv "MODE $channel +q $victim"
               putserv "PRIVMSG $channel : Giving channelstatus (+q) to $victim"
            }
         }
         aop { 
            set victim "[lindex [split $arg] 1]"
            if {[onchan $victim $channel]} {
               putserv "MODE $channel +a $victim"
               putserv "PRIVMSG $channel : Giving channelstatus (+a) to $victim"
            } 
         }
         op {
            set victim "[lindex [split $arg] 1]"
            if {[onchan $victim $channel]} {
               putserv "MODE $channel +o $victim"
               putserv "PRIVMSG $channel : Giving channelstatus (+o) to $victim"
            }
         }
         hop {
            set victim "[lindex [split $arg] 1]"
            if {[onchan $victim $channel]} {
               putserv "MODE $channel +h $victim"
               putserv "PRIVMSG $channel : Giving channelstatus (+h) to $victim"
            }
         }
         voice {
            set victim "[lindex [split $arg] 1]"
            if {[onchan $victim $channel]} {
               putserv "MODE $channel +v $victim"
               putserv "PRIVMSG $channel : Giving channelstatus (+v) to $victim"
            }
         }
      }
   }
}

Enjoy