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: Kodu kopyalamak için üzerine çift tıklayın!
#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 {
}