Mine

on $*:TEXT:/^[!@.]history/Si:#dra9sden,#rspc,#rspc-staff: {
  hadd -m $+(history.,$nick) disp $iif($left($1,1) == @,msg $chan,notice $nick)
  if ($readini(bot.ini,ignore,$address($nick,2)) != true) &&  ($nick !isreg $chan) {
    $hget($+(history.,$nick),disp) 3#RSPC 2Pcw History Trail:
    $hget($+(history.,$nick),disp) 3¤1¤ 2[3 %pcw 2-3 %date $iif(%time == N/A,N/A,$duration($calc($ctime - %time),20)) 2ago] %scouter
    if ($2 == 1) { halt | hfree history. }
    var %a 2, %b $iif($2 != $null && $2 >= 2 && $2 <= 10,$2,10)
    while (%a <= %b) {
      $hget($+(history.,$nick),disp) 3¤ $+ $v1 $+ 3¤ 2[3 %pc [ $+ [ $v1 ] ] 2-3 %date [ $+ [ $v1 ] ] 2for3 %time [ $+ [ $v1 ] ] 2] %scout [ $+ [ $v1 ] ]
      inc %a
    }
    hfree -w history
  }
  if ($nick != Dra9) { writeini Bot.ini Ignore $address($nick,2) True | timer 1 60 remini bot.ini ignore $address($nick,2)
  }
}