IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - #Opers kanalına girildiğinde -h moduna çekecek TCL

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

- - #Opers kanalına girildiğinde -h moduna çekecek TCL (https://www.ircforumlari.net/tcl-scriptler/348487-opers-kanalina-girildiginde-h-moduna-cekecek-tcl.html)

#Opers kanalına girildiğinde -h moduna çekecek TCL

Merhaba. Mesela elimde bir tcl bot mevcud bu botu conf dosyasında 2 adet kanala sokuyorum. Şu şekilde ;

Kod:

 

channel add #Opers {

  need-op { putserv "MODE #Opers +v $botnick " }

}

 

channel add #Sohbet {

  need-op { putserv "MODE #Sohbet +v $botnick" }

}

Şimdi tcl'e öyle 1 kod girmeliyimki #Opers kanalına birisi girdiğinde bot o kişiyi -h moduna alsın şu komutu kullanarak /os raw svsmode nick -h

umarım derdimi anlatabilmişimdir.

Kod:

 

bind join - * giris

proc giris {nick uhost hand chan} { 

putserv "os raw svsmode $nick -h" 

}

bu kodu kullandığımda #Sohbet kanalına girenlerede aynı işlemi yapıyor sadece #Opers'e girenlere bunu yapsın istiyorum. Yardımlarınız için şimdiden teşekkür ederim : )

Cevap: #Opers kanalına girildiğinde -h moduna çekecek TCL

Kod:

bind join - * join

proc join {n uh h c mode a} {

if {$c != "#opers"} {return 0}

if {$mode == "-h"} {

putquick "os raw svsmode $a $mode"

 }

}

bu şekilde deneyiniz

Cevap: #Opers kanalına girildiğinde -h moduna çekecek TCL

PHP- Kodu:

   ######
##Muaf kanalımızı belirttik
######

set muaf "#opers"


######
##Kodumuzu yazalım
######

bind join - * giris

proc giris {nick uhost hand chan arg} {
    global muaf
#Muaf kanalımıza işlem yaptırdık
if {[string match -nocase $muaf $chan]}{ putquick "os raw svsmode $nick -h"}
}

######
putlog "Dehelper.tcl yuklendi- coded by Raw"
######

iyi forumlar..