#Sus on
ON *:TEXT:*:#kanal1,#kanal2,#kanal3:if ($_sus(#,$nick,$1-)) bsus $nick
#sus end
; $_sus(kanal,nick,yazi)
alias -l _sus {
  if ($2 isop $1) || ($istok(#muafkanal #muafkanal #muafkanal #xline,$chan,32)) return
  if ($regex($token($token($address($nick,5),2,33),1,64),/(muafident|muafident|muafident)/i)) { return }
  if ($nick !isreg $chan) { return }
  if ($istok(muafnick muafnick muafnick,$nick,32)) { halt }
  if ($regex($wildsite,/(helper|admin|ircop|tech|server|services|network)/i)) { halt }
  if (pasifim ?* iswm $3-) || (*köle bayan* iswm $3-) || (*çiftler* iswm $3-) || (*çift*telde* iswm $3-) || (*? ensestim ?* iswm $3-) || (*gay varm* iswm $3-) || (*pasifler* iswm $3-) goto ok 
  if (aktif ?* iswm $3-) || (*? pasif ?* iswm $3-) || (*? ap var* iswm $3-) || (*? ga ym ?* iswm $3-) || (*akt?f varm* iswm $3-) || (*Aktifler* iswm $3-) || (lez varm* iswm $3-) goto ok
  if (*? SEKSI ?* iswm $3-) || (*pasif varm* iswm $3-) || (lez sohb* iswm $3-) || (*? lez bayan* iswm $3-) || (*pSif varm* iswm $3-) || (lezzz iswm $3-) || (*? pasf yok* iswm $3-) goto ok 
  if (*Aktifler* iswm $3-) || (lez yokm* iswm $3-) || (*? dul bayan* iswm $3-) || (*AKTİFLER* iswm $3-) || (*CİDDİ*AKTİF* iswm $3-) || (*AKTİF*VARM* iswm $3-) || (*PASİF*varm* iswm $3-) goto ok
  if (*pasıf varm* iswm $3-) || (*pasif var m* iswm $3-) || (*? p varm* iswm $3-) || (*akt?f yokm* iswm $3-) || (*@hot* iswm $3-) || (*akt?f var*m?* iswm $3-) || (*hiç karı yokm* iswm $3-) goto ok 
  if (*ateşli*bayan* iswm $3-) || (*? AKTİF ?* iswm $3-) || (*? oglancı varm* iswm $3-) || (*? psf ?* iswm $3-) || (*camd* a varm* iswm $3-) || (*Seksiyim* iswm $3-) || (*bekl?yorum bayanlar* iswm $3-) goto ok
  if (lezler ozel* iswm $3-) || (*Yokmu*pasıf* iswm $3-) || (lez ?* iswm $3-) || (Gay iswm $3-) || (*? AP ARAYAN*ÖZEL* iswm $3-) || (*pasifim* iswm $3-) || (*erotik*soh*iste* iswm $3-) goto ok 
  if (*? pasf ?* iswm $3-) || (*Pasif*varm* iswm $3-) || (*lezbiyenim* iswm $3-) || (ap p ?* iswm $3-) || (*? ap yokm* iswm $3-) || (pasif iste* iswm $3-) || (pasif varm* iswm $3-) goto ok 
  if (pasif yokm* iswm $3-) || (Gay ?* iswm $3-) || (*atesli*bayan* iswm $3-) || (*pasıfım* iswm $3-) || (*aktifim* iswm $3-) || (*biseksuel* iswm $3-) || (*eskort bayan* iswm $3-) goto ok
  if (*cinsel sohbet* iswm $3-) || (pasff* iswm $3-) || (?* pasf yok* iswm $3-) || (*telde soh?e* iswm $3-) || (*?* dul bayan* iswm $3-) || (*?* ap varm* iswm $3-) || (*? p varm* iswm $3-) goto ok 
  if (sanal*sev?secek* iswm $3-) || (*BAYANLAR ÖZELE* iswm $3-) || (*şerfsiz* iswm $3-) || (*gevşek* iswm $3-) || (*sewiş* iswm $3-) || (*@*outlook* iswm $3-) || (*seviş* iswm $3-) goto ok 
  if (*SEVİŞ* iswm $3-) || (*sewişme* iswm $3-) || (*? abaza* iswm $3-) || (*bayanlar tel yazsın* iswm $3-) || (it oğlu it* iswm $3-) || (Salak iswm $3-) || (Aptal iswm $3-) goto ok
  if (*SanaLDaRBe* iswm $3-) || (*KÖPEKLER İTLER* iswm $3-) || (*ucret*bayan*varm* iswm $3-) || (mal iswm $3-) || (*Kerime mucux* iswm $3-) || (*? Ranaa ?* iswm $3-) || (*K e  r me* iswm $3-) goto ok
  if (gulce--* iswm $3-) || (nikoox iswm $3-) || (*$kype* iswm $3-) || (*AhnneC* iswm $3-) || (telde sınırsız* mucux* iswm $3-) || (**  *s2şmez* ** iswm $3-) || (IRC ?* iswm $3-) goto ok
  return $false
  :OK
  set %sus $v1
  return $true
}
#sus end
menu status,menubar,channel {
  .-
  .» Sus Koruması   
  .-
  .Sus Aç: if $group(#Sus) == off { .enable #Sus | echo -a 12Sus Koruması 4koruması açıldı. }
  .-
  .Sus Kapat: if $group(#Sus) == on { disable #Sus | echo -a 12Sus Koruması 4Koruması kapatıldı. }
  .- 
  .Durum $+($chr(40),$iif($group(#Sus) = On,Acık,Kapalı),$chr(41)):echo 3 -a *** Sus Koruması $iif($group(#Sus) = On,Acik,Kapalı) Durumda.
}

alias t {
  /msg $chan 1•
  /msg $chan 1•
  /msg $chan 1•
  /msg $chan 1•
  /msg $chan 1•
  /msg $chan 1•
  /msg $chan 1•
  /msg $chan 1•
}
else {
}