IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Selam arkadaşlar.
Hazır kodlar bölümünde kendi zevkime göre dizayn edip bir zamanlar geveze sunucusunda kullandıgım bazı remoteleri paylaşmak istedim.
bunlardan biri cinsel arayıs, küfür, argo remotem.
muaf nick / ident / kanal / host / mevcut.
prefix (+/h/@/~) almış kullanıcılar etkilenmez.

kod'un calısma mantıgı, arayış yapan kullanıcıyı ip adresinden susturup kanalı oto temizler.
özelden hem sizi, hemde yetkili oldugunuz yardım kanalında bulunan diger yetkili arkadasları bilgilendirir.
30 dak. sonrada atılan ban'ı oto açar.
[23:59:12] <user44> bayanlar tel yazsın
[23:59:12] <x> mod değiştirdi:+b ~q:*!*@85.99.171.206
[23:59:12] <x> •
[23:59:12] <x> •
[23:59:12] <x> •
[23:59:12] <x> •

alias bsus { mode $chan +b ~q: $+ $wildsite | t | msg #opkanalı Susturulan nick4 $nick Sebep:4 Cinsel Arayış/küfür/Argo. Yakalanan:4,4 %sus | .window -en @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $time $chan Susturulan nick4 $nick Yakalanan:4 %sus | .timer 1 1800 mode # -bb ~q: $+ $wildsite $nick }

Kod:

#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 {

}