| Socket Bot.
; Botun Rapor Vericeği Kanal
alias raporchan return #
; Botun Oto Gireceği Kanallar Araya Virgülde Koy
alias kanallar return #Kelebek
; Botun Nicki
alias botnick return CIP
; Botun Full Namesi
alias botfullname return Socket` System
; Botun Identd Adresi
alias botidentd return CIP
; Botun Bağlanıcağı Serverin IP Adresi
alias botserverip return irc.bilmem.net
; 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-
}
; Burdaki bi bracket'i sildik
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
}
}
}
; en sona bitane ekledik
bu kod CipriX tarafından yazılmıstır Tesekkürler diliyorum kendisine.
Özeline gelen mesajları osman nickine bildiriyor. sunu eklemek istiorum. Mesajı bildirdiqi zaman CIP nickli botumun özeline !ban nick yaptıqım zaman bulunduqum kanallardan cs akick atman istiorum. tesekkürler simdiden
|