menu channel {
  Part/Join 
  .Aç/Kapa - $(%BanJoinP):set %BanJoinP $iif(%BanJoinP == on,off,on)
  .Ban Suresi - $(%Bansuresi Saniye):set %BanSuresi $$?="Ban Süresi??"
  .Join Part Sayısı - $(%Joinpart Kere):set %Joinpart $$?="Kaç Join/part'a ban atılsın?"
}

on *:Load:{
  set %BanSuresi 600
  set %JoinPart 4
  set %BanJoinP off
}

#TrPj on
on *:part:#: {
  if (%BanJoinP == off) { return }
  if ($me !isop #) { return }
  inc %Tr. [ $+ [ $address($nick,4) ] $+ ] . [ $+ [ $chan ] ]
  if ( %Tr. [ $+ [ $address($nick,4) ] $+ ] . [ $+ [ $chan ] ] != $null) .timertr $+ nick $+ chan 1 30  unset %Tr. [ $+ [ $address($nick,4) ] $+ ] . [ $+ [ $chan ] ]
  if ( %Tr. [ $+ [ $address($nick,4) ] $+ ] . [ $+ [ $chan ] ] >= $iif(%JoinPart isnum,%JoinPart,2)) {
    ban -u $+ $iif(%BanSuresi isnum,%BanSuresi,60) $chan $nick 4
    unset %Tr. [ $+ [ $address($nick,4) ] $+ ] . [ $+ [ $chan ] ]
    msg $chan 4[5[4[12 Sistem Asiri Join/Part Tespit Etti $nick $me Tarafından Banlandınız  ..4]5]4]          
  }
}
#TrPj end