KarşıLama TCL !

[BaRoN]

S.a ÖnceLikLe ;
Elimdeki bu tcl yi payLşamak istedim TCL nin özelliği şu ,
Belirlediğiniz bir kanalda duruo ve siz o kanala girince sizi özel olarak karşılıo umarım faydalı olabilmişimdir...


set opnick {
"BaRoN"
}

bind join - * baglanti2
proc baglanti2 {nick uhost hand chan } {
global opnick botnick
if {(![matchattr $hand b]) && ($nick != $botnick)} {
foreach opchange [string tolower $opnick] {
if {[string match *$opchange* [string tolower $nick]]} {
putserv "PRIVMSG $chan : GeceGezen Sohbet SunucuSunun Telnet SorumLusu $nick şu anda $chan kanalına giriş yaptı , Hoş Geldin.. "
return 0
}
}
}
}

[netkolik]

tsk. güzel paylasim.

[Dragon_ugur]

tam olarak tel neten yapmayı anlatırmısınız

[JaneR]

set username "bots"
set admin "JaneR <JaneR@kelebek.gen.tr>"
set network "IP-ADRESI"
set timezone "EST"
set offset "5"
set my-hostname "IP-ADRESI"
set my-ip "IP-ADRESI"

set max-logsize 0
set quick-logs 0
set log-time 1
set keep-all-logs 0
set switch-logfiles-at 300
set quiet-save 0
set console "mkcobxs"

set userfile "scripts/log/JaneR.user"
set sort-users 0
set help-path "help/"
set temp-path "/tmp"
set motd "motd"
set telnet-banner "telnet-banner"

#set botnet-nick "JaneR"
#listen 2872
set protect-telnet 0
set dcc-sanitycheck 0
set ident-timeout 5
set require-p 0
set open-telnets 0
set stealth-telnets 0
set use-telnet-banner 0
set connect-timeout 15
set dcc-flood-thr 3
set telnet-flood 5:60
set paranoid-telnet-flood 1
set resolve-timeout 15

#set firewall "proxy:178"
#set nat-ip "127.0.0.1"
#set reserved-port 9076
set ignore-time 0
set hourly-updates 00
set owner "JaneR"
set notify-newusers "$owner"
set default-flags "hp"
set whois-fields "url birthday"
set remote-boots 2
set share-unlinks 1
set die-on-sighup 0
set die-on-sigterm 0
unbind dcc n tcl *dcc:tcl
unbind dcc n set *dcc:set
set must-be-owner 0
unbind dcc n simul *dcc:simul
set max-dcc 50
set dcc-portrange 1024:65535
set enable-simul 1
set allow-dk-cmds 1

set mod-path "modules/"
loadmodule channels

set chanfile "scripts/log/JaneR.chan"
set ban-time 0
set exempt-time 60
set invite-time 60
# set force-expire 0
set share-greet 0
set use-info 1
set global-flood-chan 5:3
set global-flood-deop 5:10
set global-flood-kick 0:0
set global-flood-join 8:30
set global-flood-ctcp 8:30

set global-chanset {
+clearbans +enforcebans
+dynamicbans +userbans
+autoop -bitch
+greet +nodesynch
+statuslog -stopnethack
-revenge -secret
-autovoice +cycle
+dontkickops -wasoptest
-inactive +protectfriends
+shared -seen
+userexempts +dynamicexempts
+userinvites +dynamicinvites
}

channel add #kanal1 {
}

channel add #kanal2 {
}

set global-chanmode ""

loadmodule server
set net-type 0
set nick "Botnick"
set realname "Server.Com"
set init-server { putserv "PRIVMSG nickserv :identify şifre"
putserv "OPER Login pass" }

set servers {
IP-ADRESI:6667
}

set keep-nick 1
set use-ison 1

set strict-host 0

set quiet-reject 1
set lowercase-ctcp 0
set answer-ctcp 3
set flood-msg 0:0
set flood-ctcp 0:0

set never-give-up 1
set strict-servernames 0

set default-port 6667

set server-cycle-wait 30

set server-timeout 15

set servlimit 0
set check-stoned 1
set use-console-r 0
set debug-output 0
set serverror-quit 1
set max-queue-msg 300
set trigger-on-ignore 0
set double-mode 0
set double-server 0
set double-help 0

#set use-silence 1
#set check-mode-r 1
loadmodule ctcp
set ctcp-mode 0
loadmodule irc
set bounce-bans 1
set bounce-modes 0
set kick-bogus-bans 1
set bounce-bogus-bans 1
set max-bans 20
set max-modes 30
set allow-desync 0
set kick-bogus 0
set ban-bogus 0
set kick-fun 0
set ban-fun 0
set learn-users 0
set wait-split 600
set wait-info 180
set mode-buf-length 200
#unbind msg - janerlo *msg:janerlo
#bind msg - myword *msg:janerlo
unbind msg - ident *msg:ident
unbind msg - addhost *msg:addhost
#bind msg - myidentword *msg:ident
set no-chanrec-info 0

set revenge-mode 1

set bounce-exempts 0
set bounce-invites 0
set max-exempts 20
set max-invites 20
set bounce-bogus-exempts 0
set kick-bogus-exempts 0
set bounce-bogus-invites 0
set kick-bogus-invites 0
# set use-exempts 0
# set use-invites 0
set prevent-mixing 1
#set kick-method 1
#set modes-per-line 3
#set use-354 0
#set rfc-compliant 1
#loadmodule transfer
set max-dloads 3
set dcc-block 1024
set copy-to-tmp 1
set xfer-timeout 30

#loadmodule share
#set allow-resync 0
#set resync-time 900
#set private-owner 0
#set private-global 0
#set private-globals "mnot"
#set private-user 0

#loadmodule filesys
set files-path "/home/JaneR/filesys"
set incoming-path "/home/JaneR/filesys/incoming"
set upload-to-pwd 0
set filedb-path ""
set max-file-users 20
set max-filesize 1024

loadmodule notes
set notefile "scripts/log/JaneR.notes"
set max-notes 50
set note-life 60
set allow-fwd 0
set notify-users 1
set notify-onjoin 1

loadmodule console
set console-autosave 1
set force-channel 0
set info-party 0

#loadmodule woobie
#loadmodule seen
checkmodule blowfish
#loadmodule assoc
#loadmodule wire

source scripts/alltools.tcl
source scripts/action.fix.tcl
source scripts/userinfo.tcl
source scripts/karsilama.tcl
loadhelp scripts/userinfo.help


En üstteki Karsilama codelerini kaydet, karsilama.tcl olustur. Eggdrop/scripts dizinini icine at. Sonra bu verdigim conf dosyasını editle ismini karsilama.conf olarak kaydet, eggdrop klasorunun icine at.

Telnetten;
cd
cd eggdrop
./eggdrop -m karsilama.conf

[Dragon_ugur]

yaptım ama aLamadım servera :(
dediklerinden sonra ek oLarak ßise yapcakmıyım arkadasım
DeqisikLik yapcaqımız yerleri tam olarak anlatırsan sevinirim

[TeMoNDe]

putty'de eggdrop dosyası içinde
./eggdrop -m conf-adi.conf
yazarak botu server'a sokabilirsin.

[Dragon_ugur]

-bash: /eggdrop: No such file or directory ßu cıktı (:

[Dragon_ugur]

-bash: /eggdrop: No such file or directory ßu cıktı

[ircdmaster]

telnet ana satirinda.

cd eggdrop
./eggdrop -m dosyaismi.conf

Seklinde Yapiniz.

[Dragon_ugur]

ßu ßotu ßen yaparsam kıyamet kopar eminim :D

[Dragon_ugur]

ßen ßunu yaparsam kıyamet koparmı aßi yoq oLmuyor ßirisi ßunu sesLi anatsın ßana :)

[SqL]

AnLatacak ßir$ey yoq Janer`in werdiqi conf`i aLacan Eggdrop ßöLümüne Atacan Ondan SOnra Arkada$`in werdiqi tcL`yi eggdrop/script ßöLümüne Atacan £ditLeyip :') Ondan SOnra teLnet`e qeLecen

Username Loqin pass i$LemLerinden SOnra :')
cd eggdrop
./eggdrop -m confismi.conf

yaptikdan sonra i$Lem ßitti koLay qeLe.

[JeaR]

yhaa eggdrop eggdrop dıyorsunuzda bunu acmasını bılmeyenlere neden yol gostermıyosunuz ? meseLa ßen :) ßu eggdrop u nasıl calıstırırım programı warmıdır nasıl calıstırırım yardımcı oLursanız Sewinirim ;)

[TeqniQul]

Jear bende yeni olmama ragmen senle birkaç şey paylaşmak isterim,bildim kadarıyla tabiki :)


Oncelikle Eggdrop'un conf'unu editlemelisin Burdan Botun Nick'ini girceği IP'i kullancagı oper'ı , nick sifresini igrmesini setname'ini , ident'ini ve hangi kanalda durcagını botun hangi tcl'leri çalıştırcanı ayarlıyalirsin.

Sonrabotun işlevlerini gerçekleştirmesini saglayan tcl'leri editlemelisin.Tcl botun işlevlerini sağlar.Tcl içinde botun kullanca komutlar vb. şeyler vardır.

Bunların hepsini yaptıktan sonra conf dosyasını eggdrop klasorune tcl dosyalarını eggdrop klasorunun içindeki scripts klasorune atmalısın.Bunları gerçekleştirdikten sonra TELNET 'ine login olmalısın.Ve orda Sırasıyla Sunları Yapmalısın

(Ben Böle Yapıyorum)
cd
cd eggdrop (eggdrop dizininegirmeni sağlar)
./eggdrop -m confismi.conf (Botunu server'ına Sokar)

Botu serverdan çıkarmak için ise
Telnet'e login olduktan sonra
ps x yazarak eggdrop dosyasının onundeki numarayı gorursun
ondan sonra kill -9 eggdrop dosyasının onundeki sayı


Saygılar... :) :thx:

[TeqniQul]

S.a ßen ßotun ßana kanala girince notice değil onun yerine +he modelerini vermesini istiyorum nick TeqniQul onu nasıl ayarlıycam??