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

arkadaşlar şöyle bir kod var ama !giris yaptığında sohbet te birşey olmuyor. Yanlış yapmış olabilirim diye düşündüm.Yardım ederseniz sevinirim.

Kod:

bind pub - !giris opsgiris

proc opsgiris {nick uhand host chan text} {

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

putquick "chghost $nick Sohbet-Op.TRSohbeTR.Com"

putquick "chgident $nick TRSohbeTR"

putquick "chgname $nick 4
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
putquick "SAJOIN $nick #Ops"

putquick "os raw :ChanServ privmsg #Opers $nick yetkili konuma geçti."

putquick "PRIVMSG $nick $nick Başarılı giriş yaptınız.Kolay Gelsin"

}

bind pub - !giris oyungiris

proc oyungiris {nick uhand host chan text} {

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

putquick "chghost $nick Oyun-Op.TRSohbeTR.Com"

putquick "chgident $nick TRSohbeTR"

putquick "chgname $nick 4
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
putquick "SAJOIN $nick #Ops"

putquick "os raw :ChanServ privmsg #Opers $nick yetkili konuma geçti."

putquick "PRIVMSG $nick $nick Başarılı giriş yaptınız.Kolay Gelsin"

}

bind pub - !giris oyungiris2

proc oyungiris2 {nick uhand host chan text} {

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

putquick "chghost $nick Yarisma-Op.TRSohbeTR.Com"

putquick "chgident $nick TRSohbeTR"

putquick "chgname $nick 4
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
putquick "SAJOIN $nick #Ops"

putquick "os raw :ChanServ privmsg #Opers $nick yetkili konuma geçti."

putquick "PRIVMSG $nick $nick Başarılı giriş yaptınız.Kolay Gelsin"

}

bind pub - !giris oyungiris3

proc oyungiris3 {nick uhand host chan text} {

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

putquick "chghost $nick Islam-Op.TRSohbeTR.Com"

putquick "chgident $nick TRSohbeTR"

putquick "chgname $nick 4
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
putquick "SAJOIN $nick #Ops"

putquick "os raw :ChanServ privmsg #Opers $nick yetkili konuma geçti."

putquick "PRIVMSG $nick $nick Başarılı giriş yaptınız.Kolay Gelsin"

}  

bind pub - !giris oyungiris4

proc oyungiris4 {nick uhand host chan text} {

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

putquick "chghost $nick Kelime-Op.TRSohbeTR.Com"

putquick "chgident $nick TRSohbeTR"

putquick "chgname $nick 4
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
putquick "SAJOIN $nick #Ops"

putquick "os raw :ChanServ privmsg #Opers $nick yetkili konuma geçti."

putquick "PRIVMSG $nick $nick Başarılı giriş yaptınız.Kolay Gelsin"

}

birde temizle.tcl var kodun hepsi düzgün. kanalda temizle yapıyorum 3 5 satır yazıyo sonra temizlendi diyor. halbuki 10 15 satır yapması lazım.