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

- Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)

- - Tcl İstek (https://www.ircforumlari.net/eggdrop-neostats-bnc/320294-tcl-istek.html)

Cevap: Tcl İstek

TCL Scripting, de yapmak mümkün..

Cevap: Tcl İstek

Alıntı:

VeySeL Nickli Üyeden Alıntı (Mesaj 1040341353)

hazır lokmaya konmayalım, kendin ara bul/yap geliştir kendini derim sana, senin için.

bende o kadar profesyonel değilim :)

burada, nasıl olsa yardımsever cevap veren..
yapan eden insanlar var..
neden kendisi arayıp birşeyler yapma çabasına girsin ki..
o kadar kafa patlatılır mı seninde verdiği cevaba bak.. :)

ben sorumu sorarım istediğime cevabı alırım..
altınada imzamı çakarım diyen..
bir zihniyette arkadaş.. ;)

Cevap: Tcl İstek

arkadaşım bu güne kadar yaptık yapmadık degil bu olmuyor işde

PHP- Kodu:

   [18:45] <04@AspavA> !karaliste BilinmeyeN
[18:44] <04AspavA> !karaliste
[18:44] <SBC> 04!karaliste ekle <banmask> sebep :02Karalisteye yeni giriş ekler.
[18:44] <SBC> 04!karaliste sil <banmask> :02Karalisteden belirtilen banmask'i çıkarır.
[18:44] <SBC> 04!karaliste listele :02Yazılan global kanal için karalisteyi listeler
[18:44] <SBC> 05Global kanal oplarının kullanımıyla sınırlıdır. Komutlar kanal genelinde yazılmalıdır.
[18:45] <04AspavA> !karaliste ekle @deneme
[18:45] <04AspavA> !karaliste ekle deneme
[18:45] <04AspavA> !karaliste listele

Cevap: Tcl İstek

Alıntı:

VeySeL Nickli Üyeden Alıntı (Mesaj 1040341303)

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. ;)

;out

sen cevap ver benim cevap veresim gelmedi

hadi buyur burdan yak. tamam iyi güzel ekleme çıkartma derleme toplama + sonuc. hadi göreyim seni. nasıl yapacaksın merak ediyorum.

Cevap: Tcl İstek

Alıntı:

1001 Nickli Üyeden Alıntı (Mesaj 1040341379)

işine gelirse ben burda ipucusunu veririm ve kendimce yardımcı olabiliyorsam yazarım/söylerim esirgemem, doğru neyse ona yönlendiririm, ben ona kendisi için dedim, bakarsan üsteki posta birşeyler yapmaya çalışıyor, karalamak ve aham vahamlı bir şeklim olsaydı daha da şekil yapabilirdim, canın cehenneme diyerek ? çok iyiysen yardımcı ol.

Cevap: Tcl İstek

Alıntı:

VeySeL Nickli Üyeden Alıntı (Mesaj 1040341397)

allah aşkına sen nasıl okudun mesajımıda..
üzerine alınıpta bu şekilde bir yorum yazabildin şaşırdım..
çok kişiye yardımcı oluyorum ben..
ve bu arkadaşada yardımcı oldum..
sana sadece göz önünde bulunan ScanX den alınma..
iki örneği göstereyim..
bakalım o zamanda fikrin bu şekilde mi olacak..

Alıntı:

CooLAspavA Nickli Üyeden Alıntı (Mesaj 1040321537)

set admin_chan "#opers"
bind pub - !bansil ban:kaldirma
proc ban:kaldirma { n u h c a } {
global admin_chan
if {[onchan $n $admin_chan]==1} {
set komut "[string tolower [lindex $a 0]]"
if {$komut==""} {
putquick "PRIVMSG $c : __________________________________________________ ______"
putquick "PRIVMSG $c :| \00305 Banları kaldırmak için kullanabileceğiniz komutlar By AspavA EditioN.\003 |"
putquick "PRIVMSG $c :|________________________________________________ ______|"
putquick "PRIVMSG $c :\002\00302!bansil g :\002\00307 Bütün gline'ları açar."
putquick "PRIVMSG $c :\002\00302!bansil gz:\002\00307 Bütün gzline'ları açar."
putquick "PRIVMSG $c :\002\00302!bansil k :\002\00307 Bütün kline'ları açar."
putquick "PRIVMSG $c :\002\00302!bansil z :\002\00307 Bütün zline'ları açar."
putquick "PRIVMSG $c :\002\00302!bansil s :\002\00307 Bütün shun'ları açar."
putquick "PRIVMSG $c :\002\00302!bansil banlar :\002\00307 Bütün banları açar."
putquick "PRIVMSG $c : --------Her Bişe SizLer İçin By AspavA----------"
return 0

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

Alıntı:

CooLAspavA Nickli Üyeden Alıntı (Mesaj 825028)

if {![info exists userinfover] } {
putlog "*** spamekle Tcl Yuklenemiyo 2.0 By AspavA -- Userinfo v1.01 .tcl Yuklu Olmak Zorunda.!"
return 0
}

bind pub - !spamsil spam:sil
proc spam:sil {n u h c a} {
global botnick admin_chan
if {[onchan $n $admin_chan]==1} {
putquick "SPAMFILTER del cpNna gzline - - $a"
putquick "PRIVMSG $c $a 15-14-1> 4spamfilterdan çıkarıldı"
}
if {[onchan $n $admin_chan]==0} {
putserv "PRIVMSG $admin_chan 5$n 2!spamdel $a 14komutunu kullanmaya çalıştı!"
}
}
putlog "spamekle by aspava"

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

Cevap: Tcl İstek

şimdi kim kime ne dedi ben analamdım :) neyse boşverin. yapılmasın.

Cevap: Tcl İstek

Alıntı:

Diablo Nickli Üyeden Alıntı (Mesaj 1040341263)

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.

Cevap: Tcl İstek

eyw. hocam saolasın eksik olmaman da güzel

Cevap: Tcl İstek

Alıntı:

Nebiliymben Nickli Üyeden Alıntı (Mesaj 1040341498)

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.