Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on May 18th, 2012  |  syntax: None  |  size: 1.92 KB  |  hits: 19  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. alias a {
  2.   set %Awayreason $1-
  3.   set %Awaytime $ctime
  4.   set %Away 1
  5.   set %lefttime $time
  6.   away %awayreason
  7.   amsg 14[5»14]1 10I'm Gone 14[5«14]1 5[14Reason:5]10 %Awayreason 12 $+ $chr(149) 14[5»14]1 10I left at: $asctime(01HH13:01nn13:01ss12) 14[5«14]1
  8.   nick Dutchie|Away
  9. }
  10.  
  11. alias b {
  12.   away
  13.   amsg 14[5»14]1 10I'm Back 14[5«14]1 14[5»14]1 10What I've been doing:1 %Awayreason 14[5«14]12 $+ $chr(149) 14[5»14]1 10Duration: 1 $duration($calc($ctime - %Awaytime)) $+ 12  14[5«14]
  14.   unset %Awayreason
  15.   unset %Awaytime
  16.   unset %lefttime
  17.   unset %Away
  18.   unset %OneTR*
  19.   nick Dutch_Lmfao
  20. }
  21.  
  22. on *:text:*:#: {
  23.   if (%Away == 1) && (%OneTR [ $+ [ $nick ] ] != On) && ((MilanAFK isin $1-) || (Milan isin $1-)) {
  24.     set %OneTR [ $+ [ $nick ] ] On
  25.     notice $nick 12Away: %Awayreason 12 $+ $chr(149) I12 Have Been Away12 For: $duration($calc($ctime - %Awaytime)) $+ 12.
  26.   }
  27. }
  28.  
  29. alias access {
  30.   var %x = $chan(0), %op, %half, %voice, %reg
  31.   while (%x) {
  32.     if ($nick($chan(%x),$me,o)) { inc %op }
  33.     else if ($nick($chan(%x),$me,h)) { inc %half }
  34.     else if ($nick($chan(%x),$me,v)) { inc %voice }
  35.     else { inc %reg }
  36.     dec %x
  37.   }
  38.   say I am on12 $chan(0) channels;12 $scid(0) network. I have: $&
  39.     04 %op 14(04 $round($calc(100* %op / $chan(0)),0) $+ %14)4 Ops $&
  40.     ,7 %half 14(07 $round($calc(100* %half / $chan(0)),0) $+ %14)7 Half-Ops $&
  41.     ,2 %voice 14(02 $round($calc(100* %voice / $chan(0)),0) $+ %14)2 Voices $&
  42.     ,10 %reg 14(10 $round($calc(100* %reg / $chan(0)),0) $+ %14)10 Regulars.
  43. }
  44.  
  45. on *:TEXT:*:#: {
  46.   if (( $nick == %copy.nick || %copy.nick == @all )) && (( %copy.chan == $chan )) {
  47.     if (( !* iswm $1 )) { halt }
  48.     msg %copy.chan $replace($1-,<Cal>,$nick,$me,$nick)
  49.   }
  50. }
  51.  
  52.  
  53. alias yt { url -an www.youtube.co.uk }
create a new version of this paste RAW Paste Data