IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Çözüldü Global kanal ekle/sil/listele (https://www.ircforumlari.net/mirc-scripting-sorunlari/734391-global-kanal-ekle-sil-listele.html)

Smith 26 Şubat 2016 02:31
Global kanal ekle/sil/listele
 
Global kanal ekleyip silmek istiyorum bi kod için ihtiyacım var bunu nasıl yapabilirim bota eklicem
!globalekle !globalsil dediğimde kanal eklendi yada bu kanal daha önce zaten eklenmiştir gibi mesajlar versin istiyorum nasıl yapabilirim ?

SuLh 26 Şubat 2016 02:40
Cevap: Global kanal ekle/sil/listele
 
Öncelikle bunu yapman için en temel olarak if-then-else 'yi bilmen gerekiyor.. Kanalları bir değişkene atayıp, silebilirsin.
Kullanacağımız event: TEXT
Kullanacağımız tokenler: $numtok, $gettok, $addtok, $findtok, $remtok
Ekstra: While döngüsü, if-then-else, regex, değişkenler (%)
Kod:
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 }
        }
      }
}

Smith 26 Şubat 2016 03:20
Cevap: Global kanal ekle/sil/listele
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Son dakika adamısın saol kardeşim aradığımda tamda buydu eksik olma sen bu forumdan.

GeneraL 25 Aralık 2022 23:07
Cevap: Global kanal ekle/sil/listele
 
bu olayın socket tarzını yapabilme olanığınız var ise paylaşırmısınız.

Bozkurt- 27 Aralık 2022 01:03
Cevap: Global kanal ekle/sil/listele
 
Alıntı:
GeneraL Nickli Üyeden Alıntı (Mesaj 1042760842)
bu olayın socket tarzını yapabilme olanığınız var ise paylaşırmısınız.
Kod:
    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
      }
    }

GeneraL 22 Ocak 2023 12:44
Cevap: Global kanal ekle/sil/listele
 
Alıntı:
MasteR06 Nickli Üyeden Alıntı (Mesaj 1042761247)
Kod:
    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şk ederim


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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk