.gir kanal komutu hakkinda - Sayfa 6 - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Heartbroken · 31 Ağustos 2015, 02:00

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

aklima birsey geldi hani kelime oyun botu olurya
tcl denemekten yoruldum son verdigin koda calismicak bence :
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
tsk ederim ilgin icin allah razi olsun..

# Soru cevap ayraci girin (Turkish)

set tgqdbsep "*"

Heartbroken Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

son bir deniim dedim oldu cok sagol allah razi olsun
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
super valahi oldu birde bisi sorcam bu botlar nie iki defa cevap verdigin halde soruyu soruyor..

Heartbroken Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

8.5.11 De İşliyor.

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

Heartbroken Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

8.5.11 De İşliyor.

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

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

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 Kod: Kodu kopyalamak için üzerine çift tıklayın!


  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

         }

}

Heartbroken Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

Proc satırların hemen altına,
Set knl 'ın üstüne
regsub -all -- {\s+} $a " " a
Ekleyin Her 2 Proc İçinde.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

    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

Err.

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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: Kodu kopyalamak için üzerine çift tıklayın!

    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
         }
}

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Chanserv Kanal List Komutu ve Kodu	Goemon	Conference Room (CR)	1	22 Kasım 2015 13:58
Register Komutu Bekleme Süresinde Komutu Uygulayanı #Kanal'a Sajoinlendirme.	SeYH_SaMiL	Anope	9	04 Nisan 2011 17:58
Kanal Listesi Hakkinda	DjSummeR	mIRC Scripting Sorunları	2	18 Şubat 2011 17:47
!uyar Komutu istenilen Kanal Dahilinde Yollama	AgReSsivVe	mIRC Scripting Sorunları	4	26 Nisan 2008 20:30
/who #kanal komutu hakkında yardım	Luke	mIRC Scripting Sorunları	2	13 Ekim 2006 18:39

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

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.