Mine

on *:KICK:#heartsreturn:/msg #aliastest 3* $knick was kicked by: $nick ( $+ $1- $+ )

on *:VOICE:#heartsreturn:/msg #aliastest 3* $nick sets mode: +v $vnick

on *:DEVOICE:#heartsreturn:/msg #aliastest 3* $nick sets mode: -v $vnick

on *:OP:#heartsreturn:/msg #aliastest 3* $nick sets mode: +o $opnick

on *:DEOP:#heartsreturn:/msg #aliastest 3* $nick sets mode: -o $opnick

on *:HELP:#heartsreturn:/msg #aliastest 3* $nick sets mode: +h $hnick

on *:DEHELP:#heartsreturn:/msg #aliastest 3* $nick sets mode: -h $hnick

on *:JOIN:#heartsreturn:/msg #aliastest 3* $nick has joined $chan

on *:PART:#heartsreturn:/msg #aliastest 3* $nick has parted $chan

on *:NOTICE:*:?:{ if ($nick == Zezzy) { HALT }
  if ($nick ison #heartsreturn) {
    set %hworldtime $ctime   
    set %hworld $1 $2 $3 $4
    msg #aliastest 5- $+ $nick $+ - $1-
  }
}

on *:QUIT:/msg #aliastest 2* $nick has quit IRC ( $+ $1- $+ )

on *:TEXT:*:#heartsreturn: { if ($nick isop $chan) {
    msg #aliastest <4@ $+ $nick $+ > $1-
  }
  if ($nick ishop $chan) {
    msg #aliastest <7% $+ $nick $+ > $1- 
  }
  if ($nick isvoice $chan) {
    msg #aliastest <2+ $+ $nick $+ > $1- 
  }
  if ($nick isreg $chan) {
    msg #aliastest <10 $+ $nick $+ > $1- 
  }
}

on *:ACTION:*:#heartsreturn: { if ($nick isop $chan) {
    msg #aliastest 6* @ $+ $nick $1-
  }
  if ($nick ishop $chan) {
    msg #aliastest 6* % $+ $nick $1- 
  }
  if ($nick isvoice $chan) {
    msg #aliastest 6* + $+ $nick $1- 
  }
  if ($nick isreg $chan) {
    msg #aliastest 6 $+ $nick $1- 
  }
}

on *:TEXT:,say *:#aliastest: { if ($nick isop $chan || $nick ishop $chan) {
    msg #heartsreturn $2-
  }
}

on *:TEXT:*The current pest-control*:#heartsreturn: { if ($nick isop $chan || $nick ishop $chan || $nick == grave_digger) {
    timer 1 40 msg #heartsreturn !world
  }
}

on *:TEXT:!world:#aliastest:/notice $nick %hworld 14Duration:7 $duration($calc($ctime - %hworldtime))