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