mIRCForumlari.Net

mIRCForumlari.Net (https://www.mircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.mircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   Global kanal ekle/sil/listele (https://www.mircforumlari.net/mirc-scripting-hazir-kodlar/2466-global-kanal-ekle-sil-listele.html)

RahmetLi 22 Ocak 2023 13:28

Global kanal ekle/sil/listele
 
PHP- Kodu:

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



Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 21:32.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.


Navbar with Avatar by Motorradforum