| Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
| Cevap: Socket Bot.
Kod: Kodu kopyalamak için üzerine çift tıklayın! ; Botun Rapor Vericeği Kanal
alias raporchan return #deneme
; Botun Oto Gireceği Kanallar Araya Virgülde Koy
alias kanallar return #deneme
; Botun Nicki
alias botnick return CIP
; Botun Full Namesi
alias botfullname return Socket` System
; Botun Identd Adresi
alias botidentd return KELEBEK
; Botun Bağlanıcağı Serverin IP Adresi
alias botserverip return irc.kelebek.org
; Botun Bağlanıcağı Serverin Portu
alias botserverport return 6667
; Botun Quit Mesajı
alias botquitmsg return osman
alias bagla {
komut quit $botquitmsg
sockclose bot
sockopen bot $botserverip $botserverport
}
on *:sockopen:bot:{
if ($sockerr) { echo -s Bağlantı kesildi | return }
komut NICK $botnick
komut USER $botidentd * * : $+ $botfullname
sockmark $sockname YEah
}
on *:sockread:bot:{
if ($sockerr) { echo -s Bağlantı Kesildi | return }
var %; | sockread %; | tokenize 32 %;
ciprix $1-
if $2 == 376 || $2 == 422 {
komut join $kanallar
komut join $raporchan
komut list
}
}
alias komut { if $sock(bot) { sockwrite -n bot $1- } }
alias ciprix {
if $sock(bot) {
var %: = echo $color(info) -st > Socket bot:
if :VERSION iswm $4- { komut NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION Bot $+ $chr(1) }
if :FINGER iswm $4- { komut NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER Bot $+ $chr(1) }
if $1 == PING { komut PONG $2- }
}
if $2 == PRIVMSG && *#* !iswm $3 {
komut privmsg osman < $gettok($1,1,33) > $4-
}
if $4 == :!ban && $5 && $6 {
var %i = 1
set %::bnick $6
while (%i <= $gettok($5,0,44)) {
komut chanserv akick $gettok($5,%i,44) add %::bnick
komut chanserv akick $gettok($5,%i,44) enforce
komut chanserv akick $gettok($5,%i,44) del %::bnick
inc %i
}
}
if *!gir* iswm $3- {
if $5 == $null {
komut privmsg osman Kanal belirtin ÖRN: !gir #***
}
else {
komut privmsg osman $5 kanalına girmiş bulunmaktayım
komut join $5
}
}
if *!cik* iswm $3- {
if $5 == $null {
komut privmsg osman Kanal belirtin ÖRN: !cik #***
}
else {
komut privmsg osman $5 kanalından çıkmış bulunmaktayım
komut part $5
}
}
if *!tara* iswm $3- {
if $5 == $null {
komut privmsg osman kanal belirtin ÖRN: !tara #d-bana
}
else {
komut privmsg osman $5 kanalına tarama yapildi
komut tara $5
}
}
}
bota ek olarak
Kod: Kodu kopyalamak için üzerine çift tıklayın! if $4 == :!ban && $5 && $6 {
var %i = 1
set %::bnick $6
while (%i <= $gettok($5,0,44)) {
komut chanserv akick $gettok($5,%i,44) add %::bnick
komut chanserv akick $gettok($5,%i,44) enforce
komut chanserv akick $gettok($5,%i,44) del %::bnick
inc %i
}
}
ekledim..
bunu kendine göre değiştirebilirsin belki bulunduğun server nick'i direk olarak akick'e almaz senden mask isteyebilir o zaman
komut chanserv akick $gettok($5,%i,44) add %::bnick
komut chanserv akick $gettok($5,%i,44) enforce
komut chanserv akick $gettok($5,%i,44) del %::bnick
olan yerleri komut chanserv akick $gettok($5,%i,44) add $+(%::bnick,!*@*)
komut chanserv akick $gettok($5,%i,44) enforce
komut chanserv akick $gettok($5,%i,44) del $+(%::bnick,!*@*) olarak değiştirsin..
komutlar kanalda çalışıyor, ban atma ise şöyle;
!ban #kanal nick
!ban #kanal1,#kanal2,#kanal3 nick
kanal limiti yok istediğin kadar ekleyebilirsin..
eğer yok hayır ben bu komutu botun özelinde uygulamak istiyorum diyorsan aşağıda kodu kullanabilirsin..
Kod: Kodu kopyalamak için üzerine çift tıklayın! ; Botun Rapor Vericeği Kanal
alias raporchan return #deneme
; Botun Oto Gireceği Kanallar Araya Virgülde Koy
alias kanallar return #deneme
; Botun Nicki
alias botnick return CIP
; Botun Full Namesi
alias botfullname return Socket` System
; Botun Identd Adresi
alias botidentd return KELEBEK
; Botun Bağlanıcağı Serverin IP Adresi
alias botserverip return irc.kelebek.org
; Botun Bağlanıcağı Serverin Portu
alias botserverport return 6667
; Botun Quit Mesajı
alias botquitmsg return osman
alias bagla {
komut quit $botquitmsg
sockclose bot
sockopen bot $botserverip $botserverport
}
on *:sockopen:bot:{
if ($sockerr) { echo -s Bağlantı kesildi | return }
komut NICK $botnick
komut USER $botidentd * * : $+ $botfullname
sockmark $sockname YEah
}
on *:sockread:bot:{
if ($sockerr) { echo -s Bağlantı Kesildi | return }
var %; | sockread %; | tokenize 32 %;
ciprix $1-
if $2 == 376 || $2 == 422 {
komut join $kanallar
komut join $raporchan
komut list
}
}
alias komut { if $sock(bot) { sockwrite -n bot $1- } }
alias ciprix {
if $sock(bot) {
var %: = echo $color(info) -st > Socket bot:
if :VERSION iswm $4- { komut NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION Bot $+ $chr(1) }
if :FINGER iswm $4- { komut NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER Bot $+ $chr(1) }
if $1 == PING { komut PONG $2- }
}
if $2 == PRIVMSG {
if $4 == :!ban && $5 && $6 {
var %i = 1
set %::bnick $6
while (%i <= $gettok($5,0,44)) {
komut chanserv akick $gettok($5,%i,44) add %::bnick
komut chanserv akick $gettok($5,%i,44) enforce
komut chanserv akick $gettok($5,%i,44) del %::bnick
inc %i
}
}
}
if $2 == PRIVMSG && *#* !iswm $3 {
komut privmsg ıosman < $gettok($1,1,33) > $4-
}
if *!gir* iswm $3- {
if $5 == $null {
komut privmsg osman Kanal belirtin ÖRN: !gir #***
}
else {
komut privmsg osman $5 kanalına girmiş bulunmaktayım
komut join $5
}
}
if *!cik* iswm $3- {
if $5 == $null {
komut privmsg osman Kanal belirtin ÖRN: !cik #***
}
else {
komut privmsg osman $5 kanalından çıkmış bulunmaktayım
komut part $5
}
}
if *!tara* iswm $3- {
if $5 == $null {
komut privmsg osman kanal belirtin ÖRN: !tara #d-bana
}
else {
komut privmsg osman $5 kanalına tarama yapildi
komut tara $5
}
}
}
Konu XcLusive tarafından (14 Nisan 2008 Saat 05:43 ) değiştirilmiştir.
|