/* ****************************
********** load + input *********
******************************
*/
on *:START:{
  updateLook
}
alias updateLook {
  timestamp -ef 6«12hh6:12nn6:12ss 0tt6»
  timestamp -eg 6«12hh6:12nn6:12ss 0tt6»
  if (!$readini(owwTheme.ini,loaded,loaded)) {
    hadd -m badchans chans #idle #mSL #mIRC #support #irchelp
    color background 1
    color normal 0
    color action 6
    color highlight 0
    color listbox text 0
    color listbox 1
    color editbox text 0
    color editbox 1
    color own text 0
    color whois text 0
    color info text 12
    color quit text 12
    color treebar 1
    color treebar text 0
    font -dsgz -9 Tahoma
    cnick * 4 @
    cnick * 7 %
    cnick * 0 +
    cnick * 14
    writeini owwTheme.ini loaded loaded already
  }
}
on &*:INPUT:#:{
  if (/* !iswm $1) || ($ctrlenter) {
    msg $active $hs($$1-)
    halt
  } 
}
on &*:INPUT:?:{
  if (/* !iswm $1) || ($ctrlenter) {
    msg $active $hs($$1-)
    halt
  } 
}

/* ****************************
********* theme display *********
******************************
*/
alias msg {
  !.msg $$1 $hs($$2-).msg
  if ($show) {
    if ($1 ischan || $query($1)) {
      if ($1 ischan) {
        echo -i12t $1 6«0 $+($ncol($chan,$me),$cmod($chan,$me),$me) 6» $hs($2-)
      }
      else {
        echo -i12t $1 6«0 $+($ncol($chan,$me),$cmod($chan,$me),$me) 6» $hs($2-)
      }
    }
    else {
      echo -i12t --> $1 $+ ; $hs($2-)
    }
  }
}
alias describe {
  !.describe $$1 $$2-
  if ($show) {
    if ($1 ischan || $query($1)) {
      if ($1 ischan) {
        echo -i12t $1 6 «0 $+($ncol($chan,$me),$cmod($chan,$me),$me) 6» *  $hs($2-)
      }
      else {
        echo 6 -i12t $1 6 «0 $+($ncol($chan,$me),$cmod($chan,$me),$me) 6» *  $hs($2-)
      }
    }
    else {
      echo 6 -i12t $1 —> $1 $+ ; $hs($2-)
    }
  }
}

alias amsg {
  !msg $left($regsubex($str(~,$chan(0)),/~/g,$iif(!$istok($hget(badchans,chans),$chan(\n),32),$chan(\n) $+ $chr(44))),-1) $hs($1-)
  if ($show) {
    var %i $chan(0)
    while (%i) {
      if (!$istok($hget(badchans,chans),$chan(%i),32) echo -i12t $chan(%i) 6«0 $+($ncol($chan,$me),$cmod($chan,$me),$me) 6» $hs($1-)
      dec %i
    }
  }
}
alias ame {
  !describe $left($regsubex($str(~,$chan(0)),/~/g,$iif(!$istok($hget(badchans,chans),$chan(\n),32),$chan(\n) $+ $chr(44))),-1) $hs($1-)
  if ($show) {
    var %i $chan(0)
    while (%i) {
      if (!$istok($hget(badchans,chans),$chan(%i),32) echo -i12t $1 6 «0 $+($ncol($chan,$me),$cmod($chan,$me),$me) 6» *  $hs($1-)
      dec %i
    }
  }
}

on &^*:TEXT:*:#:{
  haltdef
  if ($regex($1-,/[a-zA-Z 0-9]*\b(?:[10]{8})+\b[a-zA-Z 0-9]*/)) tokenize 32 BINARY ** $b2t($1-)
  tokenize 32 $hiliteName($1-)
  if ($chilight($1-)) {
    echo -lbfmti12c highlight $chan 6«0 $+($ncol($chan,$nick),$cmod($chan,$nick),$nick) 6» $hs($1-)
    hilight $nick $chan normal $1-
    if ($hget(away,reason)) && (!$hget(away,$address($nick,3))) {
      hadd away $address($nick,3) told
      notice $nick I am away with the reason: $hget(away,reason)
    }
  }
  else {
    echo -lbfmti12c normal $chan 6«0 $+($ncol($chan,$nick),$cmod($chan,$nick),$nick) 6» $hs($1-)
  }
}
on &^*:TEXT:*:?:{
  haltdef
  tokenize 32 $hiliteName($1-)
  if ($chilight($1-)) {
    echo -lbfmti12c highlight $nick 6«0 $+($ncol($chan,$nick),$cmod($chan,$nick),$nick) 6» $hs($1-)
    hilight $nick $nick normal $1-
    if ($hget(away,reason)) && (!$hget(away,$address($nick,3))) {
      hadd away $address($nick,3) told
      notice $nick I am away with the reason: $hget(away,reason)
    }
  }
  else {
    echo -lbfmti12c normal $nick 6«0 $+($ncol($chan,$nick),$cmod($chan,$nick),$nick) 6» $hs($1-)
  }
}
on &^*:ACTION:*:#:{
  haltdef
  tokenize 32 $hiliteName($1-)
  if ($chilight($1-)) {
    echo -lbfmti12c highlight $chan 6 «0 $+($ncol($chan,$nick),$cmod($chan,$nick),$nick) 6» *  $hs($1-)
    hilight $nick $chan action $1-
    if ($hget(away,reason)) && (!$hget(away,$address($nick,3))) {
      hadd away $address($nick,3) told
      notice $nick I am away with the reason: $hget(away,reason)
    }
  }
  else {
    echo -lbfmti12c action $chan 6 «0 $+($ncol($chan,$nick),$cmod($chan,$nick),$nick) 6» *  $hs($1-)
  }
}
on &^*:ACTION:*:?:{
  haltdef
  tokenize 32 $hiliteName($1-)
  if ($chilight($1-)) {
    echo -lbfmti12c highlight $nick 6* «0 $+($ncol($chan,$nick),$cmod($chan,$nick),$nick) 6» *  $hs($1-)
    hilight $nick $null action $1-
    if ($hget(away,reason)) && (!$hget(away,$address($nick,3))) {
      hadd away $address($nick,3) told
      notice $nick I am away with the reason: $hget(away,reason)
    }
  }
  else {
    echo -lbfmti12c action $nick 6* «0 $+($ncol($chan,$nick),$cmod($chan,$nick),$nick) 6» *  $hs($1-)
  }
}
on &^*:OPEN:?:*:{
  echo $nick $timestamp
  noop $tip(Query $nick,Query with $nick,$nick opened a query with you $twrap($1-,3),8,,,,)
}



/* ****************************
********* theme aliases *********
******************************
*/

alias twrap {
  var %r,%size $calc(281 - $width($str( $chr(32),$2),$font,$size,0,1)),%i 1,%t $wrap($1,$font,$size,%size,1,0)
  while (%i <= %t) {
    var %r = %r $crlf $str( $chr(32),$2) $wrap($1,$font,$size,%size,1,%i)
    inc %i
  }
  return %r
}
alias font return Tahoma
alias size return 12

alias hiliteName return $regsubex($1-,/\G((?:(?!\bspit[ _](?:water)?\b).)*)\b(spit[ _](?:water)?)?\b/ig,\14\2)

alias b2t $iif($isid,return,echo -a) $regsubex($1-,/([10]{1,8})/g,$chr($base(\1,2,10,0)))
alias t2b $iif($isid,return,echo -a) $regsubex($1-,/(.)/g,$base($asc(\1),10,2,8))

alias nCol { return  $+ $nick($1,$2).color }
alias cMod {
  if ($nick($1,$2).pnick != $2) { return $left($v1,1) }
  else { return  }
}
alias hs {
  if (!$isid) halt
  if (*c* iswmcs $chan($chan).mode) && ($prop == msg) return $1-
  return $regsubex($1-,/(?<=^| |\x28)((?:(?:(?:https?|tcp|udp|ftp):\/\/)(?:(?:[^ ()]{2,}\.[^ ()]*)|(?:[^ ()]?\.[^ ()]+)))|(?:(?:www\.)(?:(?:\.[^ ()]{3,})|(?:\w\.[^ ()]{2,})|(?:[^ ()]{2,}\.[^ ()]+))))(?=$| |\x29)/ig,12\1)
}
alias hilight {
  noop $tip(Hilighted : $2,Hilighted in $2 $+ !,$1 hilighted you in $2 $twrap($4-,3),8,,,,)

  if ($2 != $active) || ($idle > 600) echo -mti12c $3 $hlwin $ncol($2,$$1) $+ $cmod($2,$$1) $+ $$1 $+  $+ $iif($3 == normal,;,*) $+ $2 $+ ; $hs($4-)
}
alias chilight {
  if ($regex($1-,/\b(?:spit[ _](?:water)?)\b/i)) { return 1 }
}
alias hlwin {
  if (!$window(@Hilights. $+ $cid)) { window -evk0n @Hilights. $+ $cid }
  return @Hilights. $+ $cid
}
alias awin {
  if (!$window(@Away. $+ $cid)) { window -evk0n @Away. $+ $cid }
  return @Away. $+ $cid
}
alias say { msg $active $1- }
alias me { describe $active $1- }
alias tcase { return $regsubex($1-,/(?:^|\b|_)+([a-z])/g,$chr(32) $+ $upper(\1)) }


; *****************************
; ******** away systm *********
; *****************************
alias a away $1-
alias aw away $1-
alias away {
  !away $1-
  hadd -m away reason $1-
  hadd away ctime $ctime
  hadd away oldNick $me
  nick $me $+ -Away
  ame is now away. Reason: $1-
}
alias bk back $1-
alias b back $1-
alias back {
  !away
  nick $hget(away,oldNick)
  ame is back from $hget(away,reason) $+ ! I was gone for $duration($calc($ctime - $hget(away,ctime)))
  hfree away
}