bir irc serverindeki chanserv departmanında görmüştüm özellikle #sales işlemi yapan sunucular için işe yarayacak bir kod kiralanan kanalları kimin kiraladığını founder ve cofounder vs gibi özellikleri kayıt altına almak için kullanılacak bir kod.
Sock uyarlıdır isteyen olursa mirc haline çevirebilirim.
#####################################
#Kullanımı;
#.fekle #Kanal Founder CoFounder(Successor)
#.fsil KanalNumarası
#.founders
#####################################
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias _nick return $remove($gettok($1,1,33),:)
if $right($4,-1) == !fekle || $right($4,-1) == .fekle {
if !$5 || !$6 || !$7 { swbot privmsg $3 2Hatalı Kullanım Lütfen 4.fekle #Kanal Founder Cofunder 2Şeklinde Kullanın. | return }
write foundersc.txt 14[ 4Kanal:2 $5 14|4 Founder:2 $6 14|4 CoFounder:2 $7 14|4 Ekleyen:2 $_nick($1) 14]
set %yenisifre $r(10000000,99999999)
swbot cs set $5 founder $6 | swbot cs set $5 successor $7 | swbot cs set $5 password %yenisifre
swbot privmsg $6 $5 Kanalı Üzerinize Devredilmiştir. Yeni Şifreniz %yenisifre
swbot ms send $5 Kanalı Size Devredilmiştir. Hayırlı Olsun. Yeni Şifresi; %yenisifre
unset %yenisifre
swbot privmsg $3 : $5 Kanalı Founders Listesine Eklenmiştir...
}
if $right($4,-1) == !founders || $right($4,-1) == .founders {
swbot privswbot privmsg #opersglobal-yönetim 2-= Founders Kanal Listesi =-
swbot privswbot privmsg #opersglobal-yönetim
var %i 1
while (%i <= $lines(foundersc.txt)) {
swbot privmsg $3 : %i $+ .4) $read(foundersc.txt,%i)
inc %i
}
}
if $right($4,-1) == !fsil || $right($4,-1) == .fsil {
write -dl $+ $5 foundersc.txt
swbot privmsg #global-yönetim $5 Numaralı Kanal Founders Listesinden Silindi.
}
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#: {
if $regex($1,/([.!]fekle)/Si) {
if !$2 || !$3 || !$4 { .msg $chan 2Hatalı Kullanım Lütfen 4.fekle #Kanal Founder Cofunder 2Şeklinde Kullanın. | return }
write foundersc.txt 14[ 4Kanal:2 $2 14|4 Founder:2 $3 14|4 CoFounder:2 $4 14|4 Ekleyen:2 $nick 14]
set %yenisifre $r(10000000,99999999)
cs set $2 founder $3 | cs set $2 successor $4 | cs set $2 password %yenisifre
msg $3 $2 Kanalı Üzerinize Devredilmiştir. Yeni Şifreniz %yenisifre
ms send $3 Kanalı Size Devredilmiştir. Hayırlı Olsun. Yeni Şifresi; %yenisifre
unset %yenisifre
msg $chan $2 Kanalı Founders Listesine Eklenmiştir...
}
if $regex($1,/([.!]founders)/Si) {
msg $chan 2-= Founders Kanal Listesi =-
msg $chan
var %i 1
while (%i <= $lines(foundersc.txt)) {
msg $chan %i $+ .4) $read(foundersc.txt,%i)
inc %i
}
}
if $regex($1,/([.!]fsil)/Si) {
write -dl $+ $2 foundersc.txt
msg $chan $2 Numaralı Kanal Founders Listesinden Silindi.
}
}
mirc bot çevirisi.