;BT Global X
;Originally from the BT IRC Robot - D. I. Galdos, released under the GPL. Modified by Andrew Fader.
;Use under the conditions of the GNU General Public License

alias calcorg {
  if $chan = $null {
    %origin = $nick
  }
  else {
    %origin = $chan
  }
}

alias requirechan {
  if %origin != $chan {
    halt
  }
}

alias msg {
  set %position 1
  set %leng $len($2-)
  unset %suf
  while (1 == 1) {
    dobtsay $$1 $+ %suf $mid($2-,%position, $calc(%position + 400))
    set %suf
    if ($calc(%position + 400) > %leng) {
      break
    }
    inc %position 401
  }
}
alias dobtsay {
  floodbuf privmsg $$1 : $+ $2-
}
alias floodbuf {
  if (%floodbuf == 1) {
    write floodbuf.txt $$1-
  }
  else {
    quote $$1-
  }
}
on 1:CONNECT:{
  if (%floodbuf == 1) {
    write -c floodbuf.txt Dump Buffer
    timer4 0 2 dumpbuf
  }
}
alias dumpbuf {
  if (%bufline == $null) {
    set %bufline 1
  }
  inc %bufline
  if ($read(floodbuf.txt, %bufline) != $null) {
    quote $read(floodbuf.txt, %bufline)
  }
  else {
    write -c floodbuf.txt Dump Buffer
    unset %bufline
  }
}
on 1:DISCONNECT:{
  timer4 off
  unset %bufline
  write -c floodbuf.txt Dump Buffer
}
µwrite -c floodbuf.txt Dump Buffer