bu bot varmı? - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Z-Lined · 24 Ekim 2015, 14:49

Merhabalar Sekershell'deki eggdrop kelime botu kimde var acaba? olan varsa paylaşa bilirmi.

YouMyCure · 25 Ekim 2015, 15:28

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Eklenti olarak ekledim

Dahaka · 24 Nisan 2017, 11:56

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

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Eklenti olarak ekledim

Bot da tepki yok ki..hiç bi şekilde !basla dedigim halde

Emrehan · 24 Nisan 2017, 13:28

Tcl güncel değildir.

aquabluee · 25 Nisan 2017, 03:57

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

Bot da tepki yok ki..hiç bi şekilde !basla dedigim halde

tcl icindeki bu kodu bulup

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

if {[catch {incr tghintnum}]!=0} { set tghintnum 0 regsub -all {ğ} $tgcurrentanswer "g" tgcurrentanswer regsub -all {Ğ} $tgcurrentanswer "G" tgcurrentanswer regsub -all {ü} $tgcurrentanswer "u" tgcurrentanswer regsub -all {Ü} $tgcurrentanswer "U" tgcurrentanswer regsub -all {ş} $tgcurrentanswer "s" tgcurrentanswer regsub -all {Ş} $tgcurrentanswer "S" tgcurrentanswer regsub -all {ı} $tgcurrentanswer "i" tgcurrentanswer regsub -all {İ} $tgcurrentanswer "I" tgcurrentanswer regsub -all {ö} $tgcurrentanswer "o" tgcurrentanswer regsub -all {Ö} $tgcurrentanswer "O" tgcurrentanswer regsub -all {ç} $tgcurrentanswer "c" tgcurrentanswer regsub -all {Ç} $tgcurrentanswer "C" tgcurrentanswer regsub -all -- "\[^A-Za-z0-9\]" $tgcurrentanswer "" _hintchars set tgmaxhintcurrent [expr [strlen $_hintchars]<=$tgmaxhint?[expr [strlen $_hintchars]-1]:$tgmaxhint] catch {tgunbindhintcmd} if {$tgmaxhintcurrent>0} { set tgrebindhinttimer [utimer $tgtempnohint tgbindhintcmd] } }

alttaki kod ile değistirir

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

if {![info exists tghintnum]} {                 set tghintnum 0 regsub -all {ğ} $tgcurrentanswer "g" tgcurrentanswer regsub -all {Ğ} $tgcurrentanswer "G" tgcurrentanswer regsub -all {ü} $tgcurrentanswer "u" tgcurrentanswer regsub -all {Ü} $tgcurrentanswer "U" tgcurrentanswer regsub -all {ş} $tgcurrentanswer "s" tgcurrentanswer regsub -all {Ş} $tgcurrentanswer "S" tgcurrentanswer regsub -all {ı} $tgcurrentanswer "i" tgcurrentanswer regsub -all {İ} $tgcurrentanswer "I" tgcurrentanswer regsub -all {ö} $tgcurrentanswer "o" tgcurrentanswer regsub -all {Ö} $tgcurrentanswer "O" tgcurrentanswer regsub -all {ç} $tgcurrentanswer "c" tgcurrentanswer regsub -all {Ç} $tgcurrentanswer "C" tgcurrentanswer regsub -all -- "\[^A-Za-z0-9\]" $tgcurrentanswer "" _hintchars                 set tgmaxhintcurrent [expr [strlen $_hintchars]<=$tgmaxhint?[expr [strlen $_hintchars]-1]:$tgmaxhint]                 catch {tgunbindhintcmd}                 if {$tgmaxhintcurrent>0} {          set tgrebindhinttimer [utimer $tgtempnohint tgbindhintcmd]        }    } else { incr tghintnum }

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Çay varmı çay ?	eLLya	Serbest Kürsü	0	11 Eylül 2013 11:00
OGO kullanan varmı	Alovepoem	Merak Ettikleriniz	0	28 Temmuz 2006 23:44
Bi kod varmı	Ba_rr_aN	Chat ve IRC	3	16 Mayıs 2005 13:51

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.