# This is a cosmetic port of tunnelvision to jIRCii. 

setProperty("ui.sbarlines", 2);
setProperty("statusbar.color", -16777114);
setProperty("statusbar.bgtype", 1); 
setProperty("statusbar", -1);
setProperty("ui.font","courier new-PLAIN-13");
setProperty("statusbar.color", "-16777114");
setProperty("desktop.color", "-16777216");
setProperty("switchbar.color", "-65536");
setProperty("ui.editcolor", "-4144960");
setMappedColor(0, "-4144960");
setMappedColor(1, "-16777216");
setMappedColor(2, "-16777088");
setMappedColor(3, "-16740352");
setMappedColor(4, "-65536");
setMappedColor(5, "-8388608");
setMappedColor(6, "-8388480");
setMappedColor(7, "-32768");
setMappedColor(8, "-256");
setMappedColor(9, "-16711936");
setMappedColor(10, "-16744320");
setMappedColor(11, "-16711681");
setMappedColor(12, "-16776961");
setMappedColor(13, "-65281");
setMappedColor(14, "-8355712");
setMappedColor(15, "-4144960");
setMappedColor(16, "-1");

$nnn = "\C14" . buildCP437String(chr(205)) . "\C15" . buildCP437String(chr(205)) . "\C16" . buildCP437String(chr(205)) . "\C15";
$rrr = "\C14[\C16t\C10/\C15v\C14]\C15";
alias sv  { say("jIRCii\U!\U" . versionString() . " :tunnel\Bvision\B/\U1.2\U"); }
sub rtime {
  return left(lc(formatDate("h:mmaa")),-1);
}
set CHANNEL_JOIN          { return "$nnn \C14[\C11 $+ $nick $+ \C14/\C10 $+ $address $+ \C14]\C15 joined channel " . strrep($target,"#","\C11#\C10") . ""; }
set CHANNEL_PART          { return "$nnn \C14[\C15 $+ $nick $+ \C14/\C15 $+ $address $+ \C14]\C15 left channel " . strrep($target,"#","\C11#\C10") . ""; }
set USER_QUIT             {
 local('$temp');
 $temp = getServerNetwork();
   if ($parms eq "") { return "$nnn \C14[\C11s\C10ignoff\C14/\C06 $+ $temp $+ \C14]\C16 $nick \C14(\C15 $+ $nick has no reason\C14)"; }
   else { return "$nnn \C14[\C11s\C10ignoff\C14/\C06 $+ $temp $+ \C14]\C16 $nick \C14(\C15 $+ $parms $+ \C14)"; }
}
set USER_MODE             { return "$nnn \C14[\C16m\C15ode \C16c\C15hange\C14/\C13u\C06ser\C14] ".buildCP437String(chr(34))."\C16 $+ $parms $+ \C14".buildCP437String(chr(34))."\C15 by $me"; }
set CHANNEL_MODE          { return "$nnn \C14[\C16m\C15ode \C16c\C15hange\C14/" . strrep($target,"#","\C13#\C06") . " $+ \C14] ".buildCP437String(chr(34))."\C16 $+ $parms $+ \C14".buildCP437String(chr(34))."\C15 by $nick"; }
set CHANNEL_TOPIC_CHANGED {
   if ($parms eq "") { return "$nnn \C16 $+ $nick \C15has removed the topic"; }
   else { return "$nnn \C16t\C15opic\C14/\C11" . strrep($target,"#","\C11#\C10") . " \C14[\C15 $+ $nick $+ \C14]\C15 $parms"; }
}
set RESOLVED_LOCALINFO    { return "$nnn resolved local host to\C10 $0"; }
set CHANNEL_KICK          { return "$nnn \C16 $+ $1 \C15was kicked by $nick $+ \C14:\C10 [\C15 $+ $2- $+ \C10]"; }
set USER_NICK             { return "$nnn \C10 $+ $nick \C15is now known as\C11 $1"; }
set CHANNEL_CREATED       { return; }
set CHANNEL_NAMES         { return; }
set FORMATTED_NAMES       { return "" . formatNick($nick, $2, left("$[10]nick", 10)) . ""; }
set JOIN_SYNC             { call("sc $1"); return "$rrr \C14[\C13c\C06hannel \C13s\C06ync\C14/\C13 $+ $1 $+ \C14] \C14(\C16 $+ $sync \C15seconds\C14).."; }
sub formatNick {
   if ($1 isop $2) { return "\c11@\c10 $+ $3"; }
   if ($1 isvoice $2) { return "\c11+\c10 $+ $3"; }
   if ($1 ishalfop $2) { return "\c11%\c10 $+ $3"; }
   return "\c10 $3";
}
set CHANNEL_TOPIC_IS      { return "$nnn \C16t\C15opic\C14/" . strrep($0,"#","\C11#\C10") . "\C14:\C15 $parms"; }
set CHANNEL_TOPIC_SETBY   { return "$nnn \C16t\C15opic by\C16 $nick \C14[\C13 $+ $seton $+ \C14]"; }
set SEND_TEXT             { return "\C06<\C16 $+ $me $+ \C06>\C15 $parms"; }
set SEND_TEXT_PRIV        { return "\C15#\C14> \C14[\C16m\C16sg\C14/\C11 $+ $target $+ \C10!*@*\C14]\C15 $parms"; }
set SEND_MSG              {
   if (-iswindow "$target") {
     if (getCurrentWindow() ne "$target") { echo("\C15#\C14> \C14[\C16m\C16sg\C14/\C11 $+ $target $+ \C10!*@*\C14]\C15 $parms"); }
     return "\C15#\C14> \C14[\C16m\C16sg\C14/\C11 $+ $target $+ \C10!*@*\C14]\C15 $parms";
   }
   return "\C15#\C14> \C14[\C16m\C16sg\C14/\C11 $+ $target $+ \C10!*@*\C14]\C15 $parms";
}
set SEND_CHAT             { return "\C15#\C14> \C14[\C16m\C16sg\C14/\C11 $+ $target $+ \C10!*@*\C14]\C15 $parms"; }
set CHATMSG               { return "\C15#\C14> \C14[\C16m\C16sg\C14/\C11 $+ $target $+ \C10!*@*\C14]\C15 $parms"; }
set SEND_ACTION           { return "\C14(\C12#\C14)\C16 $me \C15 $+ $parms"; }
set SEND_ACTION_PRIV      { return "\C14(\C12#\C14)\C16 $me \C15 $+ $parms"; }
set CHANNEL_TEXT          { return "\C06<\C15 $+ $nick $+ \C06>\C15 $parms"; }
set ACTION                { return "\C14(\C12#\C14)\C15 $nick $parms"; }
set PRIVMSG               { return "\C14[\C13 $+ $nick $+ \C14(\C06 $+ $address $+ \C14)]\C15 $parms"; }
set PRIVACTION            { return "\C14(\C12#\C14)\C15 $nick $parms"; }
set SEND_CTCP {
  local ('$send');
  if ($1 eq "PING") { $send = "$1"; }
  else { $send = "$1 $2-"; }
  return "\C15#\C14> [\C16c\C15tcp\C14/\C11 $+ $0 $+ \C10!*@*\C14]\C15 $send";
}
set CTCP_REQUEST {
  local ('$reqt');
  if ($1 eq "PING" && -isnumber $2) { $reqt = "PING"; }
  else {
    $reqt = $1;
    if ($2 ne "") { $reqt = uc($reqt) . " $2-"; }
  }
  return "$rrr \C11ctcp ".lc($1)." \C10from \C14[\C13 $+ $nick $+ \C14/\C06 $+ $address $+ \C14]\C10 to $target";
}
set CTCP_REPLY {
   $stuff = $2-;
   if ($pt ne "") { $stuff = $pt; }
   return "$rrr \C16ctcp ".lc($1)." \C15reply from $nick $+ \C14:\C15 $stuff";
}
on REQUEST {
  if (uc($1) eq "VERSION") {                              
  sendReply($nick, "VERSION","jIRCii\U!\U" . versionString() . " :tunnel\Bvision\B/\U1.2\U");                         
  if (-isSetT "active.ctcp") { echo(parseSet("CTCP_REQUEST",%localData)); }
  else { echoStatus(parseSet("CTCP_REQUEST",%localData)); }
  halt;
  }
}
set NOTICE {
   if ($nick eq "") { return "$rrr $2-"; }
   if ($1 eq "DCC") { if (($2 eq "Chat") || ($2 eq "Send")) { return; } }
   return "\C14-\C11 $+ $nick $+ \C14/\C10 $+ $address $+ \C14-\C15 $parms";
}
set SEND_NOTICE          { return "\C15#\C14> \C14[\C16n\C15otice\C14/\C13 $+ $0 $+ \C06!*@*\C14]\C15 $parms"; }
set IDENT_REQUEST        { return; }
set INVITE               { return "$rrr \C14[\C11i\C10nvitatio\C11n\C14/\C06 $+ $nick $+ \C14] (\C11 $+ $1 $+ \C11)"; }
set IRC_ATTEMPT_CONNECT  { return "$nnn \C15connecting to " . $0; }
set IRC_CONNECT          { return; }
set IRC_DISCONNECT       { return "$nnn \C15disconnected \C14[\C15" . getServerHost() . "\C14]"; }
set IRC_RECONNECT        { return "$nnn \C15reconnecting to " . getServerHost(); }
set NUMERIC {
  local('$temp');
  if ($numeric < 500) { $temp = lc("$1-"); }
  else { $temp = lc($1-); }
  return "$rrr $temp";
}
set REPL_001             { return; }
set REPL_002             { return; }
set REPL_003             { return; }
set REPL_004             { return; }
set REPL_005             { return; }
set REPL_250             { return; }
set REPL_251             { return; }
set REPL_252             { return; }
set REPL_253             { return; }
set REPL_254             { return; }
set REPL_255             { return; }
set REPL_265             { return; }
set REPL_266             { return; }
set REPL_301!            { return "" . buildCP437String("\C15³") . "\C13       a\C06way \C14:\C15:\C16:\C15 $2-"; }
set REPL_311             { return; }
set REPL_312!            { return "" . buildCP437String("\C15³") . "\C13     s\C06erver \C14:\C15:\C16:\C15 $2"; }
set REPL_313!            { return "" . buildCP437String("\C15³") . "\C13       o\C06per \C14:\C15:\C16:\C15 $1 likes to party!"; }
set REPL_314             { return; }
set REPL_315             { return; }
set REPL_317!            { return "" . buildCP437String("\C16³") . "\C13       i\C06dle \C14:\C15:\C16:\C15 " . duration($2); }
set REPL_318!            { return "" . buildCP437String("\C16À ÄÄ Ä  Ä ÄÄÄÄÄÄÄÄÄÄ\C15Ä\C16ÄÄÄ\C15Ä\C16Ä\C15ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ\C14Ä\C15ÄÄÄÄ\C14Ä\C15ÄÄ\C14Ä\C15Ä\C14ÄÄÄÄ ÄÄÄ Ä") . ""; }
set REPL_319!            { return "" . buildCP437String("\C14³") . "\C13   c\C06hannels \C14:\C15:\C16:\C15 $2-"; }
set REPL_320             { return; }
set REPL_321             { return; }
set REPL_322             { return; }
set REPL_323             { return; }
set REPL_324             { return; }
set REPL_330             { return; }
set REPL_338             { return; }
set REPL_341             { return; }
set REPL_352             { return; }
on  REPL_353             { return; }
set REPL_364             { return; }
set REPL_365             { return; }
set REPL_366             { return; }
set REPL_372             { return; }
set REPL_375             { return; }
set REPL_376             { return; }
set REPL_378             { return; }
set REPL_406             { return; }
set REPL_401             { return "$rrr \C14[\C11 $+ $1 $+ \C14]\C15 no such nick/channel."; }
set REPL_402             { return "$rrr \C14[\C11 $+ $1 $+ \C14]\C15 no such nick/server."; }
set REPL_403             { return "$rrr \C14[\C11 $+ $1 $+ \C14]\C15 no such channel."; }
set REPL_404             { return "$rrr \C14[\C11 $+ $1 $+ \C14]\C15 can't send to channel."; }
set REPL_406             { return "$rrr \C14[\C11 $+ $1 $+ \C14]\C15 there was no such nickname."; }
set REPL_421             { return "$rrr \C14[\C11/".lc($1)."\C14]\C15 unknown command."; }
set REPL_433             { return "$rrr \C14[\C11 $+ $1 $+ \C14]\C15 nick in use."; }
set REPL_442             { return "$rrr \C14[\C11 $+ $1 $+ \C14]\C15 not on channel."; }
set REPL_443             { return "$rrr \C14[\C11 $+ $1 $+ \C14]\C15 nick is on channel."; }
set REPL_471             { return "$rrr \C14[\C16d\C15enied\C14/\C11 $+ $1 $+ \C14]\C15 channel is full."; }
set REPL_473             { return "$rrr \C14[\C16d\C15enied\C14/\C11 $+ $1 $+ \C14]\C15 invite only channel."; }
set REPL_474             { return "$rrr \C14[\C16d\C15enied\C14/\C11 $+ $1 $+ \C14]\C15 banned from channel."; }
set REPL_475             { return "$rrr \C14[\C16d\C15enied\C14/\C11 $+ $1 $+ \C14]\C15 bad channel key."; }
set REPL_481             { return "$rrr \C14[\C16d\C15enied\C14/\C11 $+ $1 $+ \C14]\C15 not an operator."; }
set REPL_482             { return "$rrr \C14[\C16d\C15enied\C14/\C11 $+ $1 $+ \C14]\C15 not a channel operator."; }
on  REPL_311 {
  if (-isSetT "active.whois") {
     echo(parseSet("EC_WHOIS_HEADER","whois",$1));
     echo(parseSet("EC_REPL_311_1",$1,"$2 $3"));
     echo(parseSet("EC_REPL_311_2",$5-));
  }
  else {
     echoStatus(parseSet("EC_WHOIS_HEADER","whois",$1));
     echoStatus(parseSet("EC_REPL_311_1",$1,"$2 $3"));
     echoStatus(parseSet("EC_REPL_311_2",$5-));
   }
}
set EC_WHOIS_HEADER      { return "" . buildCP437String("\C14ÚÄÄÄÄÄÄÄ\C15Ä\C14Ä\C15ÄÄ\C14Ä\C15ÄÄÄÄÄÄÄÄÄÄÄÄ\C16Ä\C15Ä\C16ÄÄ\C15Ä\C16ÄÄÄ\C15Ä\C16ÄÄÄÄÄÄÄÄÄÄ Ä Ä Ä   Ä") . ""; }
set EC_REPL_311_1        { return "" . buildCP437String("\C14³") . "\C11 $+ $[-11]0 \C14:\C15:\C16: \C14[\C10 $+ $1 $+ @ $+ $2 $+ \C14]"; }
set EC_REPL_311_2        { return "" . buildCP437String("\C14³") . "\C13    i\C06rcname \C14:\C15:\C16:\C15 $0-"; }
alias sc {
  $win = iff("$1","$1","$active");
  if (!-ischannel "$win") { return; }
  echo("$win","" . buildCP437String("    \C14Ä ÄÄÄ Ä[\C13 $win \C14]ÄÄ[\C06" . size(getUsers("$win")) . " \C13user\C06s\C15]ÄÄ[\C06" . size(getOps("$win")) . "\C13 ops " . size(getNormal("$win")) . " nop\C06s\C15]Ä\C16Ä[\C06@\C13 $+ $time $+ \C16]\C15Ä ÄÄÄ   Ä") . "");
  @nicks = getUsers("$win");
  for ($x = 0; $x < size(@nicks); $x += 5) {
    ($n1, $n2, $n3, $n4, $n5) = subarray(@nicks,$x,5 + $x);
    echo("$win","      " .  sf("$n1","$win") . sf("$n2","$win") . sf("$n3","$win") . sf("$n4","$win") . sf("$n5","$win") . "");
  }
}
sub sf {
  if ($1 eq "") { return; }
  if ($1 isop $2) { return "\C11@\C10 $+ $[12]1 "; }
  if ($1 isvoice $2) { return "\C11+\C10 $+ $[12]1 "; }
  return "\C10 $[12]1 ";
}
set SBAR_LEFT
{
   local('$temp');
   if ($line == 0)
   {
 if ($me ison $query)
      {
         $temp = "\C14[\C10" . getModeFor($me,"$query") . "\C16 $+ $query \C14(\C10" . getMode("$query") . " $+ \C14) \C16o\C15" . size(getOps("$query")) . " \C16v\C15" . size(getVoiced("$query")) . " \C16n\C15" . size(getNormal("$query")) . "\C14]";
      }
      else if ($query ne "")
      {
         $temp = "\C14[\C10query:\C16 $query $+ \C14]";
      }
      else
      {
         $temp = "\C14(\C10".getServerNetwork()."\C14)\C15";
      }

      return "\C12 " . buildCP437String(chr(220)) . " " . buildCP437String(chr(223)) . " " . buildCP437String(chr(254)) . "   \C16n\C15fo\C10:\C15 $me \C14(\C10 $+ $mymode $+ \C14)\C15 on $temp ";
   }
   else
   {
     return "\C12" . buildCP437String(chr(223)) . "" . buildCP437String(chr(219)) . "" . buildCP437String(chr(223)) . "   \C16t\C15ime\C10:\C16 $time \C14[\C10" . getServerHost() . "\C14]";
  }
}
set SBAR_RIGHT
{
  local('$temp');
  if ($line == 0)
  {
     return "\C14[\C15tunnel\Bvision\B\C14]  ";
  }
  else
  {
     return "\C14[\C15lag\C10:\C16 $lag $+ \C14]  ";
  }
}
alias foo { for ($x = 128; $x < 255; $x++) { echo("$[3]x " . buildCP437String(chr($x))); } }