By PuNkTuReD on Jan 23, 2009well this is just another op/help/voice counter
will count how many times youve recieved or taken said modes
on *:op:#: {
if ($opnick == $me) { $iif(%top,inc %top 1,set %top 1) | msg $chan I have recieved +o %top time(s). }
if ($nick == $me) { $iif(%ttop,inc %ttop 1,set %ttop 1) | msg $chan I have given a total of %ttop +o's. }
}
on *:deop:#: {
if ($opnick == $me) { $iif(%tdeop,inc %tdeop 1,set %tdeop 1) | msg $chan I have lost my +o %tdeop time(s). }
if ($nick == $me) { $iif(%ttdeop,inc %ttdeop 1,set %ttdeop 1) | msg $chan I have stolen a total of %ttdeop +o's. }
}
on *:help:#: {
if ($hnick == $me) { $iif(%thelp,inc %thelp 1,set %thelp 1) | msg $chan I have recieved +h %thelp time(s). }
if ($nick == $me) { $iif(%ttop,inc %tthelp 1,set %tthelp 1) | msg $chan I have given a total of %tthelp +h's. }
}
on *:dehelp:#: {
if ($hnick == $me) { $iif(%tdehelp,inc %tdehelp 1,set %tdehelp 1) | msg $chan I have lost my +h %tdehelp time(s). }
if ($nick == $me) { $iif(%ttdehelp,inc %ttdehelp 1,set %ttdehelp 1) | msg $chan I have stolen a total of %ttdehelp +h's. }
}
on *:voice:#: {
if ($vnick == $me) { $iif(%tvoice,inc %tvoice 1,set %tvoice 1) | msg $chan I have recieved +v %tvoice time(s). }
if ($nick == $me) { $iif(%ttvoice,inc %ttvoice 1,set %ttvoice 1) | msg $chan I have given a total of %ttvoice +v's. }
}
on *:devoice:#: {
if ($vnick == $me) { $iif(%tdevoice,inc %tdevoice 1,set %tdevoice 1) | msg $chan I have lost my +v %tdevoice time(s). }
if ($nick == $me) { $iif(%ttdevoice,inc %ttdevoice 1,set %ttdevoice 1) | msg $chan I have stolen a total of %ttdevoice +v's. }
}
why not use rawmode?
on *:rawmode:#:{
if ($regex($1,/^([+-][ohv]{1})$/)) {
if ($2 == $me && $nick != $me) { $iif($left($1,1) == +,inc $+(%,me,.,$1) 1,inc $+(%,me2,.,$1) 1) | msg # $iif($left($1,1) == +,I Have Been $1 For The $ord($($+(%,me,.,$1),2)) Time,I have lost my $+(+,$right($1,1)) For The $ord($($+(%,me2,.,$1),2)) Time.) }
if ($2 != $me && $nick == $me) { $iif($left($1,1) == +,inc $+(%,my,.,$1) 1,inc $+(%,my2,.,$1) 1) | msg # $iif($left($1,1) == +,I Have Giving Out Mode $1 For The $ord($($+(%,my,.,$1),2)) Time,I have stolen a total of $($+(%,my2,.,$1),2) $+(+,$right($1,1),'s)) }
}
}