IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   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)

Nurullahoruc 21 Ağustos 2010 23:57
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 .

Entrance 22 Ağustos 2010 00:57
Cevap: Eggdrop Bot Lazım
 
Alıntı:
Nurullahoruc Nickli Üyeden Alıntı (Mesaj 1040490176)
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 .

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 ,)

Nurullahoruc 22 Ağustos 2010 14:08
Cevap: Eggdrop Bot Lazım
 
Forum O kadar karışmış artı bunları bir arada göremedim hepsini ondan dolayı bu konuyu açtım

AspavA 10 Eylül 2010 00:34
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
}
　
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
　
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"
　 
----------

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"
　
　 
----------

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!--"
　
#--------------------------------------------------------------------------------------------------------------------#
# 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: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"
} 
　
## ---------------------------------------------------------------- 
## --- 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 *** 
## -----------------------------------------------------------------------
　 


----------

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...

KnOuCK 10 Eylül 2010 16:01
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...]

Nurullahoruc 15 Eylül 2010 19:48
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

ScaNNeR 14 Ocak 2013 20:23
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!--"
　
#--------------------------------------------------------------------------------------------------------------------#
# 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: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 

saywhat 14 Ocak 2013 22:26
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.

ScaNNeR 15 Ocak 2013 07:58
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 ?

saywhat 15 Ocak 2013 12:05
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ı.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 10:48.
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk