# slurge.irc: created @12/08/07 my birthday!? mUYAHAHAHA
# slurge.irc: greets to butane, neuken, mexis, camo, timbob, slackzor, fuck pander, oxidate
# slurge.irc:           dev, phos, fro, psk, tricky, and the rest of the #mircscripts crew.
# slurge.irc: help from butane, mexis, pander, and phos
# slurge.irc: side effects might because due to being exposed to extreme leetness
# slurge.irc: version 2.01 completed on 12/14/08

$c1 = "\c20";
$c2 = "\c21";
$c3 = "\c22";
$c4 = "\c24";
$c5 = "\c26";
$c6 = "\c28";

# shortcut type stuff (for internal use)
alias slurge    { onSlurgeAnsi(); }
alias kick      { call("/kick $target $1-"); }
sub sbarpad     { local('$totalpx'); $totalpx = (getWindowSize($1) - strwidth(strip($2))) - strwidth(" "  x $4); return $2 . (  $3 x ($totalpx / strwidth(strip($3)))  ); }
sub _saddy      { return strrep($1,"@","$c2 $+ @ $+ $c5",".","$c1 $+ . $+ $c5","!","$c1 $+ ! $+ $c5","+","$c2 $+ + $+ $c5"); }
sub _sbrac      { return "$c1 $+ ( $+ $c5 $+ " . "$1" . " $+ $c2 $+ ) $+ $c4"; }
sub bcp         { return buildCP437String($1); }
sub ans2jerk    { echo(bcp("$1")); }
sub formatNick {
   if ($1 isop $2) { return "$c1 $+ @ $+ $c5 $+ $3"; }
   else if ($1 isvoice $2) { return "$c2 $+ + $+ $c5 $+ $3"; }
   else if ($1 ishalfop $2) { return "$c3 $+ % $+ $c5 $+ $3"; }
   return "\c15 $+ $3";
}
sub getStatusSymbol {
   if ($1 isop $2) { return "$c1 $+ @"; }
   if ($1 isvoice $2) { return "$c2 $+ +"; }
   if ($1 ishalfop $2) { return "$c3 $+ %"; }
   return " ";
}
sub fM {
  $test = "$[11]1";
  if ($1 isop $2)     { return "$c1 $+ @ $+ $c5" . left("$test", 11); }
  if ($1 isvoice $2)  { return "$c2 $+ + $+ $c5" . left("$test", 11); }
  if ($1 ishalfop $2) { return "$c3 $+ % $+ $c5" . left("$test", 11); }
  else { return "$c5 " . left("$test", 11); }
}
sub timeStampCh {
  if (-isSetF "option.timestamp") { return parseSet("TIMESTAMP") . $1; }
  return $1;
}
sub formatWhois { $temp = $1; return bcp("$c1 $+ ³ ³ $+ $c5 ") . left("$[11]temp", 11) . bcp("$c1 $+ ³ ³ $+ $c6 ") . " $2"; }
sub formatNumeric {
   if (charAt($1, 0) eq "#") { return "$nnn $c5 $+ $1 $+ $c3 $2"; }
   return "$nnn $c5 $+ $1 $+ $c3 $2";
}


# version stuff
alias sv                   { say("j\bIRC\bii(" . versionString() . ") \u+\u \bs\blurge([ $+ $color $+ ]DM) v $+ $_sver - the memory remains"); }
on REQUEST {
  if (uc($1) eq "VERSION") {                              
  sendReply($nick, "VERSION","j\bIRC\bii(" . versionString() . ") \u+\u \bs\blurge([ $+ $color $+ ]DM) v $+ $_sver - the memory remains");                         
  if (-isSetT "active.ctcp") { echo(parseSet("CTCP_REQUEST",%localData)); }
  else { echoStatus(parseSet("CTCP_REQUEST",%localData)); }
  halt;
  }
}
$_sver = "2.01";

# scan/name stuff
alias sc {
  $win = iff($1,$1,getActiveWindow());
  if (!-ischannel "$win") { return; }
  $temp = " " x (40 - strlen("$win"));
  scan_top("$win");
  @nicks = getUsers("$win");
  for ($x = 0; $x < size(@nicks); $x += 5;) {
    ($nick1, $nick2, $nick3, $nick4, $nick5) = subarray(@nicks,$x,5 + $x);
    scan_txt("$win","$nick1","$nick2","$nick3","$nick4","$nick5");
  }
  scan_end("$win");
}
sub scan_txt {
 $n1 = fM("$2","$1");
 $n2 = fM("$3","$1");
 $n3 = fM("$4","$1");
 $n4 = fM("$5","$1");
 $n5 = fM("$6","$1");
 echo("$1",timeStampCh("" . bcp("$c2 $+ ³ $c1 $+ ³ $+ $c5 $n1 $+ $c1 $+ ³ $+ $c5 $n2 $+ $c1 $+ ³ $+ $c5 $n3 $+ $c1 $+ ³ $+ $c5 $n4 $+ $c1 $+ ³ $+ $c5 $n5 $+ $c1 $+ ³ $c2 $+ ³") . ""));
}
sub scan_top {
  echo("$1",timeStampCh("" . bcp("$c1  ÚÄ $+ $c2 $+ ÄÄ $+ $c3 $+ Ä $+ $c4 $+ Ä $+ $c5 $+ ÄÄÄ $+ $c4 $+ Ä $+ $c3 $+ Ä $+ $c2 $+ ÄÄ $+ $c1 $+ Ä¿             ÚÄ $+ $c2 $+ ÄÄ $+ $c3 $+ Ä $+ $c4 $+ Ä $+ $c5 $+ ÄÄÄ $+ $c4 $+ Ä $+ $c3 $+ Ä $+ $c2 $+ ÄÄ $+ $c1 $+ Ä¿             ÚÄ $+ $c2 $+ ÄÄ $+ $c3 $+ Ä $+ $c4 $+ Ä $+ $c5 $+ ÄÄÄ $+ $c4 $+ Ä $+ $c3 $+ Ä $+ $c2 $+ ÄÄ $+ $c1 $+ Ä¿") . ""));
  echo("$1",timeStampCh("" . bcp("$c2 $+ ÚÄ $+ $c1 $+ ³ $+ $c2 $+ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ $+ $c1 $+ ³ $+ $c2 $+ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ $+ $c1 $+ ³ $+ $c2 $+ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿") . ""));  
}
sub scan_end {
  echo("$1",timeStampCh("" . bcp("$c2 $+ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ $+ $c1 $+ ³ $+ $c2 $+ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ $+ $c1 $+ ³ $+ $c2 $+ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ $+ $c1 $+ ³ $+ $c2 $+ ÄÙ") . ""));
  echo("$1",timeStampCh("" . bcp("$c1  ÀÄ $+ $c2 $+ ÄÄ $+ $c3 $+ Ä $+ $c4 $+ Ä $+ $c5 $+ ÄÄÄ $+ $c4 $+ Ä $+ $c3 $+ Ä $+ $c2 $+ ÄÄ $+ $c1 $+ ÄÙ             ÀÄ $+ $c2 $+ ÄÄ $+ $c3 $+ Ä $+ $c4 $+ Ä $+ $c5 $+ ÄÄÄ $+ $c4 $+ Ä $+ $c3 $+ Ä $+ $c2 $+ ÄÄ $+ $c1 $+ ÄÙ             ÀÄ $+ $c2 $+ ÄÄ $+ $c3 $+ Ä $+ $c4 $+ Ä $+ $c5 $+ ÄÄÄ $+ $c4 $+ Ä $+ $c3 $+ Ä $+ $c2 $+ ÄÄ $+ $c1 $+ ÄÙ") . ""));
}
alias names                { call("topic $1"); call("sc $1"); }
alias scan                 { call("sc $1"); }


# format stuff
alias format {
 if ($1 eq "") {
  boxtop("slurge format list");
  boxtxt(" $c4 $+ listing $+ $c5 only 1 $c4 $+ format");
  boxlin();


  # boxtxt(" " . _sbrac("ac") . " action formats    " . _sbrac("aw") . " away formats      " . _sbrac("ba") . " bracket formats  ");
  # boxtxt(" " . _sbrac("bx") . " box formats       " . _sbrac("cl") . " color formats     " . _sbrac("ct") . " ctcp formats     ");  
  # boxtxt(" " . _sbrac("cr") . " ctcp reply        " . _sbrac("dc") . " dcc formats       " . _sbrac("es") . " echo strings     ");
  # boxtxt(" " . _sbrac("jn") . " join formats      " . _sbrac("ki") . " kick formats      " . _sbrac("ks") . " kick strings     ");  
  # boxtxt(" " . _sbrac("ms") . " msg formats       " . _sbrac("md") . " mode formats      " . _sbrac("nk") . " nick formats     ");  
  # boxtxt(" " . _sbrac("no") . " notice formats    " . _sbrac("pt") . " part formats      " . _sbrac("pu") . " public formats   ");  
  # boxtxt(" " . _sbrac("qt") . " quit formats      " . _sbrac("sa") . " sent actions      " . _sbrac("sb") . " status bar       ");  
  # boxtxt(" " . _sbrac("sc") . " scan formats      " . _sbrac("sd") . " sent dcc formats  " . _sbrac("sm") . " sent msg formats ");  
  # boxtxt(" " . _sbrac("sn") . " sent notice forms " . _sbrac("sp") . " sent public forms " . _sbrac("st") . " sent ctcp formats"); 
  # boxtxt(" " . _sbrac("sv") . " version formats   " . _sbrac("wa") . " wall formats      " . _sbrac("wi") . " whois formats    ");

  boxtxt(" " . _sbrac("cl") . " color formats   ");
  boxlin();
  boxtxt(" $c4 $+ usage $+ $c2 $+ : / $+ $c5 $+ format $c1 $+ < $+ $c3 $+ value $+ $c1 $+ >");
  boxend("slurge format list");
  return;
 }
 else { if ($1 eq "cl") { if (%functions[$2] !is $null) { invoke(%functions[$2], split(' ', $1-), "", parameters => %localData); } else { ans2jerk("$rrr $c4 $+ usage $+ $c2 $+ : / $+ $c4 $+ format cl " . _sbrac("blue, cyan, default, green, purple, and red")); } } }
}
%functions["default"] = { 
 setProperty("scolors", "default");
 $c1 = "\c20";
 $c2 = "\c21";
 $c3 = "\c22";
 $c4 = "\c24";
 $c5 = "\c25";
 $c6 = "\c28";
  onSlurge();
};
%functions["blue"] = { 
 setProperty("scolors", "blue");
 $c1 = "\c61";
 $c2 = "\c62";
 $c3 = "\c64";
 $c4 = "\c66";
 $c5 = "\c68";
 $c6 = "\c69";
  onSlurge();
};
%functions["cyan"] = { 
 setProperty("scolors", "cyan");
 $c1 = "\c31";
 $c2 = "\c32";
 $c3 = "\c34";
 $c4 = "\c36";
 $c5 = "\c38";
 $c6 = "\c39";
  onSlurge();
};
%functions["red"] = { 
 setProperty("scolors","red");
 $c1 = "\c51";
 $c2 = "\c52";
 $c3 = "\c54";
 $c4 = "\c56";
 $c5 = "\c58";
 $c6 = "\c59";
 onSlurge();
};
%functions["green"] = { 
 setProperty("scolors","green");
 $c1 = "\c71";
 $c2 = "\c72";
 $c3 = "\c74";
 $c4 = "\c76";
 $c5 = "\c78";
 $c6 = "\c79";
  onSlurge();
};
%functions["purple"] = { 
 setProperty("scolors","purple");
 $c1 = "\c41";
 $c2 = "\c42";
 $c3 = "\c44";
 $c4 = "\c46";
 $c5 = "\c48";
 $c6 = "\c49";
  onSlurge();
};

sub onSlurgeAnsi {
 ans2jerk("03²±°ÿ03°ÿÿÿ2°±²±°ÿÿÿ14Üþÿÿÿÿÿ1510ÜÜ11,10°°10ßÿ 6°°1ÿ6°°12,6²6ßß1ÿÿ10°°°±±²²²²²±±°°ÿ10°²°151ÿ1510°151ÿ151ÿ151ÿ15Û3ÛÛÜÜ141ÿ141ÿ141ÿ146°°°±±±²²²");
 ans2jerk("3±°ÿÿ15Ü00,15±±Ü15Üÿ2°ÿÿ14Ü²ß   04°ÿ10Ü11,10±²²10Û  12°ÿÿ6°ÿ6°12,6²²ÿ8,6°6ÜÜÿÿ10°ÿ10°ÿ10±±±°ÿ10°3,11ÿ3,1ßÜ1ÿ3,110,1°3,11ÿ3,11ÿ3,1ÜÜ8,3°°3,1ÛÛ8,3°°°3,1ÛÛÜÜ14,11ÿ14,11ÿ14,16,1°°±±²²");
 ans2jerk("3°15ÿ15Ü0,15Ü0,14Û8°±±±0,15Ü15Üÿ14²0,14 14Ýÿÿ4°3,11ÿ3,11ÿ3,111,10±²ÛÛ±15,11ÿ15,112,1ܲ±°2,11ÿ2,11ÿ2,113,11ÿ13,16,1°12,6²²²6,11ÿ6,1Û8,6°°°6,1ÜÜ1ÿ6,110,1°1ÿ10,1°1ÿ10,1°°3,11ÿ3,11ÿ3,11ÿ3,1ÞÜÜÛ8,3°°ÜÜ9,3°3,1ÛÛ8,3°±±±±± 3,1ÛÜ1ÿ3,115,11ÿ15,16,1°°±²");
 ans2jerk("15,11ÿ15,10,15°0,14ÛÛ8,0²²ÛÛ²°°0,14Ü15,1Ü0,14° 14,1Ü3,11ÿ3,11ÿ3,11ÿ3,110,1Þ11,10²ÛÛ±10,1Ý12,1ܲ°ß15,11ÿ15,112,1Üß6,11ÿ6,1°12,6²²±±6,11ÿ6,1ßÛ8,6°±±°°6,1Ü1ÿ6,110,1°1ÿ10,13,11ÿ3,1ßÜ9,3°8,3°°±±ßß9,3°±°3,1ÛÛ8,3°±²²²²²²°°3,1Ü14,11ÿ14,11ÿ14,16,1°±");
 ans2jerk("15,1Þ0,14ÛÛ8,0²²0,14ÛÛ0,15ßß0,14Û8,0°°0,14Û±°14,1Û²3,11ÿ3,11ÿ3,111,10°ÛÛ²±15,11ÿ15,112,1ßÜÜ12,2²²2,6²2,11ÿ2,16,11ÿ6,1°12,6²²±±±6,11ÿ6,11ÿ6,1ß8,6°±²²±°6,11ÿ6,110,1°3,11ÿ3,1Û9,3°°8,3±±9,3°°3,1Û9,3°±°3,1ÛÝß8,3°°°°²²²²²²°°3,1Ü15,11ÿ15,16,1°");
 ans2jerk("0,14ÞÛ8,0²²Ý0,15Û15,11ÿ15,114,11ÿ14,115,11ÿ15,114,1ß0,14ß±²±°° 14,1²15,11ÿ15,111,10°°²²±15,11ÿ15,112,10°12,2°°±²2,6²15,11ÿ15,16,11ÿ6,1°12,6²²±°°6,11ÿ6,1°1ÿ6,11ÿ6,18,6°²Û²±°3,11ÿ3,1Û9,3°8,3°°±3,1Ûßß1ÿ3,1Û9,3±±3,1Û1ÿ3,114,11ÿ14,110,1°3,0°ß8,3°°²²ÛÛÛ²²°°3,1Ü");
 ans2jerk("0,14Þ0,15Û8,0²²Ý0,15Ý14,11ÿ14,110,1²±14,11ÿ14,115,11ÿ15,114,1ßßßßßßß4,1ÜÜ14,11ÿ14,111,10²±°15,11ÿ15,112,10²2,6ÛÛ12,2±²2,6²15,11ÿ15,16,1°1ÿ6,112,6²²±°13,6°6,11ÿ6,1±°1ÿ6,11ÿ6,18,6°²Û²±°8,3°°±±°3,11ÿ3,11ÿ3,11ÿ3,1Þ9,3²²²3,1Û1ÿ3,110,1°14,11ÿ14,13,0 8,0  3,0ß8,3°°²Û8,5Û8,3ÛÛ²°°");
 ans2jerk("14,1Þ0,15ÛÛ8,0²Ü0,15ÛÜ14,1ÜÜßß0,14ß0,15ÛÛ°°±²ÛÛ15,11ÿ15,111,10±°°15,11ÿ15,12,6Û2,1ßÜ12,2Û2,6²15,11ÿ15,16,1°Ý1ÿ6,112,6²²±°13,6±13,11ÿ13,16,1²±°1ÿ6,18,6°²Û²±°8,3°±²²°3,11ÿ3,18,1²°3,1Þ9,3²²Û°10,1°±°0,1Û8,0°°°3,0±3,1Û8,3°²Û8,5²²8,3Û²°");
 ans2jerk("15,11ÿ15,114,1Û0,15ÛÛ8,0²Û±°°0,14ÜÜ0,15ÛÛÛß °²²²15,11ÿ15,111,10°°°15,11ÿ15,12,1²2,6Û12,2Û2,6²15,11ÿ15,16,1°±Ý1ÿ6,112,6²²±°13,6²13,11ÿ13,16,1±°1ÿ6,11ÿ6,18,6°²ÛÛ6,1Û3,11ÿ3,18,3°±²Û°3,11ÿ3,18,1²3,11ÿ3,1Þ9,3²ÛÛ°10,1°±°0,15Û8,0±±±0,15Û3,1Þß8,3°²Û8,5²²8,3Û°");
 ans2jerk("10,1Þ°14,1Û0,15ÛÛ8,0ß±°0,15Û8,0 0,15ßß14,1ßß1ÿ14,115,11ÿ15,114,15°0,15°°²15,11ÿ15,111,10°14,10°°15,11ÿ15,12,1Þ12,2°2,6²12,1Ý6,1°±²Ý1ÿ6,112,6²²±°13,6±6,11ÿ6,1°1ÿ6,11ÿ6,18,6°8,5²8,6ÛÛ6,1ÛÝ3,11ÿ3,18,3°±ÛÛ±3,11ÿ3,18,1±3,11ÿ3,19,3°ÛÛÛ°10,11ÿ10,1²°0,15Û8,0²²²3,11ÿ3,1ß°14,11ÿ14,18,3°²Û8,5Û8,3Û°");
 ans2jerk("10,1Þ±°14,1ßÛ0,15ÛÛß14,1ßß15,11ÿ15,114,11ÿ14,11ÿ14,1t15,1e0,1f14,15°°°0,15°15,11ÿ15,114,10°°²15,11ÿ15,12,1Þ12,2°2,6²15,11ÿ15,16,1±²²Ý1ÿ6,112,6²²±°13,6°6,11ÿ6,11ÿ6,1Ü8,6°8,5²²8,6Û6,1Û1ÿ6,1Ý3,11ÿ3,18,3°²ÛÛ±3,11ÿ3,11ÿ3,11ÿ3,19,3°ÛÛÛ°10,11ÿ10,1²°0,15Û9,8°°°8,0 14,11ÿ14,13,1±°Þ8,3²Û8,5Û8,3°3,1Û");
 ans2jerk("10,1Þ²±°°14,1ßß15,11ÿ15,15,1°15,11ÿ15,114,1c15,1w0,1\15,11ÿ 15,114,1Ü15,11ÿ15,114,15±±°°15,11ÿ15,114,10°²²15,11ÿ15,12,6Û12,2°12,1Ý6,1Þ±²²±1,11ÿ1,112,6²²±°6,1ßÜÛÛ8,6Û±ß6,1ßÝ1ÿ6,1ß3,11ÿ3,18,3°²8,5²²8,3±3,11ÿ3,18,1°3,11ÿ3,19,3°²ÛÛ°10,11ÿ10,1±14,11ÿ14,10,15Û9,8±±±8,0°14,11ÿ14,11ÿ14,13,1Ü8,3²Û°°3,1ÛÝ");
 ans2jerk("10,1ÞÛÛ²±°15,11ÿ15,15,1°²°15,11ÿ15,11ÿ15,114,1Ü14,4ß15,11ÿ15,11ÿ15,114,15²²±°15,11ÿ15,114,10²²Û15,11ÿ15,112,2°°12,1Ý6,1Þ±²²±15,11ÿ15,112,6²²±°6,1ÛÛ8,6Üß6,1ÛßÜÜÜÜÜÜÜÜ1ÿ6,18,5²8,3±3,11ÿ3,11ÿ3,11ÿ3,19,3°±²²3,1Û10,11ÿ10,1°1ÿ10,18,0±9,1Û9,0ß0,1ß3,1Ü8,3ܲßß3,1ßßÝ1ÿ3,1Ý");
 ans2jerk("10,1ÞÛÛ²±°15,11ÿ15,11ÿ15,15,1°15,11ÿ15,14,1Ü14,4±²15,11ÿ15,13,1°Ý14,15²²²±15,11ÿ15,114,10²ÛÛ15,11ÿ15,112,2±°12,1Ý6,1Þ±²²±15,11ÿ15,112,6²²±°6,1ßÛ7,6°°°°°°±²²²Û°6,11ÿ6,18,5²8,3°3,11ÿ3,18,1°3,11ÿ3,19,3°°±±3,1Û1ÿ3,110,11ÿ10,13,1ÜÜÛ8,3Üܲ3,1ßß14,11ÿ14,13,11ÿ3,1ß14,11ÿ14,13,1Ý14,11ÿ14,13,1ß");
 ans2jerk("10,1Þ²²±°15,11ÿ15,11ÿ15,11ÿ15,14,1Ü14,4°°4,1ß15,11ÿ15,13,1°±Ý14,10Û14,15²²²15,11ÿ15,114,10ÛÛ²15,11ÿ15,112,2²±2,6²15,11ÿ15,16,1°²²±12,11ÿ12,112,6²²±6,11ÿ6,1ß7,11ÿ7,11ÿ7,16,1Þ7,11ÿ7,11ÿ7,1ß7,6±²²ÛÛ°6,11ÿ6,18,3²²°3,11ÿ3,11ÿ3,1ÜÞ9,3°°°°°°8,3°°±²3,1ß0,1Ü14,11ÿ14,11ÿ14,14,1°14,11ÿ14,11ÿ14,11ÿ14,13,1ß14,11ÿ14,14,1°");
 ans2jerk("10,1Þ°±°4,1ÜÜ7,4°±±ß3,1°14,11ÿ14,13,1°±²Ý14,4²14,10ÛÛ14,15²15,11ÿ15,114,10²²±15,11ÿ15,112,2²²12,1Û2,6²15,11ÿ15,16,1°²±Ý12,6²²±6,1°ß°1ÿ6,1ß1ÿ6,11ÿ6,17,6±²²Û²°6,11ÿ6,18,3²Û²°3,1ÜßÜÜ8,3°9,3°°°3,1ß14,1ß1ÿ14,115,1Ü0,15Ü0,1Û8,0Ü 14,11ÿ14,16,1Ü14,11ÿ14,11ÿ14,14,1°14,11ÿ14,11ÿ14,14,1°²");
 ans2jerk("4,1ÜÜ7,4°±±²²ß4,1ß3,1°15,11ÿ15,13,1°±²ÛÝ14,4²²²14,10Û15,11ÿ15,114,10°°11,10°15,11ÿ15,112,1Û12,2²²12,1Û2,6²15,11ÿ15,16,1°±Ý12,6²²±6,1°13,6±6,1²°1ÿ6,11ÿ6,17,6±²²ÛÛ°3,11ÿ3,18,3°²²°3,1Ü8,3°°°°±9,3°°3,1Ü1ÿ3,14,1°14,11ÿ14,10,1Û8,1ÛÛÛ8,0 14,11ÿ14,11ÿ14,16,1²ÜÜ14,11ÿ14,11ÿ14,11ÿ14,14,1°");
 ans2jerk("7,4 7,1²7,4ÛÛÛÛÛ²²Ü4,1Ü14,11ÿ14,13,1°±²Ý14,4±±²²15,11ÿ15,114,10°11,10±°15,11ÿ15,110,11ÿ10,112,1ßÛ12,2²12,11ÿ12,110,1ÜÜÜÜÜ12,11ÿ12,112,6±6,11ÿ6,113,6²6,1°1ÿ6,11ÿ6,17,6±²²ÛÛ²6,11ÿ6,1Ü8,3±±°°°3,1ßßÜ1ÿ3,19,3°°±±3,11ÿ3,114,11ÿ14,11ÿ14,18,1ÛÛÛÛ0,8±14,11ÿ14,16,1°14,11ÿ14,16,1Û13,1Û13,6ÜÜ6,1ÜÜ");
 ans2jerk("15,11ÿ15,14,1Þßß²7,4ÛÛÛ²²±Ü4,1Ü3,1°±Ý14,4±°±²15,11ÿ15,111,10±²±15,11ÿ15,110,1°1ÿ10,115,11ÿ15,112,1ß1ÿ12,111,10°°°°°12,11ÿ12,112,6±6,1±13,6±6,11ÿ6,11ÿ6,17,6±²²ÛÛ²°8,6°±±8,3°3,1Û9,3Ü3,1Üß1ÿ3,11ÿ3,11ÿ3,1Þ9,3±±²9,1Ý4,1°14,11ÿ14,18,1ÛÛÛÛ0,8°6,1Þ±°14,11ÿ14,113,6ßÛ13,1ÛÛ6,1²");
 ans2jerk("15,11ÿ15,14,1ß3,11ÿ3,110,1°3,11ÿ3,14,1Þ²²7,4ß²²±±Ü4,1Ü15,11ÿ15,114,4±°°±15,11ÿ15,111,10²°10,1ß15,11ÿ15,110,1²±1ÿ10,1°15,11ÿ15,111,10°±±±°12,11ÿ12,112,6±6,1²13,6°6,11ÿ6,17,6ܲ²ÛÛ²°6,1ßß3,11ÿ3,19,3°ÜÛÛÛ3,11ÿ3,11ÿ3,11ÿ3,1ÞÞ9,3²²Û9,1Ý4,1±14,11ÿ14,18,1²ÞÛÛ0,8°6,1Þ²±°14,11ÿ14,113,6²²8,5±13,1²");
 ans2jerk("15,11ÿ15,18,1°15,11ÿ15,14,11ÿ4,11ÿ4,1Þ±Þ°±ß7,4ß±±±°14,4°±°°15,11ÿ15,111,10ß15,11ÿ15,11ÿ15,11ÿ15,111,11ÿ11,110,1Ü11,1ÜÜÜ11,10°±²²°12,11ÿ12,112,6±6,1ÛÝÛ7,6ÜÛß6,1ßßÝ1ÿ6,1ß1ÿ6,13,11ÿ3,19,3±²ÛÛÛ3,1Ý1ÿ3,110,1°3,1ÞÞ9,3²ÛÛ9,1Ý4,1²14,11ÿ14,10,11ÿ0,18,1ÞÛ9,8°°6,1Þ²±°14,11ÿ14,16,1Ý13,6±8,5±8,13Ü");
 ans2jerk("15,11ÿ15,11ÿ15,11ÿ15,110,11ÿ10,14,11ÿ4,1ß°Þ°²±°²7,4°°14,4°7,4°14,4±±°15,11ÿ15,110,1Ü11,1Ü11,10²±°10,1²ßßß10,4Û11,10±²²°12,11ÿ12,16,1ßÜ1ÿ6,1ßß4,11ÿ4,15,1°²4,11ÿ4,1ß1ÿ4,1°6,11ÿ6,13,1Þ9,3ÜÛÛÛ²3,11ÿ3,110,1°²3,1ÞÜ9,3°²Û3,1Ý14,11ÿ14,14,1°0,11ÿ0,18,1ÞÛ9,8±±6,1Þ²°°°14,11ÿ14,16,1Þ13,6Û8,13Û");
 ans2jerk("15,11ÿ15,110,1°15,11ÿ15,14,11ÿ4,115,11ÿ15,11ÿ15,14,1°Þ°±±15,11ÿ15,11ÿ15,14,11ÿ4,1ßßßßßß15,11ÿ15,110,1ßßÝ15,11ÿ15,11ÿ15,110,1Ý15,11ÿ15,110,1°15,11ÿ15,110,1Þ²ßß11,10°12,11ÿ12,16,11ÿ6,11ÿ6,1Û15,11ÿ15,14,1°1,4ÛÛ5,1°1,4ÛÛ4,1°15,11ÿ15,13,1Ü9,1Û9,3ÛÛÛß3,1ß1ÿ3,11ÿ3,110,1°3,11ÿ3,19,3°±ÛÛÛ14,11ÿ14,11ÿ14,115,1ß8,1ÞÛ9,8ÛÛ6,1Þ±°1ÿ6,1°Ý15,11ÿ15,113,6²8,5²");
 ans2jerk("15,11ÿ15,110,11ÿ10,11ÿ10,11ÿ10,11ÿ10,1°15,11ÿ15,14,1Þ°°15,11ÿ15,114,1°15,11ÿ15,114,1²11,10ܲß10,1ß14,1ß15,11ÿ15,110,1Ý15,11ÿ15,11ÿ15,110,1ßÞÝÝ15,11ÿ15,11ÿ15,11ÿ15,11ÿ15,110,1Ý15,11ÿ15,11ÿ15,11ÿ15,110,1ß6,11ÿ6,11,5ß6,11ÿ6,11ÿ6,1Û15,11ÿ15,15,11ÿ5,11,4ÛÛ±Û3,1ß6,11ÿ6,13,1ß9,1ß9,3ß9,1Û9,3ÛÜ9,1Ü3,1Ü1ÿ3,11ÿ3,1²9,3²ÛÛ²14,11ÿ14,11ÿ14,19,15²8,1ÞÛ9,1Û9,15²6,1Þ°1ÿ6,1°14,11ÿ14,16,1ÝÞ13,6Û8,5²");
 ans2jerk("15,11ÿ15,18,1±°15,11ÿ15,11ÿ15,14,1°1ÿ4,1²1ÿ4,115,11ÿ15,11ÿ15,11ÿ15,114,1Ûßß15,11ÿ15,110,1Ý1,9ßß15,11ÿ15,110,11ÿ10,115,11ÿ15,11ÿ15,11ÿ15,110,1Û15,11ÿ15,110,1ß15,11ÿ15,11ÿ15,15,1²15,11ÿ15,110,1ß15,11ÿ15,15,1²1,5°1,3Û1,5ß°Ü15,11ÿ15,11ÿ15,11ÿ15,11ÿ15,11,4ÛÛ²Û15,11ÿ15,11ÿ15,13,11ÿ3,11ÿ3,11ÿ3,1Þß9,1ß9,3ßÛ9,1Û9,3Ü3,1Ü9,3ÜÛÛÛ14,1Ý1ÿ14,19,15Û8,1Ü9,15Û9,1Û9,15°9,1°14,11ÿ14,11ÿ14,16,1ÜÜ8,13Ü13,6ÜÛß");
 ans2jerk("15,11ÿ15,18,1²±°15,11ÿ15,14,11ÿ4,1þ1ÿ4,11ÿ4,115,11ÿ15,114,1Üß15,11ÿ15,11ÿ15,19,1Ü15,11ÿ15,110,1Ý1,9Ü9,11ÿ9,115,11ÿ15,110,1ß15,11ÿ15,11ÿ15,110,1²²±±15,11ÿ15,11ÿ15,15,1°°1ÿ5,1±±1,3ÛÛÛ1,5²15,11ÿ15,11,3Û15,11ÿ15,11ÿ15,11ÿ15,11,4ÛÛÛÛÛ15,11ÿ15,11ÿ15,11ÿ15,11ÿ15,13,1Þ1ÿ3,11ÿ3,11ÿ3,1Üßß9,3ßÛÛÛÛ²14,11ÿ14,19,15°Ûß15,1ß6,1Ü14,1Ü13,6Ü8,13Ü13,6Ûß6,1ßßÝ");
 ans2jerk(" ÿÿÿÿÿ ÿÿÿÿ  9ß²15,11ÿ15,110,1ß15,11ÿ15,11ÿ15,11ÿ15,11ÿ15,11ÿ15,11,10²²15,11ÿ15,11,10²²15,11ÿ15,11ÿ15,11ÿ15,11ÿ15,15,1°°°15,11ÿ15,11ÿ15,11ÿ15,11ÿ15,11ÿ15,11ÿ15,11ÿ15,11ÿ15,11,9W9,1e1ÿ9,1used3,11ÿ3,11ÿ3,11ÿ3,1²15,11ÿ15,11ÿ15,13,11ÿ3,115,11ÿ15,11,10²15,11ÿ15,13,1Ý1ÿ3,1ßß9,3ßÛÝ14,11ÿ14,16,1Û13,6ÛÜ8,13Ü13,6ß6,1ßß14,11ÿ14,11ÿ14,16,1þ14,11ÿ14,16,1ß");
 ans2jerk("              09±°15,11ÿ15,11ÿ15,11ÿ15,11ÿ15,11ÿ15,11ÿ15,11ÿ15,11ÿ15,11ÿ15,11ÿ15,11ÿ15,11,10ß15,11ÿ15,11ÿ15,11ÿ15,11,5²15,11ÿ15,11ÿ15,11ÿ15,11ÿ15,11ÿ15,11,5²15,11ÿ15,19,11ÿ9,1every1ÿ9,1color,15,11ÿ15,11ÿ15,11ÿ15,13,11ÿ3,115,11ÿ15,11,10²15,11ÿ15,13,1ß°1ÿ3,11ÿ3,11ÿ3,114,11ÿ14,1ß9,3Ü14,11ÿ14,16,1ß14,1ß1ÿ14,16,1Þ15,11ÿ15,11ÿ15,11ÿ15,16,1°");
 ans2jerk("              09°15,11ÿ15,11ÿ15,11ÿ15,11ÿ15,11ÿ15,11ÿ15,11ÿ15,11ÿ15,11ÿ15,11ÿ15,11ÿ15,11ÿ15,11ÿ15,11ÿ15,11ÿ15,11ÿ15,15,11ÿ5,11,3ÛÛÛÛÛÛ15,11ÿ15,19,1what1ÿ9,1more1ÿ9,1do1ÿ9,11,3²15,11ÿ15,11ÿ15,11,3Û15,11ÿ15,11ÿ15,11ÿ15,11ÿ15,11ÿ15,11ÿ15,11ÿ15,16,1Ü13,6Ü13,1ß14,11ÿ14,16,1ß14,11ÿ14,11ÿ14,11ÿ14,16,1ß15,11ÿ15,16,1°");
 ans2jerk("                                      9youÿwantÿfromÿus?ÿÿÿÿÿÿ06þßÿÿÿÿÿÿÿÿÿÿ6,1°");
 ans2jerk("              01,09²");
 ans2jerk("                                                                         06²");
 ans2jerk("ÿ12j4I9R8Cii                                                                  06Û");
 ans2jerk("09   incomingÿevents");
 ans2jerk("04REGISTER MIRC OR ELSE..");
 ans2jerk("04ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß");
 ans2jerk("04RANDOM REDLINE!");
 ans2jerk(" ");
 ans2jerk("$rrr           \c15file $+ $c1 $+ :\c16 slurge.irc   $c1 $+ [\c15     version $_sver     $c1 $+ ]  ");
 ans2jerk("$rrr                              $c1 $+ [\c15  a demintri product  $c1 $+ ]  ");
 ans2jerk("$rrr         \c15author $+ $c1 $+ :\c16 ceelow\c15@\c16efnet $c1 $+ [\c15  #demintri  #jIRCii  $c1 $+ ]  ");
 ans2jerk("$rrr                              $c1 $+ [\c15 demintri@charter.net $c1 $+ ]  ");
 ans2jerk("$rrr                              $c1 $+ [\c15  side effects vary?  $c1 $+ ]  ");
 ans2jerk("$rrr       \c15commands $+ $c1 $+ : \c15/format /bans /notify /ignore /dcc ");
 ans2jerk("$rrr       \c15comments $+ $c1 $+ : \c15slurge is a custom script only. it has formats with themes.. enjoy!");
 ans2jerk("$rrr \bin process of creating a format system.. thought i'd let the world get a taste of the small color system!\b");
}

sub boxtop {
  echo(timeStampCh("" . bcp("$c1  ÚÄÄ¿") . ""));
  echo(timeStampCh("" . bcp("$c3 $+ ÚÄ $+ $c1 $+ ³ $+ $c3 $+ ÄÄÄÄ¿") . ""));  
}
sub boxtxt { 
  echo(timeStampCh(bcp("$c3 $+ ³ $c1 $+ ³  ³ $c3 $+ ³ $+ $c5") . $1)); 
 }
sub boxend {
  echo(timeStampCh("" . bcp("$c3 $+ ÀÄÄÄÄ $+ $c1 $+ ³ $+ $c3 $+ ÄÙ") . ""));
  echo(timeStampCh("" . bcp("  $c1 $+ ÀÄÄÙ") . ""));
}
sub boxlin {
  echo(timeStampCh("" . bcp("$c3 $+ ³ $c1 $+ ³  ³ $+ $c3 ³ $+ $c5 ") . ""));
} 


# dcc/notify/ban list stuff
alias dcc {
   if ($1 ne "") { call("/ $+ $0-", "use-built-in-command-only"); return; }
   boxtop(" dcc transactions");
   boxtxt(" ". _sbrac("type") ."     ". _sbrac("nick") ."        ". _sbrac("information") ."");
   boxlin("dcc");
   foreach $conn (getActiveConnections()) {
      $type = getConnectionType($conn);
      $nick = getDCCNickname($conn);
      $info = DCCInformation($conn);
      boxtxt("$c5 $[9]type  $[12]nick  $info");
   }
   boxend(" dcc transactions");
}
alias notify {
   if ($1 ne "") { call("/ $+ $0-", "use-built-in-command-only"); return; }
   local('$output $otime $addy'); boxtop();
   boxtxt(" \c23signed on\c21..");
   foreach $var (getSignedOnUsers()) { 
     $otime  = formatTime2(onlineFor($var)); 
     $addy   = _sbrac(getAddressFromNotify($var)); 
     boxtxt("$c5   $[12]var $[40]addy $otime"); 
   } 
   boxlin(); boxtxt(" $c4 $+ signed off $+ $c1 $+ ..");   
   foreach $var (getSignedOffUsers()) { $output = "$output $var"; boxtxt("$c5   $output"); }
   boxend();
}
alias bans {
  $win = iff($1,$1,getActiveWindow());
  if (!-ischannel "$win") { return; }
  boxtop("channel ban list");
  boxtxt("$c5 channel bans for $win");
  call("mode $win b"); 
}
$_bancount = 0;
set CHANNEL_BANLIST {
   local('@info');
   $info = split('!', $3);
   $_bancount++;
   boxtxt(" $c5 $+ $[2]_bancount $c1 $+ - $+ $c4 $1 $+ $c1 $+ : $+ $c5 ban $[40]2 " . _sbrac("by $info[0]") . " ");
}
set CHANNEL_BANLIST_END { 
   if ($_bancount == 0) { boxtxt("$c5 no bans set"); }
   else { $_bancount = 0; }
   boxend("channel ban list"); 
}

# custom stuff
set NUMERIC!  { return "$nnn $parms"; }
set CTCP_REQUEST {
   if ($2- eq ""  || ($1 eq "PING" && -isnumber $2) ) { return "$rrr $c6 $+ $nick $+ $c1 $+ ( $+ $c5 $+ " . _saddy("$address") . " $+ $c1 $+ ) $+ $c5 requested ctcp $+ $c6 ".lc($1)." $+ $c5 from $+ $c6 $target"; }
   else { return "$rrr $c6 $+ $nick $+ $c1 $+ ( $+ $c5 $+ " . _saddy("$address") . " $+ $c1 $+ ) $+ $c5 requested ctcp $+ $c6 ".lc($1)." $+ $c5 from $+ $c6 $target $+ $c1 $+ : $+ $c6 $parms"; }
}
set SBAR_LEFT {
  local('$ime $ichan');
  if ($me ison $query) {
     $ime   = getStatusSymbol($me, $query) . " $+ $c5 $+ " . $me;
     $ichan = "$c4 $+ on $+ $c6 $query";
  }
  else {
     $ime   = "$c6 $+ $me";
     if ($query ne "") { $ichan = "$c6 $+ Query $+ $c1 $+ : $+ $c5 $query"; }
     else { $ichan = "".getServerHost().""; }
  }
  if ($mymode ne "+") { $ime = "$ime $c6 $+ $mymode"; }
  return "" . bcp("$c1 $+ Ú $+ $c2 $+ Ä $+ $c3 $+ ´ $+ $c5") . " $+ $c6 $+ lag $+ $c1 $+ : $+ $c5 $lag $+ $c4" . bcp("$c3 $+ Ã $+ $c2 $+ Ä $+ $c1 $+ Ä( $+ $c6 $+ $time $+ $c1 $+ )Ä( $+ $c6 $+ $ime $+ $c1 $+ )Ä( $+ $c6 $+ $ichan $+ $c1 $+ )") ."";
}
set SBAR_RIGHT {
  if (size(getActiveConnections()) > 0) {
     foreach $var (getActiveConnections()) {
        if (getConnectionType($var) eq "RECEIVE") {
           $pc = getDCCPercentage($var);
           if ($DCC_WATCH_TIMER eq "") {
              sub timertemp { refreshWindow(getActiveWindow()); }
              $DCC_WATCH_TIMER = addTimer(&timertemp, 2000);
           }
           return "$c1 $+ ( $+ $c6 $+ " . left(getDCCFileName($var), 25) . " $+ $c1 $+ : $+ $c5 $+ $pc $+ $c4 $+ % $+ $c1 $+ )";
        } 
     }
  }  
  if ($DCC_WATCH_TIMER ne "") {
     stopTimer($DCC_WATCH_TIMER);
     $DCC_WATCH_TIMER = "";
  }
  if (!-isSetT "ui.showtabs" && isServerConnected()) { return "$c1 $+ ( $+ $c6 $+ ".getServerHost()." $+ $c1 $+ : $+ $c5 $+ ".(getSessionId() + 1)." $+ $c1 $+ ) $+ $c2"; }
  setWindowPrompt($window, "" . bcp("$c1 $+ À $+ $c2 $+ Ä $+ $c3 $+ > $+ $c5 ") . "");
  return "$c6 $+ slurge $+ $c2 $+ . $+ $c4 $+ irc";
}
set ON_CHANNELS { return "$rrr channels: $parms"; }
set SET_IGNORE {
   if ($0 eq "add") { return "$rrr added $parms to ignore list"; }
   if ($0 eq "remove") { return "$rrr removed $parms \from ignore list"; }
}
set SET_NOTIFY {
   if ($0 eq "add") { return "$rrr added $parms to notify list"; }
   if ($0 eq "remove") { return "$rrr removed $parms from notify list"; }
}
set PROCESS_DATA! { return "$c1 $+ ( $+ $c6 $+ $pid $+ $c1 $+ ) $+ $c5 $parms"; }
set DCC_REQUEST {
   if ($2 eq "SEND") { return "$nnn $c1 $+ [ $+ $c4 $+ DCC SEND $+ $c1 $+ ] $+ $c5 request from $+ $c6 $nick $+ $c2 $+ : $+ $c6 $3 $c1 $+ ( $+ $c4 $+ " . formatBytes($6) . " $+ $c1 $+ ) $+ $c5"; }
   return "$nnn $c1 $+ [ $+ $c4 $+ DCC $2 $+ $c1 $+ ] $+ $c5 request from $+ $c6 $nick";
}

set CHATMSG { return "$c1 $+ ( $+ $c4 $+ $[10]0 $+ $c1 $+ ) $c5 $+  $1-"; }
set SEND_CHAT_ERROR { return "$rrr $c1 $+ [ $+ $c4 $+ DCC CHAT $+ $c1 $+ ] $c5 $+ there is not a open chat with $0"; }
set SEND_CHAT {
   if (-iswindow ("=" . $0)) { return "$c1 $+ ( $+ $c4 $+ $[10]me $+ $c1 $+ ) $+ $c5 $1-"; }
   else { return "$c1 $+ ( $+ $c4 $+ $[10]0 $+ $c1 $+ ) $+ $c5 $1-"; }
}
set CHAT_OPEN { return "$rrr dcc chat with $nick opened."; }
set CHAT_CLOSE { return "$rrr dcc chat with $nick lost: $1-"; }
set DCC_LIST_TYPE {
   $conn = getDCCConnection($this);
   return "$c5 $+ " . getConnectionType($conn);
}
set DCC_LIST_NICK {
   $conn = getDCCConnection($this);
   return "$c5 $+ " . getDCCNickname($conn);
}
set DCC_LIST_INFORMATION { return DCCInformation(getDCCConnection($this)); }
set RECEIVE_COMPLETE {
   $dcc  = getDCCConnection($this);
   $file = getDCCFileName($dcc);
   $rate = formatBytes(getTransferRate($dcc)) . "/s";
   return "$nnn receive of $file from $nick complete at $rate";
}
set SEND_COMPLETE { return "$nnn dcc send to $nick complete"; }
set RECEIVE_START {
   $dcc  = getDCCConnection($this);
   $file = getDCCFileName($dcc);
   return "$nnn receive of $file from $nick has started";
}
set SEND_START {
   printf("Start of send to $nick");
   return "$nnn dcc send to $nick has started";
}

set RECEIVE_FAILED       { return "$nnn dcc receive from $nick has failed $1-"; }
set SEND_FAILED          { return "$nnn dcc send to $nick has failed: $1-"; }
set RESUME_SUCCEEDED     { return "$nnn dcc resume request to $nick successful"; }
set RESUME_FAILED        { return "$nnn dcc resume request to $nick \bfailed\b"; }
set RESUME_REQUEST_ERROR { return "$nnn $nick has made a idiotic resume request"; }
set RESUME_REQUEST       { return "$nnn $nick has requested to resume the dcc transfer"; }
set RESOLVED_LOCALINFO   { return "$nnn dns resolved local host to $0"; }
set RESOLVED_HOST {
    if ($2- ne "") { return "$nnn dns resolved\b $0 \bto $2 $+ \r[\r $+ $1 $+ \r]\r"; }
    else { return "$nnn unable to resolve dns: $0 $+ \r:\r host not found"; }
}
set IDENT_REQUEST       { return "$rrr ident request from $0"; }
set SERVER_ERROR        { return "$rrr server \berror\b $parms"; }
set IRC_ATTEMPT_CONNECT { return "$rrr attempting to connect to " . $0; }
set IRC_DISCONNECT      { return "$rrr disconnected from " . getServerHost() . ": $parms"; }
set IRC_CONNECT         { return "$rrr connected to " . getServerHost() . "\b"; }
set IRC_RECONNECT       { return "$rrr attempting to reconnect to\r\b " . getServerHost() . "\b"; }
set INVITE              { return "$nnn $nick invites you to join $1"; }
set CHANNEL_MODE_IS     { return "$nnn channel mode $0 is $parms"; }
set CHANNEL_TOPIC_IS       { 
  echo("$0",timeStampCh("" . bcp("$c1  ÚÄ $+ $c2 $+ Ä $+ $c3 $+ Ä $+ $c4 $+ Ä $+ $c3 $+ Ä $+ $c2 $+ Ä $+ $c1 $+ Ä¿") . ""));
  echo("$0",timeStampCh("" . bcp("$c2 $+ ÚÄ $+ $c1 $+ ³ $+ $c2 $+ ÄÄÄÄÄÄÄÄÄ¿") . ""));  
  return "" . bcp("$c2 $+ ³ ³ $c6 $+ topic $c1 $+ ³ ³ $+ $c5 ") . " $parms"; 
}
set CHANNEL_TOPIC_SETBY    { 
  echo("$1",timeStampCh("" . bcp("$c2 $+ ³ ³ $c6 $+ setby $c1 $+ ³ ³ $+ $c5 ") . " $nick $c4 $+ on $+ $c6 $seton "));
  echo("$1",timeStampCh("" . bcp("$c2 $+ ÀÄ $+ $c1 $+ ³ $+ $c2 $+ ÄÄÄÄÄÄÄ $+ $c1 $+ ³ $+ $c2 $+ ÄÙ") . ""));
  return "" . bcp("$c1  À $+ $c2 $+ ÄÄ $+ $c3 $+ Ä $+ $c4 $+ Ä $+ $c3 $+ Ä $+ $c2 $+ Ä $+ $c1 $+ ÄÙ") . "";
}
# set CHANNEL_CREATED        { return "$nnn channel $1 was created $created"; }
set CHANNEL_CREATED        { return; }
set CHANNEL_NAMES          { return; }
# set JOIN_SYNC              { call("sc $1"); return "$nnn channel $1 was synched in $sync \c23secs."; }
set JOIN_SYNC              { call("sc $1"); return; }
set CHANNEL_MODE { 
   rehashWindow($target);
   return "$nnn $c6 $+ $source $+ $c1 $+ ( $+ $c5 $+ " . _saddy("$address") . " $+ $c1 $+ ) $+ $c4 set mode for $+ $c6 $target $c1 $+ [ $+ $c4 $+ $parms $+ $c1 $+ ] $+ $c5";
}
set USER_MODE       { return "$nnn $c6 $+ $target $c4 $+ changed mode to: $+ $c5 $parms"; }
set CHANNEL_JOIN    { return "$nnn $c6 $+ $nick $+ $c1 $+ ( $+ $c5 $+ " . _saddy("$address") . " $+ $c1 $+ ) $+ $c4 has joined"; }
set CHANNEL_KICK    { return "$nnn $c6 $+ $nick $+ $c1 $+ ( $+ $c5 $+ " . _saddy("$address") . " $+ $c1 $+ ) $+ $c5 $1 $c4 $+ was kicked by $+ $c6 $2-"; }
on kick { 
  if ($1 eq $me) { call("/join $target"); } 
}
set USER_QUIT       { return "$nnn $c6 $+ $nick $+ $c1 $+ ( $+ $c5 $+ " . _saddy("$address") . " $+ $c1 $+ ) $+ $c4 quit irc: $+ $c6 $parms"; }
set CHANNEL_PART    { return "$nnn $c6 $+ $nick $+ $c1 $+ ( $+ $c5 $+ " . _saddy("$address") . " $+ $c1 $+ ) $+ $c4 has parted"; }
set NICKLIST_FORMAT { return formatNick($nick, $channel, $nick); }
set CHANNEL_TEXT_INACTIVE { 
   if ($me isin $parms) { return "" . getStatusSymbol($nick, $target) . " $+ $c1 $+ ( $+ $c6 $+ $nick $+ $c1 $+ : $+ $c5 $+ $target $+ $c1 $+ ) $+ $c4 $parms"; }
   return "" . getStatusSymbol($nick, $target) . " $+ $c1 $+ ( $+ $c6 $+ $nick $+ $c1 $+ : $+ $c5 $+ $target $+ $c1 $+ ) $+ $c4 $parms"; 
}

set SEND_TEXT { return "" . getStatusSymbol($me, $0) . " $+ $c1 $+ ( $+ $c6 $+ $[10]me $+ $c1 $+ ) $+ $c4 $parms"; }
set SEND_TEXT_INACTIVE { return "" . getStatusSymbol($me, $0) . " $+ $c1 $+ ( $+ $c6 $+ $me $+ $c2 $+ : $+ $c5 $+ $target $+ $c1 $+ ) $+ $c4 $parms"; }
set USER_NICK { return "$nnn $c6 $+ $nick $+ $c1 $+ ( $+ $c5 $+ " . _saddy("$address") . " $+ $c1 $+ ) $+ $c4 is now known as $+ $c6 $1"; }
set CHANNEL_TOPIC_CHANGED { 
   rehashWindow($0);
   return "$nnn $c5 $+ $nick $c4 $+ has changed the topic to $+ $c6 $parms"; 
}
set ACTION                 { return "$c3 $+ >> $+ $c6 $nick $c5 $+ $1-"; }
set PRIVACTION             { return "$c3 $+ >> $+ $c6 $nick $c5 $+ $1-"; }
set ACTION_INACTIVE        { return "$c3 $+ >> $+ $c6 $nick $+ $c1 $+ : $+ $c3 $+ $0 $c5 $+ $1-"; }
set SEND_ACTION            { return "$c3 $+ >> $+ $c6 $me $c5 $+ $parms"; }
set SEND_ACTION_INACTIVE   { return "$c3 $+ >> $+ $c6 $me $+ $c1 $+ : $+ $c3 $+ $0 $c5 $+ $parms"; }
set SEND_ACTION_PRIV       { return "$c3 $+ >> $+ $c6 $me $+ $c1 $+ : $+ $c3 $+ $0 $c5 $+ $parms"; }
set FORMATTED_NAMES_HEADER { return; }
set FORMATTED_NAMES        { return; }
set TIMESTAMP              { return "$c1 $+ ( $+ $c6 $+ $time $+ $c1 $+ ) $+ $c5"; }


set CTCP_REPLY { 
   $stuff = $2-;
   if ($pt ne "") { $stuff = $pt; }
   return "$rrr $c6 $+ ctcp ".lc($1)." $c4 $+ reply from $+ $c5 $nick $+ $c1 $+ : $+ $c6 $stuff";
}
set SEND_DCC {
   if ($1 eq "SEND") { return "$nnn dcc send request sent to $0 $+ : " . getFileName($4-) . " [" . formatBytes($3) . "]"; }
   return "$nnn dcc ".lc($1)." request sent to $0";
}
set SEND_CTCP { return "$nnn $c1 $+ [ $+ $c3 $+ ctcp $+ $c2 $+ < $+ $c6 $+ $0 $+ $c2 $+ > $+ $c1 $+ ] $+ $c5 $1-"; }
set SEND_NOTICE { return "$nnn $c1 $+ [ $+ $c3 $+ notice $+ $c2 $+ < $+ $c6 $+ $0 $+ $c2 $+ > $+ $c1 $+ ] $+ $c5 $parms"; }
set SEND_WALL { return "$nnn $c1 $+ [ $+ $c3 $+ wall $+ $c2 $+ < $+ $c6 $+ $0 $+ $c2 $+ > $+ $c1 $+ ] $+ $c5 $1-"; }
set SEND_WALLEX { return "$nnn $c1 $+ [ $+ $c3 $+ wall-x $+ $c2 $+ < $+ $c6 $+ $0 $+ $c2 $+ > $+ $c1 $+ ] $+ $c5 $1-"; }
set NOTICE {
   if ($nick eq "" && $1 eq "***") { return "$nnn $c2 $+ ! $+ $c3 $+ ".getServerHost()." $+ $c2 $+ ! $+ $c4 $2-"; }
   else if ($nick eq "") { return "$nnn $c2 $+ ! $+ $c3 $+ ".getServerHost()." $+ $c2 $+ ! $+ $c4 $1-"; }
   return "$rrr $c6 $+ $nick $+ $c1 $+ [ $+ $c5 $+ " . _saddy("$address") . " $+ $c1 $+ ] $+ $$c5 $parms";
}
set PRIVMSG {
   if (-iswindow $nick) { return "$c1 $+ ( $+ $c6 $+ $[10]nick $+ $c1 $+ ) $+ $c5 $parms"; }
   return "$c1 $+ [\b $+ $c6 $+ $nick $+ \b $+ $c2 $+ ( $+ $c5 $+ " . _saddy("$address") . " $+ $c2 $+ ) $+ $c1 $+ ] $+ $c5 $parms";
}
set SEND_MSG {
   if (-iswindow $target) { return "$c1 $+ ( $+ $c6 $+ $[10]me $+ $c1 $+ ) $+ $c5 $parms"; }
   else { return "$c2 $+ < $+ $c4 $+ msg $+ $c1 $+ ( $+ $c6 $+ $target $+ $c1 $+ ) $+ $c2 $+ > $+ $c5 $1-"; }
}



set NOTIFY_SIGNON  { return "$nnn $c6 $+ \b $+ $nick \b $+ $c1 $+ ( $+ $c5 $+ " . _saddy("$address") . " $+ $c1 $+ ) $+ $c4 has signed on"; }
set NOTIFY_SIGNOFF { return "$nnn $c6 $+ \b $+ $nick \b $+ $c1 $+ ( $+ $c5 $+ " . _saddy("$address") . " $+ $c1 $+ ) $+ $c4 has signed off"; }
set CHANNEL_TEXT { 
   if ($me isin $parms) { return "" . getStatusSymbol($nick, $0) .  " $+ $c1 $+ ( $+ $c4 $+ $[10]nick $+ $c1 $+ ) $+ $c5 $parms"; }
   return "" . getStatusSymbol($nick, $0) .  " $+ $c1 $+ ( $+ $c6 $+ $[10]nick $+ $c1 $+ ) $+ $c5 $parms";
}
sub DCCInformation {
   local('$info $conn');
   $conn = $1;
   $type = getConnectionType($conn);
   if (!-isdccopen $conn) { return "$c6 $+ waiting..."; }
   if ($type eq "CHAT") { $info = "$c6 $+ idle $+ $c2 $+ : $+ $c5 " . formatTime(getDCCIdleTime($conn) / 1000); }
   else {
     $info = "$c1 $+ ( $+ $c6 $+ est $+ $c2 $+ : $+ $c6 $+ " . formatTime2(getTimeRemaining($conn)) . " $+ $c1 $+ ) $+ $c6";
     local('$a $b $c $d');
     $a = getDCCPercentage($conn);
     $b = getDCCFileName($conn);
     $c = formatBytes(getTransferRate($conn)) . "/s";
     $d = "$c1 $+ ( $+ $c6 $+ size $+ $c2 $+ : $+ $c5 $+ " . formatBytes(getDCCSizeSoFar($conn)) . " $+ $c1 $+ ) $+ $c5";
     $info = "$c5 $+ $[21]info $+ $[-2]a $+ \r%\r $[7]c $+ $[22]d $+ $b"
   }
   return $info;
}

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 $c1 $+ ( $+ $c4 $+ channel invite $+ $c1 $+ ) $+ $c6 $1 $c4 $+ has been invited to $+ $c5 $2"; }
set REPL_372               { return "$nnn $parms"; }
set REPL_324               { return; }
set REPL_366               { return; }
set REPL_352!              { return "$c6 $+ $1 $c5 $+ \b $+ $[10]5 \b $+ $c4 $+ $[2]6 $7  $c1 $+ [ $+ $c6 $+ $2 $+ @ $+ $3 $+ $c1 $+ ] $+ $c6 on $4 $+ : $8-"; }
set REPL_315               { return; }
set REPL_401               { $who = "off"; return "$nnn no such user/channel: $1"; }
set REPL_406               { $who = "off"; return "$nnn no such user/channel has been online."; }
set REPL_301!              { return timeStampCh(formatWhois("away", "$2-")); }
set REPL_307!              { return timeStampCh(formatWhois("register", "$c5 $+ $1 $3- $c6 $+ \b $+ $2-")); }
set REPL_311! { 
 echo(timeStampCh("" . bcp("  $c2 $+ ÚÄ $+ $c3 $+ ÄÄ $+ $c4 $+ ÄÄ $+ $c5 $+ ÄÄÄ $+ $c4 $+ ÄÄ $+ $c2 $+ ÄÄ $+ $c1 $+ ¿") . ""));
 echo(timeStampCh("" . bcp("$c1 $+ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄijĿ") . ""));
 echo(timeStampCh(formatWhois("$1", "$c2 $+ ( $+ $c5 $+ $2 $+ $c2 $+ @ $+ $c5 $+ $3 $+ $c2 $+ ) $+ $c5")));
 return timeStampCh(formatWhois("ircname", "$5-")); 
}
set REPL_312! { return timeStampCh(formatWhois("server", "$c5 $+ $2 $c2 $+ ( $+ $c5 $+ $3- $+ $c2 $+ ) $+ $c5")); }
set REPL_313! { return timeStampCh(formatWhois("ircop", "$c5 $+ \b $+ $1 \b $+ $c3 $+ $2-")); }
set REPL_314! { 
 echo(timeStampCh("" . bcp("  $c2 $+ ÚÄ $+ $c3 $+ ÄÄ $+ $c4 $+ ÄÄ $+ $c5 $+ ÄÄÄ $+ $c4 $+ ÄÄ $+ $c2 $+ ÄÄ $+ $c1 $+ ¿") . ""));
 echo(timeStampCh("" . bcp("$c1 $+ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄijĿ") . ""));
 return timeStampCh(formatWhois("who was", "$c6 $+ \b $+ $1 $c2 $+ ( $+ $c5 $+ $2 $+ $c2 $+ @ $+ $c5 $+ $3 $+ $c2 $+ ) $+ $c5 $5-")); 
}
set REPL_317! { return timeStampCh(formatWhois("idle", formatTime($2))); }
set REPL_330! { return timeStampCh(formatWhois("register", "$c5 $+ $1 $3- $c6 $+ \b $+ $2")); }
set REPL_318  { 
 if ($who eq "off") { $who = $null; return; }
 else {
  echo(timeStampCh("" . bcp("$c1 $+ ÀÄ $+ $c2 $+ ³ $+ $c1 $+ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ") . ""));
  return "" . bcp("  $c2 $+ À $+ $c3 $+ Ä $+ $c4 $+ ÄÄ $+ $c5 $+ ÄÄÄ $+ $c4 $+ ÄÄ $+ $c2 $+ Ä $+ $c1 $+ ÄÄÄÙ") . "";
 } 
}
set REPL_369  { 
 if ($who eq "off") { $who = $null; return; }
 else {
  echo(timeStampCh("" . bcp("$c1 $+ ÀÄ $+ $c2 $+ ³ $+ $c1 $+ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ") . ""));
  return "" . bcp("  $c2 $+ À $+ $c3 $+ Ä $+ $c4 $+ ÄÄ $+ $c5 $+ ÄÄÄ $+ $c4 $+ ÄÄ $+ $c2 $+ Ä $+ $c1 $+ ÄÄÄÙ") . "";
 } 
}
set REPL_319! { 
   local('$output $temp');
   foreach $temp (split(' ', $2-)) {
      if (charAt($temp, 0) eq "@") { $temp = "$c1 $+ @ $+ $c6" . substr($temp, 1); }
      if (charAt($temp, 0) eq "+") { $temp = "$c2 $+ + $+ $c6" . substr($temp, 1); }
      if (charAt($temp, 0) eq "%") { $temp = "$c3 $+ % $+ $c6" . substr($temp, 1); }
      $output = "$output $+ $temp ";
   }
   return timeStampCh(formatWhois("channels", "$output")); 
}
set REPL_320! { return timeStampCh(formatWhois("secure", "$1 $2-")); }
set REPL_338! { return timeStampCh(formatWhois("host", "$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 "$c5 $+ $[25]1 $c3 $+ -> $+ $c4 $[25]2 $c2 $+ ( $+ $c5 $+ \b $+ $3 \bhops $+ $c2 $+ ) $+ $c5 $4-"; }
set REPL_365  { return; }
set REPL_321! { return "$nnn  $+ $c1 $+ ( $+ $c4 $+ channel $+ $c1 $+ )              ( $+ $c4 $+ users $+ $c1 $+ )   ( $+ $c4 $+ topic $+ $c1 $+ )"; }
set REPL_322! { return "$nnn $c6 $+ $[20]1 $+ $c5 $[-5]2   $3-"; }
set REPL_323  { return; }
set REPL_341  { return "$nnn $c4 $+ invite request sent to $+ $c6 $1 $+ $c4 for $+ $c5 $2"; }

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

	# 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();
        onSlurge();
}

on UNLOAD {
        setProperty("ui.sbarlines", 1);
	setProperty('sloading', '');
}
sub onSlurge {
 rehashWindow(getActiveWindow());
 refreshWindow(getActiveWindow());
 $color = getProperty("scolors", 'default');
 $nnn = "$c1 $+ > $+ $c2 $+ > $+ $c3 $+ > $+ $c3 $+ > $+ $c5";
 $rrr = "$c1 $+ : $+ $c2 $+ : $+ $c3 $+ : $+ $c3 $+ : $+ $c5";
}
if (getProperty('sloading') eq '') {
 color_reset();
 if (getProperty('scolors') eq '') { call("format cl default"); }
 else { call("format cl $color"); }
 onSlurge();
}
onSlurge();
onSlurgeAnsi();
# END OF FILE - EOF