IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 06 Mart 2007, 14:26   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Belirlenen nick ve identlerin atılmaması Yardım Lütfen.




Arkadaşlar bu Code da belirli nicklerin atılamasını istemiyorum yada #oyun kanalında calışmasın örneğin Ahmet mehmet ve identi ****.com olanlar atılamaycak yani admin identliler.... şimdiden teşekkürler.


alias gurkan {
if !$istok(isimsiz ,$1,32) { return $false }
goto $1
:isimsiz
var %· = 1 | while $read($3,%&#183
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
{ if $v1 iswm $2 { return $true } | inc %· } | return $false)
}
on *:join:#:{ if $gurkan(isimsiz,$nick,badnick.txt) { samode # +o $me | .samode $chan +b $nick | .kick $chan $nick BadNick! }
}
on *:text:*:#:if $gurkan(isimsiz,$1-,kufur.txt) { samode # +o $me | .samode $chan +b $nick | /akill $nick Kurallara uymayan davranış gösterdiniz. AKILL! | .samode $chan +b $wildsite | kick # $nick Yasak Kelime Kullanımı! }
alias antipaty { 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 == 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)
Arkadaşlar bu Code da belirli nicklerin atılamasını istemiyorum yada #oyun kanalında calışmasın örneğin Ahmet mehmet ve identi ****.com olanlar atılamaycak yani admin identliler.... şimdiden teşekkürler.


alias gurkan {
if !$istok(isimsiz ,$1,32) { return $false }
goto $1
:isimsiz
var %· = 1 | while $read($3,%&#183
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
{ if $v1 iswm $2 { return $true } | inc %· } | return $false)
}
on *:join:#:{ if $gurkan(isimsiz,$nick,badnick.txt) { samode # +o $me | .samode $chan +b $nick | .kick $chan $nick BadNick! }
}
on *:text:*:#:if $gurkan(isimsiz,$1-,kufur.txt) { samode # +o $me | .samode $chan +b $nick | /akill $nick Kurallara uymayan davranış gösterdiniz. AKILL! | .samode $chan +b $wildsite | kick # $nick Yasak Kelime Kullanımı! }
alias antipaty { 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 == 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)

Konu OzAn tarafından (06 Mart 2007 Saat 17:51 ) değiştirilmiştir.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Sohbet
Cevapla

Etiketler
atilmamasi, belirlenen, identlerin, mirc download, mirc indir, ve, yardim


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Belirlenen nick kanalda bota yazınca cevap vermesi deneme1 Eggdrop, NeoStats, BNC 0 08 Temmuz 2011 14:29
!nick nick değiştirme komutu yardım ? SabotaJ- mIRC Scripting Hazır Kodlar 2 23 Haziran 2009 00:56
Snoticeye sadece belirlenen iki nick tepki versin Hayat mIRC Scripting Sorunları 5 11 Şubat 2009 22:46