First suggestion

on *:START: {
  var %x 1
  while ($gettok(Badnick Ident Offtopic Racist Swear Shitlist,%x,32)) {
    if (!$hget($v1)) hmake [ $v1 ] 100
    if ($isfile( [ % $+ $v1 ] )) hload [ $v1 ] [ % $+ [ $v1 ] ]
    inc %x
  }
}