# This is a cosmetic port of neuken's allegro theme from
# his neo script. BIG thanks to phos, butane and neuken
# for all their help. 

setProperty("ui.sbarlines",2);
setProperty("statusbar",-1);
setProperty("ui.font","courier new-PLAIN-13");
setProperty("statusbar.bgtype", 2)
setProperty("statusbar.color", "-0");
setProperty("window.color", "-0");
setProperty("desktop.color", "-16777216");
setProperty("switchbar.color", "-3653564");
setProperty("ui.editcolor", "-4144960");
setMappedColor(0, "-4144960");
setMappedColor(1, "-16777216");
setMappedColor(2, "-16777088");
setMappedColor(3, "-16740352");
setMappedColor(4, "-65536");
setMappedColor(5, "-8388608");
setMappedColor(6, "-6291296");
setMappedColor(7, "-32768");
setMappedColor(8, "-256");
setMappedColor(9, "-16760768");
setMappedColor(10, "-16744320");
setMappedColor(11, "-16727872");
setMappedColor(12, "-12517377");
setMappedColor(13, "-14671840");
setMappedColor(14, "-12566207");
setMappedColor(15, "-8355712");
setMappedColor(16, "-5329234");
$nnn = " " . buildCP437String("\C14Ä\C15Ä\C16Ä") . "";
$rrr = "\C14 !\C15";
sub ismode {
  if ($1 isop $2) { return "@"; }
  else if ($1 isvoice $2) { return "+"; }
  else {
   if ($3 eq "action") { return "!"; }
   else  { return " "; }
  }
}
sub bw {
  local('$x $conn $bw $i');
  $bw = "0";
  $conn = "0";
  foreach $x (getActiveConnections()) {
    if (getConnectionType($x) eq "RECEIVE") {
      $conn++;
      $i = getTransferRate($x);
      $bw = $bw + $i;
    }
  }
  if ($conn eq "0") { return "0"; }
  else { 
    return "$conn \c14@\c16" . formatBytes($bw) . "/s"; 
  }
}
alias sv { say(".\B.\B\U(\Ujircii!".versionString()." \U[\U\B+\Ball\Ue\Ugro\U])\U"); }
sub rtime {
  return left(lc(formatDate("h:mmaa")),-1);
}
set CHANNEL_JOIN          { 
    if ($nick eq $me) { return; }
  return "$nnn \C14(\C15join\C14)\C16 $nick \C14[\C16 $user $+ \C10@\C16 $+ $host \C14] (\C16" . rtime() . "\C14)"; 
}
set CHANNEL_PART          { return "$nnn \C14(\C15part\C14)\C16 $nick \C14[\C16 $user $+ \C10@\C16 $+ $host \C14] (\C16" . rtime() . "\C14)"; }
set USER_QUIT             {
 local('$temp');
 $temp = getServerNetwork();
   if ($parms eq "") { return "$nnn \C14(\C15quit\C14)\C16 $nick \C15has left $temp \C14(\C16" . rtime() . "\C14)"; }
   else { return "$nnn \C14(\C15quit\C14)\C16 $nick \C14[\C16 $parms \C14] (\C16" . rtime() . "\C14)"; }
}
set USER_MODE             { return "$nnn \C14(\C15usermode\C14)\C16 $me \C14[\C16 " .strrep($parms,"+","\C11+\C16","-","\C11-\C16") . " \C14] (\C16" . rtime() . "\C14)"; }
set CHANNEL_MODE          { return "$nnn \C14(\C15mode\C14)\C16 $nick \C14[ " . strrep($parms,"+","\C11+\C16","-","\C11-\C16") . " \C14] (\C16" . rtime() . "\C14)"; }
set CHANNEL_TOPIC_CHANGED {
   if ($parms eq "") { return "$nnn \C16 $+ $nick \C15has removed the topic."; }
   else { return "$nnn \C16 $+ $nick \C15has changed the topic\C14:\C16 $parms"; }
}
set RESOLVED_LOCALINFO    { return "$nnn resolved local host to $0"; }
set CHANNEL_KICK          { return "$nnn \C16 $+ $1 \C15was kicked by $nick $+ \C14:\C16 $2-"; }
set USER_NICK             { return "$nnn \C16 $+ $nick \C15is now known as\C14:\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 \C14(\C15synch\C14)\C11:\C16 $1 \C15was synched in\C16 $sync \C15seconds."; }
sub formatNick {
   if ($1 isop $2) { return "\c15@\c16 $+ $3"; }
   if ($1 isvoice $2) { return "\c15+\c16 $+ $3"; }
   if ($1 ishalfop $2) { return "\c15%\c16 $+ $3"; }
   return "\c16 $3";
}
set CHANNEL_TOPIC_IS      { return "$nnn \C14(\C15topic\C14)\C11:\C16 $parms"; }
set CHANNEL_TOPIC_SETBY   { return "$nnn \C14(\C15setby\C14)\C11:\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("\C10 *\C15 msg\C14/\C16 $+ $target \C14-\C15 $parms"); }
     return "\C14(\C16 $+ $[9]me $+ \C14)\C15 $parms";
   }
   return "\C10 *\C15 msg\C14/\C16 $+ $target \C14-\C15 $parms";
}
set SEND_CHAT             { return "\C14(\C16 $+ $[9]me $+ \C14)\C15 $parms"; }
set CHATMSG               { return "\c14(\C15 $+ $[9]0 $+ \C14)\c15 $parms"; }
set SEND_ACTION           { return "\C15".buildCP437String(chr(240))."\C16 $me \C15 $+ $parms"; }
set SEND_ACTION_PRIV      { return "\C15".buildCP437String(chr(240))."\C16 $me \C15 $+ $parms"; }
set CHANNEL_TEXT          { return "\C15". ismode($nick,$0)."\C14(\C15 $+ $[9]nick $+ \C14)\C15 $parms"; }
set ACTION                { return "\C15".buildCP437String(chr(240))."\C14 $nick \C15 $+ $parms"; }
set PRIVMSG               { return "\C14(\C15 $+ $[9]nick $+ \c14)\C15 $parms"; }
set PRIVACTION            { return "\C15".buildCP437String(chr(240))."\C14 $nick \C15 $+ $parms"; }
set SEND_CTCP {
  local ('$send');
  if ($1 eq "PING") { $send = "$1"; }
  else { $send = "$1 $2-"; }
  return "\C15 *\C15 ctcp\C14/\C16 $+ $0 \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 "\C14 *\C15 ctcp\C14/\C16 $+ ".lc($1)." \C15requested by $nick";
}
set CTCP_REPLY {
   $stuff = $2-;
   if ($pt ne "") { $stuff = $pt; }
   return "\C15 * reply\C14\/\C16 $+ ".lc($1)." \C15from $nick $+ \C14:\C15 $stuff";
}
set NOTICE {
   if ($nick eq "") { return "$nnn \C15".lc($2-).""; }
   if ($1 eq "DCC") { if (($2 eq "Chat") || ($2 eq "Send")) { return; } }
   return "\C11-\C15 $+ $nick $+ \C11-\C15 $parms";
}
on REQUEST {
  if (uc($1) eq "VERSION") {                              
  sendReply($nick, "VERSION",".\B.\B\U(\Ujircii!".versionString()." \U[\U\B+\Ball\Ue\Ugro\U])\U");                         
  if (-isSetT "active.ctcp") { echo(parseSet("CTCP_REQUEST",%localData)); }
  else { echoStatus(parseSet("CTCP_REQUEST",%localData)); }
  halt;
  }
}

set SEND_NOTICE          { return "\C10 *\C15 notice\C14/\C16 $+ $0 \C14-\C15 $parms"; }
set IDENT_REQUEST        { return; }
set INVITE               { return "$nnn \C16 $+ $nick invites you\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 \C15 $+ $numeric \C14-\C15 $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 "        \C15away      " . buildCP437String("\C09³ \C11³") . "\C16 $2-"; }
set REPL_305             { return; }
set REPL_306             { return; }
set REPL_311             { return; }
set REPL_312             { return "        \C15server    " . buildCP437String("\C09³ \C11³") . "\C16 " . strrep($2,".","\C15.\C16") . " "; }
set REPL_313             { return "        \C15opper     " . buildCP437String("\C09³ \C11³") . "\C16 $1 likes to party!"; }
set REPL_314             { return; }
set REPL_315             { return; }
set REPL_317             { return "        \C15idle      " . buildCP437String("\C09³ \C11³") . "\C16 " . duration($2); }
set REPL_318             { return "" . buildCP437String("\C15 ÄÄ\C14ÄÄÄÄ\C10ÄÄÄ\C11Ä\C09ÄÄÄÄÄÄÄÙ À\C10ÄÄÄÄÄÄÄÄÄÄÄÄÄ\C11ÄÄ\C16ÄÄÄ\C15ÄÄÄÄÄ\C14ÄÄÄÄÄÄ \C09ÄÄÄÄÄ\C10ÄÄÄ \C11Ä\C12ÄÄÄÄÄ\C16Ä") . ""; }
set REPL_319             { return "        \C15channels  " . buildCP437String("\C09³ \C11³") . "\C16 " . strrep($2-,"@","\C10@\C16","+","\C11+\C16")  . ""; }
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 "$nnn \C16 $+ $1 \C15has been invited to\C16 $2"; }
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 "" . buildCP437String("     \C13ÄÄÄ\C14Ä\C15ÄÄÄ\C16Ä\C15Ä\C14Ä\C13ÄÄÄ\C09¿ Ú\C10ÄÄÄÄ\C11ÄÄÄÄÄÄÄ\C12ÄÄÄÄÄÄÄ\C11ÄÄÄ\C10ÄÄ\C11ÄÄÄÄ\C16Ä\C15Ä \C14Ä\C15Ä") . ""; }
set EC_REPL_311_1        { return "        \C16 $+ $[9]0 " . buildCP437String("\C09| \C11|") . "\C14 (\C16 $+ $1 $+ \C10@\C16 $+ $2 $+ \C14)"; }
set EC_REPL_311_2        { return "        \C15ircname   " . buildCP437String("\C09³ \C11³") . "\C16 $0-"; }
alias sc {
  $win = iff("$1","$1","$active");
  if (!-ischannel "$win") { return; }
  echo("$win"," " . buildCP437String("\C13Ú\C14Ä\C15¿\C14Ä\C13Ä") . "\C16 $win\C14[\C15" . strrep(getMode("$win"),"+","\C10+\C15") . "\C14]:\C15 o\C14/\C16" . size(getOps("$win")) . " \C15v\C14/\C16" . size(getVoiced("$win")) . " \C15n\C14/\C16" . size(getNormal("$win")) . " \C15t\C14/\C16" . size(getUsers("$win")) . "");
  echo("$win"," " . buildCP437String("\C13À\C14Ä\C15Ä\C14Ä\C15ÄÄ \C16Ä\C15ÄÄÄÄ\C14ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ\C11ÄÄÄÄ\C10ÄÄÄÄÄÄÄ\C11ÄÄÄÄÄÄÄÄ\C10ÄÄÄÄ\C09ÄÄÄÄÄÄÄ Ä  \C13ÄÄ Ä\C15Ä\C14Ä") . "");
  @nicks = getUsers("$win");
  for ($x = 0; $x < size(@nicks); $x += 6) {
    ($n1, $n2, $n3, $n4, $n5, $n6) = subarray(@nicks,$x,6 + $x);
    echo("$win","   " . buildCP437String("\C15³") . " " . sf("$n1","$win") . sf("$n2","$win") . sf("$n3","$win") . sf("$n4","$win") . sf("$n5","$win") . sf("$n6","$win") . "");
  }
  echo ("$win"," " . buildCP437String("\C13Ú\C14Ä\C15Ä\C14Ä\C15Ä \C16Ä\C14ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ\C13ÄÄÄ\C09ÄÄÄÄÄÄÄÄÄÄ\C10ÄÄÄÄÄ\C11ÄÄÄÄÄÄÄÄ\C10ÄÄ\C09ÄÄÄÄÄÄÄÄÄ \C14Ä Ä\C15Ä \C14ÄÄ") . "");
  echo ("$win"," " . buildCP437String("\C14À\C15Ä\C16Ù") . "");
}
sub sf {
  if ($1 eq "") { return; }
  if ($1 isop $2) { return "\C15(@\C16 $+ $[9]1 $+ \C15) "; }
  if ($1 isvoice $2) { return "\C15(+\C16 $+ $[9]1 $+ \C15) "; }
  return "\C15(\C16 $[9]1 $+ \C15) ";
}
set SBAR_LEFT
{
   local('$temp'); 
  if ($line == 0)
   {
      return sbarpad($window, "" . buildCP437String("\C13Ú\C14Ä\C15¿") . "\C16 $me $+ \C15@\C16" . getServerHost() . "\C14[\C15 $+ " . strrep("$mymode","+","\C11+\C16")."".iff(getIdleTime() > 600,"\C14/\C15idle","")." $+ \C14]\C14", buildCP437String("Ä"), 25);
   }
   else
   {
      if ($me ison $query)
      {
         $temp = "\C14[\C10" . strrep(ismode($me,$query)," ","") . "\C16 $+ $query $+ \C14(" . strrep(getMode("$query"),"+","\C11+\C16") . " $+ \C14)\C11:\C16 op\C15/\C16" . size(getOps("$query")) . " \C16voc\C15/\C16" . size(getVoiced("$query")) . " \C16non\C15/\C16" . size(getNormal("$query")) . " \C16tot\C15/\C16" . size(getUsers("$query")) . "\C14]";
      }
      else if ($query ne "")
      {
         $temp = "\C14[\C10query:\C16 $query $+ \C14]";
      }
      else
      {
         $temp = "\C14[\C16" . iff(getServerHost() ne "","\C10online","\C10disconnected") ."\C14]\C15";
      }
      $testies = "" . buildCP437String("\C13À\C14Ä\C15Ä\C16ÄÄÄ") . "$temp $+ \C15" .  "";

      return sbarpad($window, $testies, buildCP437String("Ä"), 26);
  }
}
set SBAR_RIGHT
{
  local('$temp');
  if ($line == 0)
  {
     return buildCP437String("\C14" . "Ä") x 5 . "\C15".buildCP437String("Ä")."\C14[(\C15".bw()." \C16gets \C14/\C15 0 \C16queues\C14)]".buildCP437String("\C16ÄÄ\C15¿");
  }
  else
  {
     return buildCP437String("\C15" . "Ä") x 5 . "\C14[\C16".formatDate("MM.dd.yyyy")." \C14(\C15". rtime()."\C14)]".buildCP437String("\C14ÄÄÙ")."";
  }
}

sub sbarpad
{
   #get total sbar (left and right)
   local('$totalpx');

   $totalpx = (getWindowSize($1) - strwidth(strip($2))) - strwidth(" "  x $4);
   return $2 . (  $3 x ($totalpx / strwidth(strip($3)))  );
}
alias foo { for ($x = 128; $x < 255; $x++) { echo("$[3]x " . buildCP437String(chr($x))); } }