Cevap: Sock bot sorun
Evet yapabilirsin.
Örnek veriyorum;
alias swalias {
if $sock(bot) {
var %: = echo $color(info) -st > Socket bot:
if :VERSION iswm $4- { swbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION mIRC v6.17 Khaled Mardam-Bey $+ $chr(1) }
if :FINGER iswm $4- { swbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER Sevket Arslan $+ $chr(1) }
if $1 == PING { swbot PONG $2- }
if $2 == 474 { %: $4 kanalında banlı. }
if $2 == 366 { %: $4 kanalına girdi. }
if $2 == KICK && $4 == $sock(bot).mark { %: $3 kanalından %n tarafından kicklendi. $+($chr(40),$right($5-,-1),$chr(41)) | swbot JOIN $3 }
if $2 == PRIVMSG {
var %n = $gettok($gettok($1,1,33),1,58), %m = $right($4-,-1), %k = $3
if $istok(nick'in,%n,32) {
if .hop == $gettok(%m,1,32) { var %< = $iif($gettok(%m,2,32),$v1,%k) | swbot PART %< | swbot JOIN %< }
if .part == $gettok(%m,1,32) { var %< = $iif($gettok(%m,2,32),$v1,%k) | swbot PART %< }
if .join #* iswm %m { swbot JOIN $gettok(%m,2-,32) } if $gettok(%m,1,32) == !unban { swbot mode $3 +b } }
if $3 == $sock(bot).mark { swbot privmsg #Osman,#kelebek@ Nick: %n - Mesajı: %m }
}
if $left($3,1) == $chr(35) {
var %1 = 1 | while %1 <= $lines(dosya.txt) {
if $regex(%m,$read(dosya.txt,%1)) { swbot mode %k +b %n | swbot kick %k %n %k Sohbet odasında 1 4•1argo.küfür14• içerikli kelime kullandınız. }
inc %1
}
var %1 = 1 | while %1 <= $lines(dosya2.txt) {
if $regex(%m,$read(dosya2.txt,%1)) { swbot mode %k +b %n | swbot kick %k %n %k Sohbet odasında 1 4•1web.irc.channel14• vs reklam içerikli kelime kullandınız. }
inc %1
}
} if $2 == 367 && $3 == $sock(bot).mark { swbot mode $4 -b $5 }
}
}
Kalın olarak verdiğim yelere bakarak geliştirebilirsin. |