Untitled

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

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