home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / L2C / adenozin / SimpleScript.exe / Main / colornicks.mrc < prev    next >
Encoding:
Text File  |  2000-05-25  |  786 b   |  28 lines
  1. ON 1:LOAD: {
  2.   /set %color.tog OFF 
  3.   .disable #KOLOR
  4. }
  5. #KOLOR off
  6. on 1:OP:#: {
  7.   if ($nick == $me) { /colornicks } 
  8.   else { /colornicks }
  9. }
  10. on 1:DEOP:#: {
  11.   if ($nick == $me) { /colornicks } 
  12.   else { /colornicks }
  13. }
  14. on 1:VOICE:#: {
  15.   if ($nick == $me) { /colornicks } 
  16.   else { /colornicks }
  17. }
  18. on 1:DEVOICE:#: {
  19.   if ($nick == $me) { /colornicks } 
  20.   else { /colornicks }
  21. }
  22. on !1:JOIN:#: {
  23.   if ( $nick == $me) { .timer 1 1 colornicks }
  24.   else { .colornicks } | halt
  25. }
  26. #KOLOR end
  27. alias /colornicks { set %i 0 | :nexti | inc %i | if $nick(#,0) < %i { unset %i | halt } | elseif ( $nick(#,%i) isop # ) { cline %color.op # $nick(#,%i) } | elseif ( $nick(#,%i) isvo # ) { cline %color.vo # $nick(#,%i) } | else { cline %color.no # $nick(#,%i) } | goto nexti }
  28.