IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Kufur koruma ve temizleme kodu lazım (https://www.ircforumlari.net/mirc-scripting-sorunlari/379993-kufur-koruma-ve-temizleme-kodu-lazim.html)

Kimimben 30 Ocak 2011 19:17
Kufur koruma ve temizleme kodu lazım
 
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
Cevap: Kufur koruma ve temizleme kodu lazım
 
hiç kimsenin bu konuda hakkında bilgisi yok mu arkadaslar

DaDaS 30 Ocak 2011 23:17
Cevap: Kufur koruma ve temizleme kodu lazım
 
Kod:
on 1:TEXT:*:#: {
  if ($nick isop #) || ($istok(#admin #Ops #help #operhelp,#,32)) return
  if ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] iswm $fulladdress) { halt }
  if ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 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
Cevap: Kufur koruma ve temizleme kodu lazım
 
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
Cevap: Kufur koruma ve temizleme kodu lazım
 
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 (%_:) {
if $read(kufur.txt,%_:) 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
Cevap: Kufur koruma ve temizleme kodu lazım
 
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
Cevap: Kufur koruma ve temizleme kodu lazım
 
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
Cevap: Kufur koruma ve temizleme kodu lazım
 
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
Cevap: Kufur koruma ve temizleme kodu lazım
 
Aslinda Forumu aramaniz yeterliydi =)

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:
#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
Cevap: Kufur koruma ve temizleme kodu lazım
 
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


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 03:40.
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk