# tetris.irc: created @08/24/08 - too long to be scripting...
# tetris.irc: greets to butane, neuken, mexis, camo, timbob, slackzor, fuck pander, oxidate
# tetris.irc:           dev, phos, fro, psk, tricky, and the rest of the #jircii crew.
# tetris.irc: help from butane, mexis, and phos
# tetris.irc: side effects vary due to being exposed to extreme leetness
# tetris.irc: word of advice.. if your using alot of sub arrays to convert shit.. have the sub coding at the first of the script..

echo("$nnn \c16tetris\c10.\c16irc\c12:\c15 SIDE EFFECTS VARY!! USE WITH CAUTION!");
echo("$nnn \c16tetris\c10.\c16irc\c12:\c15 created by \c16slackzor\c11,\c15 ported by \c16ceelow\c15 with additional touch ups\c11!\c15");
echo("$nnn \c16tetris\c10.\c16irc\c12:\c15 custom commands\c11.. \c15/\c16bans \c15/\c16notify \c15/\c16dcc");


sub ans2jerk { echo(bcp("$1")); }
sub bcp      { return buildCP437String($1); }
sub boxtop   { echo(timeStampCh("" . buildCP437String("  \c11ù") . "")); echo(timeStampCh("" . buildCP437String("\c11 $+ -Â\c10Å09Ä $+ \c11 $+ ÄÄ12Ä- $+ \c10 $+ ÄÄ $+ \c11 $+ Ä $+ \c10 $+ Ä \c11 $+ - \c11 $+ -00- \c10 $+ ÄÄ $+ \c11 $+ -00ù 12ù-00- $+ \c11 $+ ÄÄ $+ \c10 $+ -- \c10 $+ -     \c11 $+ ú $+ \c10 $+ ù-00- $+ \c11 $+ ÄÄ12- $+ \c11 $+ - 00- 12ù  \c10 $+ ú") . "")); }
sub boxtxt   { echo(timeStampCh(buildCP437String(" \c10 $+ ÃÅ $+ \c11 $+ ù00ú") . $1)); }
sub boxend   { echo(timeStampCh("" . buildCP437String(" \c11ÀÅ\c10Ä00Ä12//00Ä11- $+ \c10 $+ ÄÄ11ÄÄ-00- $+ \c10 $+ ÄÄ00- \c10 $+ --00 \c10 $+ Ä09- $+ \c11 $+ ÄÄ-00Ä12- 12ù  00¯") . "")); echo(timeStampCh("" . buildCP437String("  \c11ÀÄ\c10Ä- \c10- 00ÄÄ12- 12-00- 12ù02ú") . "")); }
sub boxlin   { echo(timeStampCh("" . buildCP437String(" \c10ÃÅÄ00Ä12//00Ä $+ \c11 $+ - \c10 $+ - 00ÄÄ12- 12-00-15 12ù02ú") . "")); } 
sub DCCInformation {
   local('$info $conn');
   $conn = $1;
   $type = getConnectionType($conn);
   if (!-isdccopen $conn) { return "\c15waiting..."; }
   if ($type eq "CHAT") { $info = "\c15idle\c12:\c16 " . formatTime(getDCCIdleTime($conn) / 1000); }
   else {
     $info = "\c12(\c15est\c12:\c16 " . formatTime2(getTimeRemaining($conn)) . "\c12)\c15";
     local('$a $b $c $d');
     $a = getDCCPercentage($conn);
     $b = getDCCFileName($conn);
     $c = formatBytes(getTransferRate($conn)) . "/s";
     $d = "\c12(\c15size\c12:\c16 " . formatBytes(getDCCSizeSoFar($conn)) . "\c12)\c15";
     $info = "\c15 $+ $[21]info $+ $[-2]a $+ \r%\r $[7]c $+ $[22]d $+ $b"
   }
   return $info;
}
sub fM {
  $test = "$[11]1";
  if ($1 isop $2)     { return "\c12@\c15" . left("$test", 11); }
  if ($1 isvoice $2)  { return "\c11+\c15" . left("$test", 11); }
  if ($1 ishalfop $2) { return "\c10%\c15" . left("$test", 11); }
  else { return "\c15 " . left("$test", 11); }
}
sub formatNick {
   if ($1 isop $2) { return "\c12@\c15 $+ $3"; }
   else if ($1 isvoice $2) { return "\c11+\c15 $+ $3"; }
   else if ($1 ishalfop $2) { return "\c10%\c15 $+ $3"; }
   return "\c15 $+ $3";
}
sub formatNumeric { if (charAt($1, 0) eq "#") { return "$nnn \c16 $+ $1 $+ \c15 $2"; } return "$nnn \c16 $+ $1 $+ \c15 $2"; }
sub formatWhois   { return buildCP437String("\c00| $+ \c11¯ \c00") . "$[11]1" . buildCP437String(" 10ÃÅ00") . " $2"; }
sub getStatusSymbol {
   if ($1 isop $2) { return "\c12@\c15"; }
   if ($1 isvoice $2) { return "\c11+\c15"; }
   if ($1 ishalfop $2) { return "\c10%\c15"; }
   return " ";
}
sub sbarpad     { local('$totalpx'); $totalpx = (getWindowSize($1) - strwidth(strip($2))) - strwidth(" "  x $4); return $2 . (  $3 x ($totalpx / strwidth(strip($3)))  ); }
sub taddy       { return strrep($1,"@","\c12@\c00",".","\c10.\c00","!","\c10!\c00","+","\c12+\c00"); }
sub tbrac       { return "\c11(\c00 $+ " . "$1" . " $+ \c11)\c00"; }
sub timeStampCh { if (-isSetF "option.timestamp") { return parseSet("TIMESTAMP") . $1; } return $1; }

$_bancount = 0;
$nnn = bcp("\c11Ä\c00-\c12-\c00");
$rrr = bcp("\c11Ä\c00-\c12-\c00");

setProperty("statusbar.color", "-00000000");
setProperty("desktop.color", "-16777216");
setProperty("switchbar.color", "-65536");
setProperty("ui.editcolor", "-4144960");
setProperty("desktop", -1);
setProperty("statusbar", -1);
setProperty("window", -1);
setProperty("ui.sbarlines", 2);
if (getProperty("statusbar.bgtype", 0) == 0) { setProperty("statusbar.bgtype", 1); }
# setProperty("ui.font","Courier New-PLAIN-13");

on kick { if ($1 eq $me) { call("/join $target"); } }
on unload { setProperty("ui.sbarlines", 1); }
on REQUEST {
  if (uc($1) eq "VERSION") {                              
  sendReply($nick, "VERSION",systemProperties()['os.name'] . ' ' . systemProperties()['os.version'] . " :: jIRCii\u/\u" . versionString() . " $+ \u/\u demintri\u/\u+tETRIS!@#$\u/\u :: i have bubblegum in my brain!");                         
  if (-isSetT "active.ctcp") { echo(parseSet("CTCP_REQUEST",%localData)); }
  else { echoStatus(parseSet("CTCP_REQUEST",%localData)); }
  halt;
  }
}


alias sc {
  $win = iff($1,$1,getActiveWindow());
  if (!-ischannel "$win") { return; }
  $temp = " " x (40 - strlen("$win"));
  echo("$win",timeStampCh("" . buildCP437String("  11ù") . ""));
  echo("$win",timeStampCh("" . buildCP437String("11-Â10Å09Ä11ÄÄ12Ä-10ÄÄ11Ä10Ä 11-00 11-00- 10ÄÄ11-00ù 12ù-00-11ÄÄ10-- 10-                                      11ú10ù-00-11ÄÄ12-11- 00- 12ù 00 10ú15 15 15 15 11®00-11-10ÄÂ11Â") . ""));  
  @nicks = getUsers("$win");
  for ($x = 0; $x < size(@nicks); $x += 5;) {
    ($nick1, $nick2, $nick3, $nick4, $nick5) = subarray(@nicks,$x,5 + $x);
    echo("$win",timeStampCh("" . buildCP437String(" 10ÃÅ 12<11(00 " . fM("$nick1","$win") . " \c11 $+ ) 11(00 " . fM("$nick2","$win") . " \c11 $+ )15 11(00 " . fM("$nick3","$win") . " \c11 $+ ) 11(00 " . fM("$nick4","$win") . " \c11 $+ ) 11(00 " . fM("$nick5","$win") . " \c11 $+ )12>00 00ú11ù10Å´") . ""));
  }
  echo("$win",timeStampCh("" . buildCP437String(" 11ÀÅ10Ä00Ä12//00Ä11-10ÄÄ11ÄÄ-00-10ÄÄ00- 10-- 10Ä09-11ÄÄ-00Ä12- 12ù 00 00¯15                                                           12À11Å12Ä") . ""));
  echo("$win",timeStampCh("" . buildCP437String("  11ÀÄ10Ä- 10- 00ÄÄ12- 12-00- 12ù02ú                                                                            00ù") . ""));
}
alias names                { call("topic $1"); call("sc $1"); }
alias scan                 { call("sc $1"); }
alias sv                   { say(systemProperties()['os.name'] . ' ' . systemProperties()['os.version'] . " :: jIRCii\u/\u" . versionString() . " $+ \u/\u demintri\u/\u+tETRIS!@#$\u/\u :: i have bubblegum in my brain!"); }
alias notify {
   if ($1 ne "") { call("/ $+ $0-", "use-built-in-command-only"); return; }
   local('$output $otime $addy'); boxtop();
   boxtxt(" \c15signed on\c12..");
   foreach $var (getSignedOnUsers()) { 
     $otime  = formatTime2(onlineFor($var)); 
     $addy   = "\c12(\c15" . getAddressFromNotify($var) . "\c12]\c15"; 
     boxtxt("\c15   $[12]var $[40]addy $otime"); 
   } 
   boxlin(); boxtxt(" \c15signed off\c12..");   
   foreach $var (getSignedOffUsers()) { $output = "$output $var"; boxtxt("\c15   $output"); }
   boxend();
}
alias dcc {
   if ($1 ne "") { call("/ $+ $0-", "use-built-in-command-only"); return; }
   if (size(getActiveConnections()) == 0) { echo(timeStampCh(" $nnn \c15no active dcc connections\c12..")); return; }
   else {
    boxtop();
    boxtxt("" . tbrac("type") . "     " . tbrac("nick") . "        " . tbrac("information") . "");
    boxlin();
    foreach $conn (getActiveConnections()) {
       $type = getConnectionType($conn);
       $nick = getDCCNickname($conn);
       $info = DCCInformation($conn);
       boxtxt(" \c15$[9]type  $[12]nick  $info");
    }
    boxend();
 }
}
alias bans {
  $win = iff($1,$1,getActiveWindow());
  if (!-ischannel "$win") { return; }
  boxtop();
  boxtxt(" ban list for\c12 $win");
  boxlin();
  call("mode $win b"); 
}

set ACTION                 { return "\c00-\c12>\c00 $nick $1-"; }
set ACTION_INACTIVE        { return "\c00-\c12>\c00 $nick $+ : $+ $0 $1-"; }
set CHANNEL_BANLIST        { local('@info'); @info = split('!', $3); $_bancount++; boxtxt(" \c12 $+ $[2]_bancount \c11-\c15 $1 $+ \c12:\c15 ban\c16 $[40]2 " . tbrac("setby " . @info[0])); }
set CHANNEL_BANLIST_END    { if ($_bancount == 0) { boxtxt(" no bans set"); } else { $_bancount = 0; } boxend(); }
set CHANNEL_JOIN           { return "$nnn \c12<\c00join\c10(\c11 $+ $target $+ \c10)\c12>\c00 $nick \c11(\c00 $+ " . taddy("$address") . " $+ \c11)"; }
set CHANNEL_KICK           { return "$nnn \c12<\c00kick\c10(\c11 $+ $0 $+ \c10)\c12>\c00 $nick kicked\c11:\c00 $1 \c12'\c00 $+ $2- $+ \c12'\c00"; }
set CHANNEL_MODE_IS        { return "$nnn \c12(\c00topic\c12)\c10>>\c00 $0 \c12'\c00 $+ $parms $+ \c12'\c00"; }
set CHANNEL_MODE           { rehashWindow($target); return "$nnn \c12<\c00mode\c10(\c11 $+ $target $+ \c10)\c12>\c00 $source sets\c11: \c12<\c00 $+ $parms $+ \c12>"; }
set CHANNEL_NAMES          { return; }
set CHANNEL_PART           { return "$nnn \c12<\c00part\c10(\c11 $+ $target $+ \c10)\c12>\c00 $nick \c11(\c00 $+ " . taddy("$address") . " $+ \c11)"; }
set CHANNEL_TEXT_INACTIVE  { if ($me isin $parms) { return "\c11(\c12 $+ " . getStatusSymbol($nick, $target) . " $+ \c15 $+ $nick $+ \c10:\c09 $+ $target $+ \c11)\c15 $parms"; } return "\c11(\c12 $+ " . getStatusSymbol($nick, $target) . " $+ \c15 $+ $nick $+ \c10:\c16 $+ $target $+ \c11)\c15 $parms"; }
set CHANNEL_TOPIC_CHANGED  { rehashWindow($0); return "$nnn \c12<\c00topic\c10(\c11 $+ $0 $+ \c10)\c12>\c00 $nick changes topic to\c11: \c12'\c00 $+ $parms $+ \c12'\c00"; }
set CHANNEL_TEXT           { if ($me isin $parms) { return "\c11(\c12 $+ " . getStatusSymbol($nick, $0) . " $+ \c09 $+ $[9]nick $+ \c11)\c00 $parms"; } return "\c11(\c12 $+ " . getStatusSymbol($nick, $0) . " $+ \c00 $+ $[9]nick $+ \c11)\c00 $parms"; }
set CHANNEL_TOPIC_IS       { return "$nnn \c12(\c00topic\c12)\c10>>\c00 $0 \c12'\c00 $+ $parms $+ \c12'\c00"; }
set CHANNEL_TOPIC_SETBY    { return "$nnn \c12(\c00setby\c12)\c10>>\c00 $nick \c12:: \c00 $+ $seton"; }
set CHANNEL_CREATED        { return "$nnn \c12(\c00cretd\c12)\c10>>\c00 $1 \c12::\c16 $created"; }
set CHATMSG                { return "\c00-\c12>\c00 $[10]0 $1-"; }
set CHAT_OPEN              { return "$nnn \c12<\c00dcc\c10(\c11chat\c10)\c12>\c15 connection is now open with\c16 $nick $+ \c12.."; }
set CHAT_CLOSE             { return "$nnn \c12<\c00dcc\c10(\c11chat\c10)\c12>\c15 connection with\c16 $nick \c15lost\c10:\c16 $1- "; }
set CTCP_REPLY             { $stuff = $2-; if ($pt ne "") { $stuff = $pt; } return "$nnn \c10(\c00 $+ ".lc($1)." reply\c10) \c12<\c00 $+ $nick $+ \c11(\c00 $+ " . taddy("$address") . " $+ \c11)\c12>\c00 $stuff"; }
set CTCP_REQUEST           { return "$nnn \c12<\c00 $+ $nick $+ \c11 $+ ( $+ \c00 $+ " . taddy("$address") . " $+ \c11)\c12> \c00requests ctcp\c00 ".lc($parms).""; }
set DCC_LIST_TYPE          { $conn = getDCCConnection($this); return "\c15" . getConnectionType($conn); }
set DCC_LIST_NICK          { $conn = getDCCConnection($this); return "\c15" . getDCCNickname($conn); }
set DCC_LIST_INFORMATION   { return DCCInformation(getDCCConnection($this)); }
set DCC_REQUEST            { if ($2 eq "SEND") { return "$nnn \c12<\c00dcc\c10(\c11send\c10)\c12>\c15 request from\c16 $nick $+ \c10:\c16 $3 \c11(\c16" . formatBytes($6) . "\c11)"; } return "$nnn \c12<\c00dcc\c10(\c11 $+ $2 $+ \c10)\c12>\c15 request from\c16 $nick"; }
set FORMATTED_NAMES_HEADER { return; }
set FORMATTED_NAMES        { return; }
set IDENT_REQUEST          { return "$rrr \c12<\c00ident\c10(\c11request\c10)\c12>\c15 coming from\c16 $0"; }
set IRC_ATTEMPT_CONNECT    { return "$rrr \c15attempting to connect to\c16 " . $0; }
set IRC_DISCONNECT         { return "$rrr \c15disconnected from\c16 " . getServerHost() . "\c10:\c16 $parms"; }
set IRC_CONNECT            { return "$rrr \c15connected to\c16 " . getServerHost() . "\b"; }
set IRC_RECONNECT          { return "$rrr \c15attempting to reconnect to\c16\r\b " . getServerHost() . "\b"; }
set INVITE                 { return "$nnn \c16 $+ $nick \c15invites \c16you \c15to join\c12 $1"; }
set JOIN_SYNC              { call("sc $1"); return "$nnn \c12(\c00synch\c12)\c10>>\c00 synched in\c00 $sync \c15secs\c10.."; }
set NICKLIST_FORMAT        { return formatNick($nick, $channel, $nick); }
set NOTICE                 { if ($nick eq "" && $1 eq "***") { return "$nnn \c12<\c10(\c15 $+ ".getServerHost()." $+ \c11)\c12>\c00 $2-"; } else if ($nick eq "") { return "$nnn \c12<\c10(\c15 $+ ".getServerHost()." $+ \c11)\c12>\c00 $1-"; } return "$nnn \c12<\c10(\c00+notice\c10)\c00 $+ $nick $+ \c11(\c00 $+ " . taddy("$address") . " $+ \c11)\c12>\c00 $parms"; }
set NOTIFY_SIGNON          { return "$nnn \c12(\c00notify\c12)\c10>>\c00 $nick \c12<\c15 $+ " . taddy("$address") . " $+ \c12>\c15 has signed\c16 on"; }
set NOTIFY_SIGNOFF         { return "$nnn \c12(\c00notify\c12)\c10>>\c00 $nick \c12<\c15 $+ " . taddy("$address") . " $+ \c12>\c15 has signed\c16 off"; }
set NUMERIC!               { return "$nnn $parms"; }
set PROCESS_DATA!          { return "\c12<\c16 $+ $pid $+ \c12>\c15 $parms"; }
set PRIVACTION             { return "\c00-\c12>\c00 $nick $1-"; }
set PRIVMSG                { if (-iswindow $nick) { return "\c11(\c15 $+ $[10]nick $+ \c11)\c15 $parms"; } return "$nnn \c12<\c10(\c00+msg\c10)\c00 $+ $nick $+ \c11(\c00 $+ " . taddy("$address") . " $+ \c11)\c12>\c00 $parms"; }
set ON_CHANNELS            { return "$rrr \c15channels\c10:\c16 $parms"; }
set SBAR_LEFT {
   local('$temp');
   if ($line == 0) { return sbarpad($window, "" . buildCP437String("\C10ÚÄ\C11¿") . "\C15 $me $+ \C12@\C15" . getServerHost() . "\C12(\C15 $+ " . strrep("$mymode","+","\C11+\C15") . " $+ \C12)\C11", buildCP437String("Ä"), 14); }
   else {
      if ($me ison $query) { $temp = "\c12(\c11" . getModeFor($me,"$query") . "\c15 $+ $query $+ \c12(" . strrep(getMode("$query"),"+","\c11+\c15") . " $+ \c12)\c11:\c15 \c15op\c12/\c15" . size(getOps("$query")) . " \C15voc\C12/\C15" . size(getVoiced("$query")) . " \c15non\c12/\c15" . size(getNormal("$query")) . "\c12)"; }
      else if ($query ne "") { $temp = "\c12(\c11query:\c15 $query $+ \c12)"; }
      else { $temp = "\c12(\c15Status Window\c12)\c15"; }
      $testies = "" . buildCP437String("\c10À\c09Ä\c11Ù ") . "$temp $+ \c15" .  "";

      return sbarpad($window, $testies, buildCP437String("\c11Ä"), 26);
  }
}
set SBAR_RIGHT             { local('$temp'); setWindowPrompt($window, "" . buildCP437String("\c00 \c00 \c12>\c15 ") . ""); if ($line == 0) { return buildCP437String("\c11" . "Ä") x 12 . "\C12(\C15lag\C12:\C15 $lag $+ \C12)" . buildCP437String("\C10Ä\c11¿"); } else { return buildCP437String("\c11" . "Ä") x 12 . "\C12(\C15" . formatDate("MM.dd.yyyy") . "\C12)" . buildCP437String("\C09Ä\c11Ù") . ""; } }
set SEND_ACTION            { return "\c00-\c12>\c00 $me $parms"; }
set SEND_ACTION_INACTIVE   { return "\c00-\c12>\c00 $me $+ : $+ $0 $parms"; }
set SEND_ACTION_PRIV       { return "\c00-\c12>\c00 $me $+ : $+ $0 $parms"; }
set SEND_COMPLETE          { return "$nnn \c12<\c00dcc\c10(\c11send\c10)\c12>\c15 transaction with\c16 $nick \c15has been completed"; }
set SEND_CTCP              { return "$nnn \c10(\c00ctcp\c10) \c12:: \c12<\c00 $+ $0 $+ \c11(\c00 $+ $1 $+ \c11)\c12>"; }
set SEND_CHAT_ERROR        { return "$rrr \c12<\c00dcc\c10(\c11chat\c10)\c12>\c15 there is not a open chat with\c16 $0"; }
set SEND_CHAT              { if (-iswindow ("=" . $0)) { return "\c11(\c15 $+ $[10]me $+ \c11)\c15 $1-"; } else { return "\c11(\c15 $+ $[10]0 $+ \c11)\c15 $1-"; } }
set SEND_DCC               { if ($1 eq "SEND") { return "$nnn \c12<\c00dcc\c10(\c11send\c10)\c12>\c15 request sent to\c16 $0 $+ \c10:\c16 " . getFileName($4-) . " \c11(\c16" . formatBytes($3) . "\c11)"; } return "$nnn \c12<\c00dcc\c10(\c11 $+ ".lc($1)." $+ \c10)\c12>\c15 request sent to\c16 $0"; }
set SEND_FAILED            { return "$nnn \c12<\c00dcc\c10(\c11send\c10)\c12>\c15 transaction to\c16 $nick \c15has failed\c10:\c16 $1-"; }
set SEND_MSG               { if (-iswindow $target) { return "\c11(\c15 $+ $[10]me $+ \c11)\c15 $parms"; } else { return "\c12<\c10(\c00-msg\c10)\c00 $+ $target $+ \c12>\c00 $1-"; } }
set SEND_NOTICE            { return "$nnn \c12<\c10(\c00-notice\c10)\c00 $+ $0 $+ \c12>\c00 $parms"; }
set SEND_START             { printf("Start of send to $nick"); return "$nnn \c12<\c00dcc\c10(\c11send\c10)\c12>\c15 transaction to\c16 $nick \c15has started"; }
set SEND_TEXT              { return "\c11(\c12 $+ " . getStatusSymbol($me, $0) . " $+ \c00 $+ $[9]me $+ \c11)\c00 $parms"; } 
set SEND_TEXT_INACTIVE     { return "" . getStatusSymbol($me, $0) . "\c11(\c15 $+ $me $+ \c21:\c23 $+ $target $+ \c11)\c15 $parms"; }
set SEND_WALL              { return "$nnn \c12<\c00wall\c10(\c11 $+ $0 $+ \c10)\c12>\c15 $1-"; }
set SEND_WALLEX            { return "$nnn \c12<\c00wall-x\c10(\c11 $+ $0 $+ \c10)\c12>\c15 $1-"; }
set SERVER_ERROR           { return "$rrr \c12(\c00error\c12)\c10>>\c00 \c15server \berror\b\c16 $parms"; }
set SET_IGNORE             { if ($0 eq "add") { return "$rrr \c12(\c00ignore\c12)\c10>>\c15 added\c16 $parms \c15to ignore list"; } if ($0 eq "remove") { return "$rrr \c12(\c00ignore\c12)\c10>>\c15 removed\c16 $parms \c15from ignore list"; } }
set SET_NOTIFY             { if ($0 eq "add") { return "$rrr \c12(\c00notify\c12)\c10>>\c15 added\c16 $parms \c15to notify list"; } if ($0 eq "remove") { return "$rrr \c12(\c00notify\c12)\c10>>\c15 removed\c16 $parms \c15from notify list"; } }
set TIMESTAMP              { return tbrac($time); }
set USER_MODE              { return "$nnn \c12<\c00mode\c10(\c11 $+ $target $+ \c10)\c12>\c00 $target sets\c11: \c12<\c00 $+ $parms $+ \c12>"; }
set USER_QUIT              { return "$nnn \c12<\c00quit\c10(\c11 $+ $channels $+ \c10)\c12>\c00 $nick \c12'\c00 $+ $parms $+ \c12'"; }
set USER_NICK              { return "$nnn \c12<\c00nick\c10(\c11 $+ ".getActiveWindow()." $+ \c10)\c12>\c00 $nick is now\c11: \c12(\c00 $+ $1 $+ \c12)"; }
set RECEIVE_COMPLETE       { $dcc  = getDCCConnection($this); $file = getDCCFileName($dcc); $rate = formatBytes(getTransferRate($dcc)) . "/s"; return "$nnn \c12(\c00dcc\c12)\c10>>\c15 receive of\c16 $file \c15from\c16 $nick \c15complete at\c16 $rate"; }
set RECEIVE_START          { $dcc  = getDCCConnection($this); $file = getDCCFileName($dcc); return "$nnn \c12(\c00dcc\c12)\c10>>\c15 receive of\c16 $file \c15from\c16 $nick \c15has started"; }
set RECEIVE_FAILED         { return "$nnn \c12(\c00dcc\c12)\c10>>\c15 dcc receive from\c16 $nick \c15has failed\c16 $1-"; }
set RESUME_SUCCEEDED       { return "$nnn \c12(\c00dcc\c12)\c10>>\c15 dcc resume request to\c16 $nick \c15successful"; }
set RESUME_FAILED          { return "$nnn \c12(\c00dcc\c12)\c10>>\c15 dcc resume request to\c16 $nick \c15\bfailed\b"; }
set RESUME_REQUEST_ERROR   { return "$nnn \c12(\c00dcc\c12)\c10>>\c16 $nick \c15has made a idiotic resume request"; }
set RESUME_REQUEST         { return "$nnn \c12(\c00dcc\c12)\c10>>\c16 $nick \c15has requested to resume the dcc transfer"; }
set RESOLVED_LOCALINFO     { return "$nnn \c12<\c00dns\c10(\c11resolved\c10)\c12>\c15 dns resolved local host to\c10:\c16 $0"; }
set RESOLVED_HOST          { if ($2- ne "") { return "$nnn \c12<\c00dns\c10(\c11resolved\c10)\c12>\c15 dns resolved\c16 $0 \c15to\c16 $2 $+ \c11(\c10 $+ $1 $+ \c11)"; } else { return "$nnn \c12<\c00dns\c10(\c11error\c10)\c12>\c15 unable to resolve dns\c10:\c16 $0 $+ \c10:\c15 host not found"; } }
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_311               { return; }
set REPL_314               { return; }
set REPL_315               { return; }
set REPL_352               { return; }
set REPL_353               { return; }
on  REPL_353               { return; }
set REPL_364               { return; }
set REPL_365               { return; }
set REPL_366               { return; }
set REPL_341               { return "$nnn \c12(\c00invite\c12)\c10>>\c16 $1 \c15has been invited to\c12:\c16 $2"; }
set REPL_372               { return "$nnn $parms"; }
set REPL_324               { return; }
set REPL_366               { return; }
set REPL_352!              { return "\c16 $+ $1 \c15\b $+ $[10]5 \b\c16 $+ $[2]6 $7  \c11(\c15 $+ $2 $+ \c10@\c15 $+ $3 $+ \c11)\c15 on\c16 $4 $+ \c12:\c16 $8-"; }
set REPL_315               { return; }
set REPL_401               { $who = "off"; return "$nnn \c15no such user/channel\c12:\c16 $1"; }
set REPL_406               { $who = "off"; return "$nnn \c15no such user/channel has been online\c12.."; }
set REPL_301!              { return timeStampCh(formatWhois("\c00a10way", "$2-")); }
set REPL_307!              { return timeStampCh(formatWhois("\c00i10dnt", "\c25\b $+ $1 $+ \b\c23 $2-")); }
set REPL_311! { 
 echo(timeStampCh("" . buildCP437String("\c11 $+ 00ÚÄ $+ \c11 $+ Ä10Ä09-10Ä11Ä12Ä11ÄÂÄ00-12-ù 10ù00-11-00Ä11Ä $+ \c10 $+ -Ä00(11 $+ $1 $+ 00% $+ \c10 $+ whois?00)Ä12-00- 12ù 15 02ú") . ""));
 echo(timeStampCh("" . buildCP437String("\c11 $+ ³¯ \c00u10ser 12-Å¿ 00 $+ \c00 $+ $1 \c11 $+ ( $+ \c10 $+ $2 $+ 11@ $+ \c10 $+ $3 $+ \c11 $+ )") . ""));
 return timeStampCh("" . buildCP437String("12| $+ \c11 $+ ¯ \c00 $+ n10ame15  10Ã12Å00 $5-") . ""); 
}
set REPL_312! { return timeStampCh(formatWhois("\c00s10erv", "\c15 $+ $2 \c20\r(\r\c15 $+ $3- $+ \c20\r)\r")); }
set REPL_313! { return timeStampCh(formatWhois("\c00i10rcop", "\c15\b $+ $1 \b\c23 $+ $2-")); }
set REPL_314! { 
 echo(timeStampCh("" . buildCP437String("\c11 $+ 00ÚÄ $+ \c11 $+ Ä10Ä09-10Ä11Ä12Ä11ÄÂÄ00-12-ù 10ù00-11-00Ä11Ä $+ \c10 $+ -Ä00(11 $+ $1 $+ 00% $+ \c10 $+ whois?00)Ä12-00- 12ù 15 02ú") . ""));
 echo(timeStampCh("" . buildCP437String("\c11 $+ ³¯ \c00 $+ u10ser 12-Å¿ 00 $+ \c00 $+ $1 \c11 $+ ( $+ \c10 $+ $2 $+ 11@ $+ \c10 $+ $3 $+ \c11 $+ )") . ""));
 return timeStampCh("" . buildCP437String("12| $+ \c11 $+ ¯ \c00 $+ n10ame15  10Ã12Å00 $5-") . ""); 
}
set REPL_317! { return timeStampCh(formatWhois("\c00i10dle", formatTime($2))); }
set REPL_330! { return timeStampCh(formatWhois("\c00i10dnt", "\c23 $+ $1 $3- \c25\b $+ $2")); }
set REPL_318  { 
 if ($who eq "off") { $who = $null; return; }
 else {
  echo(timeStampCh("" . buildCP437String("\c00ÀÄ\c11ÄÄ\c10-- \c11- 00ú12| \c11¯   \c11ú\c10ù \c11-\c00- \c10-Ä\c11ÄÄ08Ä\c00ÄÄ\c10ÄÄÄ\c11-Ä12į") . ""));
  return "" . buildCP437String("          11ÀÄ12Ä\c10Ä 00- 00Ä \c10Ä\c11- \c11ù\c00ú") . "";
 } 
}
set REPL_369  { 
 if ($who eq "off") { $who = $null; return; }
 else {
  echo(timeStampCh("" . buildCP437String("\c00ÀÄ\c11ÄÄ\c10-- \c11- 00ú12| \c11¯   \c11ú\c10ù \c11-\c00- \c10-Ä\c11ÄÄ08Ä\c00ÄÄ\c10ÄÄÄ\c11-Ä12į") . ""));
  return "" . buildCP437String("          11ÀÄ12Ä\c10Ä 00- 00Ä \c10Ä\c11- \c11ù\c00ú") . "";
 } 
}
set REPL_319! { 
   local('$output $temp');
   foreach $temp (split(' ', $2-)) {
      if (charAt($temp, 0) eq "@") { $temp = "\c12@\c15" . substr($temp, 1); }
      if (charAt($temp, 0) eq "+") { $temp = "\c11+\c15" . substr($temp, 1); }
      if (charAt($temp, 0) eq "%") { $temp = "\c10%\c15" . substr($temp, 1); }
      $output = "$output $+ $temp ";
   }
   return timeStampCh(formatWhois("\c00c10hans", "$output")); 
}
set REPL_320! { return timeStampCh(formatWhois("\c00s10cure", "$1 $2-")); }
set REPL_338! { return timeStampCh(formatWhois("\c00h10ost", "$2")); }
set REPL_403  { return formatNumeric($1, $2-); } # no such channel
set REPL_442  { return formatNumeric($1, $2-); } # you're not on that channel
set REPL_473  { return formatNumeric($1, $2-); } # banned
set REPL_474  { return formatNumeric($1, $2-); } # invite
set REPL_475  { return formatNumeric($1, $2-); } # key
set REPL_433  { return formatNumeric($1, $2-); } # nick in use
set REPL_364! { return "\c16 $+ $[25]1 \c12->\c15 $[25]2 \c11(\c10\b $+ $3 \bhops\c11)\c16 $4-"; }
set REPL_365  { return; }
set REPL_321! { return "$nnn " . tbrac("channel") . "             " . tbrac("users") . "   " . tbrac("topic") . ""; }
set REPL_322! { return "$nnn \c16 $+ $[20]1 $+ \c15 $[-5]2   $3-"; }
set REPL_323  { return; }
set REPL_341  { return "$nnn \c12<\c00invite\c10(\c11sent\c10)\c12>\c16 $1 $+ \c11(\c15 $+ $2 $+ \c11)\c15 request sent\c12.."; }


# nick comp = " . buildCP437String("þßÛÞ") . " $+ $nick $+ " . buildCP437String("Û²±°") . "


# crayon.thm colormap
setMappedColor(0, "-4144960");
setMappedColor(1, "-16777216");
setMappedColor(2, "-13816417");
setMappedColor(3, "-11366574");
setMappedColor(4, "-440248");
setMappedColor(5, "-8512484");
setMappedColor(6, "-6401890");
setMappedColor(7, "-6781066");
setMappedColor(8, "-526486");
setMappedColor(9, "-5515861");
setMappedColor(10, "-11893114");
setMappedColor(11, "-9914184");
setMappedColor(12, "-11184647");
setMappedColor(13, "-287237");
setMappedColor(14, "-11842741");
setMappedColor(15, "-5987421");
setMappedColor(16, "-1316889");
setMappedColor(17, "-8545864");
setMappedColor(18, "-11243364");
setMappedColor(19, "-13940631");
setMappedColor(20, "-15198184");
setMappedColor(21, "-14606304");
setMappedColor(22, "-13158601");
setMappedColor(23, "-11316399");
setMappedColor(24, "-9079435");
setMappedColor(25, "-6710889");
setMappedColor(26, "-4736839");
setMappedColor(27, "-3027247");
setMappedColor(28, "-1841437");
setMappedColor(29, "-2364929");
setMappedColor(30, "-16770020");
setMappedColor(31, "-16768478");
setMappedColor(32, "-16764109");
setMappedColor(33, "-16692405");
setMappedColor(34, "-16618645");
setMappedColor(35, "-16604253");
setMappedColor(36, "-13645881");
setMappedColor(37, "-15080477");
setMappedColor(38, "-9773346");
setMappedColor(39, "-4784129");
setMappedColor(40, "-14417628");
setMappedColor(41, "-13691601");
setMappedColor(42, "-11724979");
setMappedColor(43, "-8372097");
setMappedColor(44, "-5483093");
setMappedColor(45, "-3375412");
setMappedColor(46, "-2711594");
setMappedColor(47, "-1526040");
setMappedColor(48, "-1260564");
setMappedColor(49, "-338182");
setMappedColor(50, "-13434880");
setMappedColor(51, "-10151398");
setMappedColor(52, "-6802380");
setMappedColor(53, "-3718076");
setMappedColor(54, "-305321");
setMappedColor(55, "-357493");
setMappedColor(56, "-215627");
setMappedColor(57, "-273196");
setMappedColor(58, "-269598");
setMappedColor(59, "-267028");
setMappedColor(60, "-16645581");
setMappedColor(61, "-15000735");
setMappedColor(62, "-13684830");
setMappedColor(63, "-9408258");
setMappedColor(64, "-7631873");
setMappedColor(65, "-6513410");
setMappedColor(66, "-5000194");
setMappedColor(67, "-4013314");
setMappedColor(68, "-2763268");
setMappedColor(69, "-1250053");
setMappedColor(70, "-15918579");
setMappedColor(71, "-15125735");
setMappedColor(72, "-13804498");
setMappedColor(73, "-12615361");
setMappedColor(74, "-10700195");
setMappedColor(75, "-8984714");
setMappedColor(76, "-5832794");
setMappedColor(77, "-3670073");
setMappedColor(78, "-2425637");
setMappedColor(79, "-1246228");
setMappedColor(80, "-14671856");
setMappedColor(81, "-12500703");
setMappedColor(82, "-9211079");
setMappedColor(83, "-6513596");
setMappedColor(84, "-4276629");
setMappedColor(85, "-526498");
setMappedColor(86, "-65929");
setMappedColor(87, "-394860");
setMappedColor(88, "-329020");
setMappedColor(89, "-263190");
setMappedColor(90, "-12573692");
setMappedColor(91, "-10932730");
setMappedColor(92, "-8895712");
setMappedColor(93, "-7451104");
setMappedColor(94, "-6203637");
setMappedColor(95, "-2850010");
setMappedColor(96, "-2122157");
setMappedColor(97, "-2511754");
setMappedColor(98, "-2771051");
setMappedColor(99, "-2439764");
saveColorMap();

# END OF FILE - EOF