Text event

By SaNCaKx on Sep 24, 2015

Text event

alias nickcolors { return 3 4 5 6 7 10 12 13 }
raw 352:*: { cline $r(1,15) $2 $6 }
on ^:join:#: { cline $r(1,15) # $nick }

on ^*:text:*:#: {
  if ($readini(nicks.ini,$nick,color) == $null) {
    var %color = $gettok($nickcolors,$calc($base($left($md5($address),8),16,10) % 10), 32)
  }
  if ($readini(nicks.ini,$nick,color) != $null) {
    var %color = $readini(nicks.ini,$nick,color)
  }
  echo -tlm # < $+ $chr(3) $+ %color $+ $iif($nick isreg #,$null,$left($nick(#,$nick).pnick,1)) $+ $nick $+ $chr(15) $+ > $1- | haltdef
}
on ^*:text:*:?: {
  if ($readini(nicks.ini,$nick,color) == $null) {
    var %color = $gettok($nickcolors,$calc($base($left($md5($address),8),16,10) % 10), 32)
  }
  if ($readini(nicks.ini,$nick,color) != $null) {
    var %color = $readini(nicks.ini,$nick,color)
  }
  echo -tlm $nick < $+ $chr(3) $+ %color $+ $iif($nick isreg #,$null,$left($nick(#,$nick).pnick,1)) $+ $nick $+ $chr(15) $+ > $1- | haltdef
}
alias color {
  if ($1 != $null) {
    if ($2 != $null) {
      writeini nicks.ini $1 color $2
      echo $1 $+ 's color has been set to $2 $+ .
    }
  }
}

on *:LOAD: {
  echo -a _____________________________________________________
  echo -a 4,1[15,1 SaNCaK 4,1] 0,1 Loading Add-On... 
  echo -a 4,1[15,1 SaNCaK 4,1] 0,1 You are running mIRC $version on $os  $+ .
  echo -a 4,1[15,1 SaNCaK 4,1] 0,1 Copyright © 200915 http://ym2ks.org/sancak
  echo -a _____________________________________________________
}

Comments

Sign in to comment.
dma   -  Oct 06, 2015

I like this script, thx

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.