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/)

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - tcl isteği (https://www.ircforumlari.net/tcl-scriptler/771182-tcl-istegi.html)

Joop	06 Nisan 2017 17:29

tcl isteği

Merhabalar, Bir TCL ye ihtiyacım var kanalda ve boyun sozelında

!op dediğinde op kanalına cekicek
!operhelp dediğinde operhelp kanalına cekecek kişiyi
buldugum kodlardan yapmaya calısdım ama op olması gerekiyor komutu verenın. oysakı ben herkesın yazabılmesını ıstıyorum

aquabluee

07 Nisan 2017 16:50

Cevap: tcl isteği

Kod:

set admin_chan "#Opers"

set oplar "#op"
 

bind pub - !op opgiris
 

proc opgiris { n u h c a } {
 

  global oplar admin_chan
 

     putquick "OS Raw svsjoin $n $oplar"

     putquick "privmsg $c :0,12op kanalına girisiniz basariyla saglandi $n"

     putquick "privmsg $admin_chan :$n nickli kullanıcı, op kanalına giriş yaptı."

}

#opers kanalında olan kişiler !op yaptıklarında op kanalına alır #opers yerını kendıne gore duzenlıyebılırsın

Joop	07 Nisan 2017 20:59

Cevap: tcl isteği

bunu her kanal ve özel için duzenleyemezmıyız ?
mesela bu botun ozeline !operhelp denildiğindekişiyi operhelpe ceksin.
veyahut herhangi bir kanaldada !operhelp dediğinde kişiyi çeksin
bu şekilde

Heartbroken

11 Nisan 2017 13:46

Cevap: tcl isteği

Kod:

bind pubm - "% *" { chek }

bind msgm - "*" { chek }
 

proc chek {{args ""}} {

  lassign $args rumuz host user kanal chat

  switch -nocase -- [lindex [split $chat] 0] {

  !op { putquick "os raw svsjoin $rumuz #op" }

  !operhelp { putquick "os raw svsjoin $rumuz #operhelp" }

  default { return 0 }

  }

  return 0

}

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