Untitled

on *:START:{
  set %chans #sourcescrim #sourceringer #sourceclan #invitecss
  timersourcescrim 0 550 cs #sourcescrim events
  timersourceringer 0 550 cs #sourceringer events
  timersourceclan 0 550 cs #sourceclan events
  timerinvitecss 0 550 cs #invitecss events
}
on *:NOTICE:*:?:{
  if (ChanServ == $nick) {
    var %fn $gettok($gettok($gettok($1-,3,32),1,41),2,$asc(:))
    if ($eval(%fn,2) isin %chans) {
      var %tmp 1
      while (%tmp <= $lines(%fn $+ .txt)) {
        if ($1- !isin $read(%fn $+ .txt,%tmp)) {
          write $eval(%fn,2) $+ .txt $1-
          halt
        }
        inc %tmp
      }
    }
  }
}