on *:join:#: {
  if (!$hget(joinpart)) { hmake joinpart 100 }
  hinc -u2 joinpart $+($chan,$address($nick,2))
  if ($hget(joinpart,$+($chan,$address($nick,2))) == 5) { 
    hdel joinpart $+($chan,$address($nick,2))
    zline $nick +1h Asiri join/part floot yasaktir!
    halt
  }
}