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/20870-global-kanal-ekle-sil-listele.html)

RahmetLi 29 Nisan 2023 06:20

Global kanal ekle/sil/listele
 
PHP- Kodu:

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ı;

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: 18:29.

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


Navbar with Avatar by Motorradforum