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

4Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 20 Mart 2021, 23:16   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Söz aktarma




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.


Konu RahmetLi tarafından (20 Mart 2021 Saat 23:19 ) değiştirilmiştir.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 20 Mart 2021, 23:44   #2
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Söz aktarma




RahmetLi Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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.

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

__________________
The Ghost of Christmas Past...

i'm here sometimes
 
Alıntı ile Cevapla

Alt 20 Mart 2021, 23:49   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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

 
Alıntı ile Cevapla

Alt 21 Mart 2021, 18:26   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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:   Kodu kopyalamak için üzerine çift tıklayın!
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) ] ] } }


__________________
Dark invincible Last Soldier | -Z-
 
Alıntı ile Cevapla

Alt 22 Mart 2021, 00:37   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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?


Konu RahmetLi tarafından (22 Mart 2021 Saat 00:41 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 22 Mart 2021, 02:04   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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:   Kodu kopyalamak için üzerine çift tıklayın!
if ($botfnick($1) == Zadrich) || ($botfnick($1) == nick1) || ($botfnick($1) == nick2) {

-
Kendi nickinizi de ekleyerek tekrar deneyiniz.

__________________
Dark invincible Last Soldier | -Z-
 
Alıntı ile Cevapla

Alt 22 Mart 2021, 02:08   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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

 
Alıntı ile Cevapla

Alt 22 Mart 2021, 23:48   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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.

__________________
TurkSohbet.NET | #XPass
 
Alıntı ile Cevapla

Alt 22 Mart 2021, 23:52   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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 ?

 
Alıntı ile Cevapla

Alt 25 Mart 2021, 22:15   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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:   Kodu kopyalamak için üzerine çift tıklayın!
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 } } } }


__________________
Dark invincible Last Soldier | -Z-
 
Alıntı ile Cevapla

Cevapla

Etiketler
söz, sözonay


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Duyular Arası Aktarma Desmont Türkçe 0 28 Kasım 2014 16:34
Çalgılarda Aktarma Zen Müzik Dünyası 0 02 Haziran 2014 14:31
Çalgılarda Aktarma xena Müzik Dünyası 0 12 Mayıs 2014 17:36
Aktarma (Dekantasyon) Liaaa Ödev ve Tezler 0 19 Mayıs 2012 17:24
scrpt aktarma TİGeR mIRC Scripting Sorunları 2 02 Ekim 2009 04:19