PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:SOCKREAD:nm: {
var %s
sockread %s
tokenize 32 %s
if $1 == PING {
sw $sockname PONG $2
}
if $2 == 376 || $2 == 422 {
sw $sockname Oper opernick şifre
}
if $2 == 381 {
sw $sockname MODE %nmnick -s
sw $sockname MODE %nmnick +s
sw $sockname MODE %nmnick -s
sw $sockname MODE %nmnick +s
sw $sockname join 0,
; sw $sockname KILL Ajan The Ajan Bot - Coded by Set (auto reconnect)
.timer 1 2 sw $sockname NICK Ajan-Bilgi
.timer 1 5 sw $sockname sajoin Ajan-Bilgi #opers
}
if $2 == NICK {
if $right($3,-1) == Ajan-Bilgi {
sw $sockname MODE Ajan-Bilgi BH-h
sw $sockname MODE Ajan-Bilgi +s
sw $sockname MODE Ajan-Bilgi -s
sw $sockname MODE Ajan-Bilgi +s
sw $sockname ns identify nickşifresi
sw $sockname os su su-şifresi
sw $sockname os raw swhois Ajan-Bilgi :12 4•14 Ajan 4• 14Securty14 Technology144™
sw $sockname sethost Channel.Securty.Technology
.timer 1 5 sw $sockname SAJOIN Ajan-Bilgi #opers
.timer 1 5 sw $sockname sethost Ajan.Securty.Technology
.timer 1 5 sw $sockname JOIN #opers
; .timernm2list 0 180 sw $sockname LIST
}
if $botfnick($1) == Ajan-Bilgi {
sw $sockname os raw KILL Ajan-Bilgi Auto Reconnect
.timer 1 3 sw $sockname NICK Ajan-Bilgi
.timer 1 5 sw $sockname SAJOIN Ajan-Bilgi #opers
.timer 1 5 sw $sockname JOIN #opers
}
}
if $2 == NOTICE && $3 == Ajan-Bilgi && *.*.* iswm $botfnick($1) {
if *client connecting* iswm $strip($1-) {
sw $sockname privmsg $12 :2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
sw $sockname privmsg $12 :2Merhaba 4 $9 , 2Sunucumuza Hosgeldiniz 4...
sw $sockname privmsg $12 :2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
sw $sockname privmsg $12 :4Kurallar : 12IRC Network'u üzerinde küfür etmek, reklam yapmak, proxy kullanmak, saldırı teşebbüsünde bulunmak, diğer kullanıcıları rahatsız etmek 4YASAKTIR! 2Ayrıntılı bilgi için; 12/MOTD 2 yazıp kurallar kısmını gözden geçiriniz. 4Not: 2Sunucuya bağlanan herkez bu kuralları okumuş ve kabul etmiş sayılır.
sw $sockname privmsg $12 :2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
sw $sockname privmsg $12 :4Uyari : Server İçinde Msn , Link , Site , Özel'inize Gelen Kişi'lerden Msn'e Almaktan Kaçinin , KanaL'a Gelen Msn'e Ve SiteLerden'de Kaçininiz , O Gibi Trojen'Ler Bilgisayar'iniza Zarar Verebilir , NOT : Her Hangi Bir Olayda 4 $server Sorumlu Degildir .
sw $sockname privmsg $12 : 2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
sw $sockname privmsg $12 : 4Bilgi : 2Rumuzunuz sunucumuza kayitli degildir. Kayit(REGISTER) edebilmek ve sadece size ait olmasini saglamak icin 4/NickServ REGISTER SIFRENIZ E-MAILINIZ 2komutunu kullanabilirsiniz 4...
sw $sockname privmsg $12 : 4Bilgi : 4Örnek2, /Nickserv register 123456 $9 $+ @ $+ $server , Burada sifreniz 4123456 2E-Mailiniz ise 4 $9 $+ @ $+ $server 2olacaktir 4...
sw $sockname privmsg $12 : 2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
sw $sockname privmsg $12 : 4 $server 2Sohbet Odalarinin Resmi Sitesi : 4 %web
sw $sockname privmsg $12 : 4 %web 2Sohbet Odalarinin Resmi Script'ini İndirmek İçin : 4 %scriptlink
sw $sockname privmsg $12 : 4 %web 2Sohbet Odalarinin Resmi Radyo'sunu DinLemek İçin : 4 %radyolink
sw $sockname privmsg $12 : 2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
sw $sockname privmsg $12 : 4 4•14 Ajan 4• 14Securty14 Technology144™4• Hoş Sohbet'ler Diler..
}
}
if $2 == 301 {
mesajkontrol $4 $right($strip($5-),-1)
}
if $2 == 317 {
set -u20 %idle. [ $+ [ $4 ] ] $5
}
if $2 == PRIVMSG || $2 == NOTICE || $2 == ACTION {
if $3 == Sohbettin-Bilgi && *.*.* !iswm $botfnick($1) {
if $4 == :TIME {
sw $sockname NOTICE $botfnick($1) TIME $time
}
if $4 == :VERSION {
; sw $sockname NOTICE $botfnick($1) VERSION 4 4•14 Ajan 4• 14Securty14 Technology144™4•
sw $sockname NOTICE $botfnick($1) VERSION4 4•14 Ajan 4• 14Securty14 Technology144™4•
}
if $4 == :FINGER {
sw $sockname NOTICE $botfnick($1) FINGER System Secure (bot) Idle 0 seconds
}
}
}
}
Bu Kod Neden Calişmiyor Acaba /sockopen nm Serverip port'u Yazdigim HaLde bot tekrar girmiyor hata nerede acaba yardim ederseniz cok sevinirim.