Join Room Script (Modify)

[cache]

Code: Select all

bind MSG -|- "join" msg:join 
bind MSG -|- "part" msg:part 

proc msg:join {nick uhost handle text} { 
        set chan [lindex [split $text] 0] 
        channel add $chan 
        putserv "PRIVMSG $chan :Invited by $nick" 
} 

proc msg:part {nick uhost handle text} { 
        set chan [lindex [split $text] 0] 
        channel remove $chan 
} 

Can someone please modify this so that when it adds a channel to the eggdrop.chan file and adds chansets like +weather +horoscope +alice ?

Thanks

[tomekk]

try:

Code: Select all

set chan_sets "+weather +horoscope +alice"

#################################################
bind MSG -|- "join" msg:join
bind MSG -|- "part" msg:part

proc msg:join {nick uhost handle text} {
        global chan_sets

        set chan [lindex [split $text] 0]
        channel add $chan
        channel set $chan $chan_sets
        putserv "PRIVMSG $chan :Invited by $nick"
}



proc msg:part {nick uhost handle text} {
        set chan [lindex [split $text] 0]
        channel remove $chan
}

[nml375]

That won't work, as "channel set" (contrary to "channel add") expects each setting as a separate argument rather than a list of settings.

The two examples below should work though (and also illustrates the difference between channel set and channel add

Code: Select all

...proc msg:join {nick uhost handle text} {
  set chan [lindex [split $text] 0]
  channel add $chan "+weather +horoscope +alice"
  putserv "PRIVMSG $chan :Invited by $nick"
}...

Or

Code: Select all

...proc msg:join {nick uhost handle text} {
  set chan [lindex [split $text] 0]
  channel add $chan
  channel set $chan +weather +horoscope +alice
  putserv "PRIVMSG $chan :Invited by $nick"
}...

[tomekk]

That won't work, as "channel set" (contrary to "channel add") expects each setting as a separate argument rather than a list of settings.

The two examples below should work though (and also illustrates the difference between channel set and channel add

Code: Select all

...proc msg:join {nick uhost handle text} {
  set chan [lindex [split $text] 0]
  channel add $chan "+weather +horoscope +alice"
  putserv "PRIVMSG $chan :Invited by $nick"
}...

Or

Code: Select all

...proc msg:join {nick uhost handle text} {
  set chan [lindex [split $text] 0]
  channel add $chan
  channel set $chan +weather +horoscope +alice
  putserv "PRIVMSG $chan :Invited by $nick"
}...

exactly,
to lazy to check before

Code: Select all

set chan_sets "+weather +horoscope +alice"

#################################################
bind MSG -|- "join" msg:join
bind MSG -|- "part" msg:part

proc msg:join {nick uhost handle text} {
        global chan_sets

        set chan [lindex [split $text] 0]
        channel add $chan

        foreach chan_set [split $chan_sets] {
                if {$chan_set != ""} {
                        channel set $chan $chan_set
                }
        }

        putserv "PRIVMSG $chan :Invited by $nick"
}

proc msg:part {nick uhost handle text} {
        set chan [lindex [split $text] 0]
        channel remove $chan
}

ty.

[Rapfnny]

This is really familiar