bind msg - ozelkanal ozel_raw
proc ozel_raw {n u h a} {
 putserv "PRIVMSG $n Merhaba $n "
 putserv "PRIVMSG $n Özel kanal basvuru sihirbazına Hoş GeLdiniz"
 putserv "PRIVMSG $n Sunucumuzda özel kanal açılımları , sohbet huzurunuz açısından sınırlı bırakılmıştır."
 putserv "PRIVMSG $n Taşıdığı isim ; saygı ve sevgi kuralları içerisinde olan , tüm özel oda isteklerinize cevap verilecektir."
 putserv "PRIVMSG $n Şimdi başvuru için ; ozelkanalbasvuru #kanal yazmanız yeterlidir."
 putserv "PRIVMSG $n TaLkTr KeyifLi SohbetLer DiLer .."
   }

bind msg - ozelkanalbasvuru basvuru_raw
proc basvuru_raw {n u h a} {
        set kanal [lindex $a 0]
 putserv "PRIVMSG $n Merhaba $n ,4 $kanal odasi için basvuru işleminiz tamamlanmistir."
 putserv "PRIVMSG $n Kisa bir süre içerisinde memo ile bilgilendirileceksiniz."
 putserv "PRIVMSG $n TaLkTr KeyifLi SohbetLer DiLer .."
 putserv "memoserv send #OzelOdaBasvuru Sayın Yönetici , $n rumuzlu kullanici4 $kanal odasi için kanal basvurusu yapmistir."
   }

#### 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.
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
}

#### ozel kanal onay sistemi###
set ops_chan "#OzelOdaBasvuru"
bind pub - !kaydet kaydet
proc kaydet {nick uhost handle chan text} {
global ops_chan
 if {[isop $nick $ops_chan]} {
 set kanal [lindex $text 0]
 set gnick [lindex $text 1]
 set sifre [rand 99999999]
  if {![validchan $kanal]} { 
  channel add $kanal { +nodesynch flood-chan 10:2 } 
  }
 putserv "operserv mode $kanal +o botnick"
 putserv "chanserv register $kanal $sifre [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"
 putserv "chanserv set $kanal founder $gnick"
 putserv "memoserv send $gnick Merhaba4 $gnick ,isteginiz uzerine $kanal odasi nickinize kaydedilmistir.Kanalinizin sifresi $sifre  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."
 utimer 5[list channel remove $kanal]
 utimer 6[list putserv "PRIVMSG $ops_chan : $kanal kanalindan cikildi $nick"]
 return 1
 }
return 1
}