|
|
Joined: Oct 2007
Posts: 214
Fjord artisan
|
OP
Fjord artisan
Joined: Oct 2007
Posts: 214 |
Hello, I need some help trying to write a piece of code that would allow me to create an exception. Say for example I would like to add access to all of the nicks in my channel by default. here is my code:
;syntax: addall <chan> <type>
alias addall {
var %^ = $nick($1,0)
while (%^) {
if ($nick($1,%^) != $me) { access $1 add $2 $v1 }
dec %^
}
}
But let's say I want to add an exception; I would like add access to all of the following individuals except: nickname1,nickname2,nickname3 (The format should be nickname seperate by commas to handle single or multiple nicks to except) I am not quite sure how to relate this back to the alias and to the dialog
dialog addall {
title "Add All"
size -1 -1 109 82
option dbu
combo 2, 13 15 79 10, drop
box "", 1, 1 -1 106 67
text "What type of entry would you like to add?", 3, 3 5 107 8
button "OK", 4, 34 69 35 11, default flat ok cancel
check "Except:", 5, 13 26 30 10
edit "", 6, 12 37 90 10
text "Add nick(s) seperated by commas", 7, 13 48 89 8
text "eg. nick1,nick2,nick3 ect.", 8, 13 56 89 8
}
Thanks in advance, Cheers, Jay
Last edited by Buggs2008; 29/09/08 08:09 PM.
|
|
|
|
|
Joined: Mar 2003
Posts: 612
Fjord artisan
|
|
Fjord artisan
Joined: Mar 2003
Posts: 612 |
check /help token identifiers
specifically $istok should help you in the right direction.
btk
billythekid
|
|
|
|
|
Joined: Oct 2007
Posts: 214
Fjord artisan
|
|
OP
Fjord artisan
Joined: Oct 2007
Posts: 214 |
Hi Billy,
Thanks so much for the reply.
I have an idea of how to use it, but i am not quite sure how to tie it into the alias. Any ideas?
Thanks a bunch.
Cheers
Jay
|
|
|
|
|
Joined: Aug 2004
Posts: 7,252
Hoopy frood
|
|
Hoopy frood
Joined: Aug 2004
Posts: 7,252 |
alias addall {
var %^ = $nick($1,0)
while (%^) {
if !$istok($did(addall,6),$nick($1,%^),44) && ($nick($1,%^) != $me) { access $1 add $2 $v1 }
dec %^
}
}
|
|
|
|
|
Joined: Aug 2005
Posts: 1,052
Hoopy frood
|
|
Hoopy frood
Joined: Aug 2005
Posts: 1,052 |
Here's an injection of the alias into the dialog with added INIT to the dialog so it loads your combo box at least with + and o for now so that it can be intepreted into your script. However, you will need to do the check's of the CHECKMARK by yourself its not hard, just use /help $did the most common checkbox routine is $did($dname,id).state which reveals 0 if not checked or 1 if it is... a simple if routine will perfectly work to your advantage if used correctly. You will also notice that I used $active in the script since your dialog box does not have channel entry. All the rest can be edited you will now know how to edit this script via this included example for your future and completed use. I also make a simple istok check to make sure that any nick included in that editbox seperated by commas is not used. Thanks, Lpfix!
dialog addall {
title "Add All"
size -1 -1 109 82
option dbu
combo 2, 13 15 79 10, drop
box "", 1, 1 -1 106 67
text "What type of entry would you like to add?", 3, 3 5 107 8
button "OK", 4, 34 69 35 11, default flat ok cancel
check "Except:", 5, 13 26 30 10
edit "", 6, 12 37 90 10
text "Add nick(s) seperated by commas", 7, 13 48 89 8
text "eg. nick1,nick2,nick3 ect.", 8, 13 56 89 8
}
on *:dialog:addall:INIT:0:{ didtok $dname 2 44 +,o }
on *:dialog:addall:sclick:4:{ addall $active $did($dname,2) }
alias -l addall {
var %^ = $nick($1,0)
while (%^) {
if ($nick($1,%^) != $me) || ($istok($did(addall,6),44) == $false) { access $1 add $2 $v1 }
dec %^
}
}
if $reality > $fiction { set %sanity Sane }
Else { echo -a *voices* }
|
|
|
|
|
Joined: Oct 2007
Posts: 214
Fjord artisan
|
|
OP
Fjord artisan
Joined: Oct 2007
Posts: 214 |
Thanks so much to everyone for all of your help.
Cheers,
Jay
|
|
|
|
|
Joined: Oct 2007
Posts: 214
Fjord artisan
|
|
OP
Fjord artisan
Joined: Oct 2007
Posts: 214 |
Hi LpFix =)
I wasn't quite sure where to implement your suggestion, however Russel's example in this case seemed to be more easier and for my level of scripting it saved me some brain cells lol
Thanks so much again.
Cheers and have a nice evening.
Jay
|
|
|
|
|
Joined: Aug 2005
Posts: 1,052
Hoopy frood
|
|
Hoopy frood
Joined: Aug 2005
Posts: 1,052 |
THere was nothing to implement it was ready for you to use in the dialog and just fix what you needed around it 
if $reality > $fiction { set %sanity Sane }
Else { echo -a *voices* }
|
|
|
|
|
