| View previous topic :: View next topic |
| Author |
Message |
Djoezy
Voice
Joined: 30 Mar 2008
Posts: 6
|
 Posted: Fri Nov 21, 2008 9:48 am Post subject: [Help] setting need-invite/key/op/unban in every channel |
 |
|
hello guys, i'm working om my own script right now.
I dont know if this is the right forum because it are eggdrop commands in a tcl script. So i thought this was the best place.
The script contains a little protection from some modes from channelusers. Like -o/kick. This works quite allright.
And i also want's too have the bot too msg Q (quakenet channel service)
too grant him op/invite/unban on the channel.
Well this is possible because i have checked it out (i set the commands in chanlist manually)
This is what is have in my script
| Quote: |
if {[channel get $channel bot:masterflags]} {
channel set $channel need-invite {putserv "PRIVMSG Q :invite $channel"}
channel set $channel need-key {putserv "PRIVMSG Q :clearchan $channel"}
channel set $channel need-unban {putserv "PRIVMSG Q :banclear $channel"}
channel set $channel need-op {putserv "PRIVMSG Q  p $channel"}
|
This is a part of a script who's setting channelsetting every 6 hours.. the rest of the "channel set" works.
I want this too be like this ( this is manually done !! )
| Quote: |
(14:38:00) ((Dizzle) To get key (need-key):
(14:38:00) ((Dizzle) putserv "PRIVMSG Q :clearchan #gather-network.chat"
|
Butt if i do it like the first quote, then he doesnt fill in the $channel variable. then its like this
| Quote: |
(14:38:00) ((Dizzle) To get key (need-key):
(14:38:00) ((Dizzle) putserv "PRIVMSG Q :clearchan $channel"
|
I have tried several thinks like, replacing the {} for [] and "". Butt that doenst work either.
Can this be done, or should i let it slip ?? |
|
| Back to top |
|
 |
user
Joined: 18 Mar 2003
Posts: 1452
Location: Norway
|
| Posted: Fri Nov 21, 2008 10:41 am Post subject: |
|
|
| Code: | | channel set $channel need-invite [list putserv "PRIVMSG Q :invite $channel"] |
_________________
Have you ever read "The Manual"? |
|
| Back to top |
|
|
Djoezy
Voice
Joined: 30 Mar 2008
Posts: 6
|
| Posted: Sun Nov 23, 2008 4:57 pm Post subject: |
|
|
Sorry butt this doesnt work
| Quote: |
channel set $channel need-invite [list putserv "PRIVMSG Q :invite $channel"]
|
This return
| Quote: |
(21:39:37) ((Dizzle) To regain op's (need-op):
(21:39:37) ((Dizzle) putserv
|
And if i try something else like
| Quote: | | channel set $channel need-invite { putserv "PRIVMSG Q :invite [list $channel] } |
returns :
| Quote: |
(22:00:17) ((Dizzle) To regain op's (need-op):
(22:00:17) ((Dizzle) putserv "PRIVMSG Q p [list $channel] |
_________________
Do you know what reallife means ? And where i can download it ? |
|
| Back to top |
|
|
Djoezy
Voice
Joined: 30 Mar 2008
Posts: 6
|
| Posted: Sun Nov 23, 2008 5:16 pm Post subject: |
|
|
Allright i'm futher right now
thanks user for pointing me the right way
| Code: |
channel set $channel need-invite [join [list putserv "PRIVMSG Q :invite $channel "]]
|
he's taking over the $channel now butt not the "" in front of putserv. so it gives faults.
Any ideas
** UPDATE **
Problem solved ..
| Code: |
channel set $channel need-invite [join [split [list putserv "PRIVMSG Q :invite $channel "]]]
|
will return in channelinfo
| Quote: |
(08:34:22) ((Dizzle) To regain op's (need-op):
(08:34:22) ((Dizzle) putserv {PRIVMSG Q : op #djoezy }
|
_________________
Do you know what reallife means ? And where i can download it ? |
|
| Back to top |
|
|
user
Joined: 18 Mar 2003
Posts: 1452
Location: Norway
|
| Posted: Tue Nov 25, 2008 5:54 am Post subject: |
|
|
Your split+join is pointless. My first reply was correct.
_________________
Have you ever read "The Manual"? |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
