IRCForumu.ORG - !Oper Giriş TCL

Sunucunuzda ki Admin veya Operlere !Giris olarak ident verdirebilir,
Ve Duyurularınız var ise buradan yazdırabilirsiniz...

Kod:

bind pub - !oper opergiris

proc opergiris {nick uhand host chan text} {

if {![isop $nick #Opers]} {return 0} 

putquick "chghost $nick Sunucu.Yetkilisi"

putquick "chgident $nick IRCOps"

putquick "os raw :ChanServ mode #OperHelp +o $nick"

putquick "operserv raw svsmode $nick +q :1"

putquick "privmsg $chan $nick Başarıyla Admin/Oper Statüsüne Giriş Yaptınız."

putquick "privmsg $chan Kurallar 1"

putquick "privmsg $chan Kurallar 2"

putquick "privmsg $chan Kurallar 3"

putquick "privmsg $chan Kurallar 4"

putquick "privmsg $chan Kurallar 5"

putquick "privmsg $chan Kurallar 6"

putquick "privmsg $chan Kurallar 7"

putquick "privmsg $chan No_FeaR IRC Sohbet Sunucuları"

}