|
|
Joined: Jan 2004
Posts: 509
Fjord artisan
|
OP
Fjord artisan
Joined: Jan 2004
Posts: 509 |
One does +v line by line, and the other +vvvvvvvvvvvv at a time. Help please.
/alphabetvoice {
%temp.alpha = a.b.c.d.e.f.g.h.i.j.k.l.m.n.o.p.q.r.s.t.u.v.w.x.y.z
var %x = 0, %y = 26
while (%x < %y) {
inc %x
var %a = 0, %b = $snick($active,0)
while (%a < %b) {
inc %a
if ($gettok(%temp.alpha,%x,46) == $left($snick($active,%a),1)) {
/mode $active +v $snick($active,%a)
}
}
}
}
/alphavoice {
%temp.alpha = a.b.c.d.e.f.g.h.i.j.k.l.m.n.o.p.q.r.s.t.u.v.w.x.y.z
var %x = 0, %y = 26
while (%x < %y) {
inc %x
var %a = 0, %b = $snick($active,0)
while (%a < %b) {
inc %a
if ($gettok(%temp.alpha,%x,46) == $left($snick($active,%a),1)) {
if (!%alpha.nicks) {
var %alpha.nicks = $snick($active,%a) }
else {
var %alpha.nicks = $addtok(%alpha.nicks,$snick($active,%a),32) }
/mode $active +vvvvvvvvvvvv %alpha.nicks
}
}
}
}
|
|
|
|
|
Joined: Mar 2004
Posts: 175
Vogon poet
|
|
Vogon poet
Joined: Mar 2004
Posts: 175 |
alphabetvoice {
var %a = 1
While (%a <= $Nick(#,0,a,v)) {
mode # +v $Nick(#,%a,a,v)
inc %a
}
}
alphavoice {
var %a = $Nick(#,0,a,v)
While (%a) {
var %b = $Nick(#,%a,a,v) %b
Dec %a
}
While (%b) {
tokenize 32 %b
mode # + $+ $Str(v,$Modespl) $($+($,1-,$Modespl),2)
var %b = $Deltok(%b,$+(1-,$Modespl),32)
}
}That should work perfectly. There is no need to use so many complicated identifiers/if statements. :P
- Relinsquish
|
|
|
|
|
Joined: Mar 2004
Posts: 175
Vogon poet
|
|
Vogon poet
Joined: Mar 2004
Posts: 175 |
Oh. I wasn't sure if you were referring to popups or not. So just in case, here is the aliases customised for popups. alphabetvoice {
If ($SNicks) {
var %a = $Sorttok($IfMatch,44)
While (%a) {
mode # +v $Gettok(%a,1,44)
var %a = $Deltok(%a,1,44)
}
}
}
alphavoice {
If ($SNicks) {
var %a = $Sorttok($IfMatch,44)
While (%a) {
tokenize 44 %a
mode # + $+ $Str(v,$Modespl) $($+($,1-,$Modespl),2)
var %a = $Deltok(%a,$+(1-,$Modespl),44)
}
}
}
- Relinsquish
|
|
|
|
|
