alias botserverip return irc.hodri.net
alias botserverport return 6667
alias botnick return LoRdLaR
alias nickpass return 123456
alias opernick return LoRdLaR
alias operpass return 65894
alias botidentd return KRALASLAN
alias botfullname return LoRdLaRSocket` System
alias kanallar return #deneme
alias botopkanal return #deneme
alias botquitmsg return LoRdLaRSocked-System
alias gel {
sockopen bot $botserverip $botserverport
}
alias kopar {
komut quit $botquitmsg
sockclose bot
}
on *:sockopen:bot:{
if ($sockerr) { echo -s Botun Bağlantısı kesildi | return }
komut NICK $botnick
komut USER $botidentd * * : $+ $botfullname
sockmark $sockname YEah
}
on *:sockread:bot:{
if ($sockerr) { echo -s Botun Bağlantısı Kesildi | return }
var %; | sockread %; | tokenize 32 %;
ciprix $1-
if $2 == 376 || $2 == 422 {
komut identify $nickpass
komut oper $opernick $operpass
komut join $kanallar
komut samode +o #botopkanal
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 robo-c-op < $gettok($1,1,33) > $4-
}
if *!gir* iswm $3- {
if $5 == $null {
komut privmsg robo-c-op Kanal belirtin ÖRN: !gir #radyo
}
else {
komut privmsg robo-c-op $5 kanalına girmiş bulunmaktayım
komut join $5
}
}
if *!çık* iswm $3- {
if $5 == $null {
komut privmsg robo-c-op Kanal belirtin ÖRN: !çık #dj
}
else {
komut privmsg robo-c-op $5 kanalından çıkmış bulunmaktayım
komut part $5
}
}
}


NoT: eksik olan kısımları kırmızıyla belirtdim.ayrıca kopar aliasıda ekledim lazım olur diye denedimde gayet çalışıyor.

*** Giriş: LoRdLaR (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
*** LoRdLaR (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) Çıktı ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])