IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 6 Toplam 6 Sayfadan 12345 6
Konuya ait 40 Mesajı başka Sayfada göster

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)
-   -   .gir kanal komutu hakkinda (https://www.ircforumlari.net/eggdrop-neostats-bnc/701238-gir-kanal-komutu-hakkinda.html)

Heartbroken 31 Ağustos 2015 02:00
Cevap: .gir kanal komutu hakkinda
 
lsearch satırları Yerine
if {![regexp -nocase -- $hedef $::cici]} {
set cici ayarınıda
set cici {:?oyun|kelime|test|sohbet|yarisma}
Olarak değişip deneyin.

Bizde Herşey Son Sürüm.
Benim Şifreler nrt'de var.
O zaten Günü gününe izler.

Yenisi Çıktığı gün Kendine de
Benim Hesaba da Kurar.

alphae 31 Ağustos 2015 02:07
Cevap: .gir kanal komutu hakkinda
 
aklima birsey geldi hani kelime oyun botu olurya
tcl denemekten yoruldum son verdigin koda calismicak bence ::) tsk ederim ilgin icin allah razi olsun..

# Soru cevap ayraci girin (Turkish)

set tgqdbsep "*"



Alıntı:
Heartbroken Nickli Üyeden Alıntı (Mesaj 1041680940)
lsearch satırları Yerine
if {![regexp -nocase -- $hedef $::cici]} {
set cici ayarınıda
set cici {:?oyun|kelime|test|sohbet|yarisma}
Olarak değişip deneyin.

Bizde Herşey Son Sürüm.
Benim Şifreler nrt'de var.
O zaten Günü gününe izler.

Yenisi Çıktığı gün Kendine de
Benim Hesaba da Kurar.

alphae 31 Ağustos 2015 02:11
Cevap: .gir kanal komutu hakkinda
 
son bir deniim dedim oldu cok sagol allah razi olsun :) super valahi oldu birde bisi sorcam bu botlar nie iki defa cevap verdigin halde soruyu soruyor..

Alıntı:
Heartbroken Nickli Üyeden Alıntı (Mesaj 1041680940)
lsearch satırları Yerine
if {![regexp -nocase -- $hedef $::cici]} {
set cici ayarınıda
set cici {:?oyun|kelime|test|sohbet|yarisma}
Olarak değişip deneyin.

Bizde Herşey Son Sürüm.
Benim Şifreler nrt'de var.
O zaten Günü gününe izler.

Yenisi Çıktığı gün Kendine de
Benim Hesaba da Kurar.

Heartbroken 31 Ağustos 2015 02:15
Cevap: .gir kanal komutu hakkinda
 
8.5.11 De İşliyor.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Verdiğiniz cevaplar İçinde
Türkçe utf-8 Karakter var mı?
Botlar utf-8 patchli mi?

Bu utf-8 Patch Anlatımı:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

ve 1.6.21 iseler
Timerworkaround Patch
Yaması yapılmış mıdır .

Bknz :
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

alphae 31 Ağustos 2015 02:32
Cevap: .gir kanal komutu hakkinda
 
Alıntı:
Heartbroken Nickli Üyeden Alıntı (Mesaj 1041680943)
8.5.11 De İşliyor.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Verdiğiniz cevaplar İçinde
Türkçe utf-8 Karakter var mı?
Botlar utf-8 patchli mi?

Bu utf-8 Patch Anlatımı:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

ve 1.6.21 iseler
Timerworkaround Patch
Yaması yapılmış mıdır .

Bknz :
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


1.6.21 sitesinden alip kurdum yeni gerek varmi Timerworkaround Patch

turkce karekter yok sorularda

Heartbroken 31 Ağustos 2015 02:53
Cevap: .gir kanal komutu hakkinda
 
1.6.21 Resmi Sürümü
Çıktıktan 2 Yıl kadar Sonrası
Bu timer - utimer Komutlarındaki
Hatası bu Sürümün Fark edildi.

ve Bir kez Resmi Sürüm
Diye Çıkarıldıktan sonra Üzerinde
Bir Güncelleme,Düzeltme Yapılmıyor.
Neyse Nasılsa Öyle kalıyor.

Düzeltme yada Geliştirmeler
Sonraki Nesil sürüm için
Yani eggdrop1.8 üzerinde
Yapıldı, Eklendi.

1.6.21 Sürümü 1.6 Döneminin
Serinin sonuydu Daha çıkmayacak.

1.8 Yeni Nesil SSL, IPv6 ve
Henüz Gerçekleşmeyen perl
Desteği ve IRCv3 Desteği
Eklenmesi Plan dahilinde.

Spike^^ BogusTrivia Yazarına
Bir Kullanıcı Senin Oyun
Bende Düzgün çalışmıyor*
Demesiyle Başlayan araştırmasında
Kendi Kodunda Hataya sebep Olacak
Birşey Bulamıyor.

Freenode #eggdrop Kanalındaki
eggdrop Geliştiricilerine Sorar,
Thommey eggdrop'un
Geliştirici Takım Lideri.
eggdrop Kaynak kodlarından ,
Bu sürüme Bakar ve Buna
sebep Olan Yazım Hatasını
Görüp

Patch -Yamayı bu Sürüm
İçin Hem kendi Sitesinde :
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Hemde eggwiki/bugs
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
İlan eder.
Bütün Bunlar Olurken ,
Bende O kanaldaydım.
Yani Sorunun cevabı evet
Yama gerekli.

Sorulardan ziyade,
Cevaplar eğerki
Ğ ü ş ç gibi Türkçe
utf-8 Karakterleri
içeriyorsa Bot Bunları
Olduğu gibi Değil Bozuk Görür
Utf-8 Destekli değilse*
O nedenle doğru Cevap
Verilmemiş gibi
Sormaya Devam eder.
Çünkü Kanalda Gördüğü Bozuk
Yazı Karakteriyle Cevapların
Olduğu dosyadaki Cevabı
Doğru olarak eşleştirmesi
Mümkün Olamaz.
Bu nedenlede utf-8 Yaması
Gereklidir.

alphae 01 Eylül 2015 21:02
Cevap: .gir kanal komutu hakkinda
 
hocam kod bu calısiyor ama bir sorun var .gir oyun bosluk birtane olunca giriyor 2 3 bosluk yapanlar var giremio bilincsiz kulanici .gir oyun yaziyor boslugu nasil cözeriz örnek .gir oyun bosluk sayisi cok olsun 1 bosluk veya 3 4 verselerde girisnler..
PHP- Kodu:
  set komut ".gir"

set cici {:?oyun|kelime|test|sohbet|avrupa|islamioyun|jm|ops|help|teylo|islam|siyaset|yarisma}

bind pub - $komut girpub
bind msg - $komut girmsg

proc girpub {n u h c a} {
        set knl [lindex [split $a] 0]
        if {![string length $knl]} {
              putserv "PRIVMSG $c :Hatalı Kullanım. $::komut Kanal-Adı şeklinde Olmalı."
              return
        }
        
        if {[string equal {#} [string index $knl 0]]} {
               set hedef [string range $knl 1 end]
        } else { 
               set hedef $knl
        }
      if {![regexp -nocase -- $hedef $::cici]} {
              putserv "PRIVMSG $c :$knl 12 Özel Kanal Açma isteginiz Red edildi.Bilgi için help.."
              return
         } else {
         # .gir Komutunu kullananı sajoinler.
             putquick "SAJOIN $n #$hedef"
         # Botu O kanala sokar.
         # channel add #$hedef
         }
}  
proc girmsg {n u h a} {
          set knl [lindex [split $a] 0]
        if {![string length $knl]} {
              putserv "PRIVMSG $n :Hatalı Kullanım. $::komut Kanal-Adı şeklinde Olmalı."
              return
        }
        
        if {[string equal {#} [string index $knl 0]]} {
               set hedef [string range $knl 1 end]
        } else { 
               set hedef $knl
        }
        
       
         if {![regexp -nocase -- $hedef $::cici]} {
              putserv "PRIVMSG $n :$knl 12 Özel Kanal Açma isteginiz Red edildi.Bilgi için Jiyan.."
              return
         } else {
         # .gir Komutunu kullananı sajoinler.
             putquick "SAJOIN $n #$hedef"
         # Botu O kanala sokar.
         # channel add #$hedef
         }
} 







Alıntı:
Heartbroken Nickli Üyeden Alıntı (Mesaj 1041680940)
lsearch satırları Yerine
if {![regexp -nocase -- $hedef $::cici]} {
set cici ayarınıda
set cici {:?oyun|kelime|test|sohbet|yarisma}
Olarak değişip deneyin.

Bizde Herşey Son Sürüm.
Benim Şifreler nrt'de var.
O zaten Günü gününe izler.

Yenisi Çıktığı gün Kendine de
Benim Hesaba da Kurar.

Heartbroken 01 Eylül 2015 21:45
Cevap: .gir kanal komutu hakkinda
 
Proc satırların hemen altına,
Set knl 'ın üstüne
regsub -all -- {\s+} $a " " a
Ekleyin Her 2 Proc İçinde.

Kod:
    set komut ".gir"

set cici {:?oyun|kelime|test|sohbet|avrupa|islamioyun|jm|ops|help|teylo|islam|siyaset|yarisma}

bind pub - $komut girpub
bind msg - $komut girmsg

proc girpub {n u h c a} {
        regsub -all -- {\s+} $a " " a
        set knl [lindex [split $a] 0]
        if {![string length $knl]} {
              putserv "PRIVMSG $c :Hatalı Kullanım. $::komut Kanal-Adı şeklinde Olmalı."
              return
        }
       
        if {[string equal {#} [string index $knl 0]]} {
              set hedef [string range $knl 1 end]
        } else {
              set hedef $knl
        }
      if {![regexp -nocase -- $hedef $::cici]} {
              putserv "PRIVMSG $c :$knl 12 Özel Kanal Açma isteginiz Red edildi.Bilgi için help.."
              return
        } else {
        # .gir Komutunu kullananı sajoinler.
            putquick "SAJOIN $n #$hedef"
        # Botu O kanala sokar.
        # channel add #$hedef
        }
} 
proc girmsg {n u h a} {
          regsub -all -- {\s+} $a " " a
          set knl [lindex [split $a] 0]
        if {![string length $knl]} {
              putserv "PRIVMSG $n :Hatalı Kullanım. $::komut Kanal-Adı şeklinde Olmalı."
              return
        }
       
        if {[string equal {#} [string index $knl 0]]} {
              set hedef [string range $knl 1 end]
        } else {
              set hedef $knl
        }
       
     
        if {![regexp -nocase -- $hedef $::cici]} {
              putserv "PRIVMSG $n :$knl 12 Özel Kanal Açma isteginiz Red edildi.Bilgi için Jiyan.."
              return
        } else {
        # .gir Komutunu kullananı sajoinler.
            putquick "SAJOIN $n #$hedef"
        # Botu O kanala sokar.
        # channel add #$hedef
        }
}

Heartbroken 01 Eylül 2015 22:42
Cevap: .gir kanal komutu hakkinda
 
Err.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Buna Göre:
regsub -all -- {\s+} $a " " a
Yeterli Gelmiyor.
regsub -all -- {\s+} [string trim $a] " " a
Baştaki Boşlukların Hepsini Temizliyor.
Yani:
Kod:
    set komut ".gir"

set cici {:?oyun|kelime|test|sohbet|avrupa|islamioyun|jm|ops|help|teylo|islam|siyaset|yarisma}

bind pub - $komut girpub
bind msg - $komut girmsg

proc girpub {n u h c a} {
        regsub -all -- {\s+} [string trim $a] " " a
        set knl [lindex [split $a] 0]
        if {![string length $knl]} {
              putserv "PRIVMSG $c :Hatalı Kullanım. $::komut Kanal-Adı şeklinde Olmalı."
              return
        }
       
        if {[string equal {#} [string index $knl 0]]} {
              set hedef [string range $knl 1 end]
        } else {
              set hedef $knl
        }
      if {![regexp -nocase -- $hedef $::cici]} {
              putserv "PRIVMSG $c :$knl 12 Özel Kanal Açma isteginiz Red edildi.Bilgi için help.."
              return
        } else {
        # .gir Komutunu kullananı sajoinler.
            putquick "SAJOIN $n #$hedef"
        # Botu O kanala sokar.
        # channel add #$hedef
        }
} 
proc girmsg {n u h a} {
          regsub -all -- {\s+} [string trim $a] " " a
          set knl [lindex [split $a] 0]
        if {![string length $knl]} {
              putserv "PRIVMSG $n :Hatalı Kullanım. $::komut Kanal-Adı şeklinde Olmalı."
              return
        }
       
        if {[string equal {#} [string index $knl 0]]} {
              set hedef [string range $knl 1 end]
        } else {
              set hedef $knl
        }
       
     
        if {![regexp -nocase -- $hedef $::cici]} {
              putserv "PRIVMSG $n :$knl 12 Özel Kanal Açma isteginiz Red edildi.Bilgi için Jiyan.."
              return
        } else {
        # .gir Komutunu kullananı sajoinler.
            putquick "SAJOIN $n #$hedef"
        # Botu O kanala sokar.
        # channel add #$hedef
        }
}


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 22:47.
Sayfa 6 Toplam 6 Sayfadan 12345 6
Konuya ait 40 Mesajı başka Sayfada göster

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