;Coloured nicks 1.5.5 by CrazySpence, Software as is but you may find me on the Blitzed network
;in the mIRC server list or simply irc.blitzed.org if you want to request information/permission to
;integrate it into another script or simply shoot the breeze :Þ ®

alias nocolourdcc {
  if ($1) {
    if ($readini(crazyspence.ini,colournicks,$chr(61) $+ $1) == off) writeini crazyspence.ini colournicks $chr(61) $+ $1 on
    else writeini crazyspence.ini colournicks $chr(61) $+ $1 off
  }
  else echo 9You must specify a nickname
}

alias nocolour {
  if ($1) {
    if ($readini(crazyspence.ini,colournicks,$1) == off) writeini crazyspence.ini colournicks $1 on
    else writeini crazyspence.ini colournicks $1 off
  }
  else echo 3You must specify a nickname or Channel
}

alias cnickstheme {
  if ($readini(mirc.ini,text,theme) != cnicks) writeini crazyspence.ini colournicks oldtheme $readini(mirc.ini,text,theme)  
  writeini mirc.ini colors n $+ $ini(mirc.ini,colors,0) cnicks,1,6,4,5,11,3,3,3,3,3,3,0,5,7,6,9,3,11,3,5,11,1,0,1,4,15,6,1
  color -ls cnicks  
}

alias nickcolour {
  if ($1 == 0) return 3
  if ($1 == 1) return 4
  if ($1 == 2) return 6
  if ($1 == 3) return 8
  if ($1 == 4) return 9
  if ($1 == 5) return 10
  if ($1 == 6) return 11
  if ($1 == 7) return 12
  if ($1 == 8) return 13
}
alias nickformat {
  if ($readini(crazyspence.ini,colournicks,$1) == off) return  
  if ($readini(crazyspence.ini,colournicks,$2) == off) return  
  set %colournicks.i 1
  set %colournicks.sum 0
  while ($mid($2,%colournicks.i,1) != $null) {
    set %colournicks.sum $calc(%colournicks.sum + $asc($mid($2,%colournicks.i,1)))
    inc %colournicks.i
  }
  set %colournicks.sum $calc(%colournicks.sum % 9) 
  set %colournicks.colour $nickcolour(%colournicks.sum)  
  if ($left($1,1) == $chr(35)) {  
    if ($3 == $chr(42)) {
      if ($mid($readini(mirc.ini,options,n2),$calc($pos($readini(mirc.ini,options,n2),$chr(44),30) - 1),1) == 1) {
        return  $+ %colournicks.colour * $nick($1,$2).pnick
      }
      else return  $+ %colournicks.colour * $2
    }  
    if ($mid($readini(mirc.ini,options,n2),$calc($pos($readini(mirc.ini,options,n2),$chr(44),30) - 1),1) == 1) {
      return 12 $+ < $+ %colournicks.colour  $+ $nick($1,$2).pnick $+ 12>
    }
    else return 12 $+ < $+ %colournicks.colour  $+ $2 $+ 12>
  }
  if ($3 == $chr(42)) {
    return  $+ %colournicks.colour * $2
  }    
  return 12 $+ < $+ %colournicks.colour  $+ $2 $+ 12>
}

menu channel {
  -
  $iif($group(#colourednicks).status != off,$style(2)) Enable Coloured nicks:/enable #colourednicks
  $iif($group(#colourednicks).status == off,$style(2)) Disable Coloured nicks:/disable #colourednicks
  -
}
on 1:load:{
  echo 13Loading....
  echo 13Right click a channel to get the enable/disable toggle for coloured nicks
  echo 13/cnickstheme can create a new theme and change your colours to compliment the scripts features. Your original theme will not be harmed by using this command and can be restored via the colour dialog or by unloading the script
}
on 1:start:{
  echo 13Coloured Nicks 11by 13CrazySpence
  echo 11Ported from 13X-Chat's 11Coloured nick system
  echo 11/nocolour <nickname or #channel> and /nocolourdcc <nickname> to toggle colours for that nickname, channel or dcc
}

on 1:unload:{
  if ($readini(mirc.ini,text,theme) == cnicks) {
    echo -a -- Restoring original Theme
    color -s $readini(crazyspence.ini,colournicks,oldtheme)
  }  
  echo -a -- Unloading and Checking for other CrazySpence scripts (they all use the same ini file)
  if ($script(alog.mrc)) {
    remini crazyspence.ini colournicks
    echo -a -- CrazySpence script still active and crazyspence.ini will not be deleted, removing colournicks section from CrazySpence.ini    
    return
  }
  if ($script(foreverplayer.mrc)) { 
    remini crazyspence.ini colournicks
    echo -a -- CrazySpence script still active and crazyspence.ini will not be deleted, removing colournicks section from CrazySpence.ini    
    return
  }
  remove crazyspence.ini
  echo -a -- no CrazySpence scripts detected, crazyspence.ini removed
}

#colourednicks on
on ^1:text:*:#:{
  if (($readini(mirc.ini,timestamp,$chan) == on) || ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1)) echo $chan $timestamp $nickformat($chan, $nick) $1- 
  else echo $chan $nickformat($chan, $nick) $1-  
  if ($readini(mirc.ini,flashing,$chan) == on) flash
  unset %colournicks.*  
  haltdef
}
on ^1:text:*:?:{
  if ($halted == $true) halt ;this is to stop this script from overriding another scripts (mp3 forever for example) default filtering
  if (($readini(mirc.ini,timestamp,$nick) == on) || ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1)) echo $nick $timestamp $nickformat($nick,$nick) $1-
  else echo $nick $nickformat($nick,$nick) $1-
  if ($readini(mirc.ini,flashing,$nick) == on) flash
  unset %colournicks.*
  haltdef
}
on ^1:chat:*:{
  if ($readini(mirc.ini,colournicks,=$nick) == off) return
  set %colournicks.i 1
  set %colournicks.sum 0
  while ($mid(=$nick,%colournicks.i,1) != $null) {
    set %colournicks.sum $calc(%colournicks.sum + $asc($mid($nick,%colournicks.i,1)))
    inc %colournicks.i
  }
  set %colournicks.sum $calc(%colournicks.sum % 9) 
  set %colournicks.colour $nickcolour(%colournicks.sum)  
  if ($1 == 
ACTION) set %colournicks.message  $+ %colournicks.colour $+ * $nick $left($2-,$calc($len($2-) - 1))
  else set %colournicks.message 12< $+ %colournicks.colour $+ $nick $+ 12> $1-
  if (($readini(mirc.ini,timestamp,=$nick) == on) || ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1)) echo =$nick $timestamp %colournicks.message
  else echo =$nick %colournicks.message
  if ($readini(mirc.ini,flashing,=$nick) == on) flash
  unset %colournicks.i
  unset %colournicks.sum
  unset %colournicks.colour  
  unset %colournicks.message 
  haltdef
}

on ^1:action:*:#:{
  if (($readini(mirc.ini,timestamp,$chan) == on) || ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1)) echo $chan $timestamp $nickformat($chan,$nick,$chr(42)) $1-
  else echo $chan $nickformat($chan, $nick,$chr(42)) $1-
  if ($readini(mirc.ini,flashing,$chan) == on) flash
  unset %colournicks.*
  haltdef
}
on ^1:action:*:?:{
  if (($readini(mirc.ini,timestamp,$nick) == on) || ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1)) echo $nick $timestamp $nickformat($nick,$nick,$chr(42)) $1-
  else echo $nick $nickformat($nick,$nick,$chr(42)) $1-
  if ($readini(mirc.ini,flashing,$nick) == on) flash
  unset %colournicks.*
  haltdef
}
on 1:input:#:{
  if ($1 == /msg) {
    return 
  } 
  if ($1 == /me) {
    if (($readini(mirc.ini,timestamp,$nick) == on) || ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1)) {
      echo $chan $timestamp $nickformat($chan, $me,$chr(42)) $2- 
      raw -q PRIVMSG $chan : $+ $chr(001) $+ ACTION $2- $+ $chr(001)
      unset %colournicks.*      
      haltdef    
    }
    else {
      echo $chan $nickformat($chan, $me,$chr(42)) $2- 
      raw -q PRIVMSG $chan : $+ $chr(001) $+ ACTION $2- $+ $chr(001)
      unset %colournicks.*      
      haltdef  
    }
  } 
  if ($1 == /describe) {
    return  
  }
  if ($left($1,1) == /) return  
  if (($readini(mirc.ini,timestamp,$nick) == on) || ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1)) {
    echo $chan $timestamp $nickformat($chan,$me) $1-
    raw -q PRIVMSG $chan : $+ $1- 
    unset %colournicks.*    
    haltdef  
  }
  else {
    echo $chan $nickformat($chan,$me) $1-
    raw -q PRIVMSG $chan : $+ $1- 
    unset %colournicks.*    
    haltdef
  }
}
on 1:input:?:{
  if ($1 == /msg) {
    return 
  } 
  if ($1 == /me) {
    if (($readini(mirc.ini,timestamp,$nick) == on) || ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1)) {
      echo $active $timestamp $nickformat($me,$me,$chr(42)) $2- 
      raw -q PRIVMSG $active : $+ $chr(001) $+ ACTION $2- $+ $chr(001)
      unset %colournicks.*
      haltdef  
    }
    else {
      echo $active $nickformat($me,$me,$chr(42)) $2- 
      raw -q PRIVMSG $active : $+ $chr(001) $+ ACTION $2- $+ $chr(001)
      unset %colournicks.*
      haltdef  
    } 
  } 
  if ($1 == /describe) {
    return  
  }
  if ($left($1,1) == /) return  
  if (($readini(mirc.ini,timestamp,$nick) == on) || ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1)) {
    echo $active $timestamp $nickformat($me,$me) $1-
    raw -q PRIVMSG $active : $+ $1- 
    unset %colournicks.*
    haltdef  
  }
  else {
    echo $active $nickformat($me,$me) $1-
    raw -q PRIVMSG $query : $+ $1- 
    unset %colournicks.*
    haltdef
  }
}

#colourednicks end