NiCK CoMPLeToR

By DeaD_LoRD on Apr 02, 2012

I need only say that a lot of talk about Nick completor :D Lamyd Bookmark enjoy this script With this script you can get good sound different from others This script is written by my good friend Saeid

on 1:load: {
  if ($version < 5.41) { echo -ai5 You need mIRC version 5.41 or above to run this addon. Unloading!!! } | else {
    .set %nc.status.on Enable
    .unset %nc.status.off
    .disable #nc
    echo -ai5 *** Nick Styling Addon
    echo -ai5 *** Nick Styler is set to 4Off by default so please turn it 4On under the Status, Channel or MenuBar commands.
    echo -ai5 *** Please do not give it to anyone.
  }
}
#nc off
on *:input:#:if ($left($1,1) == $readini mirc.ini text commandchar) { return } | if (c isin $gettok($chan($chan).mode,1,32)) { say $strip($1-) | halt } | else { nc $1- }
alias nc {
  if ($1 ison #) {
    if ($len($1) == 1) { 
      unset %nc.mid %nc.last %nc.rest %nc.ranfirst %nc.ranlast
      set %nc.first $left($1,1)
      set %nc.rndclr $chr(3) $+ $gettok(03 04 05 06 07 10 12 14,$rand(1,8),32)
      set %nc.ranclr $chr(3) $+ $gettok(03 04 05 06 07 10 12 14,$rand(1,8),32)
      set %nc.rancol $chr(3) $+ $gettok(03 04 05 06 07 10 12 14,$rand(1,8),32)
      goto $rand(1,37)
    }
    elseif ($len($1) == 2) { 
      unset %nc.mid
      set %nc.first $left($1,1)
      set %nc.last $right($1,1)
      set %nc.rest $mid($1,2,$calc($len($1) - 1))
      set %nc.ranfirst $left($1,$rand(1,$len($1)))
      set %nc.ranlast $right($1,$calc($len($1) - $len(%nc.ranfirst)))
      set %nc.rndclr $chr(3) $+ $gettok(03 04 05 06 07 10 12 14,$rand(1,8),32)
      set %nc.ranclr $chr(3) $+ $gettok(03 04 05 06 07 10 12 14,$rand(1,8),32)
      set %nc.rancol $chr(3) $+ $gettok(03 04 05 06 07 10 12 14,$rand(1,8),32)
      goto $rand(1,37)
    }
    else { 
      set %nc.first $left($1,1) 
      set %nc.last $right($1,1)
      set %nc.mid $mid($1,2,$calc($len($1) - 2))
      set %nc.rest $mid($1,2,$calc($len($1) - 1))
      set %nc.ranfirst $left($1,$rand(1,$len($1)))
      set %nc.ranlast $right($1,$calc($len($1) - $len(%nc.ranfirst)))
      set %nc.rndclr $chr(3) $+ $gettok(03 04 05 06 07 10 12 14,$rand(1,8),32)
      set %nc.ranclr $chr(3) $+ $gettok(03 04 05 06 07 10 12 14,$rand(1,8),32)
      set %nc.rancol $chr(3) $+ $gettok(03 04 05 06 07 10 12 14,$rand(1,8),32)
      goto $rand(1,37)
    }
    :1
    say $chr(3) $+ 04 $+ %nc.first $+ $chr(3) $+ 03 $+ %nc.first $+ $chr(3) $+ 02 $+ $1 $+ $chr(3) $+ 03 $+ %nc.last $+ $chr(3) $+ 04 $+ %nc.last $+ $chr(3) $2- | halt
    :2
    say $chr(3) $+ 15 $+ %nc.first $+ $chr(3) $+ 14 $+ %nc.first $+ $chr(3) $+ 12 $+ $1 $+ $chr(3) $+ 14 $+ %nc.last $+ $chr(3) $+ 15 $+ %nc.last $+ $chr(3) $2- | halt
    :3
    say $chr(3) $+ 02 $+ $chr(31) $+ %nc.first $+ $chr(31) $+ %nc.rndclr $+ %nc.mid $+ $chr(3) $+ 02 $+ $chr(31) $+ %nc.last $+ $chr(31) $+ $chr(3) $2- | halt
    :4
    say $chr(3) $+ 12[ $+ $chr(3) $+ 02 $+ %nc.first $+ $chr(3) $+ 10 $+ %nc.mid $+ $chr(3) $+ 02 $+ %nc.last $+ $chr(3) $+ 12] $+ $chr(3) $2- | halt
    :5
    say $chr(2) $+ $chr(3) $+ 04?* $+ $chr(2) $+ $chr(3) $+ 02 $+ $chr(31) $+ $1 $+ $chr(31) $+ $chr(2) $+ $chr(3) $+ 04*? $+ $chr(2) $+ $chr(3) $2- | halt
    :6
    say $chr(3) $+ 06? $+ $chr(3) $+ 02 $+ $1 $+ $chr(3) $+ 06? $+ $chr(3) $2- | halt
    :7
    say $chr(3) $+ 03 $+ %nc.ranfirst $+ $+ $chr(31) $+ $chr(3) $+ 12 $+ %nc.ranlast $+ $chr(3) $+ $chr(31) $2- | halt
    :8
    say $chr(3) $+ 12[ $+ $chr(3) $+ $1 $+ $chr(3) $+ 12] $+ $chr(3) $2- | halt
    :9
    say $chr(31) $+ %nc.first $+ $chr(31) $+ %nc.mid $+ $chr(31) $+ %nc.last $+ $chr(31) $2- | halt
    :10
    say $chr(31) $+ $chr(3) $+ 04 $+ %nc.first $+ $chr(31) $+ $chr(3) $+ 03 $+ %nc.rest $+ $chr(3) $2- | halt
    :11
    say $chr(3) $+ 06 $+ %nc.ranfirst $+ $chr(3) $+ 14 $+ %nc.ranlast $+ $chr(3) $2- | halt
    :12
    say $chr(3) $+ 04 $+ ? $+ $chr(3) $+ 02 $+ $1 $+ $chr(3) $+ 04 $+ ? $+ $chr(3) $2- | halt
    :13
    say $chr(3) $+ 04? $+ $chr(3) $+ 03 $+ $1 $+ $chr(3) $+ 04? $+ $chr(3) $2- | halt
    :14
    say $chr(3) $+ 12? $+ $chr(3) $+ 04  $+ %nc.ranfirst $+ $chr(3) $+ 14 $+ %nc.ranlast $+ $chr(3) $+ 12? $+ $chr(3) $2- | halt
    :15
    say $chr(3) $+ 03? $+ $chr(3) $+ 12 $+ $1 $+ $chr(3) $+ 03? $+ $chr(3) $2- | halt
    :16
    say $chr(3) $+ 03? $+ $chr(3) $+ 12 $+ $1 $+ $chr(3) $+ 03? $+ $chr(3) $2- | halt
    :17
    say $chr(3) $+ 03~ $+ $chr(3) $+ 12 $+ %nc.ranfirst $+ $chr(3) $+ 04 $+ %nc.ranlast $+ $chr(3) $+ 03~ $+ $chr(3) $2- | halt
    :18
    say %nc.rndclr $+ %nc.first $+ %nc.rancol $+ %nc.mid $+ %nc.ranclr $+ %nc.last $+ $chr(3) $2- | halt
    :19
    say $chr(3) $+ 12 $+ %nc.ranfirst $+ $chr(3) $+ 07 $+ %nc.ranlast $+ $chr(3) $2- | halt
    :20
    say $chr(3) $+ 04? $+ $chr(3) $+ 14 $+ %nc.ranfirst $+ $chr(3) $+ 12 $+ %nc.ranlast $+ $chr(3) $+ 04! $+ $chr(3) $2- | halt
    :21
    say $chr(3) $+ 03?? $+ $chr(3) $+ 04 $+ $1 $+ $chr(3) $+ 03?? $+ $chr(3) $2- | halt
    :22
    say $chr(3) $+ 14? $+ $chr(3) $+ 04 $+ %nc.ranfirst $+ $chr(3) $+ 03 $+ %nc.ranlast $+ $chr(3) $+ 14? $+ $chr(3) $2- | halt
    :23
    say $chr(3) $+ 05? $+ $chr(3) $+ 12( $+ $chr(3) $+ 04 $+ $1 $+ $chr(3) $+ 12) $+ $chr(3) $+ 05? $+ $chr(3) $2- | halt
    :24
    say $chr(2) $+ $chr(3) $+ 12? $+ $chr(3) $+ 04 $+ %nc.first $+ $chr(3) $+ 10 $+ %nc.mid $+ $chr(3) $+ 04 $+ %nc.last $+ $chr(3) $+ 12? $+ $chr(3) $+ $chr(2) $2- | halt
    :25
    say $chr(3) $+ 02? $+ $chr(3) $+ 04 $+ %nc.ranfirst $+ $chr(3) $+ 03 $+ %nc.ranlast $+ $chr(3) $+ 02? $+ $chr(3) $2- | halt
    :26
    say $chr(3) $+ 05? $+ $chr(3) $+ 04 $+ %nc.ranfirst $+ $chr(3) $+ 02 $+ %nc.ranlast $+ $chr(3) $+ 05? $+ $chr(3) $2- | halt
    :27
    say $chr(3) $+ 12?? $+ %nc.rndclr $+ $1 $+ $chr(3) $+ 12?? $+ $chr(3) $2- | halt
    :28   
    say %nc.rndclr $+ ( $+ %nc.first $+ ) $+ %nc.ranclr $+ $1 $+ %nc.rndclr $+ ( $+ %nc.last $+ ) $+ $chr(3) $2- | halt
    :29
    say $chr(3) $+ 14|?| $+ $chr(3) $+ 04 $+ %nc.ranfirst $+ $chr(3) $+ 12 $+ %nc.ranlast $+ $chr(3) $+ 14|?| $+ $chr(3) $2- | halt
    :30
    say $chr(3) $+ 14|?| $+ $chr(3) $+ 04 $+ %nc.ranfirst $+ $chr(3) $+ 03 $+ %nc.ranlast $+ $chr(3) $+ 14|?| $+ $chr(3) $2- | halt
    :31
    say $chr(3) $+ 01|?| $+ %nc.rndclr $+ %nc.ranfirst $+ %nc.rancol $+ %nc.ranlast $+ $chr(3) $+ 01|?| $+ $chr(3) $2- | halt
    :32
    say $chr(3) $+ 04? $+ $chr(3) $+ 10 $+ $1 $+ $chr(3) $+ 04? $+ $chr(3) $2- | halt
    :33
    say $chr(3) $+ 12? $+ $chr(3) $+ 04 $+ $1 $+ $chr(3) $+ 12? $+ $chr(3) $2- | halt
    :34
    say $chr(3) $+ 12? $+ $chr(3) $+ 04 $+ $1 $+ $chr(3) $+ 12? $+ $chr(3) $2- | halt
    :35
    say $chr(3) $+ 12? $+ $chr(3) $+ 04 $+ $1 $+ $chr(3) $+ 12? $+ $chr(3) $2- | halt
    :36
    say $chr(3) $+ 04~~~ $+ $chr(3) $+ 12 $+ $1 $+ $chr(3) $+ 04~~~ $+ $chr(3) $2- | halt
    :37
    say $chr(3) $+ 04? $+ $chr(3) $+ 12 $+ $1 $+ $chr(3) $+ 04? $+ $chr(3) $2- | halt
  }
}
#nc end
menu * {
  -
  x( Nick Completor )x
  .$iif(%nc.status.on, [ %nc.status.on ] , [ %nc.status.off ] ):{ if (%nc.status.on) { unset %nc.status.on | set %nc.status.off Disable | .enable #nc | echo -a Nick Styler - 3Enabled } | else { set %nc.status.on Enable | unset %nc.status.off | .disable #nc | echo -a Nick Styler - 4Disabled } }
  .Advertise:/me is using the colored nick completer Available At 
  .Quick Help: { if ($window(@Quick)) window -c @Quick | window -d +t @Quick 100 100 250 250 | aline -p @Quick 12 Help: Just enable the Styling under the Status, Channel or MenuBar commands and type in a channel. If your first word is a nick on the channel, it is styled. Otherwise, it is not syled. If your first word is a nick in the channel and still it is not syled, don't worry. It is not a bug. This is to prevent your words from not being sent to the channel if the channel's mode is +c. | 
  aline -p @Quick 12This is the end of help. Double click in this window to close it. }
  .WebSite:/run 
}
menu @Quick {
  dclick:window -c @Quick
}

Comments

Sign in to comment.
IllogicTC   -  Apr 16, 2012

The only thing you need to set as a global variable is %nc.status.on, since it is used in different aliases and commands. All the other variables should be set as local variables using the var command, as to not bulk up users' variables file unnecessarily.

 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.