Kicks Save + Lookup for Gheta v1.2

alias load_kicks {
  var %f = kicks.db

  if (!$hget(KICKS)) { hmake KICKS 5000 }

  if ($file(%f)) { hload KICKS $qt(%f) }
}

alias save_kicks {
  var %f = kicks.db

  if (!$hget(KICKS)) || (!$hget(KICKS,0).item) { return }

  hsave KICKS $qt(%f)
}

ON *:LOAD: { load_kicks }
ON *:UNLOAD: { save_kicks }
ON *:START: { load_kicks }
ON *:EXIT: { save_kicks }

ON *:KICK:#: { hadd KICKS $knick $nick $ctime $1- }

alias kresult {
  if (!$1) { echo 4 -ae * Kicks: Error, Please insert a nickname! | return }
  var %r = $hget(KICKS,$1)

  if (!%r) { echo 4 -ae * Kicks: Error, That nickname does NOT exists in the database! | return }

  var %by = $gettok(%r,1,32)
  var %time = $gettok(%r,2,32)
  var %reason = $gettok(%r,3-,32)

  echo -ae * Kicks: Nickname $1 was kicked on $asctime(%time) by %by nickname with reason: %reason
}