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

saywhat · 03 Ocak 2013, 05:29

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

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
TCL istek	Sephiroth	Eggdrop, NeoStats, BNC	1	16 Kasım 2012 02:55
kod istek	zordayim	mIRC Scripting Sorunları	4	06 Ağustos 2008 00:15
!radyo , !istek istek parçasi	Yunus	mIRC Scripting Sorunları	2	21 Temmuz 2008 21:11
tcl istek	hipokrat	TCL Scriptler	0	17 Ocak 2008 09:08

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.