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

PHP- Kodu:
   #### ozel kanal onay sistemi###
set ops_chan "#OzelOdaBasvuru"
bind pub - !kaydet kaydet
bind pub - !part gemlik2
proc kaydet {nick uhost handle chan text} {
global ops_chan
if {[isop $nick $chan] || [onchan $nick $ops_chan]==0} {
set kanal [lindex $text 0]
set gnick [lindex $text 1]
if {![validchan $kanal]} {
channel add $kanal { +nodesynch flood-chan 10:2 }
        }
putserv "operserv mode $kanal +o botnick"
putserv "chanserv register $kanal karmaşıkşifreniz 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">putserv "chanserv set $kanal founder $gnick"
putserv "memoserv send $gnick Merhaba4 $gnick ,isteginiz uzerine $kanal odasi nickinize kaydedilmistir.Kanalinizin sifresi karmaşıkşifreniz  olarak belirlenmistir . Guvenliginiz icin sifrenizi derhal  degistirmeniz onerilir . Kanal sifrenizi degistirmek için  /cs set  $kanal password4 sifreniz komutunu uygulayiniz . sunucuadı Keyifli  Sohbetler Diler .."
putserv "PRIVMSG $ops_chan :iSLem tamamlandi .  $gnick  nickinin  istegi uzerine $kanal  kanali kayit islemi tamamlanmis , kanal sahibi  $gnick  olarak belirlenmistir."
return 1
}
return 1
}
proc gemlik2 {nick uhost handle chan text} {
global ops_chan
if {[isop $nick $chan] || [onchan $nick $ops_chan]==0} {
set kanal [lindex $text 0]
if {[validchan $kanal]} {
channel remove $kanal
        }
putserv "PRIVMSG $ops_chan : $kanal kanalindan cikildi $nick"
return 1
}
return 1
}
Bu şekil kullanicaksin. Ne hatasi aliyorsun?