All pastes #790469 Raw Edit

Mine

public text v1 · immutable
·published 2007-11-20 12:20 UTC
rendered paste body
alias c5 return $+($chr(3),06,$1-,$chr(3))
alias c6 return $+($chr(3),07,$1-,$chr(3))
alias c7 return $+($chr(3),12,$1-,$chr(3))
alias c8 return $+($chr(3),00,$1-,$chr(3))
alias c9 return $+($chr(3),04,$1-,$chr(3))

Alias tsu {
  timestamp -f $c5(«) $+ $c7($chr(40)) $+ $c6(hh) $+ $c5(:) $+ $c6(nn) $+ $c5(:) $+ $c6(ss) $c6(TT) $+ $c7($chr(41)) $+ $c5(»)
  echo -at TimeStamp Updated
}
On ^*:JOIN:#:{ 
  echo -t $chan $c7($chr(40)) $+ $c6(Join) $c5(in) $c6($chan) $+ $c7($chr(41)) $c6($nick) $c7($chr(40)) $+ $c5($address($nick,5)) $+ $c7($chr(41))
  haltdef 
}  
On ^*:PART:#:{ 
  echo -t $chan $c7($chr(40)) $+ $c6(Part) $c5(in) $c6($chan) $+ $c7($chr(41)) $c6($nick) $c7($chr(40)) $+ $c5($address($nick,5)) $+ $c7($chr(41))
  haltdef 
}  

On ^*:RAWMODE:#:{ 
  echo -t $chan $c7($chr(40)) $+ $c6(Mode) $c5(in) $c6($chan) $+ $c7($chr(41)) $c6($nick) $c6(sets) $c7($chr(40)) $+  $c5($1-) $+ $c7($chr(41))
  haltdef 
} 
On ^*:ACTION:*:#:{ 
  echo -t $chan $c7($chr(40)) $+ $c6(Action) $c5(in) $c6($chan) $+ $c7($chr(41)) $c6($nick) $c5($1-) 
  haltdef 
} 
Alias Me {
  if (!$1-) { /echo -a * /me: insufficient parameters
  }
  else { 
    .describe # $$1- 
    echo -t $chan $c7($chr(40)) $+ $c6(Action) $c5(in) $c6($chan) $+ $c7($chr(41)) $c6($me) $c5($1-) 
    haltdef
  }
}
On ^*:QUIT:{
  var %x $comchan($nick,0)
  while %x {
    echo -t $comchan($nick,%x) $c7($chr(40)) $+ $c5($nick) $c6(has Quit) $+ $c7($chr(41)) $c6(Quit Message:) $c5($2-)
    dec %x
    haltdef
  }
}
On ^*:KICK:#:{ 
  echo -t $chan $c7($chr(40)) $+ $c6(Kick) $c5(in) $c6($chan) $+ $c7($chr(41)) $c6($nick) $c5(kicks) $c7($knick) $c7($chr(40)) $+ $c5(Reason:) $c6($1-)  $+ $c7($chr(41)) 
  haltdef 
} 
On ^*:NOTICE:*:?:{
  echo -at $chan $c7($chr(40)) $+ $c6(Notice) $c5(from) $c6($nick) $+ $c7($chr(41)) $c6($1-) 
  haltdef
}
on ^*:INVITE:#:{
  echo -at $c7($chr(40)) $+ $c6(Invite) $c5(from) $c6($nick) $+ $c7($chr(41)) $c6(Join) $c7($chan) 
  haltdef
}
On ^*:CTCPREPLY:VERSION*:{
  echo -at $c7($chr(40)) $+ $c6(Version) $c5(Reply from) $c6($nick) $+ $c7($chr(41)) $c6(IRC CLIENT:) $c7($1-)
  haltdef
}
On ^*:CTCPREPLY:PING*:{
  echo -at $c7($chr(40)) $+ $c6(Ping) $c5(Reply from) $c6($nick) $+ $c7($chr(41)) $c6(Ping Reply:) $c7($1-)
  haltdef
}
On ^*:CTCPREPLY:TIME*:{
  echo -at $c7($chr(40)) $+ $c6(Time) $c5(Reply from) $c6($nick) $+ $c7($chr(41)) $c6(Current Time:) $c7($1-)
  haltdef
}
On ^*:NICK:{
  var %y $comchan($newnick,0)
  while %y {
    echo -t $comchan($newnick,%y) $c7($chr(40)) $+ $c6(Nickchange) $+ $c7($chr(41)) $c6($nick) $c7(is now known as) $c6($newnick)
    dec %y
    haltdef
  }
}
on *:TEXT:*:?:{
  if ($nick != $active) { 
    echo -at $c7($chr(40)) $+ $c6(Query) $c5(from) $c6($nick) $+ $c7($chr(41)) $c6($1-)
  }
}
on ^*:TEXT:*:#:{
  if ($nick == $me) {
    halt
  }
  elseif ($nick isop $chan) {
    echo -t $chan $c5(«) $+ $c7($chr(40)) $+ $c9(@) $+ $c6($nick) $+ $c7($chr(41)) $+ $c5(») $c8($upper($left($1-,1)) $+ $right($1-,-1))) 
    haltdef
  }
  elseif ($nick ishop $chan) {
    echo -t $chan $c5(«) $+ $c7($chr(40)) $+ $c9(%) $+ $c6($nick) $+ $c7($chr(41)) $+ $c5(») $c8($upper($left($1-,1)) $+ $right($1-,-1))) 
    haltdef
  }
  elseif ($nick isvoice $chan) {
    echo -t $chan $c5(«) $+ $c7($chr(40)) $+ $c9(+) $+ $c6($nick) $+ $c7($chr(41)) $+ $c5(») $c8($upper($left($1-,1)) $+ $right($1-,-1))) 
    haltdef
  }
  else {
    echo -t $chan $c5(«) $+ $c7($chr(40)) $+ $c6($nick) $+ $c7($chr(41)) $+ $c5(») $c8($upper($left($1-,1)) $+ $right($1-,-1))) 
    haltdef
  }
}
on *:INPUT:*:{
  if ($left($1,1) != /) {
    if ($me isop $chan) {
      echo -t $chan $c5(«) $+ $c7($chr(40)) $+ $c9(@) $+ $c6($nick) $+ $c7($chr(41)) $+ $c5(») $c8($upper($left($1-,1)) $+ $right($1-,-1))) 
      haltdef
    }
    elseif ($me ishop $chan) {
      echo -t $chan $c5(«) $+ $c7($chr(40)) $+ $c9(%) $+ $c6($nick) $+ $c7($chr(41)) $+ $c5(») $c8($upper($left($1-,1)) $+ $right($1-,-1))) 
      haltdef
    }
    elseif ($me isvoice $chan) {
      echo -t $chan $c5(«) $+ $c7($chr(40)) $+ $c9(+) $+ $c6($nick) $+ $c7($chr(41)) $+ $c5(») $c8($upper($left($1-,1)) $+ $right($1-,-1))) 
      haltdef
    } 
    else {
      echo -at $c5(«) $+ $c7($chr(40)) $+ $c6($me) $+ $c7($chr(41)) $+ $c5(») $c8($upper($left($1-,1)) $+ $right($1-,-1)) 
      haltdef
    }
  }
}