29 Nisan 2023, 06:20
|
#1 |
| Çevrimdışı  Üyelik tarihi: 07 Aralık 2022  Konular: 21245  Mesajlar: 24.248
|  Global kanal ekle/sil/listele
Kod : Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#opers: {
if $regex($1,/^[!.&-]global/Si) {
if !$2 { msg $chan Yetersiz parametre hatası, lütfen geçerli bir parametre giriniz: ekle/sil/listele }
elseif $2 = ekle {
if !$regex($3,/^#/) { msg $chan Yanlış parametre, lütfen bir kanal giriniz. | return }
if !$findtok(%globalkanal,$3,124) { set %globalkanal $addtok(%globalkanal,$3,124) | msg $chan $3 Kanali global listeye eklendi. }
else { msg $chan $3 Kanali zaten global kanal listesinde mevcut. }
}
elseif $2 = sil {
if !$regex($3,/^#/) { msg $chan Yanlış parametre, lütfen bir kanal giriniz. | return }
if $findtok(%globalkanal,$3,124) { set %globalkanal $remtok(%globalkanal,$3,124) | msg $chan $3 Kanali global listesinden silindi. }
else { msg $chan $3 Kanalı zaten global listesinde yok. }
}
elseif $2 = listele {
msg $chan Global kanal listesi aktarılıyor..
var %s $gettok(%globalkanal,0,124)
while (%s) { msg $chan $gettok(%globalkanal,%s,124) | dec %s }
}
}
}
Buda Socket Tarzı; Kod : Kodu kopyalamak için üzerine çift tıklayın!
elseif $regex($remove($4,:),/^([!.&]global)$/Si) {
if ($rootbul($_nick($1)) == 0) { swbot privmsg $3 :Master/Root listesinde ekli olmadığınızdan bu komut'u kullanamazsınız. | return }
elseif !$regex($5,/^(ekle|s[ıiİ]l|l[ıiİ]st)$/Si) { swbot privmsg $3 :Lütfen 2[!.&]4global 2<ekle|sil|list> olarak belirtiniz. | return }
elseif $regex($5,/^ekle$/Si) {
if !$regex($6,/^#/Si) { swbot privmsg $3 :Lütfen kanal belirtiniz. ÖRN; 2[!.]4global 2<ekle> <#Kanal> | return }
elseif $hfind(global,$strip($6),1,W).data { swbot privmsg $3 $+(,$strip($6),) Global kanal listesinde ekli. | return }
var %n = $left($md5($calc($ctime * $rand(1000,9999))),$r(10,25))
.hadd -m global %n $strip($6)
.hsave -o global global/global.knl
swbot privmsg $3 $+(,$strip($6),) Global kanal olarak eklendi.
swbot sajoin $_bot $strip($6)
swbadbot join $strip($6)
}
elseif $regex($5,/^s[ıiİ]l$/Si) {
if !$regex($6,/^#/Si) { swbot privmsg $3 :Lütfen kanal belirtiniz. ÖRN; 2[!.]4global 2<sil> <#Kanal> | return }
elseif !$hfind(global,$strip($6),1,W).data { swbot privmsg $3 $+(,$strip($6),) Global kanal listesinde bulunamadı. | return }
.hdel -m global $hfind(global,$strip($6),1,W).data
.hsave -o global global/global.knl
swbot privmsg $3 $+(,$strip($6),) Global kanal listesinden silindi.
swbot part $strip($6)
swbadbot part $strip($6)
}
elseif $regex($5,/^l[ıiİ]st$/Si) {
if ($hget(global,0).data == 0) { swbot privmsg $3 :Global kanal listesinde kayıt bulunmamaktadır. | return }
swbot privmsg $3 :Global kanal listesi
swbot privmsg $3 :
var %i = 1 | while (%i <= $hget(global,0).data) {
swbot privmsg $3 $+(%i,-4,$chr(41),) $hget(global,%i).data
inc %i
}
swbot privmsg $3 :
swbot privmsg $3 :Global kanal listesi sonu
}
}
 Kalbim Atar Cansız, Geçmez Gün Ahsız, Vahsız.. |
|
|  |
Nerden: İstanbul
Cinsiyet: Erkek
Web Site: TRmIRC.Net
IRC Sunucu: IRC.TRmIRC.Net
Alınan Beğeni: 3770
Beğendikleri: 6794
