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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Söz aktarma (https://www.ircforumlari.net/mirc-scripting-sorunlari/907833-soz-aktarma.html)

sa arkadaslar Nomercy Socket bot kullanıyorum

if $regex($strip(%text),/^[!.]sözonay$/i) {
sw $sockname privmsg %chan 4 %nick :10 $5 nolu söz onaylandı.
write -nl txt/sözx.txt txt/söz.txt
}

yukardaki sözx.txt deki sözleri onay koduyla söz.txt ine aktarmak ıstıyorum birturlu beceremedım
silme ve listemeleme yaptım onaylamada takılıyorum write nin karsısına koycagım komutu bulamadım sımdıden tşkler

Feragat@ hocam sizin verdıgınız mırc olanıda denedım oda calısmadı size zahmet bi yardımcı olursanız cok sevınırım.

Cevap: Söz aktarma

Alıntı:

RahmetLi Nickli Üyeden Alıntı (Mesaj 1042462084)

Socket bot için istediysen haklısın benim verdiğim çalışmaz.

Cevap: Söz aktarma

evet Feragat@ hocam nasıl yapabilirım writenin karsına koycak kod bulamadım sözliste sözsil onları yaptım sadece onaylayamadım sözx. txt den söz.txt e aktaramıyorum

Cevap: Söz aktarma

Merhaba @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
-
Elimde Hazır Bottan alınma Kod var umarım işine yarar. Kendi botunuza göre uyarlamayı unutmayınız.
-
Kod:

Kod:

if $2 == PRIVMSG {

  var %komutx $gettok($right($strip($4-),-1),1,32)

  if !$read(txt/yonetimchans.txt,w,$3) {

    if $regex($strip(%komutx),/^[!.]söz$/i) {

      if %salkons == on { sockwrite -nt $sockname notice $nn($1) 4UYARI :2 Komutu 2 dakika bekleyip tekrar uygulayınız $nn($1) $+ . | return }

      if %sözx2 [ $+ [ $nn($1) ] ] = Evet { sockwrite -nt $sockname notice $nn($1) 4UYARI :2 3 Dakika da 1 kez !söz komutunu kullanabilirsin $nn($1) $+ . | return }

      var %kacx $rand($rand(1,$lines(txt/söz.txt)),$lines(txt/söz.txt))

      sw nomercy privmsg #ZadSystem 4Bilgi : $nn($1) $3 kanalında !söz komutunu kullandı. 

      sw nomercy privmsg $3 $gettok($read(txt/söz.txt,%kacx),1-1,37) - (Ekleyen : $gettok($read(txt/söz.txt,%kacx),-1,37) )

      sw nomercy privmsg $3 

      sw nomercy privmsg $3 Sizde beğendiğiniz sözlerin bu şekilde kanallarda yer almasını istiyorsanız NoMercy botu özeline !sözekle SÖZÜNÜZ şeklinde ekleme yapabilirsiniz. (Söz Sayısı :4 $lines(txt/söz.txt) $+ ) 

      sw nomercy privmsg $gettok($read(txt/söz.txt,%kacx),-1,37) Bilgi : Eklediğiniz sözlerden biri4 $3 kanalında4 $nn($1) tarafından gösterildi.

      sw nomercy privmsg $gettok($read(txt/söz.txt,%kacx),-1,37) 

      sw nomercy privmsg $gettok($read(txt/söz.txt,%kacx),-1,37) Söz : $gettok($read(txt/söz.txt,%kacx),1-1,37)

      set -u180 %sözx2 $+ $nn($1) Evet

      unset %kacx

    }

  }

  if %komut == !sözekle {

    if %salkons == on { sw $sockname PRIVMSG $botfnick($1) 4UYARI :2 Komutu 2 dakika bekleyip tekrar uygulayınız $botfnick($1) $+ . | return }

    if ($botfnick($1) == Zadrich) || ($botfnick($1) == nick1) || ($botfnick($1) == nick2) {

      sw $sockname PRIVMSG $botfnick($1) Eklenen : $remove($5-,,)

      sw $sockname PRIVMSG $botfnick($1) 

      sw $sockname PRIVMSG $botfnick($1) Özel tanımlı yazar olduğunuz için eklediğiniz söz onay gerektirmeden direk olarak sisteme kaydedilmiştir.

      sw $sockname PRIVMSG #ZadSystem -4Tanımlı Yazar- : $remove($5-,,) ( $+ $botfnick($1) $+ )

      write txt/söz.txt $remove($5-,,) $+ % $+ $botfnick($1)

      unset %ozelflood. [ $+ [ $botfnick($1) ] ] 

      halt

    }

    sw $sockname PRIVMSG $botfnick($1) 4UYARI :2 Düzenleme sebebiyle söz ekleme uygulamamız geçici bir süre kapalıdır. Anlayışınız için teşekkürler $botfnick($1) $+ . (4Zadrich)

    return

    if %sözx [ $+ [ $nn($1) ] ] = Evet { sockwrite -nt $sockname notice $nn($1) 4UYARI :2 1 Dakika da 1 kez söz ekleyebilirsin $nn($1) $+ . | sockwrite -nt $sockname privmsg $nn($1) 4UYARI :2 1 Dakika da 1 kez söz ekleyebilirsin $nn($1) $+ .  | return }

    if *!sözekle* iswm $5 { sockwrite -nt $sockname notice $nn($1) 4UYARI :2 Hatalı komut kullanımı $nn($1) $+ . }

    sw $sockname PRIVMSG $botfnick($1) Sözünüz Zadrich tarafından kontrol edilmek üzere sisteme eklenmiştir  $nn($1) $+ . Onay bekleyen söz sayısı :4 $lines( txt/sözx.txt) - Onaylı söz sayısı :4 $lines( txt/söz.txt) 

    sw $sockname PRIVMSG $botfnick($1) 

    sw $sockname PRIVMSG $botfnick($1) Eklenen : $remove($5-,,)

    sw $sockname PRIVMSG #ZadSystem -4Söz Eklendi- : $remove($5-,,) ( $+ $botfnick($1) $+ )

    write txt/sözx.txt $remove($5-,,) $+ % $+ $botfnick($1)

    set -u60 %sözx $+ $nn($1) Evet

    unset %ozelflood. [ $+ [ $botfnick($1) ] ]

  }

}

Cevap: Söz aktarma

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] selam bendekılerde bu kodun aynısı nomercy kullanıyorum ben onaylamayı bulamadım o yuzden kendım yapmaya calıstım aynı kodlar bende varda onay yerı yok siz bunda onayı nasıl yapıyosunuz?

Cevap: Söz aktarma

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Söz ekleme işlemini botun özelinde gerçekleştiriyorsunuz ve botunuz da ayarladığınız kanala yansıtıyor. Örneğin bende #ZadSystem olarak belirtilmiş. ve bu kısma:
-
Kod:

Kod:

if ($botfnick($1) == Zadrich) || ($botfnick($1) == nick1) || ($botfnick($1) == nick2) {

-
Kendi nickinizi de ekleyerek tekrar deneyiniz.

Cevap: Söz aktarma

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] baskan eklemede sıkıntı yok bende onlar ayarlı kanal yansıtıyor eklenen sözü hepsi tamamda onayı nasıl yapıyorsunuz hangi komutla bana onaylama lazım

Cevap: Söz aktarma

istediğinin yapılabilmesi için şuan kulandığın sözekle eklentisinin yapısının tamamen değişmesi gerekiyor. Bir diğer deyişle yeniden kodlanması gerekiyor mevcut kodlamaya onay eklenmesi imkansız.

Cevap: Söz aktarma

diEfoRyoU@ hocam anladım Mırc için uFuk arkadas yapmıs söz addonu ama socket ıcın yok sanırım nerden bulabılırım socket bota eklemek ıcın tum forumu aradım bulamadım sizin bildiginiz varmı peki ?

Cevap: Söz aktarma

Tekrardan Merhaba @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
-
Senin istediğin kodlama sanırım bu ama kendi botuna göre uyarlaman ve ufak değişlikler yapman gerekecektir.
-
Kod:

Kod:

elseif $regex($2,/(PRIVMSG)/Si) && $regex($3,/^#/Si) {

  if $regex($remove($4,:),/^([!.&]s[oöÖ]z)$/Si) && ($yönetimbul($3) == 0) { 

    if $hget(Söz,$_nick($1)) { swbot notice $_nick($1) $+(4,$remove($4,:),) komut'unu kullanmanız için $hget(Söz,$_nick($1)).unset saniye beklemeniz gerek. | return }

    if $hget($3,Söz) { swbot notice $_nick($1) $+(4,$remove($4,:),) komut'unu kullanmanız için $hget($3,Söz).unset saniye beklemeniz gerek. | return }

    .hinc -msu150 Söz $_nick($1) | .hinc -msu30 $3 Söz

    var %:söz $read(soz.txt), %:sıra $readn

    swbot notice $_nick($1) 4,0Bilgi: $iif($token(%:söz,2,191),$token(%:söz,2,191),Anonim) Nickinin Eklediği Söz Hakkında Şikayetiniz Varsa Eğer, 4 %:sıra  Söz Numarasıyla 4 $_operhelp Ile Irtibata Geçiniz.

    swbot privmsg $3 :-

    swbot privmsg $3 : 0,4 / SÖZ \  -> $token(%:söz,1,191)  $+(,$chr(40),Ekleyen: $iif($token(%:söz,2,191),$token(%:söz,2,191),Anonim),,$chr(41))

    swbot privmsg $3 :-

    swbot privmsg $3 :Sizde sözünüzü göndermek istiyorsanız,4 $_bot botunun özelinde !söz <ekle> <Sözünüz> yazarak bildirebilirsiniz. (Söz Sayısı : $lines(soz.txt) $+ )

    _logs $sockname $+(4,$_nick($1),) nick'i $3 kanal'ında $remove($4,:) komutunu uyguladı. 

  }

  elseif $regex($right($4,-1),/^[!.&]s[oöÖ]z$/Si) {

    if !$regex($5,/^ekle$/Si) { swbot privmsg $_nick($1) :Lütfen4 [!.]söz <ekle> <Sözünüz> olarak belirtiniz. | return }  

    elseif $regex($5,/^ekle$/Si) {

      if !$6 { swbot privmsg $_nick($1) :Lütfen4 [!.]söz <ekle> <Sözünüz> olarak belirtiniz. | return }   

      if $regex($6-,/./Sg) <= 15 { swbot privmsg $_nick($1) :Eklemek istediğiniz söz çok kısa.(15 Harf'dan fazla olması gerek.) | return }

      if $read(soz.txt,w,$+($strip($6-),¿*)) { swbot privmsg $_nick($1) :Bu söz listemde ekli farklı bir söz ekleyiniz. | return }

      .hadd -ms ÖSözz $_nick($1) $6-

      swbot ns status $_nick($1)

    }

    elseif $regex($remove($4,:),/^([!.&]s[oöÖ]z)$/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,/^(onay|s[ıiİ]l|l[ıiİ]st|all|del)$/Si) { swbot privmsg $3 :Lütfen 2[!.&]4söz 2<onay|sil|list|all|del> olarak kullanınız. | return }

      elseif $regex($5,/^onay$/Si) {

        if !$regex($6,/\d/S) { swbot privmsg $3 :Lütfen 2[!.&]4söz 2<onay> <ID> olarak belirtiniz. | return }

        elseif !$hget(Sözonay,$strip($6)) { swbot privmsg $3 :Bu ID'e ait bir söz bulunamadı. | return }

        swbot privmsg $3 $+(,$strip($6),) ID'e ait söz onaylanmıştır.

        .write soz.txt $hget(Sözonay,$strip($6))

        .hdel -ms Sözonay $strip($6)

      }

      elseif $regex($5,/^s[ıiİ]l$/Si) {

        if !$regex($6,/\d/S) { swbot privmsg $3 :Lütfen 2[!.&]4söz 2<sil> <ID> olarak belirtiniz. | return }

        elseif !$hget(Sözonay,$strip($6)) { swbot privmsg $3 :Bu ID'e ait bir söz bulunamadı. | return }

        swbot privmsg $3 $+(,$strip($6),) ID'e ait söz silinmiştir.

        .hdel -ms Sözonay $strip($6)

      }

      elseif $regex($5,/^l[ıiİ]st$/Si) {

        if ($hget(Sözonay,0).data == 0) { swbot privmsg $3 :Söz onay listesinde kayıt bulunmamaktadır. | return }

        swbot privmsg $3 :Söz Onay listesi

        swbot privmsg $3 :

        var %m = 1 | while (%m <= $hget(Sözonay,0).data) {

          swbot privmsg $3 $+(%m,-4,$chr(41),) ID: $hget(sözonay,%m).item - Söz: $token($hget(sözonay,%m).data,1,191) - Ekleyen: $token($hget(sözonay,%m).data,2,191)

          inc %m

        }

        swbot privmsg $3 :

        swbot privmsg $3 :Sözler'i onaylamak için:4 [!.]söz 2<onay> <ID> olarak belirtiniz.

      }

      elseif $regex($5,/^all$/Si) {

        if ($hget(Sözonay,0).data == 0) { swbot privmsg $3 :Söz onay listesinde kayıt bulunmamaktadır. | return }

        var %m = 1 | while (%m <= $hget(Sözonay,0).data) {

          .write soz.txt $hget(sözonay,%m).data

          inc %m

        }

        .hfree -sw sözonay

        swbot privmsg $3 :Sözler onaylanmıştır.

      }

      elseif $regex($5,/^del$/Si) {

        if !$regex($6,/\d/S) { swbot privmsg $3 :Lütfen 2[!.&]4söz 2<del> <Sıra> olarak belirtiniz. | return }

        elseif $lines(soz.txt) < $strip($6) { swbot privmsg $3 :Bu Sıra'ya ait bir söz bulunamadı. Toplam söz sayısı; $lines(soz.txt) | return }

        swbot privmsg $3 $+(,$strip($6),) Sırası`na ait söz silinmiştir.

        .write $+(-,dl,$strip($6)) soz.txt

      }

    }

  }

}