[Xpyhre]

[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]

böyle birsey mümkün değilse, lütfen belirtirse sevinirim tcl coder arkadaslar.

[Paint]

Sen ne istediğini söyle kaldır NoMercy kodunu zaten ekleyememişsin.

[Xpyhre]

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]

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]

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]

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]

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:   Kodu kopyalamak için üzerine çift tıklayın!

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]

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:   Kodu kopyalamak için üzerine çift tıklayın!

 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]

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

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.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.