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/)
-   -   nick ban kick tclsi yardım (https://www.ircforumlari.net/eggdrop-neostats-bnc/434460-nick-ban-kick-tclsi-yardim.html)

aquabluee 10 Aralık 2011 15:38
nick ban kick tclsi yardım
 
bu komutu tcl olarak yapabılırmıyız bota
Kod:
on *:TEXT:!yasak *:#:{
  if ($nick isop $chan) { /mode $chan +b $2 | /kick $chan $2 0,1Kurallara Uymadığınız İcin Kanaldan Uzaklaştırıldınız..İp Adresiniz Banlanmıştır.Kurallar İçin /Rules Yazınız
  }
}


on *:TEXT:!nick *:#:{
  if ($nick isop $chan) { /mode $chan +b $2 | /kick $chan $2 12 Lütfen Nickinizi Degiştiriniz..! 4 (/nick YeniNick)
  }
}


on *:TEXT:!sus*:#:{
  if ($nick isop $chan) { /ban $chan $2 2 }
}

toXic 10 Aralık 2011 18:31
Cevap: nick ban kick tclsi yardım
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Bunlardan yapabilirsiniz.

CLubber 10 Aralık 2011 20:55
Cevap: nick ban kick tclsi yardım
 
Kod:
bind pub - !yasak msg_forbid
proc msg_forbid {nick uhost handle chan arg} {
  global botnick
  set person [lindex $arg 0]
  set mask "[string range [lindex [split [getchanhost $person $chan] "@"] 1] 0 end]"
  if {$person == $botnick} {return}
  if {[isop $nick $chan] || [ishalfop $nick $chan] || [onchan $nick "#Opers"]} {
    putquick "PRIVMSG IRC mode $chan +b [getchanhost $person $chan]"
    putquick "kick $chan $person Kanal kurallarına uymadığınız tespit edildi. IP'niz banlandı."
  }
}
bind pub - !nick msg_nickban
proc msg_nickban {nick uhost handle chan arg} {
  global botnick
  set person [lindex $arg 0]
  if {$person == $botnick} {return}
  if {[isop $nick $chan] || [ishalfop $nick $chan] || [onchan $nick "#Opers"]} {
    putquick "PRIVMSG IRC mode $chan +b $person"
    putquick "kick $chan $person Kanal kurallarına uymadığınız tespit edildi. IP'niz banlandı."
  }
}
bind pub - !sus msg_silence
proc msg_silence {nick uhost handle chan arg} {
  global botnick
  set person [lindex $arg 0]
  set mask "[string range [lindex [split [getchanhost $person $chan] "@"] 1] 0 end]"
  if {$person == $botnick} {return}
  if {[isop $nick $chan] || [ishalfop $nick $chan] || [onchan $nick "#Opers"]} {
    putquick "PRIVMSG IRC mode $chan +b [getchanhost $person $chan]"
    putquick "NOTICE $person Kanal kurallarına uymadığınız tespit edildi. IP'niz banlandı."
  }
}
 
putlog "Ban TCL v1.0 - Written By CLubber"


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

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net