; [Last X Lines]
; by ch1zra
; ch1zra@gmail.com
; http://ch1zra.com/mirc/
; #Scripters @ irc.krstarica.com
; Copyright © 2007 Up The Irons ! inc. Scripting Team

alias last {
  if ($hget(lastline)) .hfree lastline 
  if ($1 !isnum) return
  else { 
    if ($1 > $line($active,0)) {
      echo -a There are not so many lines in : $active
      return
    }
    var %i 1
    while (%i <= $1) {
      var %p $calc($line($active,0) - %i +1)
      hadd -m lastline %i $line($active,%p,0)
      inc %i
    }
    echo -a  $+ $iif($server,Pasting, Echoing)  last $1 lines $+ $iif($2 != $null, to $2 $+ .,.)
    var %t $1
    while (%t) {
      $iif($server,msg $iif($2,$2, $active), echo -a) $hget(lastline,%t)
      dec %t
    }
    .hfree lastline
  }
}