A simple but powerful nickname completor, to make sure someone acknowledges your message.

on 1:input:#:{
  if ($left($1,1) != /) && ($right($1,1) == :) {
    var %x = 1 , %c = $nick($chan, 0) , %search = $+(*,$left($1, -1),*), %nick
    while (%x <= %c) {
      if (%search iswm $nick($chan, %x)) {
        %nick = $nick($chan, %x) $+ :
        break
      }
      inc %x
    }
    if (!%nick) {
      echo -a No suck nickname in this channel
      haltdef
    }
    else {
      var %l = $len(%nick), %x = $rand(2, $calc(%l - 1))
      if (%l == 2) { %nick = $+(07,$left(%nick, 1),) $+ $+(10,$right(%nick, 1),) }
      else { %nick = $+(07,$left(%nick, $calc(%x - 1)),) $+ $+(06,$mid(%nick, %x, 1),) $+ $+(10,$mid(%nick, $calc(%x + 1)),) }
      say %nick $2-
      haltdef
    }
  }
}