#################
#               #
# Temizle.TCL   #  
#               #
#################
 
set tmzl ""
 
bind pub - !temizle temizlik
proc temizlik {nick user hand chan arg} {
    global tmzl 
if {[isop $nick $chan]} { 
putquick "mode $chan +m"
        putquick "PRIVMSG $chan : Kanal Konusmaya  Kapatildi. Lütfen Bekleyiniz."
        putquick "PRIVMSG $chan : $tmzl "
        putquick "PRIVMSG $chan : $tmzl "
        putquick "PRIVMSG $chan : $tmzl "
        putquick "PRIVMSG $chan : $tmzl "
        putquick "PRIVMSG $chan : $tmzl "
        putquick "PRIVMSG $chan : $tmzl "
        putquick "PRIVMSG $chan : $tmzl "
        putquick "PRIVMSG $chan : $tmzl "
        putquick "PRIVMSG $chan : $tmzl "
        putquick "PRIVMSG $chan : $tmzl "
        putquick "PRIVMSG $chan : $tmzl "
        putquick "PRIVMSG $chan : $tmzl "
        putquick "PRIVMSG $chan : $tmzl "
        putquick "PRIVMSG $chan : $tmzl "
        putquick "PRIVMSG $chan : $tmzl "
        putquick "PRIVMSG $chan : $tmzl "
        putquick "PRIVMSG $chan : $tmzl "
        putquick "PRIVMSG $chan : $tmzl "
        putquick "PRIVMSG $chan : $tmzl "
        putquick "PRIVMSG $chan : $tmzl "
        putquick "PRIVMSG $chan : $tmzl 4Degmesin yagLi boya (: (:"
        putquick "PRIVMSG $chan : $tmzl 0,0**8,8*************"
        putquick "PRIVMSG $chan : $tmzl 0,0*8,8****1,1**8,8***1,1**8,8****"
        putquick "PRIVMSG $chan : $tmzl 0,0*8,8****2,2**8,8***2,2**8,8****"
        putquick "PRIVMSG $chan : $tmzl 0,0*8,8***************"
        putquick "PRIVMSG $chan : $tmzl 0,0*8,8***1,1*8,8***1,1*8,8***1,1*8,8***"
        putquick "PRIVMSG $chan : $tmzl 0,0*8,8**1,1**8,8*******1,1**8,8**"
        putquick "PRIVMSG $chan : $tmzl 0,0*8,8****1,1*8,8*****1,1*8,8****"
        putquick "PRIVMSG $chan : $tmzl 0,0**8,8****1,1**4,4**1,1*8,8****"
        putquick "PRIVMSG $chan : $tmzl 0,0****8,8****4,4**8,8***"
        putquick "PRIVMSG $chan : $tmzl 0,0******8,8*****"
        putquick "PRIVMSG $chan : $tmzl 0,0 Muhahahahaha"        
        putquick "PRIVMSG $chan : $tmzl 4ItinayLa kanaL temizLenir (:"
        putquick "PRIVMSG $chan : $tmzl 6,6*****0,0o4,4**0,0*0,0*4,4**0,0*|6,6*0,0**6,6*"
        putquick "PRIVMSG $chan : $tmzl 0,0**6,6*0,0***4,4*******0,0*6,6*0,0**6,6*"
        putquick "PRIVMSG $chan : $tmzl 0,0**6,6*0,0***4,4*******0,0*6,6*0,0**6,6*"
        putquick "PRIVMSG $chan : $tmzl 0,0**6,6*0,0****4,4*****0,0**6,6*0,0**6,6*"
        putquick "PRIVMSG $chan : $tmzl 0,0**6,6*0,0*****4,4***0,0***6,6*0,0**6,6*"
        putquick "PRIVMSG $chan : $tmzl 6,6*****0,0****4,4*0,0****6,6*****"
        putquick "PRIVMSG $chan : $tmzl "
        putquick "PRIVMSG $chan : $tmzl "
        putquick "PRIVMSG $chan : $tmzl "
        putquick "PRIVMSG $chan : $tmzl "
        putquick "PRIVMSG $chan : $tmzl "
        putquick "PRIVMSG $chan : $tmzl "
        putquick "PRIVMSG $chan : $tmzl "
        putquick "PRIVMSG $chan : $tmzl "
        putquick "PRIVMSG $chan : $tmzl "
        putquick "PRIVMSG $chan : $tmzl "
        putquick "PRIVMSG $chan : $tmzl "
        putquick "PRIVMSG $chan : $tmzl "
        putquick "PRIVMSG $chan : $tmzl "
        putquick "mode $chan -m"
        putquick "PRIVMSG $chan : Kanal Konusmaya Açıldı. Hos Sohbetler"
        putquick "PRIVMSG $chan : Kanal ekranı temizlendi.. $nick"
    }
}