/ScriptServ

on !^*:PART:#:echo $chan $timestamp 10•14Part10\ 10 $+ $left($nick,1) $+ 10 $+  $+ $right($nick,$calc($len($nick)-1)) $+   14è uscito 10(14 $+ $address $+ 10) (14 $+ $1- $+ 10)  10(14 $+ $calc($nick($chan,0) - 1) $+ 10) | halt
on ^1:NOTICE:*:#: { echo -at  10•14Notice10\ 14 $+ $left($nick,1) $+ 14 $+  $+ $right($nick,$calc($len($nick)-1)) $+ 10: $chan $1- |  haltdef }
on ^1:NOTICE:*:?: { echo -at  10•14Notice10\ 14 $+ $left($nick,1) $+ 14 $+  $+ $right($nick,$calc($len($nick)-1)) $+ 10: $1- |  haltdef }
on ^1:QUIT:{
  if ($nick != $me) { var %quitta = 1 | while $comchan($nick,%quitta) != $null { echo $comchan($nick,%quitta) 10 $+ $timestamp 10•14Quit10\ 10 $+ $left($nick,1) $+ 10 $+  $+ $right($nick,$calc($len($nick)-1)) $+ 10 (14 $+ $gettok($fulladdress,2-,33) $+ 10) (14 $+ $1- $+ 10)  | inc %quitta } | halt }
}
on 1:FILESENT:*.*:{ echo -as 3 $+ 10•14DCC10\ 14 Invio completato di10 $nopath($filename) ( $+ $bytes($file($filename).size,k) kb) 14a10 $nick 14- 10I14P10:10 $send($nick).ip | haltdef }
on 1:FILERCVD:*.*:{
echo -as 10 $+ 10•14DCC10\ 14 Ricezione completata di10 $nopath($filename) ( $+ $bytes($file($filename).size,k) kb) 14da10 $nick 14- 10I14P10:10 $get($nick).ip | haltdef }
on 1:GETFAIL:*.*: { echo -as 14 $+ 10•14DCC10\ 14 Errore10!14 ricezione incompleta di10 $nopath($filename) 14da10 $nick 14- 10I14P10:10 $get($nick).ip | haltdef }
on 1:SENDFAIL:*.*: { echo -as 10 $+ 10•14DCC10\ 14 Errore10!14 invio incompleto di10 $nopath($filename) 14a10 $nick 14- 10I14P10:10 $send($nick).ip | haltdef }

;---------------------------BAN-------------------------;

on *:BAN:#:{
  if ($banmask iswm $address($me,6)) && ($nick != $me)  && ($active != #) { echo -as $timestamp 10•14Ban10\ 10 $+ $left($nick,1) $+ 10 $+  $+ $right($nick,$calc($len($nick)-1)) $+  14Ti ha bannato su 10 $+ $left($chan,1) $+ 10 $+  $+ $right($chan,$calc($len($chan)-1)) $+  }
}

;---------------------------JOIN------------------------;

on ^*:JOIN:#:{
  if ($nick == $me) { echo $chan 10 $+ $timestamp 10•14Join10\ 14Ora sei in 10 $+ $left($chan,1) $+ 10 $+  $+ $right($chan,$calc($len($chan)-1)) $+  | haltdef }
  if ($nick != $me) { echo $chan 10 $+ $timestamp 10•14Join10\ 10 $+ $left($nick,1) $+ 10 $+  $+ $right($nick,$calc($len($nick)-1)) $+  10(14 $+ $gettok($fulladdress,2-,33) $+ 10) 14E' entrato in 10 $+ $left($chan,1) $+ 10 $+  $+ $right($chan,$calc($len($chan)-1)) $+  10(14 $+ $nick($chan,0) $+ 10) | haltdef }
}

------------------------NICK-------------------------------

on ^*:NICK:{
  if ($nick == $me) { %avvert.nick = * $+ $newnick $+ * | echo -s  10 $+ $timestamp  10•14Nick10\ 10 $+ $left($nick,1) $+ 10 $+  $+ $right($nick,$calc($len($nick)-1)) $+  14adesso il tuo nick è 10 $+ $left($newnick,1) $+ 10 $+  $+ $right($newnick,$calc($len($newnick)-1)) $+   }
  %chan.nick = 0
  :inc
  inc %chan.nick
  if ($comchan($newnick,%chan.nick) != $null) { echo $comchan($newnick,%chan.nick)  10 $+ $timestamp  10•14Nick10\ 10 $+ $left($nick,1) $+ 10 $+  $+ $right($nick,$calc($len($nick)-1)) $+  14Ha cambiato nick in 10 $+ $left($newnick,1) $+ 10 $+  $+ $right($newnick,$calc($len($newnick)-1)) $+  | goto inc }
  else { halt }
}

on !*:join:#:{
  var %clones, %i = 1
  while ($ialchan($wildsite,$chan,%i).nick) {
    %clones = %clones $nick($chan,$v1).pnick
    inc %i
  }
  if ($numtok(%clones,32) > 1) echo $color(info) -bfilrt $chan 10•14Clone10\  10(14 $+ $calc($ialchan($wildsite,$chan,0) - 1) $+ 10) $nick 14è un clone di10 $remtok(%clones,$nick,1,32)
}

;-----------------------------------------------------------------------------------------;

alias theme.text {
  if (!$var(%:echo)) { return $false }
  _set .
  if ($isalias(kte:: $+ $1)) { kte:: $+ $1 | return $true }
  elseif (* iswm $hget(Kte.Theme, $1)) {
    var %ln
    set -n %ln $hget(Kte.Theme, $1)
    if ($gettok(%ln, 1, 32) == !Script) { set -n %ln $deltok(%ln, 1, 32) }
    else { set -n %ln % $+ :echo $dll($scriptdir $+ kte.dll, MTSPrecompile, %ln) $!+  % $+ :comment }
    .timer.kte.theme 1 0 %ln | .timer.kte.theme -e | return $true
  }
  return $false
}
alias _kte.void

alias -l _set {
  set -nu %::me $me | set -u %::server $server | set -u %::port $port
  ;
  ;
  var %ts = -|HH:nn:ss|- | set -nu %::timestamp $time(%ts)
  if (!$1) {
    if (!$var(%::nick)) { set -u %::nick $nick | if (!$var(%::address)) { set -u %::address $address } }
    if ($chan) { set -u %::chan $chan }
    if (!$var(%::target)) { set -u %::target $target }
    haltdef
  }
}
alias -l _chanevt {
  if ($chan !ischan) { halt }
  if ($nick($chan, $nick).pnick != $nick) { set -u %::cmode $left($ifmatch, 1) }
  set -u %::cnick $nick($chan, $nick).color
}
alias -l _pt if (* iswm %::text) { set -nu %::parentext ( $+ %::text $+ ) } | else { unset %::parentext }

alias -l _left {
  if ($version >= 6) {
    set -u0 %kte_chan $1
    var %i = $scon(0)
    while (%i) { if ($scon(%i) != $cid) && ($scon(%i).kte_haschan) { return } | dec %i }
  }
  hdel Kte.Events $1
}
alias -l kte_haschan return $chan(%kte_chan)

alias -l _isactive if ($cid == $activecid) { return 1 } | return 0
alias -l _active if ($cid == $activecid) { return a } | return s
alias -l _ischat {
  var %n = $mid($1, 2)
  if (=* !iswm $1) { return 1 }
  if (=* iswm $1) && (($chat(%n)) || ($fserv(%n))) { return 1 }
  return 0
}

; events
alias say {
  if ($isid) { return }
  if ($status == disconnected) || (!$0) || (($active !ischan) && (!$query($active))) && (=* !iswm $active) {
    .timer.kte 1 0 !say $1- | .timer.kte -e | halt
  }
  .!msg $active $1-
  _set | set -u %:echo echo $color(own) -ati2
  set -nu %::text $1- | set -u %::target $active | set -u %::nick $me
  if ($active ischan) {
    if ($nick($active, $me).pnick != $me) { set -u %::cmode $left($ifmatch, 1) }
    set -u %::cnick $nick($active, $me).color
  }
  %:echo 10( $+ $cnick(%::cmode).color $+ %::cmode $+ 10 $+ %::nick $+ 10) %::text $+  %:comment
}
alias query {
  if ($isid) { return }
  if (!$0) { .timer.kte 1 0 !query | .timer.kte -e | halt }
  !query $1
  if ($0 > 1) {
    if (!$server) { .timer.kte 1 0 !query $1- | .timer.kte -e | halt }
    msg $1-
  }
}
alias msg {
  if ($isid) { return }
  if ($0 < 2) || ((=* !iswm $1) && ($status == disconnected)) || (!$_ischat($1)) {
    .timer.kte 1 0 !msg $1- | .timer.kte -e | halt
  }
  .!msg $1-
  if (!$show) { return }
  _set | set -nu %::text $2- | set -u %::target $1 | set -u %::nick $1
  if ($1 ischan) || ($query($1)) || (=* iswm $1) {
    set -u %:echo echo $color(own) -ti2 $1
    if ($1 ischan) {
      if ($nick($1, $me).pnick != $me) { set -u %::cmode $left($ifmatch, 1) }
      set -u %::cnick $nick($1, $me).color
      %:echo 10( $+ $cnick(%::cmode).color $+ %::cmode $+  $+ $me $+ 10) %::text $+  %:comment
    }
    else { %:echo 10( $+ $me $+ 10) %::text $+  %:comment }
  }
  else { set -u %:echo echo $color(own) -ti2 $+ $_active | %:echo -> *10 $+ %::target $+ * %::text $+  %:comment }
}

alias amsg {
  if ($isid) { return }
  if ($status == disconnected) || (!$0) || (!$chan(0)) { .timer.kte 1 0 !amsg $1- | .timer.kte -e | halt }
  !.amsg $1-
  if (!$show) { return }
  _set . | set -nu %::text $1- | set -u %::nick $me
  var %i = $chan(0)
  while (%i) {
    set -u %::chan $chan(%i)
    set -u %::target %::chan
    set -u %:echo echo $color(own) -ti2 %::chan
    if ($nick(%::chan, $me).pnick != $me) { set -u %::cmode $left($ifmatch, 1) }
    set -u %::cnick $nick(%::chan, $me).color
    %:echo 10( $+ $cnick(%::cmode).color $+ %::cmode $+  $+ %::nick $+ 10) %::text $+  %:comment
    dec %i
  }
}

on &^*:TEXT:*:#:{
  if ($nick($chan,$nick).pnick !== $nick) {
    _set | _chanevt | set -u %:echo echo $color(normal) -mlbfti2 $chan | set -nu %::text $strip($1-, o)
    %:echo 10( $+ $cnick(%::cmode).color $+ %::cmode $+  $+ %::nick $+ 10) %::text $+  %:comment
  }
  if ($nick($chan,$nick).pnick == $nick) {
    _set | _chanevt | set -u %:echo echo $color(normal) -mlbfti2 $chan | set -nu %::text $strip($1-, o)
    %:echo 10( $+ %::nick $+ 10) %::text $+  %:comment
  }
}
on &^*:CHAT:*:{
  if ($window(=$nick, 0) > 1) { return }
  if (
ACTION *
 iswm $1-) {
    _set | set -nu %::text $strip($mid($1-, 8, -1), o)
    set -u %:echo echo $color(action) -mti2lbf =$nick
    %:echo * %::nick %::text $+  %:comment
  }
  else {
    _set | set -nu %::text $strip($1-, o)
    set -u %:echo echo $color(normal) -mti2lbf =$nick
    %:echo 10( $+ %::nick $+ 10) %::text $+  %:comment
  }
}
on &^*:TEXT:*:?:{ 
  var %e = echo $color(normal) -mti2 | _set | set -nu %::text $strip($1-, o)
  if ($query($nick)) { set -u %:echo %e $nick | %:echo 10(14 $+ %::nick $+ 10) %::text $+  %:comment }
  else {
    if ($window(Message Window)) { set -u %:echo %e $+ d }
    elseif ($_isactive) && (@* !iswm $active) && ($hget(Kte.Events, Active.Queries)) { set -u %:echo %e $+ a }
    else { set -u %:echo %e $+ s }
    %:echo 10( $+ %::nick $+ 10) %::text $+  %:comment
  }
}