Eggdrop Bot Lazım - Sayfa 2 - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

ScaNNeR · 15 Ocak 2013, 12:17

saywhat Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

saywhat · 15 Ocak 2013, 14:18

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

bind raw - "001" operbot
proc operbot { from keyword text } {
 global botnick
putquick "nickserv identify şifre"
putquick "oper $botnick operşifresi"
}

yada .conf'a

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

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.

ScaNNeR · 15 Ocak 2013, 19:00

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

badnick.conf

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

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

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

Xpyhre · 15 Ocak 2013, 19:36

Badnick TCL

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


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

saywhat · 16 Ocak 2013, 00:05

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

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

#     4 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

#     5 nick!user@host
#     6 nick!*user@host
#     7 nick!*@host
#     8 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

#     9 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

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

ScaNNeR · 16 Ocak 2013, 07:44

saywhat Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

@[Ü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.

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.

saywhat · 16 Ocak 2013, 07:53

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

ScaNNeR · 16 Ocak 2013, 11:09

Xpyhre Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Badnick TCL

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


   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 ?

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
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

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

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.