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

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

- - DJ Login TCL (https://www.ircforumlari.net/tcl-scriptler/698523-dj-login-tcl.html)

PHP- Kodu:

   bind pub - !dj djim
proc djim {nick uhand host chan text} {
if {![isop $nick #DJ]} {return 0} 
putquick "chghost $nick DJ.Adres.Net"
putquick "chgident $nick DJ"
putquick "os raw :ChanServ mode #Radyo +o $nick"
putquick "operserv raw svsmode $nick +Wq :1"
putquick "operserv raw svsnick $nick Dj_$nick :1"
putquick "privmsg $chan $nick Başarıyla DJ Statüsüne Giriş Yaptınız."
putquick "privmsg $nick 4» Radyo DJ Panel Şifreleri"
putquick "privmsg $nick 4»2 IP: Radyo IP"
putquick "privmsg $nick 4»2 Port: Portunuz"
putquick "privmsg $nick 4»2 Şifre: Radyo Şifreniz"
putquick "privmsg $nick 4»2 Maximum Dinleyici: 520"
}

• DJ Login TCL
• #DJ Kanalında Bulunan Bir Kullanıcı Kanala !DJ Yazdığında,
• [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Olarak Host Alır.
• Kişiye #Radyo Kanalında Operator verilir.
• +W [Whois Çekeni Görebilme] +q [Sadece Servicesler Tarafından Kicklenebilme] Modelerini Alır.
• Nicki DJ_* Takısı Alır.
• Özeline Radyo Botun Tarafından Şifreler Gönderilir.
• ÖNEMLİ:
• Botun Nicki Kayıtlı, Admin Listte ve En Az Services Flagında Olması Gerekir.

TCL Yapımcısı CLubber Arkadasıma Tesekkür Ediyorum..

Cevap: DJ Login TCL

Kod:

## Buraya Komutun Geçerli Olacağı Kanalı Yazın..

set chan "#DJ"
 

## Başkada Birşeye Dokunmuyoruz. Gerisini Ben Hallederim 
 

bind pub - !dj djim
 

proc djim {nick host handle chan arg} {

if {![string match -nocase "#Dj" $chan]} {return 0}

putquick "os raw :ChanServ mode #Radyo +q $nick"

putquick "os raw :ChanServ mode #Dj +q $nick"

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

putquick "privmsg $chan $nick 2Başarıyla 4DJ 2Statüsüne Giriş Yaptınız."

putquick "privmsg $nick 4»2 Radyo DJ Panel Şifreleri"

putquick "privmsg $nick 4»2 Radyo IP:"

putquick "privmsg $nick 4»2 Radyo Port:"

putquick "privmsg $nick 4»2 Radyo Şifre:"

putquick "privmsg $nick 4»2 Maximum Dinleyici: 520"

}

putlog "dj.tcl byCLubber  loaded."

CLubber Arkadaşımıza Teşekkür ederiz. Vermiş olduğu tcl de her kanalda çalışmaktadır. Bu ise düzenlenmiş Sadece Dj kanalında geçerli olucaktır.

Cevap: DJ Login TCL

Alıntı:

Xadd1 Nickli Üyeden Alıntı (Mesaj 1042809507)

Kod:

## Buraya Komutun Geçerli Olacağı Kanalı Yazın..

set chan "#DJ"
 

## Başkada Birşeye Dokunmuyoruz. Gerisini Ben Hallederim ;)
 

bind pub - !dj djim
 

proc djim {nick host handle chan arg} {

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

putquick "os raw :ChanServ mode #Radyo +q $nick"

putquick "os raw :ChanServ mode #Dj +q $nick"

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

putquick "privmsg $chan $nick 2Başarıyla 4DJ 2Statüsüne Giriş Yaptınız."

putquick "privmsg $nick 4»2 Radyo DJ Panel Şifreleri"

putquick "privmsg $nick 4»2 Radyo IP:"

putquick "privmsg $nick 4»2 Radyo Port:"

putquick "privmsg $nick 4»2 Radyo Şifre:"

putquick "privmsg $nick 4»2 Maximum Dinleyici: 520"

} 

putlog "dj.tcl by CLubber  loaded."

CLubber Arkadaşımıza Teşekkür ederiz. Vermiş olduğu tcl de her kanalda çalışmaktadır. Bu ise düzenlenmiş Sadece Dj kanalında geçerli olucaktır.

Ufak bir bilgi; Botun En Az Services Admin Olup, Os Admin komutları için admin list'e ekli olması gerekmektedir.. ^_^