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

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

- - Eggdrop Bot Lazım (https://www.ircforumlari.net/eggdrop-neostats-bnc/349745-eggdrop-bot-lazim.html)

Eggdrop Bot Lazım

Herkese Hayırlı Günler Hayırlı Çalışmalar Elinizde Şöyle Koruma botu Varmıdır ( Eggdrop )
Kanal Temizleme
Global Atma
Opları Ops Kanalına Çekme
Küfür
Badnick
Vhost Ekleme
Greet Mesajı
Tüm Banları Silme
Spam Ekleme
Spam Silme
Badident EkLeme
Varsa Paylaşırsanız Çok Teşekkür Ederim Şimdiden Herkese Hayırlı Çalışmalar .

Cevap: Eggdrop Bot Lazım

Alıntı:

Nurullahoruc Nickli Üyeden Alıntı (Mesaj 1040490176)

Bahsettiğiniz tüm özellikler TCL Scriptler, kategorisinde mevcuttur
Yapmanız gerek tek şey kendinize bir conf ayarlamak ve sonra forumda mevcut olan Tcl'eleri conf'unuza eklemektir ,)

Cevap: Eggdrop Bot Lazım

Forum O kadar karışmış artı bunları bir arada göremedim hepsini ondan dolayı bu konuyu açtım

Cevap: Eggdrop Bot Lazım

Spamekle.tcl
!spamekle / !spamsil

PHP- Kodu:

   if {![info exists userinfover] } {
putlog "*** spamekle Tcl Yuklenemiyo 2.0 -- Userinfo v1.01 .tcl Yuklu Olmak Zorunda.!"
return 0
}
&#12288;
bind pub - !spamadd spam:msg
proc spam:msg {n u h c a} {
global botnick admin_chan
set spam_msg [join [split $a .] .?]
set yspam_msg [join [split $spam_msg " "] .]
set vspam [stripcodes bcru $yspam_msg]
set spam [spam:tmz $vspam]
if {[onchan $n $admin_chan]==1} {
putquick "SPAMFILTER add cpNna gzline 30h 14sunucu_kurallarına_aykırı_reklam/küfür/argo_söz_kullanımdından_dolayı_sunucuya_girişiniz_yasaklanmıştır2(4CHM2) ^$spam$"
putquick "PRIVMSG $c ^$spam$ 15-14-1> 4spamfiltera eklendi"
}
if {[onchan $n $admin_chan]==0} {
putserv "PRIVMSG $admin_chan 5$n 2!spamekle $a 14komutunu kullanmaya çalıştı!" 
}
}
bind pub - !spamekle spam:ek
proc spam:ek {n u h c a} {
global botnick admin_chan
if {[onchan $n $admin_chan]==1} {
putquick "SPAMFILTER add cpNna gzline 30h 14sunucu_kurallarına_aykırı_reklam/küfür/argo_söz_kullanımdından_dolayı_sunucuya_girişiniz_yasaklanmıştır2(4CHM2) $a"
putquick "PRIVMSG $c $a 15-14-1> 4spamfiltera eklendi"
}
if {[onchan $n $admin_chan]==0} {
putserv "PRIVMSG $admin_chan 5$n 2!spamadd $a 14komutunu kullanmaya çalıştı!" 
}
}
bind pub - !spamdel spamsil:msg
proc spamsil:msg {n u h c a} {
global botnick admin_chan
set spam_msg [join [split $a .] .?]
set yspam_msg [join [split $spam_msg " "] .]
set vspam [stripcodes bcru $yspam_msg]
set spam [spam:tmz $vspam]
if {[onchan $n $admin_chan]==1} {
putquick "SPAMFILTER del cpNna gzline - - ^$spam$"
putquick "PRIVMSG $c $a 15-14-1> 4spamfilterdan çıkarıldı"
}
if {[onchan $n $admin_chan]==0} {
putserv "PRIVMSG $admin_chan 5$n 2!spamsil $a 14komutunu kullanmaya çalıştı!"
}
}
bind pub - !spamsil spam:sil
proc spam:sil {n u h c a} {
global botnick admin_chan
if {[onchan $n $admin_chan]==1} {
putquick "SPAMFILTER del cpNna gzline - - $a"
putquick "PRIVMSG $c $a 15-14-1> 4spamfilterdan çıkarıldı"
}
if {[onchan $n $admin_chan]==0} {
putserv "PRIVMSG $admin_chan 5$n 2!spamdel $a 14komutunu kullanmaya çalıştı!"
}
} 
putlog "spamekle tcl"

----------

Temizle.tcl
!temizle
belitilen kanala hangi kanalda kimin !temizle komut kullandıgınıda loglar.

PHP- Kodu:

   ##############
# Temizleme tclsi #
# By AspavA #
##############
set ASP "0,0"
 
bind pub - !temizle ASP
proc ASP {nick user hand chan arg} {
 global ASP
 if {![isop $nick $chan]} {return 0}
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
 putquick "PRIVMSG $chan : $ASP ."
putquick "mode $chan -M"
 putquick "PRIVMSG $chan :\00302Kanal geneli \00304$nick \00302tarafindan temizlenmistir. Keyifli sohbetler dileriz. \00304($chan)\00304"
 putquick "PRIVMSG #log \00304 $chan \00302 kanalı Temizlendi  Komutu KuLLanan \00305 Kişi  \00304 $nick "
}

----------

Globalat.tcl
her 10 dakikada global atar zamanı kendiniz belirliyebilirsiz.

PHP- Kodu:

   #Konusma icin zaman sureci (Dk cinsinden) 
set zaman_araligi "10" 
 
 
#Uygulamanin calismasi icin 
#botun oper login ve nick login paslari 
 
#oper login 
set o_login "Eggdrop" 
 
#Oper Login sifresi 
set o_pass "pass" 
 
#Nick identify sifresi 
set b_ipass "passs" 
 
 
#bind 
bind evnt - init-server baglanti:ayari 
 
#mesajlar 
set global_msg { 
"0,20 Zirve.Net0,50&0,70 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">} 
 
if {![string match "*konusma_zamani*" [timers]]} { 
timer $zaman_araligi konusma_zamani 
} 
 
 
proc konusma_zamani {} { 
global global_msg zaman_araligi 
set global_rmsg [lindex $global_msg [rand [llength $global_msg]]] 
putserv "OS GLOBAL $global_rmsg" 
timer $zaman_araligi konusma_zamani 
return 1 
} 
proc baglanti:ayari {type} { 
putserv "NICKSERV IDENTIFY $b_ipass 
putserv "OPER $o_login $o_pass" 
putserv "WALLOPS :Global mesaj sistemi aktif!" 
} 
 
 
putlog "Global mesaj atma sistemi yuklendi" 
putlog "Bot OPER ve Global kullanma izni olmadigi surece" 
putlog "Calismayacaktir!" 
putlog "mail: acoustic@realcoder.com"

----------

Özelreklam.tcl

PHP- Kodu:

   bind pubm - "*/*s*e*r*v*e*r*" pub_dont_invite
bind pubm - "*
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">pub_dont_invite
bind pubm - "*irc.*" pub_dont_invite
bind pubm - "*http:/*" pub_dont_invite
bind pubm - "*ftp:/*" pub_dont_invite
bind pubm - "*.com*" pub_dont_invite
bind pubm - "*.net" pub_dont_invite
bind pubm - "*.org" pub_dont_invite
bind pubm - "*-------*" pub_dont_invite
bind pubm - "*SİKERİM*" pub_dont_invite
bind pubm - "-----" pub_dont_invite
bind pubm - "---" pub_dont_invite
bind pubm - "---ler" pub_dont_invite
bind pubm - "*------*" pub_dont_invite
bind pubm - "*pezevenk*" pub_dont_invite
bind pubm - "*siktir*" pub_dont_invite
bind pubm - "ibne*" pub_dont_invite
bind pubm - "yarak" pub_dont_invite
bind pubm - "penis" pub_dont_invite
bind pubm - "similya" pub_dont_invite
&#12288;
proc pub_dont_invite {nick host handle channel arg} {
global botnick
if {![isop $botnick $channel]} {return 0}
if {[isop $nick $channel]} {
return 0
}
set n2hand [nick2hand $nick $channel]
if {([matchattr $n2hand m] || [matchattr $n2hand p] || [matchattr $n2hand b] || [matchattr $n2hand n] || [matchattr $n2hand f])} {
return 0
}
if [regexp -nocase dcc $nick] {return 0}
set banmask "*!*[string trimleft [maskhost [getchanhost $nick $channel]] *!]"
set targmask "*!*[string trimleft $banmask *!]"
set ban $targmask
putserv "mode $chan +b *!*[string range $uhost [string first @ $uhost] e] "
putserv "notice $nick Reklam/Küfür/inveter kullandığınız tespit edildi.#cinsellik kanalına yönlendiriliyorsunuz"
putserv "SAJOIN $nick #cinsellik"
return 1
}
putlog "ozelreklam.tcl by zirve.net"
&#12288;

----------

reklam.tcl

PHP- Kodu:

   bind msgm - "*" pv_kick
proc pv_kick {nick uhost hand text} {
global botnick spambantime
## i think u dont need to change anything below
## the bot will kickban if someone private message bot said words with "#" , "join" ,"channel" .etc
## if u want change please make sure you cannot put "*?*" . "*" or "?" will make the tcl didn`t work
if {[regexp -nocase "#" $text] || [regexp -nocase "irc" $text] || [regexp -nocase "i r c" $text] || [regexp -nocase "join" $text] || [regexp -nocase "channel" $text] || [regexp -nocase "gel" $text] || [regexp -nocase "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">$text] || [regexp -nocase "s e r v e r" $text] || [regexp -nocase "http" $text] || [regexp -nocase "server" $text] || [regexp -nocase "#" $text] || [regexp -nocase "com" $text] > 0} {
foreach kickchan [channels] {
if {![isop $nick $kickchan] || ![isvoice $nick $kickchan]} {
if {[onchan $nick $kickchan]} {
set bmask "*!*[string range $uhost [string first "@" $uhost] end]"
if {![ischanban $bmask $kickchan] || [botisop $kickchan]} {
set kickmsg "2 $nick 4Reklam yapmak yasaktir!"
putquick "mode $kickchan +b $bmask $spambantime"
putquick "KILL $kickchan $nick :$kickmsg"
putserv "PRIVMSG illegal_NicCK: $nick nick'li user reklam yaptığı için uzaklaştırıldı.  $kickmsg "
putserv "PRIVMSG illegal_NicCK: $nick nick'li user reklam yaptığı için uzaklaştırıldı.  $kickmsg "
}
}
}
}
}
}
putlog "zirve.net"
&#12288;
&#12288;

----------

yine bi reklam koruma

######## Reklam Kontrol Bolumu #########
set admin_chan "#opers"
#Konusma icin zaman sureci (Dk cinsinden)
set zaman_araligi "5"
　
#Uygulamanin calismasi icin
#botun oper login ve nick login paslari
#oper login
set o_login "Zirve"
#Oper Login sifresi
set o_pass "operpass"
#Nick identify
set b_ipass "nickpass"
　
#bind
bind evnt - init-server baglanti:ayari
#mesajlar
set reklam_msg {
"Bu Bir Reklam Kontrol Mesaj'ıdır. Lütfen Cvp vermeyiniz."
"bu mesaj sunucumuza izinsin yapilan reklamlari kontrol etmek amaçlı içatilmiştir lütfen dikkate almayınız."
}
if {![string match "*konusma_zamani*" [timers]]} {
timer $zaman_araligi konusma_zamani
}
　
proc konusma_zamani {} {
global reklam_msg zaman_araligi
set reklam_rmsg [lindex $reklam_msg [rand [llength $reklam_msg]]]
putserv "privmsg $*Chatmirc.net $reklam_rmsg"
timer $zaman_araligi konusma_zamani
return 1
}
proc baglanti:ayari {type} {
putserv "NICKSERV IDENTIFY $b_ipass
putserv "OPER $o_login $o_pass"
putserv "WALLOPS :Reklam mesaj sistemi aktif!"
}
bind pub - !uza killclone
proc killclone {nick uhand host chan text} {
global admin_chan
if {$chan==$admin_chan && [isop $nick $admin_chan]==1} {
putquick "operserv killclones $text"
putquick "privmsg $chan Başarıyla Uzaklaştirdiniz. : $nick !"
}
}
set pwhcode "Oto Mesaj"
set atma "kill"
set ktime ""
set txt "1Reklam/Küfür tespit edildi. Auto Kline!"
set cikgir 1
set host "Orumcek.ChatmIRC.Net"
set bnick botnicki
set hst 1
set colornum 0
bind msgm - "*h*e*l*l*o*" tara
bind msgm - "hello" tara
　
proc pwhjoin {hod} {
putserv "JOIN #Chatmirc"
utimer 120 "pwhpchans hehe"
}
proc pwhpchans {blah} {
putserv "PART #Chatmirc"
utimer 2 "pwhjoin hehehe"
}
proc baslasana {nebuya} {
utimer 120 "pwhpchans neyys"
}
proc reklamcheck {nick host hand things} {
global pwhcode
if {[string match "*" $things]} {
putserv "privmsg #Opers :Nick: $nick - Mesaj: $things 2Reklam Yapiliyorsa 5!kill 5$nick 2yapiniz."
putserv "privmsg $nick :Lutfen Oto mesaj'inizi Kapatiniz. Aksi Taktirde Uzaklaştirilacaksiniz.."
return 0
}
putserv "privmsg #opers :Nick: $nick - Mesaj: $things 2Reklam Yapiliyorsa 5!kill 5$nick 2yapiniz."
putserv "privmsg $nick :Lutfen Oto mesaj'inizi Kapatiniz. Aksi Taktirde Uzaklaştirilacaksiniz.."
}
proc tara {nick uhost hand thinks} {
global colornum txt atma botnick ktime
putserv "$atma $nick $ktime: $txt"
}
baslasana neoo
bind msgm - * reklamcheck
putlog "Reklam mesaj atma sistemi yuklendi"
putlog "Bot OPER ve Reklam kullanma izni olmadigi surece"
putlog "Calismayacaktir!"

----------

clone koruması

PHP- Kodu:

   # The channels you want this active on
set cp_chans "#xpsohbet #kelebek #ankara #istanbul #oyun"
# Number of *@host joins in how many seconds, joins:seconds
set cp_j_flood 3:60
# Number of *user@host join/part cycles in how many seconds, j/p_cycles:seconds
set cp_jp_flood 3:60
# Period in minutes to ban *!*@host for multiple joins or join/part floods
set cp_btime 3
# Handle of the bot user that shoud be sent a note
set cp_notify "/join /part tespit edildi.. muhtemelen flood saldırısı 10 dakika banlısınız. Iyı Chatler. IRC.XPSOHBET.COM EggDepartmani"
##### DON'T edit anything below this line unless you know what you're doing #####
bind join - * clone_pro_join
bind rejn - * clone_pro_join
bind part - * clone_pro_leave
bind sign - * clone_pro_leave
bind splt - * clone_pro_leave
proc clone_pro_join {nick uhost handl chan} {
global cp_chans cp_j_flood cp_jp_flood cp_btime cp_host_count cp_uh_count cp_notify
set uhost [string tolower $uhost]
set host [lindex [split $uhost @] 1]
set chan [string tolower $chan]
if {[lsearch -exact $cp_chans $chan] == -1} {return 0}
if {![info exists cp_host_count($host:$chan)]} {
set cp_host_count($host:$chan) 1
} else {
incr cp_host_count($host:$chan)
}
utimer [lindex $cp_j_flood 1] "cp_expire cp_host_count($host:$chan)"
if {$cp_host_count($host:$chan) > [lindex $cp_j_flood 0]} {
newchanban $chan *!*@$host ClonePro "Not so fast" $cp_btime
sendnote ClonePro $cp_notify "÷ banned *!*@$host (massjoin) on $chan, [ctime [unixtime]] ÷"
if {[botisop $chan] && [onchan $nick $chan]} {
putserv "KICK $chan $nick :Not so fast"
}
}
if {![info exists cp_uh_count($uhost:$chan)]} {
set cp_uh_count($uhost:$chan) 1
} else {
incr cp_uh_count($uhost:$chan)
}
utimer [lindex $cp_jp_flood 1] "cp_expire cp_uh_count($uhost:$chan)"
if {$cp_uh_count($uhost:$chan) >= [expr [lindex $cp_jp_flood 0]*2]} {
newchanban $chan *!*@$host ClonePro "/join /part tespit edildi.. muhtemelen flood saldırısı 1 dakika banlısınız. Iyı Chatler. IRC.XPSOHBET.COM EggDepartmani" $cp_btime
sendnote ClonePro $cp_notify "÷ banned *!*@$host (join/part flood) on $chan, [ctime [unixtime]] ÷"
if {[botisop $chan] && [onchan $nick $chan]} {
putserv "KICK $chan $nick :/join /part tespit edildi.. muhtemelen flood saldırısı 1 dakika banlısınız. Iyı Chatler. IRC.XPSOHBET.COM EggDepartmani
}
}
}
proc clone_pro_leave {nick uhost handl chan {reason "Left channel"}} {
global cp_chans cp_jp_flood cp_btime cp_uh_count cp_notify
set uhost [string tolower $uhost]
set host [lindex [split $uhost @] 1]
set chan [string tolower $chan]
if {[lsearch -exact $cp_chans $chan] == -1} {return 0}
if {![info exists cp_uh_count($uhost:$chan)]} {
set cp_uh_count($uhost:$chan) 1
} else {
incr cp_uh_count($uhost:$chan)
}
utimer [lindex $cp_jp_flood 1] "cp_expire cp_uh_count($uhost:$chan)"
if {$cp_uh_count($uhost:$chan) >= [expr [lindex $cp_jp_flood 0]*2]} {
newchanban $chan *!*@$host ClonePro "CLONE tespit edildi.. muhtemelen flood saldırısı 1 dakika banlısınız. Iyı Chatler." $cp_btime
sendnote ClonePro $cp_notify "÷ banned *!*@$host (join/part flood) on $chan, [ctime [unixtime]] ÷"
if {[botisop $chan] && [onchan $nick $chan]} {
putserv "KICK $chan $nick :CLONE tespit edildi.. muhtemelen flood saldırısı 1 dakika banlısınız. Iyı Chatler."
}
}
}
proc cp_expire var_exp {
upvar $var_exp var_pointer

if {$var_pointer > 1} {
incr var_pointer -1
} else {
unset var_pointer
}
}
　
putlog "÷ clonepro.tcl -v1.1 by Algol- ÷ Loaded ÷"
set cp_chans [string tolower $cp_chans]
set cp_j_flood [split $cp_j_flood :]
set cp_jp_flood [split $cp_jp_flood :]
　
# clear variables and timers on rehash
if {[array exists cp_host_count]} {unset cp_host_count}
if {[array exists cp_uh_count]} {unset cp_uh_count}
foreach check_utimer [utimers] {
if {[string match cp_*_count* [lindex $check_utimer 1]]} {
killutimer [lindex $check_utimer 2]
}
}

----------

badnick.tcl

PHP- Kodu:

   #--------------------------------------------------------------------------------------------------------------------#
# BAD NICK SCRIPT BY RANA USMAN #
#--------------------------------------------------------------------------------------------------------------------#
#Author : RANA USMAN
#Email : 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

#URL : 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">set bnick {
"*sik*" 
"*suck*"
"*tharki*" 
"*sux*" 
"*sik*"
"*s2*"
"*yarak*"
"*penis*"
"*-----*"
"*amcik*"
"*sokar*"
"*suker*"
"*------*"
"*sokucu*"
"*1*cm*"
"*2*cm*"
"amc?k"
"anan?n"
"am?na"
"-------"
"becer?r?m"
"becerme"
"belan?"
"s2er"
"s2c?"
"*Ytl*"
"*kont?r*"
"*kalkt?*"
"*indir*"
"sokarim"
"sıkerım"
"sokarım"
"*buyuk*"
"*büy?k*"
"*b?yük*"
"*msn*"
"*kar?n?"
"*anan?*"
"*karde??n?*"
"*bac?n?*"
"*ablan?*"
"*penis*"
"*fuck*" 
"*bitch*" 
"*asshole*" 
"*kontor*"
"*kontör*" 
"*yarak*"
"*similya*" 
"*ke?ase*" 
"*ytl*"
"*1*cm*" 
"*2*cm*" 
"*siker*" 
"*sokar*" 
"*s2*" 
"vagina" 
"*-----*" 
"*am*aran?yor*" 
"*escort*" 
"c1b41" 
"*jigolo*" 
"*gigolo*"
"top"
"anjing"
"4nj1ng"
"4njing"
"anj1ng"
"bangsat"
"b4ngs4t"
"b4ngsat"
"bangs4t"
"pantek"
"panteks"
"nenen"
"cibe"
"fukk"
"fuk"
"cip3t"
"cipet"
"c1p3t"
"c1tut"
"citut"
"lonte"
"nonok"
"l0nt3"
"lont3"
"l0nte"
"n0nok"
"n0n0k"
"non0k"
}
#########################################################################################################
## SET The channel on which you want this script to work ##
## Channels Separted by space...and if you want this script to work on all channels leave it as "" ##
#########################################################################################################
set bchan ""
################
#- Set Reason -#
################
set kickreason "4Bad Nick --5Lütfen Küfürlü/cinsel ve msn içerikli Nickler Kullanmayınız..7/nick yeninick 5komutu ile nick değiştirip tekrar giriniz!--"
&#12288;
#--------------------------------------------------------------------------------------------------------------------#
# SCRIPT STARTS FROM HERE...MAKE IT BETTER WITH YOUR SKILLS IF YOU CAN.I DONT RESTRICT YOU TO NOT TO TOUCH CODE! #
#--------------------------------------------------------------------------------------------------------------------#
&#12288;
bind join - * join:RanaUsman
proc join:RanaUsman {nick uhost hand chan} {
global bnick bchan kickreason temp
if {(([lsearch -exact [string tolower $bchan] [string tolower $chan]] != -1) || ($bchan == ""))} {
set temp 0
foreach i [string tolower $bnick] {
if {[string match *$i* [string tolower $nick]]} {
set temp 1
}
}
}
if {!$temp} { return } {
putquick "SAJOIN $nick #Cinsellik"
putquick "MODE $chan +b $nick"
putquick "KICK $chan $nick :$kickreason"
} 
}
putlog "=-\002 LOADED BAD NICK BY RANA USMAN (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #FF8000">#Author : RANA USMAN

----------

badnick2.tcl

PHP- Kodu:

   ## Badnick scans 
set badnicks { 
"penis" 
"fuck" 
"bitch" 
"asshole" 
"kontol" 
"contol" 
"pepek" 
"vevek" 
"ngentot" 
"kentot" 
"jembut" 
"zembut" 
"pantat" 
"totong" 
"tetek" 
"vagina" 
"pukimak" 
"bujanginam" 
"cibai" 
"c1b41" 
"lanciau" 
"gigolo" 
"peler" 
"anjing" 
"4nj1ng" 
"4njing" 
"anj1ng" 
"bangsat" 
"b4ngs4t" 
"b4ngsat" 
"bangs4t" 
"pantek" 
"panteks" 
"nenen" 
"cibe" 
"fukk" 
"fuk" 
"pler" 
"plerr" 
"pller" 
"p3l3r" 
"sik" 
"cipet" 
"c1p3t" 
"c1tut" 
"citut" 
"pipi"
"amcik"
"ananin"
"amina"
"*******"
"beceririm"
"becerme"
"belani"
} 
&#12288;
## ---------------------------------------------------------------- 
## --- Buradan Aşagısını Ellemeyin. --- 
## ---------------------------------------------------------------- 
###################################################################### 
##-------------------------------------------------------------------- 
##--- F O R --- P R O T E C T I O N --- CHANNEL ---- 
##-------------------------------------------------------------------- 
###################################################################### 
set arg.v "Change Badnick protection IRCTURK.ORG" 
bind nick - * Detected_changebad 
proc Detected_changebad {nick uhost hand chan newnick} { 
global badnicks botnick 
if {(![matchattr $hand b]) && ($nick != $botnick)} { 
foreach badchange [string tolower $badnicks] { 
if {[string match *$badchange* [string tolower $newnick]]} { 
set banmask "*!*[string range $uhost [string first "@" $uhost] end]" 
putserv "MODE $chan +b $banmask" 
putserv "KICK $chan $newnick :Lütfen Kötü Nickler Kullanmayınız." 
putserv "sajoin $nick #Cinsellik" 
return 0 
} 
} 
} 
} 
## ----------------------------------------------------------------------- 
putlog "-=-= Kötü Nick Koruma =-=-=-=-=-" 
putlog "Kötü Nick Koruma 1.1:" 
putlog "${arg.v} Yükleme Tamamlandı" 
##------------------------------------------------------------------------ 
## *** E N D OF ChangeBadnick1.0.TCL *** 
## -----------------------------------------------------------------------
&#12288;

----------

bilgi.tcl
özeline yazılan mesajı belirlenen kanala yansıtır.

PHP- Kodu:

   bind msgm - * start
proc start {nick uhost handle text} {
putquick "PRIVMSG #log \00304Özel Mesaj >>\003 \00303Nick:\003 $nick \00303Yazdığı Mesaj:\003 $text"
}

----------

bansil.tcl

!bansil
(zline,kline v.s banları kaldırır.)

PHP- Kodu:

   set admin_chan "#opers"
bind pub - !bansil ban:kaldirma
proc ban:kaldirma { n u h c a } {
global admin_chan
if {[onchan $n $admin_chan]==1} {
set komut "[string tolower [lindex $a 0]]"
if {$komut==""} {
putquick "PRIVMSG $c : ________________________________________________________"
putquick "PRIVMSG $c :| \00305 Banları kaldırmak için kullanabileceğiniz komutlar 003 |"
putquick "PRIVMSG $c :|______________________________________________________|"
putquick "PRIVMSG $c :\002\00302!bansil g :\002\00307 Bütün gline'ları açar."
putquick "PRIVMSG $c :\002\00302!bansil gz:\002\00307 Bütün gzline'ları açar."
putquick "PRIVMSG $c :\002\00302!bansil k :\002\00307 Bütün kline'ları açar."
putquick "PRIVMSG $c :\002\00302!bansil z :\002\00307 Bütün zline'ları açar."
putquick "PRIVMSG $c :\002\00302!bansil s :\002\00307 Bütün shun'ları açar."
putquick "PRIVMSG $c :\002\00302!bansil banlar :\002\00307 Bütün banları açar."
return 0
} elseif {$komut=="g"} {
putquick "PRIVMSG $c :\00312Bütün glinelar açılıyor."
putquick "STATS g"
return 0
} elseif {$komut=="k"} {
putquick "PRIVMSG $c :\00312Bütün klinelar açılıyor."
putquick "STATS k"
return 0
} elseif {$komut=="gz"} {
putquick "PRIVMSG $c :\00312Bütün gzlinelar açılıyor."
putquick "STATS g"
return 0
} elseif {$komut=="s"} {
putquick "PRIVMSG $c :\00312Bütün shunlar açılıyor."
putquick "STATS s"
return 0
} elseif {$komut=="z"} {
putquick "PRIVMSG $c :\00312Bütün zlinelar açılıyor."
putquick "STATS k"
return 0
} elseif {$komut=="banlar"} {
putquick "PRIVMSG $c :\00312Bütün banlar açılıyor."
putquick "STATS g"
putquick "STATS k"
putquick "STATS s"
return 0
} else {
putquick "PRIVMSG $c :\00304Bilinmeyen komut! \00301Ban silme komutlarını görmek için \002!Bansil \002yazınız."
}
return 0
}
if {[onchan $n $admin_chan]==0} {
putquick "NOTICE $n :Bu komutu kullanmaya yetkiniz yok!"
}
}
bind raw - 223 serverban_listesi
proc serverban_listesi {from keyword arg} {
set bz [lindex [split $arg] 1]
set ip [lindex [split $arg] 2]
if {$bz == "Z"} {
putquick "GZLINE -$ip"
}
if {$bz == "z"} {
putquick "ZLINE -$ip"
}
if {$bz == "G"} {
putquick "GLINE -$ip"
}
if {$bz == "s"} {
putquick "SHUN -$ip"
}
if {$bz == "K"} {
putquick "KLINE -$ip"
} else { 
return 0
}
}

----------

girsin.tcl

!join #kanal
!part #kanal

PHP- Kodu:

   #### admin kanali#####
set ops_chan "#Master"
bind pub - !join bot1
bind pub - !part bot2
proc bot1 {nick uhost handle chan text} {
global ops_chan
if {[isop $nick $chan] || [onchan $nick $ops_chan]==0} {
set kanal [lindex $text 0]
if {![validchan $kanal]} {
channel add $kanal { +nodesynch flood-chan 10:2 }
}
putserv "PRIVMSG $ops_chan : bot $kanal kanalina sokuldu $nick"
return 1
}
return 1
}
proc bot2 {nick uhost handle chan text} {
global ops_chan
if {$nick != "part"} {return 0}
if {[isop $nick $chan] || [onchan $nick $ops_chan]==0} {
set kanal [lindex $text 0]
if {[validchan $kanal]} {
channel remove $kanal
}
putserv "PRIVMSG $ops_chan : bot $kanal kanalindan cikarildi $nick"
return 1
}
return 1
}

----------

yeter herhalde bunlar vardı bende al senin olsun :)
kolay gelsin...

Cevap: Eggdrop Bot Lazım

Sanırım bu dediklerin ScanX te mevcut istersen indirebilirsin.

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

Cevap: Eggdrop Bot Lazım

ScanX Çok Ağırmış herkes Makinada Sorun yaratığını Bahsetti Bazı Tcleri ALdım Teşekkür Ederim Arkadaşlar

Cevap: Eggdrop Bot Lazım

Kusura bakmayın konuyu hortlatmak istemezdim ama bunu nasıl eklicez servera acaba ?

Kod:

badnick.tcl
 
 

PHP- Kodu:
  #--------------------------------------------------------------------------------------------------------------------#

# BAD NICK SCRIPT BY RANA USMAN #

#--------------------------------------------------------------------------------------------------------------------#

#Author : RANA USMAN

#Email : coolguy_rusman@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].com

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

#Version : 1.2

#Catch me on UNDERNET @ #VASTEYE my nick is ^Rana^Usman

###################

# Version History #

###################

#The version before was not supporting Wildcards like ** ?? etc etc

#So now in this version you can use wild cards too

###########################

#- CONFIGURATION SECTION -#

###########################

########################################################################################

#- Enter the Bad nicks Below on which you want your bot to BAN (Wild Cards Supported)-#

########################################################################################
 set bnick {
 "*sik*" 

"*suck*"

"*tharki*" 

"*sux*" 

"*sik*"

"*s2*"

"*yarak*"

"*penis*"

"*-----*"

"*amcik*"

"*sokar*"

"*suker*"

"*------*"

"*sokucu*"

"*1*cm*"

"*2*cm*"

"amc?k"

"anan?n"

"am?na"

"-------"

"becer?r?m"

"becerme"

"belan?"

"s2er"

"s2c?"

"*Ytl*"

"*kont?r*"

"*kalkt?*"

"*indir*"

"sokarim"

"sıkerım"

"sokarım"

"*buyuk*"

"*büy?k*"

"*b?yük*"

"*msn*"

"*kar?n?"

"*anan?*"

"*karde??n?*"

"*bac?n?*"

"*ablan?*"

"*penis*"

"*fuck*" 

"*bitch*" 

"*asshole*" 

"*kontor*"

"*kontör*" 

"*yarak*"

"*similya*" 

"*ke?ase*" 

"*ytl*"

"*1*cm*" 

"*2*cm*" 

"*siker*" 

"*sokar*" 

"*s2*" 

"vagina" 

"*-----*" 

"*am*aran?yor*" 

"*escort*" 

"c1b41" 

"*jigolo*" 

"*gigolo*"

"top"

"anjing"

"4nj1ng"

"4njing"

"anj1ng"

"bangsat"

"b4ngs4t"

"b4ngsat"

"bangs4t"

"pantek"

"panteks"

"nenen"

"cibe"

"fukk"

"fuk"

"cip3t"

"cipet"

"c1p3t"

"c1tut"

"citut"

"lonte"

"nonok"

"l0nt3"

"lont3"

"l0nte"

"n0nok"

"n0n0k"

"non0k"
 }
 #########################################################################################################

## SET The channel on which you want this script to work ##

## Channels Separted by space...and if you want this script to work on all channels leave it as "" ##

#########################################################################################################
 set bchan ""
 ################

#- Set Reason -#

################
 set kickreason "4Bad Nick --5Lütfen Küfürlü/cinsel ve msn içerikli Nickler Kullanmayınız..7/nick yeninick 5komutu ile nick değiştirip tekrar giriniz!--"
 &#12288;

#--------------------------------------------------------------------------------------------------------------------#

# SCRIPT STARTS FROM HERE...MAKE IT BETTER WITH YOUR SKILLS IF YOU CAN.I DONT RESTRICT YOU TO NOT TO TOUCH CODE! #

#--------------------------------------------------------------------------------------------------------------------#
 &#12288;
 bind join - * join:RanaUsman

proc join:RanaUsman {nick uhost hand chan} {

global bnick bchan kickreason temp
 if {(([lsearch -exact [string tolower $bchan] [string tolower $chan]] != -1) || ($bchan == ""))} {
 set temp 0
 foreach i [string tolower $bnick] {

if {[string match *$i* [string tolower $nick]]} {
 set temp 1
 }

}

}

if {!$temp} { return } {
 putquick "SAJOIN $nick #Cinsellik"
 putquick "MODE $chan +b $nick"
 putquick "KICK $chan $nick :$kickreason"
 } 

}
 putlog "=-\002 LOADED BAD NICK BY RANA USMAN ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] -="
 #Author : RANA USMAN

Cevap: Eggdrop Bot Lazım

eggdrop botunuza nasıl yükleneceğiyle ilgili makaleler bölümünde bir konu var -> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bu yardımcı olabilir.

Cevap: Eggdrop Bot Lazım

Bota bir conf yazıp ekledim çalıştırdım operini de giriyor. Ancak sadece kanaldan banlıyor cinsellik ve .ex kanallarına useri çekmiyor. bunu nasıl düzeltebiliriz ?

Cevap: Eggdrop Bot Lazım

putquick "sajoin $nick #kanal" birden fazla kanal için bunun altına ayrı bir satır olarak ekleyin sajoin'lenecek ikinci kanal adını ve kanal adını olduğu gibi yani büyük küçük harf uyumuna dikkat ederek yazmayı deneyin.

putquick "sajoin $nick #kanal"
putquick "sajoin $nick #KanaL2"
.... vs gibi...oper giriyorsa bunun dışında bu komutu uygulatamaması gibi bi sorun olmamalı.

Cevap: Eggdrop Bot Lazım

Alıntı:

saywhat Nickli Üyeden Alıntı (Mesaj 1041269734)

dediğin gibi yapmıştım zaten ama işte yinede çekmiyor adamı.

Cevap: Eggdrop Bot Lazım

zorla kanala alınıyor mu bunla kullanıcı.oper komutları kullanamıyorsa bunun bi nedeni olmalı oper girdiğinden emin misiniz yoksa o sajoin $nick #kanal çalışmaması kodla alakalı bir sorun olamaz.kodda sorun olsa kanal banı vs de uygulamazdı.

putquick "operserv raw svsjoin $nick #kanal"

böyle değişin o satırı...değişikliklerde .rehash yada .restart etmeyi unutmayın. kanal üstünden /msg botunuz rehash şifreniz
yada telnet/dcc bağlantısındaysa sadece .rehash yada .restart

bota telnet/dcc ile bağlı kalın.kullanıcıyı sajoin yaptırmaya çalıştığında botun sunucudan aldığı gördüğü mesaj ne ise telnet/dcc üzerinden görünecektir.örnek oper yetkisi yokken uygulasa operserv buna erişiminiz yok diyecek bu telnet/dcc üzerinden gözükecek yanlış komutsa tanınmadı diyecek vs..

Kod:

bind raw - "001" operbot

proc operbot { from keyword text } {

 global botnick

putquick "nickserv identify şifre"

putquick "oper $botnick operşifresi"

}

yada .conf'a

Kod:

proc evnt:init_server {type} {

   global botnick

   putquick "nickserv identify botun-nick-sifresi"

   putquick "oper $botnick operşifresi"

   putquick "MODE $botnick +i-ws" #botun almasını istediğiniz nick modlarını yazın.

 }

telnet ile bağlantı kurmak için botunuzun .conf dosyasındaki set my-ip "xxxx" yada set my-vhost "xxxx" yazan satırdaki ip yada hostu ve listen xxxx all satırında yazan telnet portunu kullanıyorsunuz.windows 7 yada 8 kullanıyorsanız telnet default olarak kullanımda değildir.saat imgesinin yanından yada başlat menüsünden :
action center/control panel(denetim masası)/programs and features(programlar ve özellikleri)/ sol tarafta "turn Windows features on or off(Windows program özelliklerini aç yada kapat)" tıklayıp açılan pencereden telnet client programcığını seçip aktif hale getiriyorsunuz.başlat/çalıştır start/run'da telnet yazıp açabilir yada programlar içinde bulup açabilirsiniz.
bağlanmak için :

o botun-ip/hostu telnet-portu
set my-ip "12.12.12.12" ise
listen 12345 all ise

o 12.12.12.12 12345 komutuyla bota bağlanmayı dener ,bağlantı sağlandığında login-name-handle sorar bu .conf'ta ekli set my-owner ve set my-admin satırlarında giridiğinizdir.
şifrenizde botu ilk çalıştırıp kanala soktuktan /msg botunuz hello ve sonra /msg botnick pass şifreniz* burda yazan şifrenizi telnet login olurken kullanacaksınız.
botun arayüzüne böylece bağlanabilmiş olursunuz.

Cevap: Eggdrop Bot Lazım

Böyle Yaptım ama Olmadı Lütfen Yardımcı Olurmusunuz :

badnick.conf

Kod:

###### Bilgi Satiri #####

set mod-path "modules/"

set help-path "help/"

set text-path "text/"

loadmodule dns

loadmodule channels

loadmodule server

loadmodule ctcp

loadmodule irc

loadmodule notes

loadmodule console

checkmodule blowfish

##### Bilgi Satiri #####

##### Bot bilgileri #####

set nick "Bad-Nick"

set realname "2Bad-Nick Çekici"

#Bu opsiyonel su an kapalidir. Eger botunuz herhangi bir nedenden oturu size ctcp acmiyorsa

#Bu satira botun barindirilmis oldugu host'un ip adresini yazmaniz yeterli olacaktir.

#set my-ip "109.235.253.150"

set init-server {

putserv "oper Bad-Nick 123456"

putserv "PRIVMSG nickserv identify 123456"

}

set servers { 109.235.253.150:6667 }

channel add "#diyalog" { chanmode "lik" idle-kick 0 stopnethack-mode 0 }

channel add "#sohbet" { chanmode "lik" idle-kick 0 stopnethack-mode 0 }

channel add "#radyo" { chanmode "lik" idle-kick 0 stopnethack-mode 0 }

channel add "#yarisma" { chanmode "lik" idle-kick 0 stopnethack-mode 0 }

channel add "#oyun" { chanmode "lik" idle-kick 0 stopnethack-mode 0 }

channel add "#islam" { chanmode "lik" idle-kick 0 stopnethack-mode 0 }

channel add "#kelime" { chanmode "lik" idle-kick 0 stopnethack-mode 0 }

set net-type 5

set owner Admin

##### Dosyalar ve Dizinler #####

##### Bilgi Satiri #####

set userfile "bots.user"

set chanfile "bots.chan"

set temp-path "/tmp"

logfile msbxco * "logs/bots.log"

logfile jpk #bad-nick "logs/#bad-nick.log"

set console "mkcobxs"

##### SCRIPTLER #####

source scripts/userinfo.tcl

source scripts/badnick.tcl

loadhelp userinfo.help

# EndOf

badnick.tcl

Kod:

set bnick {

"*sik*" 

"*suck*"

"*tharki*" 

"*sux*" 

"*sik*"

"*s2*"

"*yarak*"

"*penis*"

"*-----*"

"*amcik*"

"*sokar*"

"*suker*"

"*------*"

"*sokucu*"

"*1*cm*"

"*2*cm*"

"amc?k"

"anan?n"

"am?na"

"-------"

"becer?r?m"

"becerme"

"belan?"

"s2er"

"s2c?"

"*Ytl*"

"*kont?r*"

"*kalkt?*"

"*indir*"

"sokarim"

"sıkerım"

"sokarım"

"*buyuk*"

"*büy?k*"

"*b?yük*"

"*msn*"

"*kar?n?"

"*anan?*"

"*karde??n?*"

"*bac?n?*"

"*ablan?*"

"*penis*"

"*fuck*" 

"*bitch*" 

"*asshole*" 

"*kontor*"

"*kontör*" 

"*yarak*"

"*similya*" 

"*ke?ase*" 

"*ytl*"

"*1*cm*" 

"*2*cm*" 

"*siker*" 

"*sokar*" 

"*s2*" 

"vagina" 

"*-----*" 

"*am*aran?yor*" 

"*escort*" 

"c1b41" 

"*jigolo*" 

"*gigolo*"

"top"

"anjing"

"4nj1ng"

"4njing"

"anj1ng"

"bangsat"

"b4ngs4t"

"b4ngsat"

"bangs4t"

"pantek"

"panteks"

"nenen"

"cibe"

"fukk"

"fuk"

"cip3t"

"cipet"

"c1p3t"

"c1tut"

"citut"

"lonte"

"nonok"

"l0nt3"

"lont3"

"l0nte"

"n0nok"

"n0n0k"

"non0k"

"***"

"s2ci"

"jigolo"

"jigo"

}

#########################################################################################################

set bchan "#sohbet #diyalog #radyo #yarisma #kelime #oyun #islam"

################

#- Set Reason -#

################

set kickreason "4Bad Nick 5Lütfen Küfürlü/cinsel ve msn içerikli Nickler Kullanmayınız..7/nick yeninick 5komutu ile nick değiştirip tekrar giriniz!--"

#--------------------------------------------------------------------------------------------------------------------#

# SCRIPT STARTS FROM HERE...MAKE IT BETTER WITH YOUR SKILLS IF YOU CAN.I DONT RESTRICT YOU TO NOT TO TOUCH CODE! #

#--------------------------------------------------------------------------------------------------------------------#

bind join - * join:Bad-Nick

proc join:Bad-Nick {nick uhost hand chan} {

global bnick bchan kickreason temp

if {(([lsearch -exact [string tolower $bchan] [string tolower $chan]] != -1) || ($bchan == ""))} {

set temp 0

foreach i [string tolower $bnick] {

if {[string match *$i* [string tolower $nick]]} {

set temp 1

}

}

}

if {!$temp} { return } {

putquick "operserv raw svsjoin $nick #***"

putquick "operserv raw svsjoin $nick #cinsellik"

putquick "MODE $chan +b $nick"

putquick "KICK $chan $nick :$kickreason" 

}

}

Cevap: Eggdrop Bot Lazım

Badnick TCL

PHP- Kodu:

      set bnick {
"fuck" 
"*suck*"
"*tharki*" 
"*sux*" 
"*sik*"
"*s2*"
"*yarak*"
"*penis*"
"*-----*"
"*amcik*"
"*sokar*"
"*suker*"
"*------*"
"*sokucu*"
"*1*cm*"
"*2*cm*"
"amc?k"
"anan?n"
"am?na"
"sikerim"
"becer?r?m"
"becerme"
"belan?"
"s2er"
"s2c?"
"*Ytl*"
"*kont?r*"
"*kalkt?*"
"*indir*"
"sokarim"
"sıkerım"
"sokarım"
"*buyuk*"
"*büy?k*"
"*b?yük*"
"*msn*"
"*kar?n?"
"*anan?*"
"*karde??n?*"
"*bac?n?*"
"*ablan?*"
"*penis*"
"*fuck*" 
"*bitch*" 
"*asshole*" 
"*kontor*"
"*kontör*" 
"*yarak*"
"*similya*" 
"*ke?ase*" 
"*ytl*"
"*1*cm*" 
"*2*cm*" 
"*siker*" 
"*sokar*" 
"*s2*" 
"vagina" 
"*-----*" 
"*am*aran?yor*" 
"*escort*" 
"c1b41" 
"*jigolo*" 
"*gigolo*"
"top"
"anjing"
"4nj1ng"
"4njing"
"anj1ng"
"bangsat"
"b4ngs4t"
"b4ngsat"
"bangs4t"
"pantek"
"panteks"
"nenen"
"cibe"
"fukk"
"fuk"
"cip3t"
"cipet"
"c1p3t"
"c1tut"
"citut"
"lonte"
"nonok"
"l0nt3"
"lont3"
"l0nte"
"n0nok"
"n0n0k"
"non0k"
}
 
set bchan ""
set kickreason "4Bad Nick --5Lütfen Küfürlü/cinsel ve msn içerikli Nickleri Global kanallarimizda Kullanmayınız..7/nick yeninick 5komutu ile nick değiştirip global kanallarimiza tekrar girebilirsiniz..--"
 
 
bind join - * join:badnick
proc join:badnick {nick uhost hand chan} {
global bnick bchan kickreason temp
if {(([lsearch -exact [string tolower $bchan] [string tolower $chan]] != -1) || ($bchan == ""))} {
set temp 0
foreach i [string tolower $bnick] {
if {[string match *$i* [string tolower $nick]]} {
set temp 1
}
}
}
if {!$temp} { return } {
putquick "SAJOIN $nick #cinsellik"
putquick "SAJOIN $nick #***"
putquick "MODE $chan +b $nick"
putquick "KICK $chan $nick :$kickreason"
} 
}

Cevap: Eggdrop Bot Lazım

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bu kullandığınız .conf ise ki sanırım öyle gerçekten kötü bir .conf olmuş.çok eksik ve ciddi sorunlar-hatalar var.neden sajoinlemediğide .conf'tan belli nickini identify edemiyormuş ki oper girsin.
biraz zaman ayırın ve şu altta verdiğim .conf'u editlerseniz çok daha hayırlı olacak.

Kod:

#! /home/kullanici/botumuz 

# modül,yardim dosyalari,ve text belgelerinin bulundugu yerler

set mod-path "modules/" 

set help-path "help/" 

set text-path "text/" 

#yuklenecek moduller

loadmodule dns 

loadmodule channels 

loadmodule server 

loadmodule ctcp 

loadmodule irc 

loadmodule notes 

loadmodule console

# yukardaki moduller olmazsa olmazdir hepsi yuklenmeli. 

#loadmodule filesys

#loadmodule share 

#loadmodule transfer

# yukardaki iki modul dosya paylasimi ve botnet paylasimi

# icin kullanmiyacaksaniz yuklenmesin.gerekli degil.

checkmodule blowfish

 

# dns modulu ayari kullanmak istedigimiz dns sunucu adresleri

# bu ayar cannot resolve dns ... blabla hatasini giderecektir.

set dns-servers "8.8.8.8 8.8.4.4" 

# bot icin nick bilgileri 

set nick "botun-nicki"

set username "botun kullanici-adi/identi" 

#botnet/telnet/dcc baglantisinda botun görünecegi adi

set botnet-nick "botnet-nicki"

# sunucuya baglandiginda bot nickinin alacagi nick modlari

proc evnt:init_server {type} {

   global botnick

   putquick "oper $botnick operşifresi"

   putquick "MODE $botnick +i-ws"

   putquick "nickserv identify botun-nick-sifresi"

 }

 

# bot iicin ikinci bir nick belirtin

set altnick "botun alternatif nicki" 

# botun real-namei ne olacak

set realname "bot icin name ayarlayin" 

# botun baglanmasini istediginiz sunuculari altta belirtin

set servers { 

  irc.bnmsunucum.net:portu

  irc.bnmdigersunucum.org:portu

}

 

# bot özellikleri icin belli basli birkac ayar

bind dcc n tcl *dcc:tcl

bind dcc n set *dcc:set

bind msg - ident *msg:ident

bind msg - addhost *msg:addhost

# bota yeni kullanici? eklendiginde sahipe bilgi verilsin mi

set notify-newusers "$owner"

unbind dcc n simul *dcc:simul

set max-socks 100

set trigger-on-ignore 0

# botun algilayabilecegi maksimum nick uzunlugu kac olmali

set nick-len 15

set ctcp-mode 0

set bounce-bans 0

set bounce-modes 0

# en fazla kac ban botta tutulsun

set max-bans 60

# kullanicilari oto ögrensin mi

set learn-users 0

# telnet dcc ayarlari (çogunlukla telnet güvenligi ile ilgili)

set protect-telnet 0

set dcc-sanitycheck 0

set share-unlinks 1

set open-telnets 0

set stealth-telnets 0

set use-telnet-banner 0

set connect-timeout 15

set resolve-timeout 9

# kullanici ignore ekleme süresi

set ignore-time 0

set default-flags "hp"

set allow-resync 1

# botun ilk girecegi statik kanal olacak kanali girin

channel add #kanaliniz

# botun girecegi tum kanallar üzerindeki ayarlari ne olmali?

# kanal flood ayarlari ( tekrar-sayısı:saniyede )

# örnek 5:60 ayarı 60 saniyede 5 kez olayın olmasını işaret eder.

set global-flood-chan 0:0 

set global-flood-deop 0:0 

set global-flood-kick 0:0 

set global-flood-join 0:0 

set global-flood-ctcp 0:0 

set global-flood-nick 0:0 

# kanal icin davet, ban süresi, kabul süresi vs vs ayarlari

set global-aop-delay 5:30

# kanalda idle olani kicklesinmi

set global-idle-kick 0

# kanal modlari ne olarak korunsun

set global-chanmode "nt"

set global-stopnethack-mode 0

set global-revenge-mode 0

#ban atma seklini belirler

#   asagidaki ban sekillerinden birini secebilirsiniz:

#     0 *!user@host

#     1 *!*user@host

#     2 *!*@host

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

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

#     5 nick!user@host

#     6 nick!*user@host

#     7 nick!*@host

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

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

set global-ban-type 3

# şu kadar dakika sonra bani kaldirir. 0 derseniz kaldirmaz

set global-ban-time 120

set global-exempt-time 60

set global-invite-time 60

# botun girecegi tum kanallar üzerindeki ayarlari ne olmali?

set global-chanset { 

-enforcebans 

-dynamicbans -userbans 

-dynamicexempts -userexempts 

-dynamicinvites -userinvites 

-autoop -autohalfop -autovoice 

-bitch -protectops -protecthalfops

-protectfriends -revenge -revengebot 

-dontkickops 

-greet -statuslog 

-secret +shared 

-cycle -inactive 

+seen 

+nodesynch 

} 

# botu baglayacaginiz sunucu tipinizi secin 

# [0/1/2/3/4/5] asagidakilerden biri degilse 5 yani diger secilmeli 

# 0 = Efnet (non +e/+I hybrid), 1 = IRCnet, 2 = Undernet, 3 = Dalnet, 

# 4 = Efnet +e/+I hybrid, 5 = diger 

set net-type 5 

# log dosyalari için ayarlar. 

      set max-logs 5 

      set max-logsize 0 

      set quick-logs 0 

      set raw-log 0 

logfile jpk * logs/${username}.log 

      set log-time 1 

      set keep-all-logs 0 

      set logfile-suffix .%d%b%Y 

      set switch-logfiles-at 300 

      set quiet-save 1 

 

# Eggdrop telnet/dcc/botnet baglantisi için port belirleyin.(olmazsa olmaz) 

listen 3333 all

# zaman dilimi ayarlari 

set timezone "EST"

set offset "-3"

set env(TZ) "$timezone$offset"

 

# nick korunsun mu ?

set keep-nick 1

set my-vhost "varsa vhost ayarlayin,yoksa satiri silebilirsin"

set my-ip "botun ip adresi"

# kullanici ayarlari

# botun admini sahibi kim olacak

set owner nickinizi-yazin

set admin nickinizi-yazin

# sahip olmali mi evetse 1 hayirsa 0

set must-be-owner 1

# sunucudaki op prefixleri nelerdir ?

set opchars "@&~"

# dil dosyasi (language klasörü içindeki dil seçeneklerinden biri olmali )

addlang "english" 

 

# dizinler ve dosyalar

# sistem klasörü olusturuyoruz 

      if {![file isdirectory system]} { 

        file mkdir system 

      } 

# pid ,kullanici ve bot kanal dosyalari olusturuluyor.(sistem klasörü içine)

         set pidfile  system/pid.${username} 

         set userfile system/${username}.user 

   set chanfile system/${username}.chan 

# oidentd.conf olu?turulacak ve identd bilgisi sunucuya gönderilecek 

# alttaki set ident satirina tirnaklar içine dilediginiz identi yazin

set ident "bot-ident" 

bind evnt -|- connect-server evnt:connect_server 

proc evnt:connect_server { type } { 

    global ident

    global nick

    set file [open ~/.oidentd.conf "w"] 

    puts $file "global { reply \"$ident\" }" 

    close $file 

} 

 

# kullanici konsol flaglari 

set console "mkcobxs" 

 

##### SCRIPTS ##### 

# bunlardan bazıları kurulumla gelen ve ihtiyaç duyulan scriptlerdir . 

# yüklenmeleri yararınıza olur.

source scripts/dccwhois.tcl

source scripts/getops.tcl

source scripts/alltools.tcl

source scripts/cmd_resolve.tcl

source scripts/notes2.tcl

source scripts/klined.tcl

source scripts/ques5.tcl

source scripts/quotepass.tcl

source scripts/quotepong.tcl

source scripts/sentinel.tcl

source scripts/userinfo.tcl

source scripts/action.fix.tcl 

source scripts/compat.tcl 

loadhelp userinfo.help

.

bu yeni .conf 'u eskisinin yerine bota gönderip botun dizininde oluşturulmuşsa eski pid ....user ve ...chan dosyalarını silin .bu .conf ile başlatıp kanala girince :

/msg botunuz hello ardından /msg botunuz pass şifreniz ile kendinizi tanıtın.set my-ip yada set my-vhost ikisinden birini mutlaka ama mutlaka girmelisiniz.ve telnet portunu mutlaka girmelisiniz my owner my admin mutlaka girilmeli hemen her ayar için üstüne kısa açıklama ekledim.mutlaka okuyup tam doldurunuz .bu sizin yararınıza

.conf dosyasına botun gireceği tüm kanalları illa tek tek elle girmenizede gerek yok tek kanal girin.diğerlerine telnet üzerinden komutla .+chan #kanalınız komutuyla sokabilirsiniz.kanal için ayarlarıda bot telnet/dcc iletişimi üzerinde .chanset #kanalınız +/-ayarınız ile yapabilirsiniz.

Kod:

bind pub m|n !gir gir:knl

bind pun m|n !cik cik:knl

 

proc gir:knl { nick host hand chan arg } {

    if {$arg == ""} {

    putserv "notice $nick :hatalı kullanım: !gir #kanal-adı."

   return

   } else {

   channel add [lindex [split $arg] 0]

    putserv "notice $nick :tamamdır."

    }

}

 

proc cik:knl { nick host hand chan arg } {

    if {$arg == ""} { 

    channel remove $chan 

    } elseif {![validchan [lindex [split $arg] 0]]} {

     putserv "notice $nick :hata $arg bilinmiyor."

    return

    } else {

    channel remove [lindex [split $arg] 0]

    putserv "notice $nick :tamamdır."

    }

}

bu koduda bişey.tcl olarak kaydedip botun scripts dizinine atıp .conf'a scriptlerin gösterildiği satırlara source scripts/bişey.tcl olarak kayıt ederseniz.botun sahibi admini olarak bota !gir #kanal !cik kanal komutu kanal-irc üstünden verip istediğiniz kanala sokup çıkarırsınız. bu .conf'u kim verdi bilmiyorum ama gerçekten kötü bi .conf

Cevap: Eggdrop Bot Lazım

Alıntı:

saywhat Nickli Üyeden Alıntı (Mesaj 1041270024)

Bot nickinide ident edebiliyor, operini de girebiliyor orada bir sorun yok. Adamı kanallardan global kanallardan banlıyor ama .ex ve cinsellik kanallarına çekemiyor tek sorun bu.

Cevap: Eggdrop Bot Lazım

.conf'unuzda bir telnet portu dahi yok.set my-ip satırı etkisiz kılınmış.set admin satırı yok.diğer ayarlardan bahsetmiyorum dahi.bunlar sadece en önemli olanları....bota bu haliyle nasıl bağlanıp komutlarına tam erişim sağlayacaksınız? yapamazsınız.bunu yapmadanda "soruna" çözüm bulamayacaksınız.günlerce burda şunu yap bunu yapında desek boşa...

belliki size yardımım dokunamayacak ..ben konudan çekiliyorum.başka arkadaşlar size yardımcı olur...

Cevap: Eggdrop Bot Lazım

Alıntı:

Xpyhre Nickli Üyeden Alıntı (Mesaj 1041269875)

Badnick TCL

PHP- Kodu:

      set bnick {
"fuck" 
"*suck*"
"*tharki*" 
"*sux*" 
"*sik*"
"*s2*"
"*yarak*"
"*penis*"
"*-----*"
"*amcik*"
"*sokar*"
"*suker*"
"*------*"
"*sokucu*"
"*1*cm*"
"*2*cm*"
"amc?k"
"anan?n"
"am?na"
"sikerim"
"becer?r?m"
"becerme"
"belan?"
"s2er"
"s2c?"
"*Ytl*"
"*kont?r*"
"*kalkt?*"
"*indir*"
"sokarim"
"sıkerım"
"sokarım"
"*buyuk*"
"*büy?k*"
"*b?yük*"
"*msn*"
"*kar?n?"
"*anan?*"
"*karde??n?*"
"*bac?n?*"
"*ablan?*"
"*penis*"
"*fuck*" 
"*bitch*" 
"*asshole*" 
"*kontor*"
"*kontör*" 
"*yarak*"
"*similya*" 
"*ke?ase*" 
"*ytl*"
"*1*cm*" 
"*2*cm*" 
"*siker*" 
"*sokar*" 
"*s2*" 
"vagina" 
"*-----*" 
"*am*aran?yor*" 
"*escort*" 
"c1b41" 
"*jigolo*" 
"*gigolo*"
"top"
"anjing"
"4nj1ng"
"4njing"
"anj1ng"
"bangsat"
"b4ngs4t"
"b4ngsat"
"bangs4t"
"pantek"
"panteks"
"nenen"
"cibe"
"fukk"
"fuk"
"cip3t"
"cipet"
"c1p3t"
"c1tut"
"citut"
"lonte"
"nonok"
"l0nt3"
"lont3"
"l0nte"
"n0nok"
"n0n0k"
"non0k"
}
 
set bchan ""
set kickreason "4Bad Nick --5Lütfen Küfürlü/cinsel ve msn içerikli Nickleri Global kanallarimizda Kullanmayınız..7/nick yeninick 5komutu ile nick değiştirip global kanallarimiza tekrar girebilirsiniz..--"
 
 
bind join - * join:badnick
proc join:badnick {nick uhost hand chan} {
global bnick bchan kickreason temp
if {(([lsearch -exact [string tolower $bchan] [string tolower $chan]] != -1) || ($bchan == ""))} {
set temp 0
foreach i [string tolower $bnick] {
if {[string match *$i* [string tolower $nick]]} {
set temp 1
}
}
}
if {!$temp} { return } {
putquick "SAJOIN $nick #cinsellik"
putquick "SAJOIN $nick #***"
putquick "MODE $chan +b $nick"
putquick "KICK $chan $nick :$kickreason"
} 
}

Senin editini yaptım bu sefer kanaldan banlama bile banlamadı adamı. Varmı yardımcı olabilecek başka biri ?