on *:NICK: { if ($newnick ison #urwins.priv) { writerelay #bigbrother.urwins Nick: $nick -> $newnick - $address($newnick,5) } }
on *:QUIT: { if ($nick ison #urwins.priv) { writerelay #bigbrother.urwins Quit: $nick - $address($nick,5) | if (.split isin $1-) { flash } } }

on *:JOIN:#urwins.priv: { 
  if ($nick == $me) { .who $chan | set %wait 1 | relayrelay }
  writerelay #bigbrother.urwins Join: $nick - $address($nick,5) 
}
on *:PART:#urwins.priv: { writerelay #bigbrother.urwins Part: $nick - $address($nick,5) }
on *:NOTICE:*:#urwins.priv: { writerelay #bigbrother.urwins Notice: $nick - $1- }
on *:INPUT:#urwins.priv: { 
  if (($left($1,1) != $chr(47)) || ($ctrlenter)) { writerelay #bigbrother.urwins < $+ $me $+ > $1- }
  elseif ($1 == /me) { writerelay #bigbrother.urwins * $nick $2- } 
}
on *:TEXT:*:#urwins.priv: { writerelay #bigbrother.urwins < $+ $nick $+ > $1- }
on *:ACTION:*:#urwins.priv: { writerelay #bigbrother.urwins * $nick $1- }
on *:TOPIC:#urwins.priv:{ writerelay #bigbrother.urwins Topic: $nick - $1- }

ctcp *:*:#:halt

alias -l writerelay { 
  echo 3 -sg $timestamp $+ . $+ $right($uptime(server),3) Saving...
  write relay.log $1
  if (%waiting) {
    set %waiting $false
    relayrelay
  }
}

alias relayrelay {
  if ($lines(relay.log) != 0) {
    set %waiting $false
    var %chantext = $read(relay.log,t,1)
    write -dl1 relay.log
    var %delay = $min(5000,$calc(%prevdelay + 500 + 2 * $len(%chantext)))
    %prevdelay = %delay
    .notice %chantext
    echo 4 -sg $timestamp $+ . $+ $right($uptime(server),3) Relaying... %delay
    .timerrelay off
    .timerrelay -m 1 %delay relayrelay
  }
  else { 
    set %waiting $true
    set %prevdelay 0
    echo 7 -sg $timestamp $+ . $+ $right($uptime(server),3) Waiting...
  }
}