home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 June / ccd0605.iso / Software / Freeware / Comunicatii / jIRCii / jerk.jar / resource / default.irc < prev    next >
Text File  |  2005-05-08  |  21KB  |  1,013 lines
  1. #
  2. # default.irc
  3. # ----
  4. # a basic jirc script, does some simple stuff.
  5. # realizing my *dream* of ircii colored in with a crayon.
  6. #
  7. # The theme is simple on purpose, and the colors are campy
  8. # on purpose.  
  9. #
  10. #
  11.  
  12. $DEBUG = 0; # set to 1 if you want to see numerics in the default
  13.             # numerci echo.
  14.  
  15. #
  16. # These are some color constants I put together, so I could quickly
  17. # change them, the shift+click stuff in jIRC is dependent on a color
  18. # being a custom color so right here all the custom colors I want to
  19. # use are binded to a scalar
  20. #
  21.  
  22. # color scheme
  23. #
  24. # \c17 -> Light Gray     -> general text and such
  25. # \c18 -> Blue           -> Quit, Part, Kick, Notify Signoff
  26. # \c19 -> Green          -> channel joins, notify Sign on, Nick change
  27. # \c20 -> Orange         -> CTCP requests / notices 
  28. # \c21 -> Teal           -> User text
  29. # \c22 -> Violet         -> My text, Action text
  30. # \c22 -> Purple         -> messages
  31. # \c23 -> Yellow         -> mode changes, topic changes
  32. # \c24 -> Brown          -> notices
  33. # \c25 -> odd tan color  -> timestamps
  34. # \c26 -> op color       
  35. # \c27 -> voice color    
  36. # \c28 -> halfop color
  37. # \c29 -> user color
  38. # \c30 -> red            -> ctcp color
  39. # \c31 -> green          -> dcc chat color
  40. # \c32 -> black          -> statusbar color
  41. # \c33 -> grey           -> server reply neutral color
  42. # \c34 -> purple         -> send/receive messages
  43. # \c35 -> light red      -> server reply nick/user@host stuff
  44. # \c36 -> orange         -> server reply channels/hosts
  45. # \c37 -> red            -> error replies like server error
  46. # \c39 ->                -> ident request
  47. # \c40 ->                -> misc colors (url opening and such)
  48. # \c41 ->                -> dcc closed/done messages
  49. # \c42 ->                -> dcc open/status messages
  50.  
  51. $nnn = "*\B*\B*"; # the bullet used in all of our echo's
  52.  
  53. sub rehashWindow
  54. {
  55.    if (-iswindow $1)
  56.    {
  57.       local('$mmode');
  58.  
  59.       if ("l" ismode $1)
  60.       {
  61.          $mmode = getMode($1) . " " . getLimit($1);
  62.       }
  63.       else
  64.       {
  65.          $mmode = getMode($1);
  66.       }
  67.  
  68.       &setWindowTitle($1, "$1 [ $+ $mmode $+ ] " . strip(getTopic($1)));
  69.    }
  70. }
  71.  
  72. set CHANNEL_MODE_IS!
  73. {
  74.    return "\C17*\B*\B* Mode for\B $0 $+ \B\R:\R $parms"; 
  75. }
  76.  
  77. set CHANNEL_TOPIC_IS!
  78. { 
  79.    return "\C17*\B*\B* Topic for\B $0 $+ \B\R:\R $parms"; 
  80. }
  81. set CHANNEL_TOPIC_SETBY!
  82. { 
  83.    return "\C17 $+ *\B*\B* Topic for $1 set by $nick on $seton"; 
  84. }
  85.  
  86. set NICKLIST_FORMAT
  87. {
  88.    return formatNick($nick, $channel, $nick);
  89. }
  90.  
  91. sub formatNick
  92. {
  93.    if ($1 isop $2) 
  94.    {
  95.       return "\C26@\C29 $+ $3";
  96.    }
  97.    else if ($1 isvoice $2) 
  98.    {
  99.       return "\C27+\C29 $+ $3";
  100.    }
  101.    else if ($1 ishalfop $2)
  102.    {
  103.       return "\C28%\C29 $+ $3";
  104.    }
  105.    else if ($1 hasmode $2)
  106.    {
  107.       return "\C26\B" . getModeFor($1, $2) . "\B\C29 $+ $3";
  108.    }
  109.    return "\C29 $+ $3";
  110. }
  111.  
  112. set CHANNEL_CREATED!
  113. { 
  114.    return "\C17*\B*\B* Channel $1 was created on $created";
  115. }
  116.  
  117. on topic
  118. {
  119.    rehashWindow($1);
  120. }
  121.  
  122. on mode
  123. {
  124.    if ($me ison $target)
  125.    {
  126.       refreshWindow($target);
  127.    } 
  128. }
  129.  
  130. on open
  131. {
  132.    if ($me ison $window)
  133.    {
  134.       rehashWindow($window);
  135.    }
  136. }
  137.  
  138. on repl_324
  139. {
  140.    rehashWindow($1);
  141. }
  142.  
  143. set JOIN_SYNC!
  144. {
  145.    return "\C17*\B*\B* Join to\B $1 \Bwas synched in\B $sync \Bsecs."; 
  146. }
  147.  
  148. set CHANNEL_MODE 
  149. { 
  150.    rehashWindow($target);
  151.    return "\C23*\B*\B*\B $source \Bhas set mode\B $target $+ \B: $parms"; 
  152. }
  153.  
  154. set USER_MODE 
  155. { 
  156.    return "\C23*\B*\B*\B $source \Bhas set mode\B $target $+ \B: $parms"; 
  157. }
  158.  
  159. set CHANNEL_JOIN 
  160. { 
  161.    return "\C19*\B*\B*\B $nick \Bhas joined:\B $target"; 
  162. }
  163.  
  164. set CHANNEL_KICK 
  165. { 
  166.    return "\C18*\B*\B*\B $1 \Bhas been kicked by $nick $+ :\B $2-"; 
  167. }
  168.  
  169. set USER_QUIT 
  170. { 
  171.    return "\C18*\B*\B* Signoff:\B $nick \B(\B $+ $parms $+ \B)"; 
  172. }
  173.  
  174. set CHANNEL_PART 
  175. { 
  176.    return "\C18*\B*\B* $nick has left: $target"; 
  177. }
  178.  
  179. set CHANNEL_TEXT 
  180. { 
  181.    if ($me isin $parms) 
  182.    {
  183.       return "\C21<\B\U $+ $nick $+ \U\B>\C17 $parms";
  184.    }
  185.    return "\C21<\B $+ $nick $+ \B>\C17 $parms";
  186. }
  187.  
  188. set CHANNEL_TEXT_INACTIVE 
  189. { 
  190.    return "\C21<\b $+ $nick $+ \b\R:\R $+ $target $+ >\C17 $parms"; 
  191. }
  192.  
  193. set SEND_TEXT 
  194. { 
  195.    return "\C22<\B $+ $me $+ \B>\C17 $parms"; 
  196. }
  197.  
  198.  
  199. set SEND_TEXT_INACTIVE 
  200. { 
  201.    return "\C22<\B $+ $me $+ \B\R:\R $+ $target $+ >\C17 $parms"; 
  202. }
  203.  
  204. set USER_NICK 
  205. {
  206.    return "\C19*\B*\B* $nick is now known as:\B $1";
  207. }
  208.  
  209. set CHANNEL_TOPIC_CHANGED 
  210. { 
  211.    rehashWindow($0);
  212.    return "\C23*** $nick has changed the topic to:\B $parms"; 
  213. }
  214.  
  215. set ACTION 
  216. { 
  217.    return "\C22\B*\B $nick $1-"; 
  218. }
  219.  
  220. set PRIVACTION 
  221. { 
  222.    return "\C22\B*\B> $nick $1-"; 
  223. }
  224.  
  225.  
  226. set ACTION_INACTIVE 
  227. {
  228.    return "\C22* $nick $+ \R:\R $+ $0 $1-";
  229. }
  230.  
  231. set SEND_ACTION 
  232. { 
  233.    return "\C22*\B $me \B $+ $parms";
  234. }
  235.  
  236. set SEND_ACTION_INACTIVE 
  237. { 
  238.    return "\C22*\B $me $+ \B: $+ $0 $parms"; 
  239. }
  240.  
  241. set SEND_ACTION_PRIV 
  242. {
  243.    return "\C22*\B $me \B: $+ $0 $parms"; 
  244. }
  245.  
  246. set REPL_324!
  247. {
  248.    return;
  249. }
  250.  
  251. set REPL_372! 
  252. { 
  253.    return "\C17 $+ $parms";
  254. }
  255.  
  256. set FORMATTED_NAMES_HEADER!
  257. {
  258.    return "\C17*\B*\B* Users on\R:\R\B $2";
  259. }
  260.  
  261. set FORMATTED_NAMES
  262. {
  263.    if ($nick isnormal $2)
  264.    {
  265.       return " " . formatNick($nick, $2, left("$[12]nick", 12));
  266.    }
  267.    return formatNick($nick, $2, left("$[12]nick", 12));
  268. }
  269.  
  270. set TIMESTAMP 
  271. { 
  272.    return "\C25[\B $+ $time $+ \B] "; 
  273. }
  274.  
  275. set CTCP_REPLY 
  276. { 
  277.    $stuff = $2-;
  278.  
  279.    if ($pt ne "")
  280.    {
  281.      $stuff = $pt;
  282.    }
  283.  
  284.    return "\C30[ $+ $nick \B $+ $1 $+ \B reply]\R:\R $stuff";
  285. }
  286.  
  287. set SEND_DCC
  288. {
  289.    if ($1 eq "SEND")
  290.    {
  291.       return "\c42$nnn DCC SEND to $0 $+ \r:\r " . getFileName($4-) . " (" . formatBytes($3) . ")";
  292.    }
  293.  
  294.    return "\c42$nnn DCC " . uc($1) .  " to $0";
  295. }
  296.  
  297.  
  298. set SEND_CTCP 
  299. {
  300.    if ($1 eq "PING")
  301.    {
  302.       return "\C30\r->\r [ $+ $0 \BPING\B]";
  303.    }
  304.    else if ($2- eq "")
  305.    {
  306.       return "\C30\r->\r [ $+ $0 \B $+ $1 $+ \B]";
  307.    } 
  308.    else
  309.    {
  310.       return "\C30\r->\r [ $+ $0 \B $+ $1 $+ \B]\R:\R $2-";
  311.    }
  312. }
  313.  
  314. set SEND_NOTICE 
  315. {
  316.    return "\c24 $+ -> -\b $+ $0 $+ \b- $+ \c17 $parms";
  317. }
  318.  
  319. set SEND_WALL
  320. {
  321.    return "\c24\r[\rwall\r/\r\b $+ $0 $+ \b\r]:\r\c17 $1-";
  322. }
  323.  
  324. set SEND_WALLEX
  325. {
  326.    return "\c24\r[\rwall-x\r/\r\b $+ $0 $+ \b\r]:\r\c17 $1-";
  327. }
  328.  
  329. set NOTICE 
  330. {
  331.    if ($nick eq "")
  332.    {
  333.       return "\c24 $+ $parms";
  334.    }
  335.  
  336.    return "\c24 $+ -\b $+ $nick $+ \b-\c17 $parms";
  337. }
  338.  
  339. set PRIVMSG 
  340. {
  341.    return "\C34 $+ *\B $+ $nick $+ \B*\C17 $parms";
  342. }
  343. set SEND_MSG 
  344. {
  345.    if (-iswindow $target)
  346.    {
  347.        return "\C34*\B $+ $me $+ \B*\C17 $parms";
  348.    }
  349.    else
  350.    {
  351.        return "\C34 $+ \R->\R *\B $+ $target $+ \B*\C17 $parms";
  352.    }
  353. }
  354. set NOTIFY_SIGNON
  355. {
  356.    return "\C19 $+ $nnn Signon:\B $nick \B( $+ $address $+ )";
  357. }
  358. set NOTIFY_SIGNOFF 
  359. {
  360.    return "\C18 $+ $nnn Signoff:\B $nick \B( $+ $address $+ )";
  361. }
  362.  
  363. set REPL_366 { return; } # hide REPL_END_OF_NAMES
  364.  
  365. #
  366. # Whois Reply
  367. #
  368. set REPL_401 { return "\c33$nnn \c35\b $+ $1 $+ \b\c33 $2-"; } # no such nick/channel
  369. set REPL_406 { return "\c33$nnn \c35\b $+ $1 $+ \b\c33 $2-"; } # was no such nick/channel
  370. set REPL_301! { return formatWhois("Away", "$2-"); }
  371. set REPL_307! { return formatWhois("Register", "\c35\b $+ $1 $+ \b\c33 $2-"); }
  372. set REPL_311! { return formatWhois("Whois", "\c35\b $+ $1 \b\r[\r $+ $2 $+ \r@\r $+ $3 $+ \r]\c33:\r $5-"); }
  373. set REPL_312! { return formatWhois("Server", "\c36 $+ $2 \c33\r(\r $+ $3- $+ \r)\r"); }
  374. set REPL_313! { return formatWhois("Ircop", "\c35\b $+ $1 \b\c33 $+ $2-"); }
  375. set REPL_314! { return formatWhois("Who Was", "\c35\b $+ $1 \b\r[\r $+ $2 $+ \r@\r $+ $3 $+ \r]\c33:\r $5-"); }
  376. set REPL_317! { return formatWhois("Idle", formatTime($2)); }
  377. set REPL_330! { return formatWhois("Register", "\c33 $+ $1 $3- \c35\b $+ $2"); }
  378. set REPL_318  { return ""; } # hide END of /WHOIS 
  379. set REPL_369  { return ""; } # hide END of /WHOWAS 
  380. set REPL_319! 
  381. { 
  382.    local('$chtemp');
  383.    foreach $var (split(" ", $2-))
  384.    {
  385.       if (strlen($var) > 0 && charAt($var, 0) ne "#" && charAt($var, 0) ne "&") 
  386.       {
  387.          $var = "\r" . charAt($var, 0) . "\r" . substr($var, 1, strlen($var));
  388.       }
  389.       $chtemp = "$chtemp $+ $var ";
  390.    }
  391.  
  392.    return formatWhois("Channels", "\c36 $+ $chtemp"); 
  393. }
  394. set REPL_320! { return formatWhois("Secure", "\c35\b $+ $1 $+ \b\c33 $2-"); }
  395. set REPL_338! { return formatWhois("Host", "$2"); }
  396.  
  397. sub formatWhois
  398. {
  399.    local('$temp');
  400.    $temp = "\b" . charAt("$[8]1", 0) . "\b" . substr("$[8]1", 1, strlen("$[8]1"));
  401.    return "\c33 $+ $temp $+ \r:\r $2";
  402. }
  403.  
  404. #
  405. # formatted numerics
  406. #
  407. set REPL_403 { return formatNumeric($1, $2-); } # no such channel
  408. set REPL_442 { return formatNumeric($1, $2-); } # you're not on that channel
  409. set REPL_473 { return formatNumeric($1, $2-); } # banned
  410. set REPL_474 { return formatNumeric($1, $2-); } # invite
  411. set REPL_475 { return formatNumeric($1, $2-); } # key
  412. set REPL_433 { return formatNumeric($1, $2-); } # nick in use
  413.  
  414. sub formatNumeric
  415. {
  416.    if (charAt($1, 0) eq "#")
  417.    {
  418.       return "\c33$nnn \c36\b $+ $1 $+ \b\c33 $2"; 
  419.    }
  420.    return "\c33$nnn \c35\b $+ $1 $+ \b\c33 $2";
  421. }
  422.  
  423. #
  424. # Formatted Server Output Type Stuff
  425. #
  426.  
  427. # /who reply
  428. set REPL_352! 
  429. {
  430.    return "\c36 $+ $1 \c35\b $+ $5 \b\r[\r $+ $2 $+ \r@\r $+ $3 $+ \r]\r\c33 on\c36 $4 $+ \c33\r:\r $8-";
  431. }
  432.  
  433. set REPL_315 { return; }
  434.  
  435. # /mode #channel +b reply
  436. $_bancount = 0;
  437.  
  438. set CHANNEL_BANLIST
  439. {
  440.    local('@info');
  441.    @info = split('!', $3);
  442.  
  443.    $_bancount++;
  444.  
  445.    return "\c36 $+ $1 \c35\b $+ $2 \b\c33set by\r:\r\c35 " . @info[0];
  446. }
  447.  
  448. set CHANNEL_BANLIST_END
  449. { 
  450.    if ($_bancount == 0)
  451.    {
  452.       return "\c36 $+ $1 \c35\bno\b bans set";
  453.    }
  454.  
  455.    $_bancount = 0;
  456.    return; 
  457. }  # hide end of banlist reply...
  458.  
  459. # /links reply
  460. set REPL_364! 
  461. {
  462.    return "\C36 $+ $[20]1 \c33-\b>\b\c36 $[20]2 \c33\r(\r\b $+ $3 \bhops\r):\r $4-";
  463. }
  464.  
  465. set REPL_365 { return; }
  466.  
  467. # /list reply
  468. set REPL_321! 
  469. {
  470.    return "\c33\bC\bhannel              \bU\bsers   \bT\bopic";
  471. }
  472.  
  473. set REPL_322! 
  474. {
  475.    return "\c35\b $+ $[20]1 $+ \b\c33 $[-5]2   $3-";
  476. }
  477.  
  478. set REPL_323 { return; }
  479.  
  480. set NUMERIC! 
  481. { 
  482. #   return "\C17$nnn \r(\r\b $+ $numeric $+ \b\r)\r $parms"; 
  483.    return "\C17$nnn $parms"; 
  484. }
  485.  
  486. set CTCP_REQUEST 
  487. {
  488.    if ($2- eq ""  || ($1 eq "PING" && -isnumber $2) )
  489.    {
  490.       return "\C30[ $+ $nick \B $+ $1 $+ \B]";
  491.    }
  492.    else
  493.    {
  494.       return "\C30[ $+ $nick \B $+ $1 $+ \B]\R:\R $2-";
  495.    }
  496. }
  497.  
  498. set SBAR_LEFT 
  499. {
  500.   if ($me isop $query) 
  501.   {
  502.      $ime = "\B@\B $+ $me";
  503.   }
  504.   else if ($me ishalfop $query) 
  505.   {
  506.      $ime = "\B%\B $+ $me";
  507.   }
  508.   else if ($me isvoice $query) 
  509.   {
  510.      $ime = "\B+\B $+ $me";
  511.   }
  512.   else
  513.   {
  514.      $ime = "$me";
  515.   }
  516.  
  517.   if ($me ison $query)
  518.   {
  519.      $ichan = "on $query";
  520.   }
  521.   else
  522.   {
  523.      $ichan = "Query\R:\R $query";
  524.   }
  525.  
  526.   return "\c32 $+ [Lag:\B $lag $+ \B] $time $ime $ichan";
  527. }
  528.  
  529. sub getDCCPercentage
  530. {
  531.   if (getConnectionType($1) eq "RECEIVE")
  532.   {
  533.      return int((double(getBytesReceived($1)) / double(getExpectedSize($1))) * 100);
  534.   }
  535.  
  536.   if (getConnectionType($1) eq "SEND")
  537.   {
  538.      return int((double(getBytesSent($1)) / double(lof(getDCCFilePath($1)))) * 100);
  539.   }
  540. }
  541.  
  542. sub getDCCSizeSoFar
  543. {
  544.   if (getConnectionType($1) eq "RECEIVE")
  545.   {
  546.      return getBytesReceived($1);
  547.   }
  548.  
  549.   if (getConnectionType($1) eq "SEND")
  550.   {
  551.      return getBytesSent($1);
  552.   }
  553. }
  554.  
  555. set SBAR_RIGHT
  556. {
  557.   if (size(getActiveConnections()) > 0)
  558.   {
  559.      foreach $var (getActiveConnections())
  560.      {
  561.         if (getConnectionType($var) eq "RECEIVE")
  562.         {
  563.            $pc = getDCCPercentage($var);
  564.  
  565.            if ($DCC_WATCH_TIMER eq "")
  566.            {
  567.               sub timertemp
  568.               {
  569.                  refreshWindow(getActiveWindow());
  570.               }
  571.               $DCC_WATCH_TIMER = addTimer(&timertemp, 2000);
  572.            }
  573.  
  574.            return "\c32\r[\r" . left(getDCCFileName($var), 25) . "\r:\r $+ $pc $+ %\r]\r";
  575.         } 
  576.      }
  577.   }  
  578.  
  579.   if ($DCC_WATCH_TIMER ne "")
  580.   {
  581.      stopTimer($DCC_WATCH_TIMER);
  582.      $DCC_WATCH_TIMER = "";
  583.   }
  584.  
  585.   if (!-isSetT "ui.showtabs" && isServerConnected())
  586.   {
  587.      return "\c32\r[\r".getServerHost()."\r:\r".(getSessionId() + 1)."\r]";
  588.   }
  589.  
  590.   return "\c32\Rj\RIRC\Bii\B";
  591. }
  592.  
  593. set ON_CHANNELS 
  594. {
  595.   return "$nnn Channels: $parms";
  596. }
  597.  
  598. set SET_IGNORE
  599. {
  600.    if ($0 eq "add") { return "\c40 $+ $nnn Added\b $parms \bto ignore list"; }
  601.    if ($0 eq "remove") { return "\c40 $+ $nnn Removed\b $parms \bfrom ignore list"; }
  602. }
  603.  
  604. set SET_NOTIFY
  605. {
  606.    if ($0 eq "add") { return "\c40 $+ $nnn Added\b $parms \bto notify list"; }
  607.    if ($0 eq "remove") { return "\c40 $+ $nnn Removed\b $parms \bfrom notify list"; }
  608. }
  609.  
  610. set PROCESS_DATA! 
  611. {
  612.   return "[0] $parms";
  613. }
  614.  
  615.  
  616. #
  617. # DCC Chat Related
  618. #
  619.  
  620. set DCC_REQUEST 
  621. {
  622.    if ($2 eq "SEND")
  623.    {
  624.       return "\c42$nnn DCC SEND request from $nick $+ \r:\r $3 (" . formatBytes($6) . ")";
  625.    }
  626.  
  627.    return "\c42$nnn DCC $2 request from $nick";
  628. }
  629.  
  630. set CHATMSG
  631. {
  632.    return "\c31=\b $+ $0 $+ \b=\c17 $1-";
  633. }
  634.  
  635. set SEND_CHAT_ERROR
  636. {
  637.    return "\c41$nnn there is no open chat with $0";
  638. }
  639.  
  640. set SEND_CHAT
  641. {
  642.    if (-iswindow ("=" . $0))
  643.    {
  644.       return "\c31=\b $+ $me $+ \b=\c17 $1-";
  645.    }
  646.    else
  647.    {
  648.       return "\c31-> =\b $+ $0 $+ \b=\c17 $1-";
  649.    }
  650. }
  651.  
  652. set CHAT_OPEN
  653. {
  654.    return "\c42$nnn Chat with\b $nick \bopened.";
  655. }
  656.  
  657. set CHAT_CLOSE
  658. {
  659.    
  660.    return "\c41$nnn Chat with\b $nick \blost\b\r:\r $1-";
  661. }
  662.  
  663. #
  664. # /dcc command...  don't want anyone feeling to left out :)
  665. #
  666.  
  667. alias dcc
  668. {
  669.    if ($1 ne "")
  670.    {
  671.       call("/ $+ $0-", "use-built-in-command-only");
  672.       return;
  673.    }
  674.  
  675.    echo("\c17\bT\bype     \bN\bick        \bI\bnformation");
  676.  
  677.    foreach $conn (getActiveConnections())
  678.    {
  679.       $type = getConnectionType($conn);
  680.       $nick = getDCCNickname($conn);
  681.  
  682.       $info = DCCInformation($conn);
  683.  
  684.       echo("\c36$[7]type  \c35$[10]nick  $info");
  685.    }
  686. }
  687.  
  688. set DCC_LIST_TYPE
  689. {
  690.    $conn = getDCCConnection($this);
  691.    return "\c36" . getConnectionType($conn);
  692. }
  693.  
  694. set DCC_LIST_NICK
  695. {
  696.    $conn = getDCCConnection($this);
  697.    return "\c35" . getDCCNickname($conn);
  698. }
  699.  
  700. sub DCCInformation
  701. {
  702.    local('$info $conn');
  703.  
  704.    $conn = $1;
  705.    $type = getConnectionType($conn);
  706.  
  707.    if (!-isdccopen $conn)
  708.    {
  709.      return "Waiting...";
  710.    }
  711.  
  712.    if ($type eq "CHAT")
  713.    {
  714.      $info = "\c33\bI\bdle\r:\r " . formatTime(getDCCIdleTime($conn) / 1000);
  715.    }
  716.    else
  717.    {
  718.      $info = "\r(\r\bE\bst\r:\r " . formatTime2(getTimeRemaining($conn)) . "\r)\r";
  719.           
  720.      local('$a $b $c $d');
  721.      $a = getDCCPercentage($conn);
  722.      $b = getDCCFileName($conn);
  723.      $c = formatBytes(getTransferRate($conn)) . "/s";
  724.      $d = "\r(\r\bS\bize\r:\r " . formatBytes(getDCCSizeSoFar($conn)) . "\r)\r";
  725.  
  726.      $info = "\c33 $+ $[21]info $+ $[-2]a $+ \r%\r $[7]c $+ $[22]d $+ $b"
  727.    }
  728.  
  729.    return $info;
  730. }
  731.  
  732. set DCC_LIST_INFORMATION
  733. {
  734.    return DCCInformation(getDCCConnection($this));
  735. }
  736.  
  737. #
  738. # 
  739. #
  740. set RECEIVE_COMPLETE
  741. {
  742.    $dcc  = getDCCConnection($this);
  743.    $file = getDCCFileName($dcc);
  744.    $rate = formatBytes(getTransferRate($dcc)) . "/s";
  745.    return "\c41$nnn Receive of $file from $nick complete at $rate";
  746. }
  747.  
  748. set SEND_COMPLETE
  749. {
  750.    return "\c41$nnn Send to $nick complete";
  751. }
  752.  
  753. set RECEIVE_START
  754. {
  755.    $dcc  = getDCCConnection($this);
  756.    $file = getDCCFileName($dcc);
  757.    return "\c42$nnn Receive of $file from $nick has started";
  758. }
  759.  
  760. set SEND_START
  761. {
  762.    printf("Start of send to $nick");
  763.    return "\c42$nnn Send to $nick has started";
  764. }
  765.  
  766. set RECEIVE_FAILED
  767. {
  768.    return "\c41$nnn Receive from $nick has failed: $1-";
  769. }
  770.  
  771. set SEND_FAILED
  772. {
  773.    return "\c41$nnn Send to $nick has failed: $1-";
  774. }
  775.  
  776. #
  777. # Normal DCC Messages..  always fun
  778. #
  779. set RESUME_SUCCEEDED
  780. {
  781.    return "\c42$nnn Resume request to $nick successful";
  782. }
  783.  
  784. set RESUME_FAILED
  785. {
  786.    return "\c41$nnn Resume request to $nick \bfailed\b";
  787. }
  788.  
  789. set RESUME_REQUEST_ERROR
  790. {
  791.    return "\c41$nnn $nick has made a jacked up resume request";
  792. }
  793.  
  794. set RESUME_REQUEST
  795. {
  796.    return "\c42$nnn $nick has requested to resume the dcc transfer";
  797. }
  798.  
  799. set RESOLVED_LOCALINFO
  800. {
  801.     return "\C42*\B*\B* Resolved local host to\B $0";
  802. }
  803.  
  804. # /dns reply
  805. set RESOLVED_HOST
  806. {
  807.     if ($2- ne "")
  808.     {
  809.        return "\C42*\B*\B* Resolved\b $0 \bto $2 $+ \r[\r $+ $1 $+ \r]\r";
  810.     }
  811.     else
  812.     {
  813.        return "\C42*\B*\B* Unable to resolve $0 $+ \r:\r host not found";
  814.     }
  815. }
  816.  
  817. #
  818. # aliases
  819. #
  820. alias notify
  821. {
  822.    if ($1 ne "")
  823.    {
  824.       call("/ $+ $0-", "use-built-in-command-only");
  825.       return;
  826.    }
  827.  
  828.    echo("\c17$nnn Signed on\r:");
  829.    
  830.    $output = "";
  831.  
  832.    foreach $var (getSignedOnUsers())
  833.    {
  834.       $otime   = onlineFor($var);
  835.  
  836.       if ($otime < 300)                # users signed on within the past 5 minutes
  837.       {
  838.          $output = "$output \b $+ $var $+ \b";
  839.       }
  840.       else if ($otime < (60 * 60))     # users signed on for up to an hour
  841.       {
  842.          $output = "$output $var";
  843.       }
  844.       else                             # anything over an hour
  845.       {
  846.          $output = "$output \r $+ $var $+ \r";
  847.       }
  848.    }
  849.  
  850.    echo("\c17  $output");
  851.  
  852.    echo("\c17$nnn Signed off\r:");
  853.    
  854.    $output = "";
  855.  
  856.    foreach $var (getSignedOffUsers())
  857.    {
  858.       $output = "$output $var";
  859.    }
  860.   
  861.    echo("\c17  $output");
  862. }
  863.  
  864. set IDENT_REQUEST
  865. {
  866.    return "\c39$nnn Ident request from $0";
  867. }
  868.  
  869. set SERVER_ERROR
  870. {
  871.    return "\c37$nnn Server error: $parms";
  872. }
  873.  
  874. set IRC_ATTEMPT_CONNECT
  875. {
  876.    return "\c19$nnn Attempting to connect to " . $0;
  877. }
  878.  
  879. set IRC_DISCONNECT
  880. {
  881.    return "\c18$nnn Disconnected from\b " . getServerHost() . "\b\r:\r $parms";
  882. }
  883.  
  884. set IRC_CONNECT
  885. {
  886.    return "\c19\r$nnn Connected to\r\b " . getServerHost() . "\b";
  887. }
  888.  
  889. set IRC_RECONNECT
  890. {
  891.    return "\c19\r$nnn Attempting to reconnect to\r\b " . getServerHost() . "\b";
  892. }
  893.  
  894. set INVITE
  895. {
  896.    return "\c24$nnn \b $+ $nick $+ \b invites you to join\r:\r $1";
  897. }
  898.  
  899. set REPL_341
  900. {
  901.    return "\c33$nnn $1 has been invited to\r:\r\c36 $2";
  902. }
  903.  
  904. #
  905. # Completes the current nickname in the editbox..
  906. #
  907. $_TAB_TEXT    = "";
  908. @_TAB_NICKS   = array();
  909. $_TAB_LAST    = "";
  910.  
  911. sub setTabInput
  912. {
  913.    $_TAB_TEXT = "$1 $+ $2";
  914.    $_TAB_LAST = $2;
  915.    setInputText(getActiveWindow(), $_TAB_TEXT);
  916. }
  917.  
  918. bind tab
  919. {
  920.    local('$text @data $pnick');
  921.  
  922.    $text  = getInputText(getActiveWindow());
  923.    
  924.    if (-ischannel $active && $text eq "/topic")
  925.    {
  926.       setTabInput("/topic $active " . getTopic($active));
  927.    }
  928.    else if ($_TAB_TEXT eq $text && size(@_TAB_NICKS) > 0)
  929.    {
  930.       if (left($text, 1) eq "/" && indexOf($text, " ") == -1)
  931.       {
  932.          setTabInput("/", shift(@_TAB_NICKS));
  933.       }
  934.       else 
  935.       {
  936.          $text  = substr($text, 0, strlen($text) - strlen($_TAB_LAST));
  937.          setTabInput("$text", shift(@_TAB_NICKS));
  938.       }
  939.    }
  940.    else if (left($text, 1) eq "/" && indexOf($text, " ") == -1)
  941.    {
  942.       $text       = substr($text, 1);
  943.       @_TAB_NICKS = array();
  944.      
  945.       foreach $var (getAliasList())
  946.       {
  947.          $var = lc($var);
  948.  
  949.          if (left($var, strlen($text)) eq $text)
  950.          {
  951.             add(@_TAB_NICKS, $var, 0);
  952.          }
  953.          else if ($text isin $var)
  954.          {
  955.             push(@_TAB_NICKS, $var);
  956.          }
  957.       }
  958.  
  959.       push(@_TAB_NICKS, $text);
  960.       setTabInput("/", shift(@_TAB_NICKS));
  961.    }
  962.    else if ($text ismatch '/dcc send \S+ (.+)' || 
  963.             $text ismatch '/send \S+ (.+)' || 
  964.             $text ismatch '/load (.+)' || 
  965.             $text ismatch '/theme (.+)' || 
  966.             $text ismatch '/xdcc offer (.+)' || 
  967.             $_IS_FILE_COMPLETE == 1)
  968.    {
  969.       @data  = matched();
  970.       $pnick = pop(@data);
  971.       $text  = substr($text, 0, strlen($text) - strlen($pnick));
  972.  
  973.       @_TAB_NICKS = fileCompleteAll($pnick);
  974.  
  975.       setTabInput("$text", shift(@_TAB_NICKS));
  976.    }
  977.    else if (-ischannel $active && strlen($text) > 0 && right($text, 1) ne " ")
  978.    {
  979.       @data  = split(' ', $text);
  980.       $pnick = pop(@data);
  981.       $text  = substr($text, 0, strlen($text) - strlen($pnick));
  982.  
  983.       if ($pnick eq "#")
  984.       {
  985.          @_TAB_NICKS = array();
  986.          setTabInput("$text $+ $active", "");
  987.       }
  988.       else if (left($pnick, 1) eq "/")
  989.       {
  990.          # do nothing...  we don't want to nick complete a "command"
  991.       }
  992.       else
  993.       {
  994.          @_TAB_NICKS = nickCompleteAll($pnick, $active);
  995.          setTabInput("$text", shift(@_TAB_NICKS));
  996.       }
  997.    }
  998.    else if ($_LAST_MESSAGE)
  999.    {
  1000.       @_TAB_NICKS = array();
  1001.       setInputText(getActiveWindow(), "/msg $_LAST_MESSAGE ");
  1002.    }
  1003. }
  1004.  
  1005. on msg
  1006. {
  1007.    $_LAST_MESSAGE = $nick;
  1008. }
  1009.  
  1010.  
  1011.  
  1012.  
  1013.