Kufur koruma ve temizleme kodu lazım - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kimimben · 30 Ocak 2011, 19:17

Sa Arkadaslar bana bir code lazım ama code şu sekılde olacak mesela salona birisi uzun bir yazı yazdı ve ıcınde küfür var ornek merhaba nasılsın kimimben .... ederim gibi kelimede uzun cumlenin ortassında bile küfür oldugu zaman bunu kanaldan mirc otomatik zline gline kline ile atıp hemen arkasından otomatik mirc salonu temizleyecek kelimeyi ben ekledik birisi salonda küfür ederse uzun cümle icinde bile olsa ona gline zline kline ile atıp hemen salonu temizleyecek bir code lazım elinde olan arkadas varsa bi zahmet yardımcı olsun Tsk.

Kimimben · 30 Ocak 2011, 22:52

hiç kimsenin bu konuda hakkında bilgisi yok mu arkadaslar

DaDaS · 30 Ocak 2011, 23:17

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on 1:TEXT:*:#: {
  if ($nick isop #) || ($istok(#admin #Ops #help #operhelp,#,32)) return
  if (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 iswm $fulladdress) { halt }
  if (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 iswm $fulladdress) { halt }
  if (--- isin $1-) || (AMINA isin $1-) || (AMINI isin $1-) || (kavat isin $1-) || (sike isin $1-) || (avradını isin $1-) || (sikti isin $1-) || (sokarım isin $1- ) || (pezevenk isin $1-) || (sikiyim isin $1-) || (sikis isin $1-) || (----- isin $1-) || (siker isin $1-) || (****** isin $1-) || (------ isin $1-) || (fahişe isin $1-) || (ananı isin $1-) || (topunuzun isin $1-) || (sikik isin $1-) || (-------- isin $1-) || (shit isin $1-) || (sevişecek isin $1-) || (sux isin $1-) || (götden isin $1-) || (götün isin $1-) || (fahişe isin $1-) || (--- isin $1-) || (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
isin $1-) || (.net isin $1-) || (.org isin $1-) || (tr.gg isin $1-) || (irc. isin $1-) || (http:// isin $1-) || (.com isin $1-) || (hotmail isin $1-) || (a.q isin $1-) || .temizle {
    if $me !isop $chan {
      halt
    } 
    if $nick isop $chan { 
      halt
    }
    .samode $chan +b $wildsite
    .samode $chan +b $nick
    .kick $chan $nick 7 $chan Kanalında 14Sohbet Kurallarina 7Aykiri 7Kelime Kullandiniz. 14 $date 7 $time  
  .msg #bilgi  14 » 4 $nick 14 «  12 $chan  1 odasinda 12 reklam/küfür 1 sebebinden atildi. | .msg #bilgi 5 Tespit edilen reklam veya küfür mesaji:  4,4 $1- } 
}
}

denemedım ama muhtemelen calısacaktır.

Kimimben · 31 Ocak 2011, 00:24

peki bu kodda zline gline kline herhangi birisini atıyor mu ve kanalı hemen arkasına temızlıyor mu arkadasım

----------

yok bu dedigim deyil denedim ben kelime yazıldıgı zaman zline gline kline herhangi birisni atacak ve hemen arkasından salonu temizleyecek bi code istiyorum

StanteaR · 31 Ocak 2011, 08:22

Alıntı:

dialog kufur {
title "Küfür Koruması [ NaTSuKa ]"
size -1 -1 138 186
option dbu
edit "", 1, 7 10 61 10
list 2, 7 22 60 50, size
button "Ekle", 3, 7 74 27 12, flat
button "Sil", 4, 39 74 27 12, flat
check "Opları (@)", 5, 85 21 41 10, flat
check "Voiceler (@)", 6, 85 10 42 10, flat
combo 7, 7 102 52 51, size
button "Ekle", 8, 7 154 24 9, flat
button "Sil", 9, 35 154 23 9, flat
box "Küfür listesi", 13, 3 2 71 88
box "Ayrılan Nickler", 14, 3 92 63 76
box "Ayrılan Kanallar", 15, 73 92 62 76
box "Ayır", 16, 78 2 56 33
button "Sil", 10, 106 154 23 9, flat
button "Ekle", 11, 78 154 24 9, flat
combo 12, 78 102 52 51, size
box "İşlemler", 17, 78 37 56 53
radio "Opersem Zline", 18, 83 47 47 10, flat
radio "Opersem Gline", 19, 83 57 47 10, flat
radio "Opsam Kick", 20, 83 67 47 10, flat
check "Banla", 21, 83 77 27 10, flat
button "Kapat", 22, 97 171 37 12, flat ok
}
alias kufur { /dialog -m kufur kufur }
on *:dialog:kufur:init:*: {
if ($isfile(kufur.txt) == $false) { write -c kufur.txt } | else { loadbuf -o $dname 2 kufur.txt }
if (%knickler) .didtok $dname 7 32 $ifmatch
if (%kufkanal) .didtok $dname 12 32 $ifmatch
if (%klineat) { .did -c $dname 18 }
if (%killat) { .did -c $dname 19 }
if (%kickat) { .did -c $dname 20 }
if (%banla) { .did -c $dname 21 }
if (%oplar) { .did -c $dname 5 }
if (%vlar) { .did -c $dname 6 }
}
on *:dialog:kufur:sclick:*: {
if ($did == 18) { if ($did(18).state == 1) { .set %klineat on | .unset %killat | .unset %kickat } | else { .unset %klineat } }
if ($did == 19) { if ($did(19).state == 1) { .set %killat on | .unset %klineat | .unset %kickat } | else { .unset %killat } }
if ($did == 20) { if ($did(20).state == 1) { .set %kickat on | .unset %killat | .unset %klineat } | else { .unset %kickat } }
if ($did == 21) { if ($did(21).state == 1) { .set %banla on } | else { .unset %banla } }
if ($did == 3) { write kufur.txt $did(1) | did -a $dname 2 $did(1) | did -r $dname 1 }
if ($did == 4) { write -dl $+ $did(2).sel kufur.txt | did -d $dname 2 $did(2).sel }
if ($did == 8) { if ($did(7) != $null) { set -u %sk $did(7) | if (%sk) && (!$istok(%knickler,%sk,32)) { .set %knickler $addtok(%knickler,%sk,32) | did -a $dname 7 %sk } } }
if ($did == 9) { if ($did(7).sel > 0) { .set %knickler $remtok(%knickler,$did(7).seltext,1,32) | did -d $dname 7 $did(7).sel | did -c $dname 7 1 } }
if ($did == 11) { if ($did(12) != $null) { set -u %ek $did(12) | if (%ek) && (!$istok(%kufkanal,%ek,32)) { .set %kufkanal $addtok(%kufkanal,%ek,32) | did -a $dname 12 %ek } } }
if ($did == 10) { if ($did(12).sel > 0) { .set %kufkanal $remtok(%kufkanal,$did(12).seltext,1,32) | did -d $dname 12 $did(12).sel | did -c $dname 12 1 } }
if ($did == 5) { if ($did(5).state == 1) { .set %oplar on } | else { .unset %oplar } }
if ($did == 6) { if ($did(6).state == 1) { .set %vlar on } | else { .unset %vlar } }
}
on *:text:*:#: {
if (*!*@*.sunucuadın.com iswm $fulladdress) { halt }
if (*@irc.sunucuadın.com iswm $fulladdress) { halt }
if $istok(%kufkanal,#,32) == $true { halt }
if $istok(%knickler,$nick,32) == $true { halt }
if ($nick isop #) && (%oplar == on) { return }
if ($nick isvo #) && (%vlar == on) { return }
korukufurden $1-
}
alias korukufurden {
var %HR $strip($1-) , %_: $lines(kufur.txt)
while (%_
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
{
if $read(kufur.txt,%_
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
iswm %HR iswm %HR {
if (%banla == on) { .mode $chan +b $wildsite | .timer 35 00 /msg # }
if (%klineat == on) { .zline $nick Lutfen kufur etmeyin | .timer 35 00 /msg # }
if (%killat == on) { .gline $nick Lutfen kufur etmeyin | .timer 35 00 /msg # }
if (%kickat == on) { .kick $chan $nick Lutfen kufur etmeyin }
return
}
dec %_:
}
}

Bu Natsuka Nıcklı Kısının Kufur Koruması Bu Korumada Bıraz Oynama Yaptım Zline Ve Gline Ekledım Ban Sonlarına Timer İle Otomatık Temızleme Yapacak Ve Ek Olarakda Sunucu Hostunu Koruması Icın Kod Ekledım Eklenen Yerler Ve Duzenlemen Gereken Yerler Kırmızı Isaretlı Hadı Iyı IFLer

Kimimben · 06 Şubat 2011, 08:53

Yok denedim buda olmuyor Kardes zline gline herhangi birisini atıp hemen arkasından salonu temızleme yapacak bir code lazım

muratt_aziz · 06 Şubat 2011, 12:47

on *:text:*:#: {
if $nick !isop $chan && $nick !ishop $chan && $nick !isvop $chan && $nick !ison #opers {
if *küfürr* iswm $1- {
gline $nick sunucu rahatsizlik sebebi ile uzaklaştırıldınız
.timer 1 01 play $chan temizle.txt 300
}
if *küfür.* iswm $1- {
gline $nick sunucu rahatsizlik sebebi ile uzaklaştırıldınız
.timer 1 01 play $chan temizle.txt 300
}
if *küfür* iswm $1- {
gline $nick sunucu rahatsizlik sebebi ile uzaklaştırıldınız
.timer 1 01 play $chan temizle.txt 300
}
if *küfür* iswm $1- {
gline $nick Reklam rahatsizlik sebebi ile uzaklaştırıldınız
.timer 1 01 play $chan temizle.txt 300

}
if *küfür* iswm $1- {
gline $nick Reklam rahatsizlik sebebi ile uzaklaştırıldınız
.timer 1 01 play $chan temizle.txt 300

}
if *küfür* iswm $1- {
gline $nick Reklam rahatsizlik sebebi ile uzaklaştırıldınız
.timer 1 01 play $chan temizle.txt 300

}
if *küfür* iswm $1- {
gline $nick Reklam sebebi ile uzaklaştırıldınız
.timer 1 01 play $chan temizle.txt 300

}
if *küfür* iswm $1- {
gline $nick Reklam sebebi ile uzaklaştırıldınız
.timer 1 01 play $chan temizle.txt 300

}
if *küfür* iswm $1- {
gline $nick Reklam sebebi ile uzaklaştırıldınız
.timer 1 01 play $chan temizle.txt 300
}
}
}
küfür yazan yerlere istemediğin kelimeleri yazman gerekiyor
temizle.txt ekle mircinin ana klasörüne
temizle.txt içersine kanalını nasıl temizlemek istiyorsan onu ekle alt alta
örnk:
.
.
.
.
.
.
.
.
.
.
.

Kimimben · 06 Şubat 2011, 21:08

Olmadı kardes bu kodu oldugu gıbı mrc de ALT R yaparak remoteye attım sonra Mirc ana klasorune temizle.txt koydum ve ıcını doldurdum yıne olmadı hem bunda kufur ekleme sılme ve listesini nereden bulacaz maus ıle sag tıkladım kufur ıle ılgılı bi seyde cıkmadı sonrada bu kodların ıcınde if *küfür* iswm $1- { burdaki küfür yazan yere denemek ıcınde küfür kelimesi koydum yine olmadı Bunları deneyerek mi yaptın yoksa tahmını bi kode mi verdin

NefeS · 06 Şubat 2011, 22:29

Aslinda Forumu aramaniz yeterliydi
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Difuzyon Arkadasimizdan böyle bir Kod vardi, Kodu degistirip Kick yerine zline yazsin diye degistirdim.

Ve Argo Kelimeden Sonra Kanal temizlemesi icin timer ekledim.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

#difiprotect on
on *:text:*:#:var %jnk = 0, %cenk | while %jnk <= $numtok($1-,32) { %cenk = $strip($token($1-,$v1,32)) | if $hregex(Küfürler,%cenk,0) { zline $nick : Argo\Küfür sebebiyle Sunucudan uzaklastirildin | /timer 50 0 /msg $chan 0,0. | halt } | inc %jnk }
#difiprotect end
alias küfürekle {
  if $hget(Küfürler,$1) { echo 06 -a $1 listede mevcut. }
  else {
    hadd -m Küfürler $1 1
    hsave -i Küfürler Küfürler.data
    echo 07 -a $1 Argo\Küfür listesine eklendi.
  }
}
alias küfürsil {
  if !$hget(Küfürler,$1) { echo 06 -a $1 listede yok }
  else {
    hdel Küfürler $1
    hsave -i Küfürler Küfürler.data
    echo 07 -a $1 Argo\Küfür listesinden silindi.
  }
}
alias küfürlist {
  $iif(!$window(@Küfürler),window -nz @Küfürler,clear @Küfürler)
  aline 04 @Küfürler Küfür Listesi
  var %dify 1 | while %dify <= $hget(Küfürler,0).item { aline -h 02 @Küfürler $hget(Küfürler,%dify).item | inc %dify }
  aline -h 05 @Küfürler Toplam $hget(Küfürler,0).item veri mevcut.
}
on *:start:.hload Küfürler Küfürler.data
menu channel {
  .Küfür Korumasi
  ..Aç:.enable #difiprotect | echo 04 -a Koruma Açik | echo 02 -a Küfür eklemek için /küfürekle kelime | echo 02 -a Küfür silmek için /küfürsil kelime | echo 02 -a Liste için /küfürlist
  ..Kapa:.disable #difiprotect | echo 12 -a Koruma Kapali
}

Ben denedim ve bende oldu.

Bu Kodu alip ALT+R yapip Remote kisminda yeni Sayfa acip icine yapistiriniz ardından scriptinizi tamamen kapayıp yeniden açınız(bir defaya mahsus).

Sag fareye tikladiginiz zaman Küfür Korumasi yaziyor ordan acip kapata biliyorsunuz.

Küfür eklemek icin

/küfürekle KELIME

silmek icin

/küfürsil KELIME

Listeyi görmek icin

/küfürlist

Hepinize Hayirli Forumlar dilerim

NefeS

muratt_aziz · 06 Şubat 2011, 23:29

kod calışıyor denedim mircinde /remote on yazıp dene birde mircle alakalı birşey sanıyorum sorununu arkadaşların kodlarıda güzel kodlar

----------

if $nick !isop $chan && $nick !ishop $chan && $nick !isvop $chan && $nick !ison #opers {
şu satırı ve en alttan
} aytac silip dene bakalım ne cvp verecek

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
kufur koruma	AyazGeceLer	mIRC Scripting Sorunları	2	19 Şubat 2009 02:13
kufur koruma ile ilgili	ahmet_corum	mIRC Scripting Sorunları	6	13 Şubat 2009 00:09
Kufur Koruma	AyazGeceLer	mIRC Scripting Sorunları	2	06 Şubat 2009 22:53
Kufur Koruma Yardim	AyazGeceLer	mIRC Scripting Sorunları	2	29 Ocak 2009 20:29
kufur koruma temizlik	Heavenly	mIRC Scripting Sorunları	13	27 Ocak 2009 22:23

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.