Moderatör Olmak İçin Tıklayın Editör Olmak İçin Tıklayın Forum Kuralları IF Görüntülü Röportajlar IF Helper Grubu
⚠️ Güvenlik nedeniyle tüm kullanıcı şifreleri sıfırlanmıştır. Lütfen buraya tıklayarak yeni şifre talep ediniz.
IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet odaları

>
+
 Kayıt ol
Etiketlenen Kullanıcılar

3Beğeni(ler)

Yeni Konu aç Cevapla
Sayfa 1 Toplam 2 Sayfadan 1 2
 
LinkBack Seçenekler Stil
Alt 21 Ağustos 2010, 23:57   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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 .

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet bizimmekan
Alt 22 Ağustos 2010, 00:57   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Eggdrop Bot Lazım



Nurullahoruc Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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 ,)

__________________
-
 
Alıntı ile Cevapla

Alt 22 Ağustos 2010, 14:08   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Eggdrop Bot Lazım



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

 
Alıntı ile Cevapla

Alt 10 Eylül 2010, 00:34   #4
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Eggdrop Bot Lazım



Spamekle.tcl
!spamekle / !spamsil

PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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 Kod:   Kodu kopyalamak için üzerine çift tıklayın!

##############
# 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 Kod:   Kodu kopyalamak için üzerine çift tıklayın!

#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 Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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 Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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 Kod:   Kodu kopyalamak için üzerine çift tıklayın!

# 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 Kod:   Kodu kopyalamak için üzerine çift tıklayın!

#--------------------------------------------------------------------------------------------------------------------#
# 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 Kod:   Kodu kopyalamak için üzerine çift tıklayın!

## 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 Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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 Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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 Kod:   Kodu kopyalamak için üzerine çift tıklayın!

#### 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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

kolay gelsin...

__________________
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Web Developer
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Web Developer
 
Alıntı ile Cevapla

Alt 10 Eylül 2010, 16:01   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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...]

 
Alıntı ile Cevapla

Alt 15 Eylül 2010, 19:48   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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

 
Alıntı ile Cevapla

Alt 14 Ocak 2013, 20:23   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Eggdrop Bot Lazım



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

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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


 
Alıntı ile Cevapla

Alt 14 Ocak 2013, 22:26   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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.

 
Alıntı ile Cevapla

Alt 15 Ocak 2013, 07:58   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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 ?

 
Alıntı ile Cevapla

Alt 15 Ocak 2013, 12:05   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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ı.

 
Alıntı ile Cevapla

Cevapla
Sayfa 1 Toplam 2 Sayfadan 1 2

Etiketler
bot, eggdrop, lazım

« önceki Konu | sonraki Konu »

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

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
sisecevir botu lazım eggdrop var mı? amonhutep Eggdrop, NeoStats, BNC 10 01 Aralık 2018 22:29
Kanal Geneli ve Özelden Konuşan Bot Eggdrop TCl si lazım Elinde olan varmi ? seths Eggdrop, NeoStats, BNC 27 18 Şubat 2011 22:51
eggdrop sunucu botu lazım arkadaşlar maxiumut Eggdrop, NeoStats, BNC 4 26 Ekim 2009 20:10
Acil Eggdrop Bot Lazım LeX_LuGeR Eggdrop, NeoStats, BNC 0 10 Ağustos 2009 22:59
eggdrop Services bot üzerine acil lazım OnTSeLiS TCL Scriptler 12 14 Mayıs 2009 23:08




Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı git
trsikayet.com ferizli haber kaynarca haber yavru köpek sohbet instagram takipçi sohbet teması Sesli Sohbet
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