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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 13 Ocak 2006, 00:25   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cakışma..




merhaba arkadaşlar öncelikle hepinizin kurban bayramı mubarek olsun.. sorunum şu ben bir koruma botu yapmaya calısıyorum.. Alience'nin shitlist'i ile !kb !k !ban kodunu Ekledim kodlarin ikiside calisiyor. mirc'in Users: bölümünde kanalda !kb !k !ban yetkisini kullanmak icin ekledigim nickler var Auth:Nick1 Auth:nick2 gibi.. yalnız Auth:nick olarak eklediğim nick kanala girer girmez bot tarafından atılıyor acaba nedendir bilen varmı varsa bana yardımcı olurmusunuz.. ayrıca ben bide baslık actım !unban nick seklinde bir kişinin bota banını nasıl actırabiliriz ve !bantemizle diyince bütün kanaldaki banları nasıl actırabiliriz. bu iki koduda yazarsanız sevinirim..

on $AUTH:text:/^!mode|^!kb|^!b|^!k/Si:#: {
if !$regex($1-,(^!voice .)|(^!mode .* .)|(^!kb|^!b|^!k .)) { .notice $nick Komutların Kullanımı: !voice nick [nick2 nick3], !mode +ohik parametre, !kb nick sebep, !b ip/nick, !k nick [sebep] | halt }
else {
if !$regex($1-,^!mode) {
if $2 !ison $chan { .notice $nick $2 $chan kanalında değil! | halt }
else { $replace($1,!kb,/ban -k,!k,/kick,!b,/ban) $chan $2- $iif($regex($1,^!kb|^!b),) }
}
else { $replace($1,!mode,/mode) $chan $2- }
}
}


Eğer Bunun bir çaresi yoksa bana !kb !k !ban !voice !op !deop !halfop gibi komutlarla calistirabilicegim bi komut bilgiside verirseniz bota ekliyebilicegim sevinirim iyi calismalar..

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 13 Ocak 2006, 11:33   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)



on *:text:*:#:{
;burası önemli : hangi nickler çağrışım yaparsa botun devreye gireceğini
;belirtiyoruz.Sayıyı arttırabilirsin
if ($nick == nick1) || ($nick == nick2) || ($nick == nick3) {
if ($1 == !kb) { ban -k # $2 }
if ($1 == !k) { kick # $2 }
if ($1 == !ban) { ban # $2 }
if ($1 == !voice) { mode # +v $2 }
if ($1 == !op) { mode # +o $2 }
if ($1 == !deop) { mode # -o $2 }
if ($1 == !halfop) { mode # +h $2 }
if ($1 == !unban) { banac $2 }
if ($1 == !bantemizle) { bantemizle }
else { halt }
}
}
alias bantemizle { var %a $ibl($chan,0) | while %a { mode $chan -b $ibl($chan,%a) | dec %a } }
alias banac { var %a $ibl($chan,0) | while %a { if ($ibl($chan,%a) iswm $address($1,5)) { mode $chan -b $ibl($chan,%a) } | dec %a } }
;Denemedim ama umarim çalışır

 
Alıntı ile Cevapla

Alt 13 Ocak 2006, 20:05   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)



on *:text:*:#:{
;burası önemli : hangi nickler çağrışım yaparsa botun devreye gireceğini
;belirtiyoruz.Sayıyı arttırabilirsin

bu kısmı anlıyamadım maelstrom?


Konu hidir tarafından (13 Ocak 2006 Saat 20:11 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 13 Ocak 2006, 20:43   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)



on *:text:*:#: {
;bütün kanallarda yazılanları denetler
if ($nick == nick1) || ($nick == nick2) || ($nick == nick3) {
;burası önemli : hangi nickler çağrışım yaparsa
;botundevreyegireceğini
;belirtiyoruz.Sayıyı arttırabilirsin

böylesi daha uygun sanırım
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 14 Ocak 2006, 01:29   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)



maelstrom ya bunların hiç biri calısmıyor ne unban yapiyor ne adam atiyor sunu aciklayici sekilde tekrar yazarmısın

 
Alıntı ile Cevapla

Alt 14 Ocak 2006, 11:21   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)



senin botunun 3 kişi tarafından harekete gecirilmesini istiyosun örneğin
if ($nick == nick1) || ($nick == nick2) || ($nick == nick3) {
olan kısımda nick1 hidir nick2 maelstrom nick3 te hidircan olsun mesela.
Kısaca tekrar kanalda hidir maelstrom yada hidircan nicklerinden biri yazı yazarsa kod devam edecek.
if ($1 == !kb) { ban -k # $2 }
bu diyor ki eğer yazılan yazının ilk kelimesi !kb ise ikinci kelimeyi kanaldan banla ve kickle.Yani mesela hidircan kanalda !kb ali yazdığında senin botun ali nickli sahışı kanaldan banlıyıp kickleyecektir.Diğerlerinin mantığıda bunun aynısı.Umarım anlamışsındır.

 
Alıntı ile Cevapla

Alt 14 Ocak 2006, 16:20   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)



peki birşey daha sorayım ozaman bu konuyla bir alakası yok ama konu başlığı açmak istemedim.. benim bir oyun kanalım var ve oyun kanalına koruma botunu sokmak istiyorum koruma botunda cocoriconun yazmış olduğu bu regex kodu mevcut kod'da şu kanalda birisi kelimeleri uzatinca once uyariyor sonra atiyor kanaldada oyun kanali soruları uzun yazdığı için botuda kanaldan atıyor bu korumada Oyun nickini nasıl regex uzun yazı korumasından muaf tutarız ? komut aşşağıda belirtişmiştir.


on *^:text:*:#: {
if ($regex($1-,/([[:print:]])\1\1/ig) >= $calc($coconf(U.limit)/3)) {
inc $+(-u,$coconf(U.mem)) %uz [ $+ [ $nick ] ] 1
if (%uz [ $+ [ $nick ] ] >= $coconf(U.LM)) {
.ban $+(-ku,$calc($coconf(U.kbs)*60)) $chan $nick $coconf(U.sb)
.unset %uz [ $+ [ $nick ] ]
}
if (%uz [ $+ [ $nick ] ] >= $coconf(U.AL)) {
msg $chan $nick $coconf(U.yr)
}
}
}
alias coconf {
goto $1
:U.Limit {
;# harf limiti
RETURN 15
}
:U.LM {
;# Kac kezde atsın..
RETURN 2
}
:U.AL {
;# Uyarı limiti (üstteki deger ile aynı-yüksek olmamalıdır.)
RETURN 1
}
:U.mem {
;# Hatayı yapan nikc-Adres'in Hafızada kalacagı süre (sn)
RETURN 60
}
:U.sb {
;# Kick Sebebi..
RETURN Long Word Protections
}
:U.yr {
;# Uyarı mesajı
RETURN Uyarı: Harfleri uzatmayınız..
}
:U.kbs {
;# kikc\ban süresi "Dk."
RETURN 15
}

}

 
Alıntı ile Cevapla

Alt 14 Ocak 2006, 19:00   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)



on *^:text:*:#: {
if ($nick != oyun) {
if ($regex($1-,/([[:print:]])\1\1/ig) >= $calc($coconf(U.limit)/3)) {
inc $+(-u,$coconf(U.mem)) %uz [ $+ [ $nick ] ] 1
if (%uz [ $+ [ $nick ] ] >= $coconf(U.LM)) {
.ban $+(-ku,$calc($coconf(U.kbs)*60)) $chan $nick $coconf(U.sb)
.unset %uz [ $+ [ $nick ] ]
}
if (%uz [ $+ [ $nick ] ] >= $coconf(U.AL)) {
msg $chan $nick $coconf(U.yr)
}
}
}
alias coconf {
goto $1
:U.Limit {
;# harf limiti
RETURN 15
}
:U.LM {
;# Kac kezde atsın..
RETURN 2
}
:U.AL {
;# Uyarı limiti (üstteki deger ile aynı-yüksek olmamalıdır.)
RETURN 1
}
:U.mem {
;# Hatayı yapan nikc-Adres'in Hafızada kalacagı süre (sn)
RETURN 60
}
:U.sb {
;# Kick Sebebi..
RETURN Long Word Protections
}
:U.yr {
;# Uyarı mesajı
RETURN Uyarı: Harfleri uzatmayınız..
}
:U.kbs {
;# kikc\ban süresi "Dk."
RETURN 15
}
}

}


__________________
Suyun intiharıdır şelale...
 
Alıntı ile Cevapla

Alt 17 Ocak 2006, 15:39   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)



hidir Nickli Üyeden Alıntı
peki birşey daha sorayım ozaman bu konuyla bir alakası yok ama konu başlığı açmak istemedim.. benim bir oyun kanalım var ve oyun kanalına koruma botunu sokmak istiyorum koruma botunda cocoriconun yazmış olduğu bu regex kodu mevcut kod'da şu kanalda birisi kelimeleri uzatinca once uyariyor sonra atiyor kanaldada oyun kanali soruları uzun yazdığı için botuda kanaldan atıyor bu korumada Oyun nickini nasıl regex uzun yazı korumasından muaf tutarız ? komut aşşağıda belirtişmiştir.



on *^:text:*:#: {
if ($regex($1-,/([[:print:]])\1\1/ig) >= $calc($coconf(U.limit)/3)) {
inc $+(-u,$coconf(U.mem)) %uz [ $+ [ $nick ] ] 1
if (%uz [ $+ [ $nick ] ] >= $coconf(U.LM)) {
.ban $+(-ku,$calc($coconf(U.kbs)*60)) $chan $nick $coconf(U.sb)
.unset %uz [ $+ [ $nick ] ]
}
if (%uz [ $+ [ $nick ] ] >= $coconf(U.AL)) {
msg $chan $nick $coconf(U.yr)
}
}
}
alias coconf {
goto $1
:U.Limit {
;# harf limiti
RETURN 15
}
:U.LM {
;# Kac kezde atsın..
RETURN 2
}
:U.AL {
;# Uyarı limiti (üstteki deger ile aynı-yüksek olmamalıdır.)
RETURN 1
}
:U.mem {
;# Hatayı yapan nikc-Adres'in Hafızada kalacagı süre (sn)
RETURN 60
}
:U.sb {
;# Kick Sebebi..
RETURN Long Word Protections
}
:U.yr {
;# Uyarı mesajı
RETURN Uyarı: Harfleri uzatmayınız..
}
:U.kbs {
;# kikc\ban süresi "Dk."
RETURN 15
}

}


Anlamadığım Birşey De Bu Nasıl Çalışıyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
! !

 
Alıntı ile Cevapla

Cevapla

Etiketler
cakisma, cakışma, mirc, mirc download, mirc indir


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
Yazılarda cakışma Med Cezir mIRC Scripting Sorunları 1 07 Ocak 2008 06:20
göz alıcı ve kodlar ile olan çakışma Sw33t mIRC Scripting Sorunları 0 15 Eylül 2006 02:46