Liber's defaults

raw 332:*:{
  echo $2 $mtimestamp ( $+ $2 $+ ) Topic: ' $+ $3- $+ '
  haltdef
}

raw 333:*:{ 
  echo $2 $mtimestamp ( $+ $2 $+ ) Set by: $3 on $date($4, ddd mmm dd hh:nn) $+ $time(tt)
  haltdef
}

on ^*:join:#:{
  haltdef
  echo # $mtimestamp 12* Joins: $nick $mca($nick) 
}

on ^*:part:#:{
  haltdef
  echo # $mtimestamp 10* Parts: $nick $mca($nick) ( $+ $1- $+ )
}

on ^*:nick:{
  haltdef
  set %i 1
  while (%i <= $comchan($newnick,0)) {
    echo $comchan($newnick,%i) $mtimestamp 5* Nick: $nick -> $newnick
    inc %i
  }
}

on ^*:quit:{
  haltdef
  set %i 1
  while ($comchan($nick,%i)) {
    echo $comchan($nick,%i) $mtimestamp 4* Quits: $nick $mca($nick) ( $+ $1- $+ )
    inc %i
  }
  if ($gettok($1-,1,32) == Quit: && $gettok($1-,2,32) != $null) { write quits.txt $gettok($1-,2-,32) }
}

on ^*:rawmode:#:{
  haltdef
  echo $chan $mtimestamp 12* $nick sets: $1-
}

on ^*:smode:#:{
  haltdef
  echo $chan $mtimestamp 12* $nick sets: $1-
}

on ^*:kick:#:{
  haltdef
  echo # $mtimestamp 4* Kick: $knick 4by $nick ( $+ $1- $+ )
}

alias nick {
  nick $1 
  echo -s Now known as: $1
}

on ^*:text:*:#:{
  haltdef
  echo # $mtimestamp [ $+ $pnick($nick,$chan) $+ 1] $1-
  if ($1 == $me && $chan != $active) { echo -a Alerted by $nick in $chan on $network $+  }
}

on ^*:action:*:#:{
  haltdef
  echo # $mtimestamp 6* $nick $1-
}

on ^*:topic:#:{
  haltdef
  echo # $mtimestamp 12* Topic: $nick -> " $+ $1- $+ "
}

on *:kick:#:{
  $iif($knick == $me,echo -s Kicked: $chan by $nick ( $+ $1- $+ ))
}

//dialog for pvts

dialog private {
  title "Private Message"
  option dbu
  size -1 -1 120 110
  text "Private Mesage:", 1, 0 10 60 10
  text From: %pvt.who, 5, 0 20 60 10
  text Saying: %pvt.what, 2, 0 30 60 40
  text Network: %where, 6, 0 50 60 40
  button "Accept", 3, 0 60 60 10
  button "Decline", 4, 0 70 60 10  
}

on *:open:?:*:{
  set %pvt.who $nick
  set %pvt.what $1-
  set %where $network
  dialog -m private private
  mmsg2 %pvt.who 12Secure Event: 1I am using a secure query event. Please ask me next time.
}

on *:dialog:private:sclick:3:{
  mmsg2 %pvt.who 12Query Accepted.
  dialog -x $dname
}

on *:dialog:private:sclick:4:{
  msg %pvt.who 12Query Declined
  dialog -x $dname
  close -m %pvt.who
}

on *:notify:{
  haltdef
  echo -s 1Notification: 12 $+ $nick $+ 1 ( $+ $address($nick,2) $+ ) has connected to 12 $+ $network $+ 1 $+ . 
  set %who $nick
  set %what connected
  set %where $network
  dialog -m connectionAlert connectionAlert
}

on *:unotify:{ 
  haltdef
  echo -s 1Notification: 12 $+ $nick $+ 1 ( $+ $address($nick,2) $+ ) has disconnected from 12 $+ $network $+ 1 $+ . 
  set %who $nick
  set %what disconnected
  set %where $server
  dialog -m connectionAlert connectionAlert
}

alias alert {
  if ($group(#alert_me) == on) { disable #alert_me }
  elseif ($group(#alert_me) == off) { disable #alert_me }
}

dialog connectionAlert {
  title "Alert"
  option dbu
  size -1 -1 100 15
  text %who has %what on %where, 1, 1 1 90 10
}

/* alert me if my name is said in any channel on any server */
on *:text:*:#:{ 
  if ($1 == $me && $chan != $active) {
    echo -a Your name was said in  $+ $chan $+  by  $+ $nick $+  on  $+ $network $+ 
  }
}

//<- :irc.jasonirc.net 332 Liber #somechan" :some topic
//<- :irc.jasonirc.net 333 Liber #somechan" Liber 1198434382
// Topic is 'some topic'
// Set by Liber on Sun Dec 23 13:26:22