Boş Bir Sayfaya Aşağıdaki kodları ekleyiniz. PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:start: {
hmake AzuLin
hload AzuLin.txt
}
on *:text:*:#: {
if ($nick !isop $chan) {
if $hfind(AzuLin,$1-,1,W).data {
kick $chan $nick 1Argo - Küfür Yasaktır ! $name
ban $chan $nick 2
clean
}
}
}
alias clean { .timer 40 00 msg $chan }
Yeni Bir Boş Sayfa Açınız. Aşağıdaki Kodları da Açtığınız Boş Sayfaya Ekleyiniz. PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#: {
if $chan == #AzuLon {
if $nick isop $chan {
if $1 == !kotuekle {
if $2 == $null {
msg $chan(#AzuLon) Listeye Eklenecek kelimeyi yazmadınız.
halt
}
if $hfind(AzuLin,$2,1,W).data {
msg $chan(#AzuLon) Bu kelimeyi daha önce eklemişsiniz.
halt
}
else {
var %kotu.nr $r(0,10000),%kotu.item $2
hadd -m AzuLin %kotu.nr %kotu.item
hsave AzuLin AzuLin.txt
msg $chan(#AzuLon) Eklenen Kelime Bilgisi: Kelime: %kotu.item Ekleyen: $nick
}
}
if $1 == !kotusil {
if $2 == $null {
msg $chan(#AzuLon) Listeden Çıkarılacak kelimeyi yazmadınız.
halt
}
else {
if $hfind(AzuLin,$2,1,W).data {
hdel -s AzuLin $ifmatch $2
hsave AzuLin AzuLin.txt
msg $chan(#AzuLon) Silinen Kelime Bilgisi: Kelime: $2 Silen: $nick
}
else {
msg $chan(#AzuLon) Böyle Bir Kelime Listeden Yer Almıyor.
halt
}
}
}
if $1 == !kotulist {
listele
}
}
else {
if !kotu* iswm $1 {
msg $chan(#AzuLon) Bu komutu kullanabilmeniz için $chan Kanalında Op Konumunda Olmalısınız.
}
}
}
}
alias listele {
msg $chan(#AzuLon) Kötü - Argo Kelime Listesi Sıralanıyor.
var %azi = 1
while (%azi <= $hget(AzuLin,0).data) {
msg $chan(#AzuLon) $hget(AzuLin,%azi).data
inc %azi
}
if $hget(AzuLin,%azi).data == $null {
haltdef
}
msg $chan(#AzuLon) Kötü - Argo Kelime Listesi Sonu.
}
Önemli! Kodları ekledikten sonra mIRCinizin ana klasörüne AzuLin.txt belgesi kayıtlayınız. Aksi takdirde komutlar calısmayabilir. Kodun Çalışma Mantığı:
Komutu Kullanacak Kişi #AzuLon kanalında Op ise;
#AzuLon Kanalında !kotuekle kelime yazıldıgında kelimeyi listeye ekler.
#AzuLon Kanalında !kotusil kelime yazıldıgında kelimeyi listeden cıkarır.
#AzuLon Kanalında !kotulist yazıldıgında kelimeleri listeler.
Komutu Kullanacak Kişi #AzuLon kanalında Op Değil ise;
#AzuLon kanalında !kotuekle !kotusil !kotulist komutlarının hangisini kullanırsa kullansın , Opu olmadan bu komutları kullanamayacagına dair bir uyarı yansıtır.
Koruma Açıklaması: kanalda Op konumunda olmayan biri içerisinde eklenmiş kelimenin bulundugu bir cümle yazarsa;
Kişiyi kanaldan kickler + hostunu banlar. Kanala 40 satırlık bosluk bırakarak temizler.
Eğer Op konumunda biri bu kelimelerden birini yazarsa koruma işlemez.
Açıklama:
Deneme olarak Komutların çalışacağı kanalı #AzuLon olarak ayarladım. Siz de komutların hangi kanalda işlemesini istiyorsanız #AzuLon olan kısımları #kanalınız şeklinde değiştiriniz. #Ops kanalında işlemesi için ; #AzuLon olan yerleri #Ops olarak değiştirmelisiniz.
Kodun calıstıgına dair Log:
|
| Alıntı: |
[12:54] * ChanServ mod değiştirdi:+o aLias
[12:55] <@aLias> !kotulist
[12:55] <~AzuLa> Kötü - Argo Kelime Listesi Sıralanıyor.
[12:55] <~AzuLa> deniyoruz
[12:55] <~AzuLa> asos
[12:55] <~AzuLa> Kötü - Argo Kelime Listesi Sonu.
[12:56] <@aLias> !kotuekle salak
[12:56] <~AzuLa> Eklenen Kelime Bilgisi: Kelime: salak Ekleyen: aLias
[12:56] <@aLias> !kotuekle manyak
[12:56] <~AzuLa> Eklenen Kelime Bilgisi: Kelime: manyak Ekleyen: aLias
[12:56] <@aLias> !kotulist
[12:56] <~AzuLa> Kötü - Argo Kelime Listesi Sıralanıyor.
[12:56] <~AzuLa> deniyoruz
[12:56] <~AzuLa> manyak
[12:56] <~AzuLa> salak
[12:56] <~AzuLa> asos
[12:56] <~AzuLa> Kötü - Argo Kelime Listesi Sonu.
[12:56] <@aLias> !kotusil asos
[12:56] <~AzuLa> Silinen Kelime Bilgisi: Kelime: asos Silen: aLias
[12:57] <@aLias> !kotulist
[12:57] <~AzuLa> Kötü - Argo Kelime Listesi Sıralanıyor.
[12:57] <~AzuLa> deniyoruz
[12:57] <~AzuLa> manyak
[12:57] <~AzuLa> salak
[12:57] <~AzuLa> Kötü - Argo Kelime Listesi Sonu.
[12:57] * aLias mod değiştirdi:-o aLias
[12:57] <aLias> !kotulist
[12:57] <~AzuLa> Bu komutu kullanabilmeniz için #AzuLon Kanalında Op Konumunda Olmalısınız.
[12:57] <aLias> !kotuekle
[12:57] <~AzuLa> Bu komutu kullanabilmeniz için #AzuLon Kanalında Op Konumunda Olmalısınız.
[12:57] <aLias> !kotuekle asos
[12:57] <~AzuLa> Bu komutu kullanabilmeniz için #AzuLon Kanalında Op Konumunda Olmalısınız.
[12:57] <aLias> !kotusil
[12:57] <~AzuLa> Bu komutu kullanabilmeniz için #AzuLon Kanalında Op Konumunda Olmalısınız.
[12:57] <aLias> !kotusil asos
[12:57] <~AzuLa> Bu komutu kullanabilmeniz için #AzuLon Kanalında Op Konumunda Olmalısınız.
[12:58] * AzuLa mod değiştirdi:+o aLias
[12:58] <@aLias> !kotulist
[12:58] <~AzuLa> Kötü - Argo Kelime Listesi Sıralanıyor.
[12:58] <~AzuLa> deniyoruz
[12:58] <~AzuLa> manyak
[12:58] <~AzuLa> salak
[12:58] <~AzuLa> Kötü - Argo Kelime Listesi Sonu.
[12:58] <@aLias> !kotuekle deniyoruz
[12:58] <~AzuLa> Bu kelimeyi daha önce eklemişsiniz.
[12:58] <@aLias> !kotusil sdf
[12:58] <~AzuLa> Böyle Bir Kelime Listeden Yer Almıyor.
[13:11] <@aLias> !kotulist
[13:11] <~AzuLa> Kötü - Argo Kelime Listesi Sıralanıyor.
[13:11] <~AzuLa> deniyoruz
[13:11] <~AzuLa> manyak
[13:11] <~AzuLa> salak
[13:11] <~AzuLa> Kötü - Argo Kelime Listesi Sonu.
[13:11] <@aLias> salak
[13:11] * aLias mod değiştirdi:-o aLias
[13:12] <aLias> salak
[13:12] * aLias AzuLa Tarafından Kanaldan Atıldı (Argo - Küfür Yasaktır !)
[13:12] * AzuLa mod değiştirdi:+b *!*@2040CF0.E9E68F03.35D6A447.IP
|
*DipNot: Yardımı İçin CesuryureK'e teşekkür ederim.
Kod ile ilgili herhangi bir sorun yaşarsanız başlık altında paylaşabilirsiniz.