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

>
+
Etiketlenen Kullanıcılar

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 07 Mart 2010, 14:31   #1
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Tcl İstek




!badnick nick
!kufur kufur

arkadaşlar bu tcl leri yapma imkanımız varmı yani şu şekilde olucak !badnick nick yapılınca badnick olarak eklicek nick i ayrı bi txt ye ve eklenen nick kanaldan atılcak cinsellik nalına alınacak bu şekilde bi sistem yapabilirmiyiz

sock botların çogunda var bunu eggdropa tcl olarak nasıl dökebiliriz ?

__________________
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Web Developer
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Web Developer
 
Alıntı ile Cevapla

Alt 07 Mart 2010, 14:55   #2
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Tcl İstek




sanırım daha once forumda verildi arama yapmayı denediniz mi?

__________________
SANAL IRC Network - irc.sanal.org
 
Alıntı ile Cevapla

Alt 07 Mart 2010, 15:44   #3
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Tcl İstek




eggdrop tcl olarak bulamadım bu sistemi bi kere daha konu açılmıştı ama yanıt veren olmadı hocam yardımcı olursan sevinirim

__________________
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Web Developer
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Web Developer
 
Alıntı ile Cevapla

Alt 07 Mart 2010, 17:00   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Tcl İstek




bu tür işlemleri socket botları ile yapmak mümkün ama eggdropda tcl olarak yapmak çok zor gibi gözüküyor.bir dosyaya önce yazdıracaksın sonra okutup belirtilen regexe action yaptırmak bana göre eggdrop üzerinde imkansız gibi birşey.

__________________

Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
 
Alıntı ile Cevapla

Alt 07 Mart 2010, 21:27   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Tcl İstek




Diablo Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
bu tür işlemleri socket botları ile yapmak mümkün ama eggdropda tcl olarak yapmak çok zor gibi gözüküyor.bir dosyaya önce yazdıracaksın sonra okutup belirtilen regexe action yaptırmak bana göre eggdrop üzerinde imkansız gibi birşey.

Aslında öyle değil, mirc ile bu işlemi ne kadar kodla ve de ne kadar kolayca yaptırıyorsan eggdropla da aynı şekilde yaptırabilirsin. Tcl scriptingin mirc scriptingden farkı iki yerdedir; Birincisi görsellik katamıyorsun (dialoglar v.s. gibi) ki zaten çalışma prensibi itabariyle de bu olmaz.. İkincisi ise mirc ile çoklu socket açtırabilirsin (sitelere bağlantılar, sunuculara girişler ve diğer tüm socket bağlantılar dahil) ama eggdrop ile aynı anda sadece bir socket açtırabilirsin. Bunun haricinde pek bir fark yoktur.

Arkadaşın istediği şeye gelince; tabiki yapılabilir, ancak onu yapmak senin sorarken söylediğin !badnick !kufur yazmak kadar kısa sürmez, adam akıllı birşey için oturup en az 100 satır kod yazmak gerekiyor, ben artık istek üzerine ne yazık ki kod yazmıyorum sizler yaparsanız uğraşırsanız takıldığınız yerde ufak tefek yardımlarımız olur tabiki.

 
Alıntı ile Cevapla

Alt 07 Mart 2010, 22:17   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Tcl İstek




Nebiliymben Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Aslında öyle değil, mirc ile bu işlemi ne kadar kodla ve de ne kadar kolayca yaptırıyorsan eggdropla da aynı şekilde yaptırabilirsin. Tcl scriptingin mirc scriptingden farkı iki yerdedir; Birincisi görsellik katamıyorsun (dialoglar v.s. gibi) ki zaten çalışma prensibi itabariyle de bu olmaz.. İkincisi ise mirc ile çoklu socket açtırabilirsin (sitelere bağlantılar, sunuculara girişler ve diğer tüm socket bağlantılar dahil) ama eggdrop ile aynı anda sadece bir socket açtırabilirsin. Bunun haricinde pek bir fark yoktur.

Arkadaşın istediği şeye gelince; tabiki yapılabilir, ancak onu yapmak senin sorarken söylediğin !badnick !kufur yazmak kadar kısa sürmez, adam akıllı birşey için oturup en az 100 satır kod yazmak gerekiyor, ben artık istek üzerine ne yazık ki kod yazmıyorum sizler yaparsanız uğraşırsanız takıldığınız yerde ufak tefek yardımlarımız olur tabiki.

ben yapılamaz diye kasdetmedim.bazı zorlukları dile getirdim.benim kastım en alternatif olan mirc botlardan bahsettim ve daha iyi olduğunu dile getirdim.ne kadar alt yapısına küfür yada badnickleri ekletsende bunları actiona almak vsvs kolay değil.eggdrop tcl si ile uğraşmak bana göre değil ben sadece görüşümü bildirdim.Ayrıca demişsinki ; "en az 100 satır kod yazmak gerekiyor" ben bunun kolay olmayacağını söyledim.Eminim ne demek istediğimi anlamışındır.

__________________

Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
 
Alıntı ile Cevapla

Alt 07 Mart 2010, 23:05   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Tcl İstek




yapımcısı bir şey demedikten sonra bize laf düşmez..
ScanX den arkadaşın istediği bölüm..

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
## Çalışması İstediğin Kanalları Yazınız.. set globalkanallar { "#kanal1" "#kanal2" "#kanal3" "#kanal4" "#kanal5" } ## Admin Kanalını Yazınız.. set admin_chan "#admin" ##Kullanıcının Çekilmesi İstediğiniz Kanalı Yazınız.. set cek_chan "#cinsellik" bind pub - !karaliste karalst proc karalst {nick host hand chan text} { global admin_chan globalkanallar karals:tmz if {[lsearch -exact $globalkanallar [string tolower $chan]] == -1} {return 0} if {[isop $nick $chan] || [onchan $nick $admin_chan]} { set text [karals:tmz $text] set yap [lindex [split $text] 0] if {($yap != "listele") && [llength $text] < 2} { putquick "NOTICE $nick :Kullanım: !karaliste <ekle/sil/listele> <banmask> <sebep> şeklindedir."; return 0 } set bsekli [lindex [split $text] 1] set bsebep [lrange [split $text] 2 end] if {([regexp -all -- {!} $bsekli] > 1) || ([regexp -all -- {!} $bsekli] < 1) || ([regexp -all -- {@} $bsekli] > 1) || ([regexp -all -- {@} $bsekli] < 1)} { if {$yap != "listele"} { putquick "NOTICE $nick :banmask'i nick!ident@host şeklinde belirtmelisiniz. Wildcardlar kullanılabilir. Örnek: ScanX!*@* veya *!Confused@* veya *!*@45SMO6T.*"; return 0 } } if {($yap != "listele") && ([string length $bsekli] < "9") || ([regexp -all -- {\*} $bsekli] > 5)} { putquick "NOTICE $nick :Belirttiğiniz banmask çok kapsamlı ve kısa, Lütfen kapsamını daraltınız."; return 0 } if {[string match -nocase "ekle" $yap]} { if {$bsebep == ""} { set bsebep "Sebep belirtilmedi." } regexp {(\S+/)?} "scripts/ScanX/$chan" tmp karaliste_dir if {$karaliste_dir != ""} { if {![file isdirectory $karaliste_dir]} { file mkdir $karaliste_dir putlog "Klasör oluşturuldu: $karaliste_dir" } } putquick "NOTICE $nick :Karaliste: Ban şekli: $bsekli Sebep: $bsebep --> Başarıyla karalisteye eklendi." set dl [open "scripts/ScanX/$chan.db" a] puts $dl "[join $bsekli] [join $bsebep] [join \002Ekleyen:\002] [join $nick] \n" flush $dl catch {closer $dl} } if {[string match -nocase "sil" $yap]} { if {![file exists "scripts/ScanX/$chan.db"]} { putserv "NOTICE $nick :$chan kanalı için karaliste boş zaten." return } set data "" set input [open "scripts/ScanX/$chan.db" r] while {![eof $input]} { set curline [gets $input];set curline [split $curline] if {$curline != ""} { set data [linsert $data end $curline] } } catch {close $input} set deger -1;set esles "" foreach line $data { incr deger if {[string match -nocase "$bsekli" [lindex $line 0]]} { set esles $deger break } } if {$esles == ""} { putserv "NOTICE $nick :$bsekli listede yok! Listeyi görmek için: !karaliste listele" return } set newdata [lreplace $data $deger $deger] set output [open "scripts/ScanX/$chan.db" w] foreach newline $newdata { if {$newline != ""} { puts $output $newline } } flush $output catch {close $output} putserv "NOTICE $nick :$bsekli karalisteden silindi." return } if {[string match -nocase "listele" $yap]} { if {![file exists "scripts/ScanX/$chan.db"]} { putserv "NOTICE $nick :Karaliste boş."; return 0 } set input [open "scripts/ScanX/$chan.db" r] set lines [split [read $input] \n] catch {close $input} set sayc 0 foreach line $lines { if {$line != ""} { putserv "NOTICE $nick :$line" incr sayc } } if {$sayc == 0} { putserv "NOTICE $nick :Karalistede hiç kayıt bulunamadı."; return } else { putserv "NOTICE $nick :Listenin Sonu.." } } } } bind join - * karals:join proc karals:join {nick uhost hand chan} { global globalkanallar admin_chan cek_chan karals:jtmz botnick if {[lsearch -exact $globalkanallar [string tolower $chan]] == -1 || [onchan $nick $admin_chan] || $nick == $botnick} { return 0 } set nuhost [karals:jtmz "$nick![getchanhost $nick]"] if {![file exists "scripts/ScanX/$chan.db"]} { return 0 } set kfile [open "scripts/ScanX/$chan.db" r] set lines [split [read $kfile] "\n"] catch {close $kfile} foreach lines $lines { if {$lines != ""} { if {[string match -nocase *[lindex $lines 0]* $nuhost]} { set sebep [lrange $lines 1 end-2];set ekleyen [lindex $lines end] putquick "MODE $chan -o+bb $nick [lindex $lines 0] *!*@[lindex [split $uhost @] 1]" putquick "KICK $chan $nick $sebep Sebebinden Dolayı Karalistedesin..!! (Ekleyen:$ekleyen) \00302(\00304ScanX\00302)\003" putquick "OS RAW SVSJOIN $nick $cek_chan" putquick "NOTICE $nick Karalistede Olduğun için $cek_chan Kanalına Alındınız.. \00302(\00304ScanX\00302)\003" } } } } proc karals:jtmz {i} { regsub -all -- \\\\ $i \001 i regsub -all -- \\\[ $i \002 i regsub -all -- \\\] $i \003 i regsub -all -- \\\} $i \004 i regsub -all -- \\\{ $i \005 i return $i } proc karals:tmz {i} { regsub -all -- \\\\ $i \\\\\\\\ i regsub -all -- \\\[ $i \\\\\[ i regsub -all -- \\\] $i \\\\\] i regsub -all -- \\\} $i \\\\\} i regsub -all -- \\\{ $i \\\\\{ i regsub -all -- \\\" $i \\\\\" i return $i }


 
Alıntı ile Cevapla

Alt 07 Mart 2010, 17:08   #8
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Tcl İstek




hocam imkansaız diye bişe varmıdır ki burada nice insanlar var bunu yapabilcek

__________________
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Web Developer
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Web Developer
 
Alıntı ile Cevapla

Alt 07 Mart 2010, 17:16   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Tcl İstek




CooLAspavA Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
hocam imkansaız diye bişe varmıdır ki burada nice insanlar var bunu yapabilcek

yapacak olsaydı nice eggtcl yapımcıları var önce onlar yapardı.sen eggdropu, botserv botu yada socket botlarıyla karıştırıyosun.alt yapılarını inceleyip bakarsan ne demek istediğimi anlıcaksın.

__________________

Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
 
Alıntı ile Cevapla

Alt 07 Mart 2010, 17:30   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Tcl İstek




kafayı veren yapabilir bence imkansızda ne demek, ScanX botunda !muafekle nick, !karaliste nick varda bunlarmı olmicak, o kodlarla yola çıkarak kendine göre birşeyler yapabilirsin.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.



Alıntı:
if {($yap != "listele") && ([string length $bsekli] < "9") || ([regexp -all -- {\*} $bsekli] > 5)} { putquick "NOTICE $nick
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
elirttiğiniz banmask çok kapsamlı ve kısa, Lütfen kapsamını daraltınız."; return 0 }
if {[string match -nocase "ekle" $yap]} {
if {$bsebep == ""} {
set bsebep "Sebep belirtilmedi."
}
regexp {(\S+/)?} "scripts/ScanX/$chan" tmp karaliste_dir
if {$karaliste_dir != ""} {
if {![file isdirectory $karaliste_dir]} {
file mkdir $karaliste_dir
putlog "Klasör oluşturuldu: $karaliste_dir"
}
}


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

__________________
n/a

Konu insane tarafından (07 Mart 2010 Saat 17:39 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Cevapla

Etiketler
istek, tcl, İstek


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

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
Bot İstek Knuckles Eggdrop, NeoStats, BNC 7 03 Kasım 2009 15:43
İstek Kod mAd mIRC Scripting Hazır Kodlar 5 30 Temmuz 2009 22:21
İstek Kungiman PHP 2 29 Mayıs 2009 19:00
İstek ( Kod ) PoweR mIRC Scripting Sorunları 20 28 Temmuz 2008 20:23
Tcl İstek ? sereserpe Eggdrop, NeoStats, BNC 2 04 Ağustos 2007 02:28