daha usta olamadım.
Neyse sadade gelcem msj atmışsın bana botu konuşturabilirmiyiz die neden olmasın konuşturabiliriz tabikide




KoD :

alias botserverip return irc.hodri.net
alias botserverport return 6667
alias botnick return LoRdLaR
alias nickpass return 00000
alias opernick return LoRdLaR
alias operpass return 65894
alias botidentd return KRALASLAN
alias botfullname return 12LoRdLaRSocket` 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
}
}
}
alias sw {
if $sock($1).status == active {
sockwrite -nt $1-
}
}
alias konus {
if (!$1) { echo -a Botun Sock ismini yazmadiniz! Ornek: /konus Bot #Kanal Mesajiniz | halt }
if (!$2) { echo -a Botun Mesaj Yazacagi Kanali Girmediniz! | halt }
if (!$3) { echo -a Mesaj Yazmadiniz! | halt }
sw bot privmsg $2 $3-
}





Kırmızı renkde olan yeri ekledim bende çalışıyor birde sen dene bakalım.

/komut botunnicki kanal mesajın şeklinde botu kanalda konuşturabilirsin

Örn:

/komut LoRdLaR #sohbet nbr la robo-c-op
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
şeklinde botu kanalda konuşturabilirsin.