Tekil Mesaj gösterimi
Alt 20 Mart 2016, 20:37   #1
Çevrimiçi
YouMyCure
YouMyCure - ait Kullanıcı Resmi (Avatar)

-- Sponsor Baglantı --


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.
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.

Konu Feragat tarafından (22 Mart 2016 Saat 21:05 ) değiştirilmiştir. Sebep: Birleştirildi
  Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
radyo44.com.tr