# 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