02 Mart 2023, 22:51
|
#1 |
| Çevrimdışı  Üyelik tarihi: 07 Aralık 2022  Konular: 21245  Mesajlar: 24.248
|  Founders Kanal Eklentisi - Nomercy
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. #####################################
#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.
}
mIRC Bot Çevirisi 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.
}
}
 Kalbim Atar Cansız, Geçmez Gün Ahsız, Vahsız.. |
|
|  |