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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)
-   -   tcl istek (https://www.ircforumlari.net/eggdrop-neostats-bnc/517010-tcl-istek.html)

Xpyhre 12 Aralık 2012 01:32
tcl istek
 
[PHP]on *:SOCKOPEN:irobot: { %irnick = Techv5- $+ $r(100,9999) sw $sockname NICK %irnick sw $sockname USER $qidentdx "" " $+ $iif($host,$host,$ip) $+ " : $+ $qlogo } on *:SOCKREAD:irobot: { var %r sockread %r tokenize 32 %r if $1 == PING { sw $sockname PONG $2 } if $2 == 376 || $2 == 422 { sw $sockname oper Daemon 19899 } if $2 == 381 { sw $sockname MODE %irnick -s sw $sockname join 0, sw $sockname KILL Sysop_IRobot IRobot - Coded by Daemon (auto reconnect) .timer 1 2 sw $sockname NICK Sysop_IRobot } if $2 == NICK { if $right($3,-1) == Sysop_IRobot { sw $sockname MODE Sysop_IRobot +HB-h sw $sockname MODE Sysop_IRobot -s sw $sockname ns identify 19899 .timer 1 5 sw $sockname SAJOIN Sysop_IRobot #opers,#bots,#helpdesk,#globaldesk,#webdesk,#localdesk,#yönetim } if $botfnick($1) == Sysop_IRobot { sw $sockname KILL Sysop_IRobot Re .timer 1 3 sw $sockname NICK Sysop_IRobot } } if $2 == 319 { var %i 1 , %chans $right($5-,-1) while %i <= $numtok(%chans,32) { sw $sockname SAJOIN Sysop_IRobot $delprefix($gettok(%chans,%i,32)) inc %i } } if $2 == 366 { if $hget(kanalkapat,$4) { sw $sockname TOPIC $4 :4Bu kanal Efsanesohbet IRC Sunucusu kurallarina aykiri hareketlerinden dolayi kapatilmistir. Ayrintili bilgi icin: 12
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sw $sockname MODE $4 +miO } if $4 != #Opers && $4 != #helpdesk && $4 != #globaldesk && $4 != #localdesk && $4 != #Bots { sw $sockname PART $4 } } if $2 == 353 { var %i 1 , %nicks $right($6-,-1) while %i <= $numtok(%nicks,32) { if $hget(kanalkapat,$5) { if $xisprefix($gettok(%nicks,%i,32)) { sw $sockname MODE $5 -ohva $delprefix($gettok(%nicks,%i,32)) $delprefix($gettok(%nicks,%i,32)) $delprefix($gettok(%nicks,%i,32)) $delprefix($gettok(%nicks,%i,32)) } } if $hget(killnick,$noprefix($gettok(%nicks,%i,32))) { ; sw $sockname MODE $5 +aoq Sysop_IRobot Sysop_IRobot Sysop_IRobot if $xisprefix($gettok(%nicks,%i,32)) { sw $sockname MODE $5 -ohva $noprefix($gettok(%nicks,%i,32)) $noprefix($gettok(%nicks,%i,32)) $noprefix($gettok(%nicks,%i,32)) $noprefix($gettok(%nicks,%i,32)) } sw $sockname MODE $5 +oaqbb Sysop_IRobot Sysop_IRobot Sysop_IRobot $noprefix($gettok(%nicks,%i,32)) $+ !*@* *!*@ $+ $iif($hget(userip,$noprefix($gettok(%nicks,%i,32))),$ifmatch,noip) sw $sockname KICK $5 $noprefix($gettok(%nicks,%i,32)) :Efsanesohbet IRC Sunucusu kurallarina uymadiginiz icin uzaklastirildiniz. Ayrintili bilgi icin: 12
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sw $sockname TEMPSHUN $noprefix($gettok(%nicks,%i,32)) TEMPSHUN by Sysop_IRobot } inc %i } } if $2 == 340 && $len($4) > 3 { hadd -m userip $gettok($right($4,-1),1,61) $gettok($4,2,64) } if $2 == PRIVMSG && $3 == #opers { var %irt $right($4-,-1) if $gettok(%irt,1,32) == .kill && (Daemon iswm $botfnick($1) || Efsane iswm $botfnick($1) || $botfnick($1) == NoMercy) { killnick $gettok(%irt,2,32) } if $gettok(%irt,1,32) == .kanalkapat && Efsane iswm $botfnick($1) { kanalkapat $gettok(%irt,2,32) } if $gettok(%irt,1,32) == .kanalkapat && Daemon iswm $botfnick($1) { kanalkapat $gettok(%irt,2,32) } } if $2 == PRIVMSG && $3 == #Localdesk { var %irt $right($4-,-1) if $gettok(%irt,1,32) == !Shun && * iswm $botfnick($1) { killnick $gettok(%irt,2,32) sw $sockname privmsg #Opers : 4 $gettok(%irt,2,32) 2nicki için !Shun Komutu kullanıldı. Kullanan 4 %::nick 2Sebep (4 $6- 2) sw $sockname privmsg #Localdesk : $gettok(%irt,2,32) nicki networkdaki her kanaldan atilmistir. } if $gettok(%irt,1,32) == .kanalkapat && * iswm $botfnick($1) { kanalkapat $gettok(%irt,2,32) sw $sockname privmsg #Opers : $gettok(%irt,2,32) kanalina gerekli topic atilip kanal modlari (+mi) alinmistir. sw $sockname privmsg #Localdesk : $gettok(%irt,2,32) kanalina gerekli topic atilip kanal modlari (+mi) alinmistir. } } if $2 == PRIVMSG && $3 == #Globaldesk { var %irt $right($4-,-1) if $gettok(%irt,1,32) == !Shun && * iswm $botfnick($1) { killnick $gettok(%irt,2,32) sw $sockname privmsg #Opers : 4 $gettok(%irt,2,32) 2nicki için !Shun Komutu kullanıldı. Kullanan 4 %::nick 2Sebep (4 $6- 2) sw $sockname privmsg #Globaldesk : $gettok(%irt,2,32) nicki networkdaki her kanaldan atilmistir. } if $gettok(%irt,1,32) == .kanalkapat && * iswm $botfnick($1) { kanalkapat $gettok(%irt,2,32) sw $sockname privmsg #Opers : $gettok(%irt,2,32) kanalina gerekli topic atilip kanal modlari (+mi) alinmistir. sw $sockname privmsg #Globaldesk : $gettok(%irt,2,32) kanalina gerekli topic atilip kanal modlari (+mi) alinmistir. } } if $2 == PRIVMSG && $3 == #Helpdesk { var %irt $right($4-,-1) if $gettok(%irt,1,32) == !Shun && * iswm $botfnick($1) { killnick $gettok(%irt,2,32) sw $sockname privmsg #Opers : 4 $gettok(%irt,2,32) 2nicki için !Shun Komutu kullanıldı. Kullanan 4 %::nick 2Sebep (4 $6- 2) sw $sockname privmsg #Helpdesk : $gettok(%irt,2,32) nicki networkdaki her kanaldan atilmistir. } } if $2 == JOIN { if $botfnick($1) == Sysop_IRobot && $hget(kanalkapat,$right($3,-1)) { sw $sockname MODE $right($3,-1) +oaq Sysop_IRobot Sysop_IRobot Sysop_IRobot sw $sockname cs set $right($3,-1) topiclock off sw $sockname cs access $right($3,-1) del 1-999 sw $sockname cs set $right($3,-1) password $r(99999,99999999999) sw $sockname cs set $right($3,-1) founder E-ADMIN sw $sockname cs set $right($3,-1) desc Efsane Sohbet, Chat odaları - Efsane Mirc download - Mynet Sohbet sw $sockname cs set $right($3,-1) mlock +ntim sw nomercy cs suspend $right($3,-1) 12Efsanesohbet Yönetimi Reklam tarafından kapatmıştır. sw $sockname privmsg #opers $right($3,-1) kanalı kapatılmıştır. } } }

























Yukaridaki nomercy'nin içerisindeki irobot mirc kodunu tcl scripte cevirebilecek bir arkadaşimiz varsa yardimci olursa sevinirim.[/PHP]amaç opers kanalindan eggdrop'u kullanarak kanallara otomatik girip ban atip kanaldan tekrar cikmasidir. örnek


if $hget(killnick,$noprefix($gettok(%nicks,%i,32))) { ; sw $sockname MODE $5 +aoq Sysop_IRobot Sysop_IRobot Sysop_IRobot if $xisprefix($gettok(%nicks,%i,32)) { sw $sockname MODE $5 -ohva $noprefix($gettok(%nicks,%i,32)) $noprefix($gettok(%nicks,%i,32)) $noprefix($gettok(%nicks,%i,32)) $noprefix($gettok(%nicks,%i,32)) } sw $sockname MODE $5 +oaqbb Sysop_IRobot Sysop_IRobot Sysop_IRobot $noprefix($gettok(%nicks,%i,32)) $+ !*@* *!*@ $+ $iif($hget(userip,$noprefix($gettok(%nicks,%i,32))),$ifmatch,noip) sw $sockname KICK $5 $noprefix($gettok(%nicks,%i,32)) :Efsanesohbet IRC Sunucusu kurallarina uymadiginiz icin uzaklastirildiniz. Ayrintili bilgi icin: 12
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sw $sockname TEMPSHUN $noprefix($gettok(%nicks,%i,32)) TEMPSHUN by Sysop_IRobot

Xpyhre 13 Aralık 2012 15:57
Cevap: tcl istek
 
böyle birsey mümkün değilse, lütfen belirtirse sevinirim tcl coder arkadaslar.

Paint 13 Aralık 2012 22:25
Cevap: tcl istek
 
Sen ne istediğini söyle kaldır NoMercy kodunu zaten ekleyememişsin.

Xpyhre 14 Aralık 2012 02:34
Cevap: tcl istek
 
Nomercy botunda ek olarak Sysop_İRobot var, tek 1 kanalda duruyor. Kanal genellerinde reklam yapildiğinda reklam yapilan kanala girip, kendine otomatik op alip kullaniciyi kanaldan banliyor. Sonra tekrar kanaldan ayriliyor. bu işi eggdrop'a yaptirabilirmiyiz? bunu anlatmak istemiştim.

Xpyhre 16 Aralık 2012 21:37
Cevap: tcl istek
 
Socket botlar piyasaya sürüldüğünden bu yana eggdroplara ilgi azaldi. Bunun için ne bir eggdrop tcl üreten var nede destek sağlayan birileri konunun kilitlenmesini istiyorum nede olsa kimse olur bişey söylemiyor.. iyi ifler.

saywhat 17 Aralık 2012 11:06
Cevap: tcl istek
 
tcl , mirc scripting'den farklı....niye?
tcl bir programlama dili.eggdrop ise tcl dili kullanarak üretilmiş programlardan sadece biri.

shell scriptlerinden [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Cisco IOS scriptlerine [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] UNIX sistemler için kullanılabilen eklentilere [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

hatta Mars'a gönderilen pathfinder aracındaki yazılımlara dek [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] geniş bir kullanım alanı olan sürekli gelişen değişen gelecek vaad eden bir dil.

bizle alakalı şöyle bir sorun var: bu dil ülkemizde çokda tanınıp popüler olabilmiş bir dil değil bir java bir C vs gibi değil en azından.henüz değil...

bu dili öğrenmek yada bunla birşeyler yapmak istediğinizde önünüze şöyle bir engel çıkıyor.Tcl dili ile alakalı hiçbir doküman hiçbir inceleme hiçbir pratik uygulama vs gibi yararlanabileceğiniz Türkçe kaynak yok.tüm dökümanlar kitaplar hepsi İngilizce .... [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

henüz programlama öğreten fakültelerde bile bu dil tanıtılıp öğretiliyor değil.yani öğrenmek isteyen bir anlamda kendiyle başbaşa.ne yaparsa kendine yapar.yardım istyebilecek takıldığın yerde soracak kimsende yok.ingilizce dökümanlardan ne kadar anlayabilir öğrenebilirsen ancak o kadar ilerleyebilirsin.

o nedenle eggdrop tcl scripting olayıyla mirc scripting bir tutulabileck kıyaslanacak şeyler değil benim gözümde.mirc scripting öğrenmek kolay niye Türkçe ulaşabileceğiniz bir sürü kaynak var.sorup öğrenebileceğiniz bir sürü usta var...bunda yok öyle bir şey herkez öğrenmeye çözmeye çalışıyor.kiminin bildiğini diğeri bilmiyor.kimi diğerinden birkaç adım önde olabilir ama usta denebilecek tcl hacker denebilecek kimse yok.

gelelim yardım olayına: kişiye özel yada siz isteyin biz kafa patlatır yapıp veririz türü "paylaşımların" yardım olduğuna inanmıyorum.burda verdiğim kodlar içinde şuan benim aktif olarak kullandığım işime yarayan tek bir kod dahi yok.6 botum 3 ayrı sunucuda duruyor ama burda başkasına verdiğim kodların hiçbiri benim işime yaramış değil...karşı taraf yada benzer sıkıntı çeken 3. şahısın işine yaramayacak sadece o isteyen kişiye özel kod yazmak en azından benim için yardım kelimesinin anlamını aşıyor.

birşeyler paylaşıyor yardımlaşıyorsak bu platformda ben bilmeliyim ki burda yazdığım şey gün gelecek aynı sorunu sıkıntıyı yaşayacak başka arkadaşlarında işini görebilecek,o zaman burda harcadığım zamanın boş olmadığını bileceğim.

Xpyhre 17 Aralık 2012 20:11
Cevap: tcl istek
 
saywhat; aciklayici oldu saol. Benim istediğim tcl özel istek oluyor haklisin, fakat ben birisi yapabilir, veya elinde mevcuttur, düşüncesi ile actim bu konuyu. Kişiye özel tcl yi yardim olarak görmeyebilirsin. Benim istediğim tcl başkalarinin belki, işine yaramaz biliyorum. Lakin bu işlerle hobi olarak ilgilenenler oluyor onun için boş zamaninda birisi yapar paylaşir düşüncesindeydim . Keyifli forumlar, konu kilitlenebilir.

saywhat 03 Ocak 2013 05:29
Cevap: tcl istek
 
tam anlamıyla bota ne yaptırmak istediğinizi anladığımı söyleyemem.birkaç kere okumama rağmen....(aslında yavaş anlayan biride değilimdir ama...)

ben şimdi can sıkıntısından yazdığım bu kodu anlatayım...(okuduğumdan böyle bişey istediğinizi anlayabildim)
.chanset #kanalınız +tep komutuyla kodu kullanacağınız kanalı seçmelisiniz.(telnet/dcc üstünden)

o kanalda en az op olanlar !tep kanal nick sebep
diyecek bot o kanala girip operserv'den op alıp belirtilen nicki ban+kick edecek...iş bitince çıkacak...(niyetiyle yazdım..ama gecenin bu saati itibariyle yorgun,bıkkın ve üzerime tembellik çöktüğünden artık... kodu denemedim çalışıp çalışmadığını doğru şekilde bilemiyorum doğrusu.(her zamanki gibi))

koda baktığımda hata verebilecek bi durum görmediğimden(yada göremiyecek kadar dikkatim dağıldığından) denemeniz için ahan buraya postalıyorum deneyin.bi hata-işlememezlik vs gibi durumda buraya belirtin yada istediğiniz kod bu mudur? daha açıklayıcı olabilirse... ben kanal kick-ban diye yazdım ama onu ne yapmak istiyorsanız hedef kişiye ona göre değişirsiniz... neyse...

Kod:
setudef flag tep
bind pub -|- !tep tepik:at
proc tepik:at {nick host hand chan text} {
  global botnick depknl depnick sebep
  if {![channel get $chan tep]} {
  return
  }
  if {![isop $nick $chan]} {
  return
  } 
 set depnick [lindex $text 1]
 set depknl [lindex $text 0]
 set sebep [lrange $text 2 end]
 if {$depnick == ""} {
 puthelp "privmsg $chan hatali kullanim: !tep kanal nick sebep"
 return 0
 }
 if {$depknl == ""} {
 puthelp "privmsg $chan hatali kullanim: !tep kanal nick sebep"
 return 0
 }
 if {$sebep == ""} {
 puthelp "privmsg $chan hatali kullanim: !tep kanal nick sebep"
 return 0
 }
 channel add $depknl
    putnow "operserv mode $depknl +o $botnick"
 if {[botonchan $depknl] && [botisop $depknl] && [onchan $debnick $depknl]} {
 set host [getchanhost $depnick $depknl]
    set banmask "*!*[string trimleft [string range $host [string first "!" $host] end] ?^~-_+?]"
 utimer 1 pushmode $depknl +b $banmask
 putserv "kick $depknl $depnick : $sebep"
 utimer 4 "channel remove $depknl"
 }
}

saywhat 03 Ocak 2013 19:50
Cevap: tcl istek
 
ayık kafayla: denendi hataları giderildi.renk vs katılıp allanıp pullandı.
kullanımı:
hangi kanal üzerinden kullanılmak isteniyorsa:
.chanset #kanal-adı +dep
kullanım şekli !tep <#hedef-kanal> <hedef-nick> (< > olmadan*)
kanala girer operservden op alır belirtilen nick'e kick+ban atıp o kanaldan çıkar...(ban atma şekli +b nick*!*ident@hostu şeklinde ayarlıdır...)
Kod:
namespace eval tpk {
 foreach p [array names tpk *] {
 catch {unset tpk($p)}
    }
 }
 
 variable tpk
 array set tpk {
        semb "!"
        renk1 \00314
        renk2 \00303
        sebep "buraya atilma sebebi yazilmali yoksa bu mesajla atmaya devam eder..."
    }
    variable depnick {}
    variable depknl {}
 
  setudef flag dep
 
bind pub -|- $tpk(semb)tep ::tepik:at
 
proc ::tepik:at {nick host hand chan text} {
  global botnick
  variable tpk
  variable depnick
  variable depknl
  if {![channel get $chan dep]} {
  return
  }
  if {![isop $nick $chan]} {
  return
  } 
    set depknl [lindex $text 0]
    set depnick [lrange $text 1 end]
 if {$depnick == ""} {
 puthelp "privmsg $chan : $tpk(renk1)hatali kullanim: $tpk(renk2) !tep kanal nick"
 return 0
 }
 if {$depknl == ""} {
 puthelp "privmsg $chan : $tpk(renk1)hatali kullanim: $tpk(renk2) !tep kanal nick"
 return 0
 }
 channel add $depknl
    putnow "operserv mode $depknl +o $botnick"
  if {![botonchan $depknl] || ![botisop $depknl]} {
  return 0
  }
    if {![onchan $nick $chan]} {
  puthelp "privmsg $chan :$tpk(renk1) $depknl $tpk(renk2)'inda  $tpk(renk1) $depnick $tpk(renk2)bulunamadi..."
  return 0
  }
    set host [getchanhost $depnick $depknl]
    set banmask "*!*[string trimleft [string range $host [string first "!" $host] end] ?^~-_+?]"
  utimer 1 "pushmode $depknl +b $depnick$banmask"
  putserv "kick $depknl $depnick :$tpk(renk2) $tpk(sebep)"
  utimer 4 "channel remove $depknl"
}
 
putlog "yuklenmedi demeyin..yuklendi,yuklendi..."

CLubber 03 Ocak 2013 20:50
Cevap: tcl istek
 
Alıntı:
saywhat Nickli Üyeden Alıntı (Mesaj 1041265420)
ayık kafayla: denendi hataları giderildi.renk vs katılıp allanıp pullandı.
kullanımı:
hangi kanal üzerinden kullanılmak isteniyorsa:
.chanset #kanal-adı +dep
kullanım şekli !tep <#hedef-kanal> <hedef-nick> (< > olmadan*)
kanala girer operservden op alır belirtilen nick'e kick+ban atıp o kanaldan çıkar...(ban atma şekli +b nick*!*ident@hostu şeklinde ayarlıdır...)
İstediği daha karışık yapıda bir tcl. Sysop_IRobot'un çalışma mantığı SwatBotlar ile alakalı.

SwatBotlar kanala giriş/çıkış yaparak özele oto mesaj atan/reklam içeren kullanıcıyı Sysop_IRobot'a bildiriyor.

Sysop_IRobot kullanıcıya whois çekerek RAW 319'dan kanalları alıyor, kanallara giriş yapıyor ve operatör olarak kullanıcıyı banlıyor, sonra tekrar çıkıyor.

İstediği şey zor birşey değil SwatBot ve IRobot TCL scripting dili ile kolayca yazılabilir, ama tek sorun, KPDS'ye hazırlanıyor olmam.

Yapmak istersen, 1 swatbot ve bir IRobot oluşturman yeterli. SwatBotu global kanalların hepsine sokup, 15 dakikada bir cycle yapmalarını sağlayabilirsin.

Özele Reklam TCL'sini SwatBot'a ekleyerek, özelde olan reklamı IRobot'un özeline .reklam nick vs. gibi bir komutla iletmesini sağlayabilirsin.

Sonrasında bind msg aracılığı ile, SwatBottan gelen nicki, IRobot'un almasını sağlayabilirsin.

IRobot'un kullanıcıya whois çekmesini sağlayıp, RAW 319'daki kanallara girişini yaparak banlamasını sağlayabilirsin.

Mantığı ben anlattım, gerisi sana kalmış.

Kolay gelsin. ;s5

saywhat 03 Ocak 2013 22:42
Cevap: tcl istek
 
aham..okuyup anlamamam normalmiş öyleyse....benim olduğum hiç bir sunucuda böyle şeyler kullanılmıyordu...:p
şimdi anladım spam yapanı kanala girip atacak diyince ben sandım acaba spam yapıldığında snotice felan mi gidiyor operlara şu kanalda şu nick şunu yazdı vs gibisinden ...böyle bi uyarı alıyosanız aldığınız mesajı postlayın ondan yakalattırayım diye aklımdan geçiyordu.bu söylediğin hiç aklıma gelmemişti....

böyle bir tcl ben görmüştüm galiba iki botla çalışan biri cycle edip spam atan varmı kontrol ediiyor diğerine bildiriyorda oda cezasını kesiyor vs vs ..böyle bir kod gördüğümü hatırlıyorum da Singapurluların felandı galiba hatırlamıyorum doğrusu.nerde gördüm adı neydi kim tutar aklında .elin singapurlusunu.......


hatırladım nerde gördüğümü bu awyeah'in yazdığıydı ... [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] gerçi bu adam Hintli galiba aklımda Singapurlu diye kalmış.:p

saywhat 05 Ocak 2013 13:23
Cevap: tcl istek
 
dün akşam üstü başladım yarısından fazlası 55-60 satır yazdım sonra canım sıkıldı durdum bi yandan düşünüyordum Allah aşkına ben ne yapıyorum böyle .... bu kodun amacı yaptırılmak istenen şeyin amacı birazda olsa sizede saçma gelmiyor mu?freenode'a girdim.akşam 11 12 felandı ,80bin küsür kişi online 5bin bilmemkaç kayıtlı kanal ....15-20 kanala girdim ..bir tane ne oper gördüm nede ortalarda fink atan bot..efnet'e girdim gene öyle ki efnet piyasadaki pekçok irc yazılımının geliştiricileri ordan çııkmıştır. bopm sistemi eggdrop gibi bir anlamda bunların anavatanı sayılır.ama gene yok böyle olaylar.kanaliçi olaylara operların müdahele etmesini hiçbi zaman aklım mantığım almıyor içimede sinmiyor.onbinlerce kişinin olduğu yerler dahi böyle şeylerden uzak dururken bizdeki en kalabılığı bikaçyüz kişiden ve bolca bottan oluşan yerlerde böyle tuhaflıklar kaynıyor.spam yapanı atmak için sunucu bazında işlem gören modüller var benim hatırladığım unreal'de.böyle rahatsız edici çözümlere gerek varmıdır gerçekten?

bi oper bot niye kanala girip kanal banı uygularki? kanalın yetkilisi vardır illa atılması gerekiyorsa onlar atıverir.operların görevi kanalllarda ban-kick atmak mıdır?kanalları mı korur sunucuyu mu?kanallarıda operlar yönetecekse kanallarda niye kullanıcıya mod-yetki verilir? onlar ne işe yarar göstermelik midir?
kısaca bunda bana mantık dışı gelen ters gelen rahatsız eden şeyler var..ne zaman biter bilmiyorum..gene yapacak bişey kalmadığında canım sıkıldığında biter büyük ihtimal...ama öncelikler listemde değil artık bunu diyebilirim.yani bekleyen varsa acele etmesin...

axi10 03 Haziran 2013 02:07
Cevap: tcl istek
 
üStad konuyu yenıden hortlatmak gibi olucak ama benimde arayıpta bi turlu bulamadığım bir tcl isteğim var bununla azda olsa alakalı oldugu icin burda yazmayı uygun gordum umarım hata yapmamıs olurum.

iStediğim şey .cbans dediğim zaman kanaldaki tüm +b lerin kalkması. bu s-bot ve benzeri botlarda mevcut ama ben bunu tcl olarak istiyorum mumkunmudur?

.ban nick yaptığım da banlayan .bankick yazdığımda atan .unban nick yazdığım da kişinin banını acan bir cok tcl var. fakat tum +b leri acan bulamadım yardımcı olursanız sevinirim iyi geceler..

saywhat 03 Haziran 2013 03:14
Cevap: tcl istek
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:
# hangi kanal üstünde kullanılmak isteniyorsa kodu
# telnet/dcc üzerinden :
# .chanset #kanalınız +temiz
# komutuyla aktif etmelisiniz
# komut kullanma hakkı botunuzun kullanıcı listesindeki
# n flagı sahibine (bot sahibine)
# tanınmıştır...diğerleri kullanamaz...
# [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
setudef flag temiz
# komutu kullanma hakkı olacak kullanıcı flag'ı:
set tban(flags) "n"
# komut başına gelecek işaret-sembol:
set tban(semb) "!"
# işlem komutu ne olacaksa:
set tban(komut) "bantemiz"
 
bind pub $::tban(flags) $::tban(semb)$::tban(komut) ban:temizle
proc ban:temizle {nick uhost hand chan text} {
 if {![channel get $chan temiz] || ![botisop $chan]} { :return 0 }
 if {[chanbans $chan] == "" } {
  puthelp "privmsg $chan : $chan kanalının ban listesi boş..."
 return 0
 } else {
  resetbans $chan
  puthelp "privmsg $chan : $chan kanalındaki banlar temizleniyor."
 }
}
putlog "script yüklendi."

axi10 04 Haziran 2013 00:05
Cevap: tcl istek
 
üStad ellerinize sağlık çok tŞk ederim.

epicemic 26 Haziran 2013 23:15
Cevap: tcl istek
 
# hangi kanal üstünde kullanılmak isteniyorsa kodu
# telnet/dcc üzerinden :
# .chanset #kanalınız +temiz
# komutuyla aktif etmelisiniz]


telnet üzerinden kanali nasil aktif ederiz ?

MesqeN 27 Haziran 2013 00:05
Cevap: tcl istek
 
Alıntı:
epicemic Nickli Üyeden Alıntı (Mesaj 1041312607)
# hangi kanal üstünde kullanılmak isteniyorsa kodu
# telnet/dcc üzerinden :
# .chanset #kanalınız +temiz
# komutuyla aktif etmelisiniz]


telnet üzerinden kanali nasil aktif ederiz ?

Merhaba

Eggdrop bota Consol bağlantı gerçekleştireceksiniz..

Nasıl derseniz.

kısa bir Anlatim

Eggdrop botunuzu sunucuya gönderin..

hello

pass mesqen

ve Ardından

/ctcp botnicki chat komutunu girin..

sonra Acılan Pencereye Mevcut nickinizi ve şifreyi girin..

Detayları için altaki linki inceleyiniz.

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


consol bağlantıyı gerçekleştirdikten sonra

.chanset #kanalınız +temiz komutunu uygulayınız..


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 18:53.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk