Pirate's Buffer Bot

ON *:QUIT: {
var %buffchans = #chan1 #chan2
  if ($nick == Test) {
var %x = $numtok(%buffchans,32)
while (%x) {
    hmake $+($gettok(%buffchans,%x,32),-,buffer) 1
Dec %x
}
    set %keepbuffer 1
  }
}

ON *:TEXT:*:#: {
  if (%keepbuffer) {
if ($istok(%buffchans,$chan,32)) {
    hadd $+($chan,-,buffer) $+(<,$nick,>,-,$time) $1-
  }
}
}

ON *:ACTION:*:#: {
  if (%keepbuffer) {
if ($istok(%buffchans,$chan,32)) {
    hadd $+($chan,-,buffer) $+(<,$nick,>,-,$time) $1-
  }
}
}

ON *:JOIN:*: {
  if ($nick == Test) {
    unset %keepbuffer
    if ($hget($+($chan,-,buffer))) {
      .notice $nick ***Buffer Start***
    }
    var %x = $hget($+($chan,-,buffer),0).data
    while (%x) {
      inc %buff 1
      .timer 1 %buff .notice $nick *buffer $gettok($hget($+($chan,-,buffer),%x).item,2,45) $gettok($hget($+($chan,-,buffer),%x).item,1,45) $hget($+($chan,-,buffer),%x).data
      dec %x
      if (%x = 1) { .timer 1 $calc(%z + 1) .notice $nick ***Buffer End*** }
    }
    hfree $+($chan,-,buffer)
    unset %buff
  }
}