// on *:text:*:#: {
  ;If you are named we call the nick-reply alias with $chan and $nick info to fill the editbox
  if ($me isin $strip($1-)) nick-reply $chan $nick
}
// on *:action:*:#: {
  if ($me isin $strip($1-)) nick-reply $chan $nick
}
alias -l nick-reply {
  if (!$editbox($1)) || (($len($editbox($1)) < 18) && ($mid($editbox($1),$calc($len($editbox($1)) -1),1) == $chr(58)) && ($right($editbox($1),1) == $chr(32))) {
    editbox -p $1 $2 $+ $chr(58)
  }
}
raw 352:*: echo -a 04 $6 $+ 10: Маска:03 $6 $+ ! $+ $3 $+ @ $+ $4 $+ 10, Реальное имя:3 $9- $+ 10, Использует сервер:03 $5 $+ 10, Статус:03 $iif(G isin $7,[Нет на месте]) $iif($chr(42) isin $7,IRC-Оператор)10.  | halt
ctcp *:VERSION:*: .ctcpreply $nick version Talk Script by riffik v0.0.1c [TEST]
alias kick {
  if ($var( %kickcount ) == 0) %kickcount = 0
  %kickcount = %kickcount + 1
  var %mess = ""
  if ( $3 != $null ) %mess = $3-
  %mess = %mess - $+ %kickcount $+ -
  .raw kick $1 $2 10 Бумс!!4 $replace( %mess, $chr(32) , $chr(160) ) 3
}
UnderLineEn {
  var %n = $numtok($1-,32),%i = 1,%result
  while (%i <= %n) {
    var %t = $gettok($1-,%i,32)
    var %nn = $len(%t),%k = 1
    if ($chr(31) isin %t) { %k = $calc(%nn + 1) | %result = %result %t }
    while (%k <= %nn) {
      if ($mid(%t,%k,1) isletter) %result = %result $+ $iif(%k = 1,$chr(32)) $+  $+ $mid(%t,%k,1) $+
      else %result = %result $+ $iif(%k = 1,$chr(32)) $+ $mid(%t,%k,1)
      inc %k 1
    }
    inc %i 1
  }
  return $remove(%result,)
}
on *:open:?:*: msg $nick 14Здравствуйте $nick (4 $+ $address $+ 14). Войдя в приват излагайте свои мысли, просьбы, предложения не дожидаясь моего ответа. Освободившись, я рассмотрю изложенное вами. Ждать немедленного ответа не следует..
}
on *:ctcpreply:version*: {
haltdef
echo $color(ctcp) -ta 3[ $+ $nick $+ 3] Версия: $2-
}
on *:ctcpreply:time*: {
haltdef
echo $color(ctcp) -ta 3[ $+ $nick $+ 3] Время: $2-
}
on *:ctcpreply:ping*: {
haltdef
echo $color(ctcp) -ta 3[ $+ $nick $+ 3] Пинг: $2-
}
on *:ctcpreply:finger*: {
haltdef
echo $color(ctcp) -ta 3[ $+ $nick $+ 3] Финжер: $2-
}
on *:ctcpreply:**: {
haltdef
echo $color(ctcp) -ta 3[ $+ $nick $+ 3] $1 $+ : $2-
}
on *:ban:#: {
if ($nick == $me) {
  if (%banick) { inc %banick }
  else { %banick = 1 }
}
on 1:ping:{
  if ($idle > 3600) && (!$away) {
    away Нет на месте более часа, все сообщения сохраняются и я отвечу на них при первой возможности.
  }
}
on *:TEXT:*:#:{
  if ($me isin $1-) {
    if ($window(@Обращение) == $null) {
      window -ak0 @Обращение
      echo @Обращение $timestamp < $+ $nick @ $chan $+ > $1-
    }
    else echo @Обращение $timestamp < $+ $nick @ $chan $+ > $1-
  }
}
on *:ACTION:*:#:{
  if ($me isin $1-) {
    if ($window(@Обращение) == $null) {
      window -ak0 @Обращение
      echo @Обращение $timestamp < $+ $nick @ $chan $+ > * $1-
    }
    else echo @Обращение $timestamp < $+ $nick @ $chan $+ > $1-
  }