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) } }

on *:JOIN:#urwins.priv: { 
  if ($nick == $me) { set %who $true | .who $chan | .timerwho 1 3 set %who $false | resetrelay }
  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 ^*:*:#:{ echo 4 -st * $chan was CTCP'ed by $address($nick,5) $+ ! | halt }

raw ^352:*:{ if (%who) { haltdef  }

alias -l writerelay { 
  echo 3 -sg $timestamp 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 Relaying...
    .timerrelay -m 1 %delay relayrelay
  }
  else { 
    set %waiting $true
    set %prevdelay 0
    echo 7 -sg $timestamp Waiting...
  }
}

alias resetrelay {
  echo 3 -sg Resetting...
  write -c relay.log
  set %waiting $true
  set %prevdelay 0
}