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)

Cevap: Eggdrop Bot Lazım

Alıntı:

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

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

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 ?