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

- Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)

- - nasıL yapaßiLiriz? (https://www.ircforumlari.net/eggdrop-neostats-bnc/34748-nasil-yapassiliriz.html)

nasıL yapaßiLiriz?

ArkdaşLar ßen serverıma eggdrop kurmak istiorum sadece küfürLü konuşanLarı atmasını ßide istediğim komutLarını yapmasını istiorum. mesaLa özeLine !kill nick seßeß dicem we atıcak. sadece ßenden komut aLıcak. ßöyLe ßi ßot nasıL kuraßiLirim

Cevap: nasıL yapaßiLiriz?

Arkadaşım kufürlü kelimeler için bir çok tcle var ben birini vereyim sana gereksiz olacak ama genede soruna cevap almış olursun.

Küfürlü konuşmalar için tcl :

Kod:


 # Kick yada oper ise kill mesaji

set bansebebi "Kufur Ettiginiz icin Banlandiniz..! ShellTC"

# Eger bot oper olup reklam yapanlara gline aticaksa

# bu ayari 1 yapin, aksi takdirde dokunmayin..

set botoper "0"

## Bot oper olucaksa oper username ve sifre

## Dikkat, conf dosyanizda baska bir init-server olmadigindan emin olun

#set onick "opernick"

#set opass "operpass"

# Kufurler - Eklemek istediginiz kufur varsa asagidan

# ekliyebilirsiniz..

set kufurler { 

"göt"

"düzerim"

"duzerim"

"sokar*"

"yalarım"

"yalarim"

"********"

"*orozpu*"

"*******"

"yarak*"

"pic"

"*****"

"yarrag"

"hasiktir"

"*siker*"

"*amci*"

"*amcı*"

"*ibne*"

"gotun*"

"salak"

"aptal"

"kahpe"

"kahbe"

"zikerim"

"*a.q*"

"*a.k*"

"eşşek"

"********"

"*orozbu*"

"*zokarı*"

"*mokarım*"

"*yalarım*"

"********"

}

 

bind pubm - * kufurban

 

# DOKUNMAYIN..!

bind evnt - init-server botoper_yap
 

proc botoper_yap {type} {

global onick opass

if {$botoper == 1} {

putquick "OPER $onick $opass"

}

}

proc kufurban {nick uhost hand chan rest} {

global kufurler botoper bansebebi

foreach w $kufurler {

if {[string match -nocase "* $w *" " $rest "]} { 

if {$botoper == 1} {

putquick "GLINE +*[string range $uhost [string first @ $uhost] e] 1d :$bansebebi" -next

putquick "KILL $nick :$bansebebi" -next

return 1

} else { 

putquick "MODE $chan +b *!*[string range $uhost [string first @ $uhost] e]" -next

putkick $chan $nick $bansebebi

return 1

} 

}

}

}

putlog "Kufur.tcl 2.0 by Stonkeep Yuklendi..."
 

Tamamen alıntıdır.

Cevap: nasıL yapaßiLiriz?

peki ßota istediğim komutLarı yapmasını nasıL yapıcaz?

Cevap: nasıL yapaßiLiriz?

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

kisisel istekler yerine nasil yazilacagini sanirim ogrenebilirsiniz.

Cevap: nasıL yapaßiLiriz?

Arkadaşım Şöyle deyim kodeni yazdıktan sonra şu eklentileri yap

set sahibiyim "Sohbettc" // en üste bunu ekle

proc // Altındaki uygun satıra
global sahibiyim
if {$nick == "$sahibiyim"} {
...
...
...
} // en sonada bunu ekle

düzgün editlersen işini görür...
Bi dene yapamazsan yardımcı olaya çalışacayım.

Kod:

deneme:

 

 
 set sahibiyim "Sohbettc"

 
 bind msg - !kill killdeneme

 
 proc killdeneme {nick host hand {text ""}} {
 global sahibiyim
 if {$nick == "$sahibyim"} {
 set nick [lindex $arg 0]
 set sebep [lrange $arg 1 end]
 if {![isop $nick]} {return 0}
 puthelp "kill $nick $sebep"

}

}

denemedim umarım çalışır :) çalışmazsada artık buna benzer işlemler yapacaksın işte anlata bilmişimdir umarım.