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

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

- - Helper Tcl (https://www.ircforumlari.net/tcl-scriptler/660505-helper-tcl.html)

Kod:

# Sohbettur.Com Internet Teknolojileri 

# msn : Che@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].Com

# server : /server IRC.Sohbettur.Com

# web : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

# System Root : Che

# Duzenleyen : Che

 

bind msgm - root ghostly

proc ghostly { nick uhost handle text } {

putserv "PRIVMSG operserv :su şifre" }

 

bind pub - !helper helperim

proc helperim {nick uhand host chan text} {

if {![isop $nick $chan]} {return 0} 

putserv "PRIVMSG operserv :chghost $nick HelpDesk.Sohbettur.Com"

putserv "PRIVMSG operserv :chgident $nick HelpDesk"

putserv "PRIVMSG operserv :chgname $nick Sohbettur helpdesk Team"

putserv "NOTICE $nick Artik bir Helpdesksiniz. Basarılar"

putserv "NOTICE $nick Bravo Basariyla Helpdesk Hostunu, Identini, Ismini ve Modelerini Aldin."

putserv "NOTICE $nick Lutfen #Help Kanalindaki Kullancilarla iyi Gecinin ve Saygili Olun."

putserv "PRIVMSG operserv :raw svsmode $nick +hWq :1"

putserv "PRIVMSG operserv :raw svsnick $nick HelpDesk_$nick :1"

putserv "privmsg $chan : $text Basariyla Helper Oldunuz."

}

putlog "helperhost.tcl  By Che"

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: Helper Tcl

OperServ chgname hakkinda yardim bulunamadi.

bu tcl toplama olmadığından emin misin.

os su şifresi ne alaka bir host\flag için.

Cevap: Helper Tcl

iyi çalışmalar,

Kod:



bind mode - * helper

proc helper {n uh h c mode a} {

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

if {$mode == "+o"} {

putquick "PRIVMSG $c $a Helper konumuna geçti."

putquick "PRIVMSG operserv :raw svsmode $a +hWq :1"

putquick "CHGHOST $a helper.Domain.Com"

putquick "CHGIDENT $a Services"

putquick "CHGNAME $a Domain help Team"

putquick "NOTICE $a Artik bir Helpersiniz. Basarılar"

putquick "NOTICE $a Bravo basariyla Helper Hostunu, Identini, Ismini Ve Modelerini aldin."

putquick "NOTICE $a Lutfen #Help kanalindaki kullancilarla iyi gecinin ve saygili olun."

 }

}

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 21:10 -->-> Daha önceki mesaj 21:08 --

Alıntı:

MesqeN Nickli Üyeden Alıntı (Mesaj 1041569632)

OperServ chgname hakkinda yardim bulunamadi.

bu tcl toplama olmadığından emin misin.

os su şifresi ne alaka bir host\flag için.

öğrenmek istiyorr :)

Cevap: Helper Tcl

Alıntı:

GhostLy Nickli Üyeden Alıntı (Mesaj 1041569635)

iyi çalışmalar,

Kod:



bind mode - * helper

proc helper {n uh h c mode a} {

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

if {$mode == "+o"} {

putquick "PRIVMSG $c $a Helper konumuna geçti."

putquick "PRIVMSG operserv :raw svsmode $a +hWq :1"

putquick "CHGHOST $a helper.Domain.Com"

putquick "CHGIDENT $a Services"

putquick "CHGNAME $a Domain help Team"

putquick "NOTICE $a Artik bir Helpersiniz. Basarılar"

putquick "NOTICE $a Bravo basariyla Helper Hostunu, Identini, Ismini Ve Modelerini aldin."

putquick "NOTICE $a Lutfen #Help kanalindaki kullancilarla iyi gecinin ve saygili olun."

 }

}

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 21:10 -->-> Daha önceki mesaj 21:08 --

öğrenmek istiyorr :)

PHP- Kodu:

   ####################################
##############MesqeN################
####################################
set helpers(chan) "#help"
set helpers(ident) "Services"
set helpers(host) "Helper.Kelebek.Gen.TR"
set helpers(name) "2Kelebek Help Team"
set helpers(mods) "hWq"

############################################
#Burdan sonrasına eleme bozulure :D        #
############################################

bind mode - * helpers:mode 
proc helpers:mode {nick uhost hand chan mode desc} {
global botnick helpers
if {![string match -nocase "$helpers(chan)" $chan]} { return }
if {$mode == "+o"} {
putquick "CHGIDENT $desc $helpers(ident)"
putquick "CHGHOST $desc $helpers(host)"
putquick "CHGNAME $desc $helpers(name)"
putquick "OperServ RAW SVSMODE $desc $helpers(mods)"
putquick "NOTICE $desc #help  kanalında (@) operatör olduğunuz için bilgilerinize vhost/ident/fullname/flag eklendi!"
}
}

putlog "  helpers tcl Yüklendi..

Ögrenmenin Yaşı yok ama lazım olursa kulana bilinir.