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)

!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 ?

Cevap: Tcl İstek

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

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

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.

Cevap: Tcl İstek

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

Cevap: Tcl İstek

Alıntı:

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

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.

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

Alıntı:

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

;out

Cevap: Tcl İstek

hmmm ide hocam adam akıllı bi sock bot bulamadım ki buluyoz ya bişeyi çalışmıyor yada kafayı bozuyor oyun botlarını v.s atıyor bulamadım ki.

----------

hocam bana o scanx in kara liste ekleme kodunu ayrı bi tcl ye koyabilirmisin ?

Cevap: Tcl İstek

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

bende o kadar profesyonel değilim :)

Cevap: Tcl İstek

valla ben ona ugraşıyorum ama çalışmıyor tcl :) giriyor tcl sorun yok ama komutu almıyor :)

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)

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.

Cevap: Tcl İstek

ilk parağraf senden alıntı yaptığım kısma, ikinci parağraf konu açan arkadaşa cevaptı sanırım sen iki parağrafı da senin söylediklerine cevap olarak almışsın.

Cevap: Tcl İstek

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

Kod:

## Ç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

}

Cevap: Tcl İstek

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],baba büyüksün tamam :))

Cevap: Tcl İstek

Alıntı:

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

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],baba büyüksün tamam :))

sen hala ne demek istediğimi anlamamışsın ya neyse..
konu fazla dağılmasın..

Cevap: Tcl İstek

1001, seni çok iyi anladım :) ama benim posta alıntı yaparak yazdın bir anda bana karşı yazdığını sandım, neyse işimize bakalım yardımcı olabiliyorsak ne mutlu bize :)