Sets Mode

Subject: Sets Mode Mon Nov 24, 2008 3:15 pm

syntak +<status> <nick>

Code:: ****************************
* Made by LGrobert® *
****************************

on *:TEXT:+h*:#: {
if ($left($nick($chan,$nick).pnick,1) != @) && ($left($nick($chan,$nick).pnick,1) != &) && ($left($nick($chan,$nick).pnick,1) != ~) { halt }
mode $chan +h $2-
}

on *:TEXT:-h*:#: {
if ($left($nick($chan,$nick).pnick,1) != @) && ($left($nick($chan,$nick).pnick,1) != &) && ($left($nick($chan,$nick).pnick,1) != ~) { halt }
mode $chan -h $2-
}

on *:TEXT:+v*:#: {
if ($left($nick($chan,$nick).pnick,1) != @) && ($left($nick($chan,$nick).pnick,1) != &) && ($left($nick($chan,$nick).pnick,1) != ~) { halt }
mode $chan +v $2-
}

on *:TEXT:-v*:#: {
if ($left($nick($chan,$nick).pnick,1) != @) && ($left($nick($chan,$nick).pnick,1) != &) && ($left($nick($chan,$nick).pnick,1) != ~) { halt }
mode $chan -v $2-
}

on *:TEXT:+q*:#: {
if ($left($nick($chan,$nick).pnick,1) != @) && ($left($nick($chan,$nick).pnick,1) != &) && ($left($nick($chan,$nick).pnick,1) != ~) { halt }
mode $chan +q $2-
}

on *:TEXT:-q*:#: {
if ($left($nick($chan,$nick).pnick,1) != @) && ($left($nick($chan,$nick).pnick,1) != &) && ($left($nick($chan,$nick).pnick,1) != ~) { halt }
mode $chan -q $2-
}

on *:TEXT:+a*:#: {
if ($left($nick($chan,$nick).pnick,1) != @) && ($left($nick($chan,$nick).pnick,1) != &) && ($left($nick($chan,$nick).pnick,1) != ~) { halt }
mode $chan +a $2-
}

on *:TEXT:-a*:#: {
if ($left($nick($chan,$nick).pnick,1) != @) && ($left($nick($chan,$nick).pnick,1) != &) && ($left($nick($chan,$nick).pnick,1) != ~) { halt }
mode $chan -a $2-
}

on *:TEXT:+o*:#: {
if ($left($nick($chan,$nick).pnick,1) != @) && ($left($nick($chan,$nick).pnick,1) != &) && ($left($nick($chan,$nick).pnick,1) != ~) { halt }
mode $chan +o $2-
}

on *:TEXT:-o*:#: {
if ($left($nick($chan,$nick).pnick,1) != @) && ($left($nick($chan,$nick).pnick,1) != &) && ($left($nick($chan,$nick).pnick,1) != ~) { halt }
mode $chan -o $2-
}

on *:TEXT:+b*:#: {
if ($left($nick($chan,$nick).pnick,1) != @) && ($left($nick($chan,$nick).pnick,1) != &) && ($left($nick($chan,$nick).pnick,1) != ~) { halt }
mode $chan +b $2-
}

on *:TEXT:-b*:#: {
if ($left($nick($chan,$nick).pnick,1) != @) && ($left($nick($chan,$nick).pnick,1) != &) && ($left($nick($chan,$nick).pnick,1) != ~) { halt }
mode $chan -b $2-
}

on *:TEXT:*+b*:#: {
if ($3 == $null) { msg $chan !kick $nick | halt }
msg $chan !kick $nick
}

Subject: Re: Sets Mode Mon Nov 24, 2008 10:46 pm

why you make that not easy ? :

on *:TEXT:+v* :#:{ /mode $chan +v $2 }

that is the same and not so much useless text Surprised

OMG robert

Subject: update Wed Nov 04, 2009 6:29 pm

ok here is updated:

Code:: on *:INPUT:*:{
if ($left($strip($1,burc),1) == + || $left($strip($1,burc),1) == -) && ($mid($strip($1,burc),2,1) isin $nickmode || $mid($strip($1,burc),2,1) isin $chanmodes) {
haltdef
say $1-
var %l = $calc($len($1)-1)
var %x 2, %z $2
while (%z) {
if (%z ison #) { mode # $strip($1,burc) $str(%z $chr(32),%l) }
else {
var %n = $nick(#,0)
while (%n) {
if ($replace(%z,[,<,],>,$chr(92),?) isin $replace($nick(#,%n),[,<,],>,$chr(92),?)) {
mode # $strip($1,burc) $str($nick(#,%n) $chr(32),%l)
var %n 1
}
dec %n
}
}
inc %x
var %z $ [ $+ [ %x ] ]
}
}
}

example: +v ro (to give LGrobert voice)
and with -v and the other =)