Bu koda Bakarmısınız ? - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

cihangarip · 17 Mart 2013, 21:12

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

 
alias gurkan {
if !$istok(isimsiz ,$1,32) { return $false }
goto $1
:isimsiz
var %· = 1 | while $read($3,%·) { if $v1 iswm $2 { return $true } | inc %· } | return $false)
}
on @*:text:*:#:if $gurkan(isimsiz,$1-,kufur.txt) { .mode $chan +b $wildsite | kick $chan $nick 1 Argo İçerikli Kelime Kullanmak Yasaktir.. %logo }
alias antipity { dialog -m antipity antipity } 
dialog antipity {
title "BadNick & Kufur Koruma"
size -1 -1 226 102
option dbu
list 2, 38 22 70 58, size
list 5, 118 22 70 58, size
edit "", 10, 38 12 70 10
edit "", 11, 118 12 70 10
box "KARA LiSTE", 6, 5 3 107 81
box "KUFUR", 7, 114 3 107 81
button "T A M A M", 1, 38 87 148 12,ok
button "EKLE", 3, 10 14 24 28
button "KALDIR", 4, 10 45 24 28
button "EKLE", 8, 192 14 24 28
button "KALDIR", 9, 192 45 24 28
}
on *:dialog:antipity:INIT:*: {
if ($isfile(badnick.txt) == $false) { write -c badnick.txt } | else { loadbuf -o $dname 2 badnick.txt } 
if ($isfile(kufur.txt) == $false) { write -c kufur.txt } | else { loadbuf -o $dname 5 kufur.txt } 
if (%badnick) .didtok $dname 2 32 $ifmatch 
if (%kufur) .didtok $dname 5 32 $ifmatch
}
on *:dialog:antipity:sclick:*:{
if ($did == 3) { write badnick.txt $did(10) | did -a $dname 2 $did(10) | did -r $dname 10 }
if ($did == 8) { write kufur.txt $did(11) | did -a $dname 5 $did(11) | did -r $dname 11 }
if ($did == 4) { write -dl $+ $did(2).sel badnick.txt | did -d $dname 2 $did(2).sel } 
if ($did == 9) { write -dl $+ $did(5).sel kufur.txt | did -d $dname 5 $did(5).sel }
}
on *:dialog:antipity:sclick:1:{ 
set %badnick $didtok($dname,2,44)
set %kufur $didtok($dname,5,44)
}

yukarıda kodda kanalda biri küfür ettiği zaman kanaldan sadece kickliyor ban atmıyor yani ?

MesqeN · 17 Mart 2013, 21:30

cihangarip Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

alias gurkan {
if !$istok(isimsiz ,$1,32) { return $false }
goto $1
:isimsiz
var %· = 1 | while $read($3,%·) { if $v1 iswm $2 { return $true } | inc %· } | return $false)
}
on @*:text:*:#:if $gurkan(isimsiz,$1-,kufur.txt) { .mode $chan +b $wildsite | kick $chan $nick 1 Argo İçerikli Kelime Kullanmak Yasaktir.. %logo }
alias antipity { dialog -m antipity antipity }
dialog antipity {
title "BadNick & Kufur Koruma"
size -1 -1 226 102
option dbu
list 2, 38 22 70 58, size
list 5, 118 22 70 58, size
edit "", 10, 38 12 70 10
edit "", 11, 118 12 70 10
box "KARA LiSTE", 6, 5 3 107 81
box "KUFUR", 7, 114 3 107 81
button "T A M A M", 1, 38 87 148 12,ok
button "EKLE", 3, 10 14 24 28
button "KALDIR", 4, 10 45 24 28
button "EKLE", 8, 192 14 24 28
button "KALDIR", 9, 192 45 24 28
}
on *:dialog:antipity:INIT:*: {
if ($isfile(badnick.txt) == $false) { write -c badnick.txt } | else { loadbuf -o $dname 2 badnick.txt }
if ($isfile(kufur.txt) == $false) { write -c kufur.txt } | else { loadbuf -o $dname 5 kufur.txt }
if (%badnick) .didtok $dname 2 32 $ifmatch
if (%kufur) .didtok $dname 5 32 $ifmatch
}
on *:dialog:antipity:sclick:*:{
if ($did == 3) { write badnick.txt $did(10) | did -a $dname 2 $did(10) | did -r $dname 10 }
if ($did == 8) { write kufur.txt $did(11) | did -a $dname 5 $did(11) | did -r $dname 11 }
if ($did == 4) { write -dl $+ $did(2).sel badnick.txt | did -d $dname 2 $did(2).sel }
if ($did == 9) { write -dl $+ $did(5).sel kufur.txt | did -d $dname 5 $did(5).sel }
}
on *:dialog:antipity:sclick:1:{
set %badnick $didtok($dname,2,44)
set %kufur $didtok($dname,5,44)
}

yukarıda kodda kanalda biri küfür ettiği zaman kanaldan sadece kickliyor ban atmıyor yani ?

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

alias gurkan {
if !$istok(isimsiz ,$1,32) { return $false }
goto $1
:isimsiz
var %· = 1 | while $read($3,%·) { if $v1 iswm $2 { return $true } | inc %· } | return $false)
}
on @*:join:#:{ if $gurkan(isimsiz,$nick,badnick.txt) { .mode $chan +b $wildsite | .kick $chan $nick BadNick! }
}
on @*:text:*:#:if $gurkan(isimsiz,$1-,kufur.txt) { .mode $chan +b $wildsite | kick # $nick Yasak Kelime Kullanımı! }
 
alias antipity { dialog -m antipity antipity }
dialog antipity {
title “BadNick & Kufur Koruma Sistemi”
size -1 -1 226 102
option dbu
list 2, 38 22 70 58, size
list 5, 118 22 70 58, size
edit “”, 10, 38 12 70 10
edit “”, 11, 118 12 70 10
box “BAD NICK”, 6, 5 3 107 81
box “KUFUR”, 7, 114 3 107 81
button “T A M A M”, 1, 38 87 148 12,ok
button “EKLE”, 3, 10 14 24 28
button “KALDIR”, 4, 10 45 24 28
button “EKLE”, 8, 192 14 24 28
button “KALDIR”, 9, 192 45 24 28
}
on *:dialog:antipity:INIT:*: {
if ($isfile(badnick.txt) == $false) { write -c badnick.txt } | else { loadbuf -o $dname 2 badnick.txt }
if ($isfile(kufur.txt) == $false) { write -c kufur.txt } | else { loadbuf -o $dname 5 kufur.txt }
if (%badnick) .didtok $dname 2 32 $ifmatch
if (%kufur) .didtok $dname 5 32 $ifmatch
}
on *:dialog:antipity:sclick:*:{
if ($did == 3) { write badnick.txt $did(10) | did -a $dname 2 $did(10) | did -r $dname 10 }
if ($did == { write kufur.txt $did(11) | did -a $dname 5 $did(11) | did -r $dname 11 }
if ($did == 4) { write -dl $+ $did(2).sel badnick.txt | did -d $dname 2 $did(2).sel }
if ($did == 9) { write -dl $+ $did(5).sel kufur.txt | did -d $dname 5 $did(5).sel }
 
}
on *:dialog:antipity:sclick:1:{
set %badnick $didtok($dname,2,44)
set %kufur $didtok($dname,5,44)
}

NOTE : $wildsite yazan Kısımı $wild $2 $nick gibi degiştirip denermisin.

cihangarip · 17 Mart 2013, 22:58

MesqeN Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

alias gurkan {
if !$istok(isimsiz ,$1,32) { return $false }
goto $1
:isimsiz
var %· = 1 | while $read($3,%·) { if $v1 iswm $2 { return $true } | inc %· } | return $false)
}
on @*:join:#:{ if $gurkan(isimsiz,$nick,badnick.txt) { .mode $chan +b $wildsite | .kick $chan $nick BadNick! }
}
on @*:text:*:#:if $gurkan(isimsiz,$1-,kufur.txt) { .mode $chan +b $wildsite | kick # $nick Yasak Kelime Kullanımı! }
 
alias antipity { dialog -m antipity antipity }
dialog antipity {
title “BadNick & Kufur Koruma Sistemi”
size -1 -1 226 102
option dbu
list 2, 38 22 70 58, size
list 5, 118 22 70 58, size
edit “”, 10, 38 12 70 10
edit “”, 11, 118 12 70 10
box “BAD NICK”, 6, 5 3 107 81
box “KUFUR”, 7, 114 3 107 81
button “T A M A M”, 1, 38 87 148 12,ok
button “EKLE”, 3, 10 14 24 28
button “KALDIR”, 4, 10 45 24 28
button “EKLE”, 8, 192 14 24 28
button “KALDIR”, 9, 192 45 24 28
}
on *:dialog:antipity:INIT:*: {
if ($isfile(badnick.txt) == $false) { write -c badnick.txt } | else { loadbuf -o $dname 2 badnick.txt }
if ($isfile(kufur.txt) == $false) { write -c kufur.txt } | else { loadbuf -o $dname 5 kufur.txt }
if (%badnick) .didtok $dname 2 32 $ifmatch
if (%kufur) .didtok $dname 5 32 $ifmatch
}
on *:dialog:antipity:sclick:*:{
if ($did == 3) { write badnick.txt $did(10) | did -a $dname 2 $did(10) | did -r $dname 10 }
if ($did == { write kufur.txt $did(11) | did -a $dname 5 $did(11) | did -r $dname 11 }
if ($did == 4) { write -dl $+ $did(2).sel badnick.txt | did -d $dname 2 $did(2).sel }
if ($did == 9) { write -dl $+ $did(5).sel kufur.txt | did -d $dname 5 $did(5).sel }
 
}
on *:dialog:antipity:sclick:1:{
set %badnick $didtok($dname,2,44)
set %kufur $didtok($dname,5,44)
}

NOTE : $wildsite yazan Kısımı $wild $2 $nick gibi degiştirip denermisin.

Tamama Denicem

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 22:09 -->-> Daha önceki mesaj 22:01 --

maalesef yine sadece kick atıyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 22:40 -->-> Daha önceki mesaj 22:09 --

Koruma Paneline *küfür* şeklinde bir kelime eklediğimde kanaldan banladı ve attı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 22:58 -->-> Daha önceki mesaj 22:40 --

Peki Sadece Kelime YAzsam Küfür Paneline Neden Atmıyor ?

Was · 18 Mart 2013, 03:09

on @*:text:*:#:if $gurkan(isimsiz,$1-,kufur.txt) { .mode $chan +b $wildsite | kick # $nick Yasak Kelime Kullanımı! }

Bu kısmı;

on @*:text:*:#:if $gurkan(isimsiz,$1-,kufur.txt) { .mode # +b $address($nick,2) | kick # $nick Yasak Kelime Kullanımı! }

Böyle değiştir, çalışır.

Ayrıca wildcard kullanmak için tasarlanmış bişey, tek kelimeyi de atması için iswm yerine isin kullanmak gerekir bu remotede. Eğer joker karakter yoksa ve iswm kullanmışsan tek kelimelik şeylerde işe yaramaz.

IRC-Dancer · 18 Mart 2013, 03:54

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

.mode $chan +b $wildsite | .kick $chan $nick Ban Sebebi!

;---Kod'u alttakiyle değiştirmen,hatanın giderilmesine neden olur;

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

.ban $$1 2 | kick # $nick Ban Sebebi!

;--- Soru:Peki Sadece Kelime YAzsam Küfür Paneline Neden Atmıyor ?
;---
;--- Eklenen Kelime : Deneme
;--- Kanala deneme amaclı yazılmıştır < bunu muaf tutar ( GÖRMEZ )
;--- Deneme < ''Yazarsa banlanır sadece''
;--- Eklenen Kelime : *Deneme*
;--- Kanala deneme amaclı yazılmıştır < bunu prefix'de ( * ) görür ve banlar
Not : Ban + Kick Yapmak istiyorsan ; '' ban -k '' yazman yeterlidir.
Saygılarıma~~

Was · 18 Mart 2013, 05:25

Prefixle wildcard'ın ilgisi ne @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]? Ve deneme kelimesini kafadan muaf tutan hangi kod var onu bi söyler misin
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

18 Mart 2013, 13:52

Selam,

Kodları biraz inceledim'de

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

$gurkan(isimsiz,$1-,kufur.txt)

burada

isim'siz = $1
$1- = $2
kufur.txt = $3
olarak kullanmıssın'ız.

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

 
alias gurkan {
if !$istok(isimsiz ,$1,32) { return $false }
goto $1
:isimsiz
var %· = 1 | while $read($3,%·) { if $v1 iswm $2 { return $true } | inc %· } | return $false)
}

Burda

Söyle birşey var $1- kelimeye denk geliyor ama "Selam Nasılsın" yazarlarsa şöyle oluyor;

isimsiz = $1
Selam = $2
Nasılsın $3
kufur.txt = $4

oluyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
orayı düzelt'iniz.

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

 
$gurkan(isimsiz,kufur.txt,$1-)

olarak ve

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

alias gurkan {
if !$istok(isimsiz,$1,32) { return $false }
goto $1
:isimsiz
var %· = 1 | while $read($2,%·) { if $v1 iswm $3- { return $true } | inc %· } | return $false)
}

gibi.

Düzeltip denedim Kod'da sorun yok kanal'da ban atıyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod:

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

alias gurkan {
  if !$istok(isimsiz,$1,32) { return $false }
  goto $1
  :isimsiz
  var %· = 1 | while $read($2,%·) { if $v1 isin $3- { return $true } | inc %· } | return $false)
}
on @*:text:*:#:if $gurkan(isimsiz,kufur.txt,$1-) { .mode $chan +b $wildsite | kick $chan $nick 1 Argo İçerikli Kelime Kullanmak Yasaktir.. %logo }
alias antipity { dialog -m antipity antipity } 
dialog antipity {
  title "BadNick & Kufur Koruma"
  size -1 -1 226 102
  option dbu
  list 2, 38 22 70 58, size
  list 5, 118 22 70 58, size
  edit "", 10, 38 12 70 10
  edit "", 11, 118 12 70 10
  box "KARA LiSTE", 6, 5 3 107 81
  box "KUFUR", 7, 114 3 107 81
  button "T A M A M", 1, 38 87 148 12,ok
  button "EKLE", 3, 10 14 24 28
  button "KALDIR", 4, 10 45 24 28
  button "EKLE", 8, 192 14 24 28
  button "KALDIR", 9, 192 45 24 28
}
on *:dialog:antipity:INIT:*: {
  if ($isfile(badnick.txt) == $false) { write -c badnick.txt } | else { loadbuf -o $dname 2 badnick.txt } 
  if ($isfile(kufur.txt) == $false) { write -c kufur.txt } | else { loadbuf -o $dname 5 kufur.txt } 
  if (%badnick) .didtok $dname 2 32 $ifmatch 
  if (%kufur) .didtok $dname 5 32 $ifmatch
}
on *:dialog:antipity:sclick:*:{
  if ($did == 3) { write badnick.txt $did(10) | did -a $dname 2 $did(10) | did -r $dname 10 }
  if ($did == 8) { write kufur.txt $did(11) | did -a $dname 5 $did(11) | did -r $dname 11 }
  if ($did == 4) { write -dl $+ $did(2).sel badnick.txt | did -d $dname 2 $did(2).sel } 
  if ($did == 9) { write -dl $+ $did(5).sel kufur.txt | did -d $dname 5 $did(5).sel }
}
on *:dialog:antipity:sclick:1:{ 
  set %badnick $didtok($dname,2,44)
  set %kufur $didtok($dname,5,44)
}

Deneme;

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

[13:57:41] <ChanServ> deneme
3«13:57:41» • Mode : Toprak mode değiştirdi +b *!*@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].net
«13:57:41» • Kick : ChanServ , Toprak Tarafından Atıldı Sebep: (1 Argo İçerikli Kelime Kullanmak Yasaktir..)
[14:06:02] <ChanServ> selam deneme selam
3«14:06:02» • Mode : Toprak mode değiştirdi +b *!*@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].net
«14:06:02» • Kick : ChanServ , Toprak Tarafından Atıldı Sebep: (1 Argo İçerikli Kelime Kullanmak Yasaktir..)

cihangarip · 18 Mart 2013, 17:27

Arkadaşlar hepinize ayrı ayrı teşekkür ederim .. çok sagolun yardımcı oldunuz. .

cihangarip · 22 Mart 2013, 18:04

Kodda sanırım sorun var kanala biri selam dese atıyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

L4roXyL · 22 Mart 2013, 22:46

Bu kullanımda $read doğru çalışmaz. Dosya içerisindeki kelimeleri text içerisinde aratacaksın. Tam tersini yapmışsınız. Hı tabiki amacınız cümlenin tamamını eşleştirmekse bilmemem, aksi taktirde yanlış kullanım dediğim gibi.

Ayrıca onlarca kez söylememe rağmen şu ban + kick olayında hep aynı hatalar yapılıyor. Ya 2 komut birden kullanıyorsunuz yada başka kullanımlar. mIRC'de /ban diye bir komut var çok yakından bildiğiniz artık şunun parametrelerini kullanın.

Basit ve anlayacağınız şekilde bunu yapmanın onlarca yolu var. Aşağıdaki kodu örnek vereceğim ve yerine kullanabileceğiniz diğer opsiyonları vereceğim.

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

on @*:text:*:#:var %. = 1 | while $read(kufur.txt,%.) { if $+(*,$v1,*) iswm $1- { ban -k # $nick 2 BAN SEBEBI. | break } | inc %. }

Kalın olarak belirttiğim yer isin operatörü ile aynı işlemi yapar. Yani cümle içerisinde kullanılan herhangi bir kelime içerisinde geçiyorsa manasına gelir.

Eğer direk eşleştirme yapmak istiyorsanız/opsiyonlar(kelime = kelime):

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

a) $istok($1-,$v1,32)
b) $wildtok($1-,$v1,0,32) 
c) $findtok($1-,$v1,32)
d) $regex($1-,/(\b $+ $v1 $+ \b)/gi)

Ve benzeri olarak 10'larca daha örnek verilebilir. (özellikle regex kullanılarak)
Yukarıdaki örnekleri eğer direk eşleştirme yapmak istiyorsanız kod içerisinde kalın olarak belirttiğim yerde kullanabilirsiniz. Hepsi aynı işlemi yapar.

Eğer hayır eşleştirilen kelime eşleşen kelimenin içerisinde geçince işlev yapsın diyorsanız: $v1 isin $1-
Yapmanız yeterli olacaktır en basitinden.

Son olarak kick + ban işlemi için: /ban -k <kanal-adı> <nick> <tip> <sebeb>
Örnek: /ban -k #kanal nick 2 ban-sebebi.

Şu iki ayrı komut kullanma huyunuzdan vazgeçin.
Ayrıca dosya içerisinde boş satır olmadığından emin olun. Boş satırı herhangi bir karakter olarak algılayıp işlem yapabiliyor mIRC bazen. Yani ne yazarsa yazsın atılmasının sebebi genelde budur. Veya dosya içerisinde eklenen kelimelerin mantıklılık ölçüsünden kaynaklanabilir.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Koda ilave	TİGeR	mIRC Scripting Sorunları	1	10 Ağustos 2011 03:43
coderLer bu koda bakarmısınız	ento	mIRC Scripting Sorunları	3	11 Kasım 2009 12:12
Koda EkLemeLer	Orhan_VeLi	mIRC Scripting Sorunları	11	25 Şubat 2009 23:48

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.