# jircii + fusion.irc
#  old theme of mine ported from neuken's neo.

setProperty("ui.sbarlines", 2);
setProperty("statusbar.bgtype", 2); 
setProperty("statusbar", -1);
setProperty("ui.font","courier new-PLAIN-13");
setProperty("window.color", "-16777216");
setProperty("desktop.color", "-16777216");
setProperty("switchbar.color", "-65536");
setProperty("ui.editcolor", "-4144960");
setMappedColor(0, "-4934476");
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, "-16750951");
setMappedColor(11, "-16711681");
setMappedColor(12, "-16776961");
setMappedColor(13, "-65281");
setMappedColor(14, "-8553091");
setMappedColor(15, "-4934476");
setMappedColor(16, "-2631721");
$nnn = "\C14:\C15:\C16:\C15";
$rrr = "\C14:\C15:\C16:\C15";
alias sv  { say("..j\UIRC\Uii[ ".versionString()." \U+\U fus\Uion\U ]: where is my mind?"); }
sub rtime {
  return left(lc(formatDate("h:mmaa")),-1);
}
sub ismode {
  if ($1 isop $2) { return "@"; }
  else if ($1 isvoice $2) { return "+"; }
  else {
   if ($3 eq "action") { return "!"; }
   else  { return " "; }
  }
}
set CHANNEL_JOIN          { 
   if ($me eq $nick) { return; }
   return "$nnn \C14[\C16join\C10/\C15 $+ $target $+ \C14] -\C16 $nick \C14[\C15 $+ $user $+ \C10@\C15 $+ $host $+ \C14]"; 
}
set CHANNEL_PART          { return "$nnn \C14[\C16part\C10/\C15 $+ $target $+ \C14] -\C16 $nick \C14[\C15 $+ $user $+ \C10@\C15 $+ $host $+ \C14]"; }
set USER_QUIT             {
 local('$temp');
 $temp = getServerNetwork();
   if ($parms eq "") { return "$nnn \C14[\C16quit\C10/\C15 $+ $temp $+ \C14] -\C16 $nick \C14[\C15 $+ $nick has no reason\C14]"; }
   else { return "$nnn \C14[\C16quit\C10/\C15 $+ $temp $+ \C14] -\C16 $nick \C14[\C15 $+ $parms $+ \C14]"; }
}
set USER_MODE             { return "$nnn usermode is now\C14:\C15 $parms"; }
set CHANNEL_MODE          { return "$nnn \C14[\C16mode\C10/\C15 $+ $target $+ \C14] -\C16 $nick \C14[\C15 $+ $parms $+ \C14]"; }
set CHANNEL_TOPIC_CHANGED {
   if ($parms eq "") { return "$nnn \C14[\C16topic\C10/\C15 $+ $target $+ \C14] -\C16 $nick \C15removed the topic"; }
   else { return "$nnn \C14[\C16topic\C10/\C15 $+ $target $+ \C14] -\C16 $nick \C14[\C15 $+ $parms $+ \C14]"; }
}
set RESOLVED_LOCALINFO    { return "$nnn resolved local host to\C16 $0"; }
set CHANNEL_KICK          { return "$nnn $nick has kicked\C16 $1 \C14[\C15 $+ $2- $+ \C14]"; }
set USER_NICK             { return "$nnn $nick \C15is now known as\C16 $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 "$nnn synch\C14:\C15 join to\C16 $1 \C15was synched in\C16 $sync \C15seconds.. "; }
sub formatNick {
   if ($1 isop $2) { return "\c10@\c15 $+ $3"; }
   if ($1 isvoice $2) { return "\c10+\c15 $+ $3"; }
   if ($1 ishalfop $2) { return "\c10%\c15 $+ $3"; }
   return "\c15 $3";
}
set CHANNEL_TOPIC_IS      { return "$nnn topic\C14:\C15 $parms"; }
set CHANNEL_TOPIC_SETBY   { return "$nnn topic was setby\C16 $nick \C14[\C15 $+ $seton $+ \C14]"; }
set SEND_TEXT             { return "\C10".ismode($me,$0)."\C14[\C16 $+ $[9]me $+ \C14]\C15 $parms"; }
set SEND_TEXT_PRIV        { return "\C14[\C16 $+ $[9]me $+ \C14]\C15 $parms"; }
set SEND_MSG              {
   if (-iswindow "$target") {
     if (getCurrentWindow() ne "$target") { echo("\C14 -> \C14[\C16msg\C10/\C15 $+ $0 $+ \C14] -\C16 $parms"); }
     return "\C14[\C16 $+ $[9]me $+ \C14]\C15 $parms";
   }
   return "\C14 -> \C14[\C16msg\C10/\C15 $+ $0 $+ \C14]\C16 $parms";
}
set SEND_CHAT             { return "\C14[\C16 $+ $[9]me $+ \C14]\C15 $parms"; }
set CHATMSG               { return "\C14[\C16 $+ $[9]me $+ \C14]\C15 $parms"; }
set SEND_ACTION           { return "\C14 !\C16 $me \C15 $+ $parms"; }
set SEND_ACTION_PRIV      { return "\C14 !\C16 $me \C15 $+ $parms"; }

set CHANNEL_TEXT          {
  if ($me isin $parms) { return "\C10".ismode($nick,$0)."\C14[\C07 $+ $[9]nick $+ \C14]\C15 $parms"; }
  return "\C10".ismode($nick,$0)."\C14[\C15 $+ $[9]nick $+ \C14]\C15 $parms"; 
}

set ACTION                { return "\C14 !\C15 $nick $parms"; }
set PRIVMSG               { return "\C14[\C15 $+ $[9]nick $+ \C14]\C15 $parms "; }
set PRIVACTION            { return "\C14 !\C15 $nick $parms"; }
set SEND_CTCP {
  local ('$send');
  if ($1 eq "PING") { $send = "$1"; }
  else { $send = "$1 $2-"; }
  return "\C14 -> \C14[\C16ctcp\C10/\C15 $+ $0 $+ \C14]\C16 $send";
}
set CTCP_REQUEST {
  local ('$reqt');
  if ($1 eq "PING" && -isnumber $2) { $reqt = "PING"; }
  else {
    $reqt = $1;
    if ($2 ne "") { $reqt = lc($reqt) . " $2-"; }
  }
  return "$nnn \C15ctcp\C16 ".lc($1)." \C15request from\C16 $nick";
}
set CTCP_REPLY {
   $stuff = $2-;
   if ($pt ne "") { $stuff = $pt; }
   return "$nnn ctcp\C16 ".lc($1)." \C15reply from $nick \C14[\C15 $+ $stuff $+ \C14]";
}
on REQUEST {
  if (uc($1) eq "VERSION") {                              
  sendReply($nick, "VERSION","..j\UIRC\Uii[ ".versionString()." \U+\U fus\Uion\U ]: where is my mind?");                         
  if (-isSetT "active.ctcp") { echo(parseSet("CTCP_REQUEST",%localData)); }
  else { echoStatus(parseSet("CTCP_REQUEST",%localData)); }
  halt;
  }
}
set NOTICE {
   if ($nick eq "") { return "\C14!\C15".getServerHost()."\C14!\C15 $2-"; }
   if ($1 eq "DCC") { if (($2 eq "Chat") || ($2 eq "Send")) { return; } }
   return "\C10*\C15 $+ $nick $+ \C10*\C15 $parms";
}
set SEND_NOTICE          { return "\C14 -> \C14[\C16notice\C10/\C15 $+ $0 $+ \C14]\C16 $parms"; }
set IDENT_REQUEST        { return; }
set INVITE               { return "$nnn \C16 $+ $nick invites you to join\C14:\C16 $1"; }
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 "$nnn $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 "\C14 |\C15:   awaymsg \C15:\C14|\C15 $2-"; }
set REPL_311             { return; }
set REPL_312!            { return "\C14 |\C15:    server \C15:\C14|\C15 $2"; }
set REPL_313!            { return "\C14 |\C15:  operator \C15:\C14|\C16 $1 \C15likes to party!"; }
set REPL_314             { return; }
set REPL_315             { return; }
set REPL_317!            { return "\C14 |\C15:      idle \C15:\C14|\C15 " . duration($2); }
set REPL_318!            { return "\C14 '\C15-------------\C14'"; }
set REPL_319!            { return "\C14 |\C15:  channels \C15:\C14|\C15 ".strrep($2-,"@","\C10@\C15")." "; }
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 "$nnn error\C14:\C16 $1 \C14-\C15 no such nick/channel."; }
set REPL_402             { return "$nnn error\C14:\C16 $1 \C14-\C15 no such server."; }
set REPL_403             { return "$nnn error\C14:\C16 $1 \C14-\C15 no such channel."; }
set REPL_404             { return "$nnn error\C14:\C16 $1 \C14-\C15 can't send to channel."; }
set REPL_406             { return "$nnn error\C14:\C16 $1 \C14-\C15 there was no such nickname."; }
set REPL_421             { return "$nnn unknown command\C14: /\C16".lc($1).""; }
set REPL_433             { return "$nnn error\C14:\C16 $1 \C14-\C15 nick in use."; }
set REPL_442             { return "$nnn error\C14:\C16 $1 \C14-\C15 not on channel"; }
set REPL_443             { return "$nnn error\C14:\C16 $1 \C14-\C15 nick is on channel."; }
set REPL_471             { return "$nnn error\C14:\C16 $1 \C14-\C15 channel is full."; }
set REPL_473             { return "$nnn error\C14:\C16 $1 \C14-\C15 invite only channel."; }
set REPL_474             { return "$nnn error\C14:\C16 $1 \C14-\C15 banned from channel."; }
set REPL_475             { return "$nnn error\C14:\C16 $1 \C14-\C15 bad channel key."; }
set REPL_481             { return "$nnn error\C14:\C16 $1 \C14-\C15 not an operator."; }
set REPL_482             { return "$nnn error\C14:\C16 $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 " \C14.\C15-------------\C14."; }
set EC_REPL_311_1        { return " \C14|\C15:\C16 $[-9]0 \C15:\C14| \C14(\C15 $+ $1 $+ \C10@\C15 $+ $2 $+ \C14)"; }
set EC_REPL_311_2        { return " \C14|\C15:  realname \C15:\C14|\C15 $0-"; }
alias SC {
  $win = iff("$1","$1","$active");
  $temp = "stats \C14[\C16 $win \C14(\C15o\C14:\C16".size(getOps($win))." \C15v\C14:\C16".size(getVoiced($win))." \C15n\C14:\C16".size(getNormal($win))." \C15t\C14:\C16".size(getUsers($win))."\C14)\C15 ".strrep(getMode("$win"),"+","\C10+\C15")." \C14]"; 
 if (!-ischannel "$win") { return; }
  echo("$win"," \C14.\C15--------------------------------------------------------------------\C14.");
  
  if (size(getOps("$win")) ne "0") { 
  @nicks = getOps("$win");
  for ($x = 0; $x < size(@nicks); $x += 5) {
    ($nick1, $nick2, $nick3, $nick4, $nick5) = subarray(@nicks,$x,5 + $x);
    echo("$win"," \C14|\C15: ".sf("$nick1","$win")." ". sf("$nick2","$win")." ". sf("$nick3","$win")." ". sf("$nick4","$win")." ". sf("$nick5","$win")." \C15:\C14|");
  }
}
 if (size(getVoiced("$win")) ne "0") {   
   echo ("$win"," \C14|\C15--------------------------------------------------------------------\C14|");  
   @nicks = getVoiced("$win");
  for ($x = 0; $x < size(@nicks); $x += 5) {   
   ($nick1, $nick2, $nick3, $nick4, $nick5) = subarray(@nicks,$x,5 + $x);
    echo("$win"," \C14|\C15: ".sfv("$nick1","$win")." ".sfv("$nick2","$win")." ".sfv("$nick3","$win")." ".sfv("$nick4","$win")." ".sfv("$nick5","$win")." \C15:\C14|");
  }
}
 if (size(getNormal("$win")) ne "0") {   
   echo ("$win"," \C14|\C15--------------------------------------------------------------------\C14|");  
   @nicks = getNormal("$win");
  for ($x = 0; $x < size(@nicks); $x += 5) {  
    ($nick1, $nick2, $nick3, $nick4, $nick5) = subarray(@nicks,$x,5 + $x);
     echo("$win"," \C14|\C15: ".sf("$nick1","$win")." ".sf("$nick2","$win")." ".sf("$nick3","$win")." ".sf("$nick4","$win")." ".sf("$nick5","$win")." \C15:\C14|");
  }
}
  echo ("$win"," \C14|\C15--------------------------------------------------------------------\C14|");
  echo ("$win"," \C14|\C15: $[124]temp \C15:\C14|");
  echo ("$win"," \C14'\C15--------------------------------------------------------------------\C14'");
}
sub sf {
  if ($1 eq "") { return "\C14[          \C14]"; }
  if ($1 isop $2) { return "\C14[\C10@\C15 $+ $[9]1 $+ \C14]"; }  
  if ($1 isvoice $2) { return "\C14[\C10+\C15 $+ $[9]1 $+ \C14]"; }
  return "\C14[\C15 $[9]1 $+ \C14]";
}
sub sfv {
  if ($1 isvoice $2) { return "\C14[\C10+\C15 $+ $[9]1 $+ \C14]"; }
  if ($1 eq '') { return "\C14[          \C14]"; }
}
set SBAR_LEFT {
   local('$temp');
   if ($line == 0) {
 if ($me ison $query)
      {
         $temp = "on \C14".getModeFor($me,"$query")."\C16 $+ $query $+ \C14[".strrep(getMode("$query"),"+","\C10+\C15")." \C14(\C16o\C14:\C15".size(getOps("$query"))." \C16v\C14:\C15".size(getVoiced("$query"))." \C16n\C14:\C15".size(getNormal("$query"))." \C16t\C14:\C15".size(getUsers("$query"))."\C14)]";
         $dookie = "".getServerHost()."\C14[\C15".getServerPort()."\C14(\C15".getServerNetwork()."\C14)]"      
}
      else if ($query ne "")
      {
         $temp = "on \C15query\C14[\C15 $+ $query $+ \C14]";
      }
      else
      {
         $temp = "";
      }
  
    return " ".buildCP437String("\C16ÚÄ\C15Ä\C14¿")."\C16 $me $+ \C14[\C15 $+ $mymode $+ \C14]\C15 $temp";
   }
   else
   {
    return " ".buildCP437String("\C14À\C15Ä\C16ÄÙ")."\C15  ".iff(getServerHost() ne "","$dookie","disconnected")." ";
  }
}
set SBAR_RIGHT
{
  local('$temp');
  if ($line == 0)
  {
     return "time\C14[\C15".rtime()."\C14] ".buildCP437String("Ä\C15Ä\C16¿")." ";
  }
  else
  {
     return "lag\C14[\C15 $+ $lag $+ s\C14] ".buildCP437String("Ä\C15Ä\C16Ù")." ";
  }
}
alias foo { for ($x = 128; $x < 255; $x++) { echo("$[3]x " . buildCP437String(chr($x))); } }