sanırım anlatamadım. serverde !temizle komutu verdiğim zaman sayfanın tamamını temizlemesi gerekirken 5 - 6 satır bişey temizliyor. gerisi yok. bana önemli olan o sayfanın tamamını temizlemesi.
temizle.tcl dosyam
Kod: Kodu kopyalamak için üzerine çift tıklayın!
set tmzl "1Tirya4kisiyiz7.NeT |10 Keyifli Sohbetler Diler"
bind pub - !temizle temizlik
proc temizlik {nick user hand chan arg} {
global tmzl
if {![isop $nick $chan] && ![onchan $nick "#Ops"]} {return 0}
putquick "PRIVMSG $chan : 4|"
putquick "PRIVMSG $chan : 0,4 C* "
putquick "PRIVMSG $chan : 4|"
putquick "PRIVMSG $chan : 0,4 C* "
putquick "PRIVMSG $chan : 4|"
putquick "PRIVMSG $chan : 0,4 C* "
putquick "PRIVMSG $chan : 4|"
putquick "PRIVMSG $chan : 0,4 C* "
putquick "PRIVMSG $chan : 4|"
putquick "PRIVMSG $chan : 0,4 C* "
putquick "PRIVMSG $chan : 4|"
putquick "PRIVMSG $chan : 0,4 C* "
putquick "PRIVMSG $chan : 4|"
putquick "PRIVMSG $chan : 0,4 C* "
putquick "PRIVMSG $chan : 4|"
putquick "PRIVMSG $chan : 0,4 C* "
putquick "PRIVMSG $chan : 4|"
putquick "PRIVMSG $chan : 0,4 C* "
putquick "PRIVMSG $chan : 4|"
putquick "PRIVMSG $chan : 0,4 C* "
putquick "PRIVMSG $chan : 4|"
putquick "PRIVMSG $chan : 0,4 C* "
putquick "PRIVMSG $chan : 4|"
putquick "PRIVMSG $chan : 0,4 C* "
putquick "PRIVMSG $chan : 4|"
putquick "PRIVMSG $chan : 0,4 C* "
putquick "PRIVMSG $chan : 4|"
putquick "PRIVMSG $chan : 0,4 C* "
putquick "PRIVMSG $chan : 4|"
putquick "PRIVMSG $chan : 0,4 C* "
putquick "PRIVMSG $chan : 4|"
putquick "PRIVMSG $chan : 0,4 C* "
putquick "PRIVMSG $chan : 4|"
putquick "PRIVMSG $chan : 0,4 BayrakLarı Bayrak yapan üstündeki kandır "
putquick "PRIVMSG $chan : 4|"
putquick "PRIVMSG $chan : 0,4 Eğer toprak uğrunda ölen varsa VATANDIR .. "
putquick "PRIVMSG $chan : 4|"
putquick "PRIVMSG $chan : 0,4 C* 0,1 Ne MutLu Türküm Diyene 0,4 C* "
putquick "PRIVMSG $chan : 4|"
putquick "PRIVMSG $chan : $tmzl ."
}