Merhaba,
Bu benim ilk tcl kodlamam :)
Kanalda operatör iseniz kanal ekranını temizlemeye yarayan bir tcl.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
##############
# Temizleme tclsi #
# By intBilisim #
##############
set tmzl "0,0______________________________________________________________________1,0"
bind pub - !temizle intbilisimtemiz
proc intbilisimtemiz {nick user hand chan arg} {
global intbilisimtemiz
if {![isop $nick $chan]} {return 0}
putquick "PRIVMSG $chan : $temizint Cam"
putquick "PRIVMSG $chan : $temizint Çöp"
putquick "PRIVMSG $chan : $temizint Bardak"
putquick "PRIVMSG $chan : $temizint Toz"
putquick "PRIVMSG $chan : $temizint Spamcılar"
putquick "PRIVMSG $chan : $temizint Cam"
putquick "PRIVMSG $chan : $temizint Çöp"
putquick "PRIVMSG $chan : $temizint Bardak"
putquick "PRIVMSG $chan : $temizint Toz"
putquick "PRIVMSG $chan : $temizint Reklamcılar"
putquick "PRIVMSG $chan : $temizint Spamcılar"
putquick "PRIVMSG $chan : $temizint Floodcular"
putquick "PRIVMSG $chan : $temizint Cam"
putquick "PRIVMSG $chan : $temizint Çöp"
putquick "PRIVMSG $chan : $temizint Bardak"
putquick "PRIVMSG $chan : $temizint Toz"
putquick "PRIVMSG $chan : $temizint Reklamcılar"
putquick "PRIVMSG $chan : $temizint Spamcılar"
putquick "PRIVMSG $chan : $temizint Floodcular"
putquick "PRIVMSG $chan : $temizint Cam"
putquick "PRIVMSG $chan : $temizint Çöp"
putquick "PRIVMSG $chan : $temizint Bardak"
putquick "PRIVMSG $chan : $temizint Toz"
putquick "PRIVMSG $chan : $temizint Reklamcılar"
putquick "PRIVMSG $chan : $temizint Spamcılar"
putquick "PRIVMSG $chan : $temizint Floodcular"
putquick "PRIVMSG $chan : $temizint Cam"
putquick "PRIVMSG $chan : $temizint Çöp"
putquick "PRIVMSG $chan : $temizint Bardak"
putquick "PRIVMSG $chan : $temizint Toz"
putquick "PRIVMSG $chan : $temizint Reklamcılar"
putquick "PRIVMSG $chan : $temizint Spamcılar"
putquick "PRIVMSG $chan : $temizint Floodcular"
putquick "PRIVMSG $chan : $temizint Cam"
putquick "PRIVMSG $chan : $temizint Çöp"
putquick "PRIVMSG $chan : $temizint Bardak"
putquick "PRIVMSG $chan : $temizint Toz"
putquick "PRIVMSG $chan : $temizint Reklamcılar"
putquick "PRIVMSG $chan : $temizint Spamcılar"
putquick "PRIVMSG $chan : $temizint Floodcular"
putquick "PRIVMSG $chan : $temizint Cam"
putquick "PRIVMSG $chan : $temizint Çöp"
putquick "PRIVMSG $chan : $temizint Bardak"
putquick "PRIVMSG $chan : $temizint Toz"
putquick "PRIVMSG $chan : $temizint Reklamcılar"
putquick "PRIVMSG $chan : $temizint Spamcılar"
putquick "PRIVMSG $chan : $temizint Floodcular"
putquick "PRIVMSG $chan : $temizint Cam"
putquick "PRIVMSG $chan : $temizint Çöp"
putquick "PRIVMSG $chan : $temizint Bardak"
putquick "PRIVMSG $chan : $temizint Toz"
putquick "PRIVMSG $chan : $temizint Reklamcılar"
putquick "PRIVMSG $chan : $temizint Spamcılar"
putquick "PRIVMSG $chan : $temizint Floodcular"
putquick "PRIVMSG $chan : $temizint Cam"
putquick "PRIVMSG $chan : $temizint Çöp"
putquick "PRIVMSG $chan : $temizint Bardak"
putquick "PRIVMSG $chan : $temizint Toz"
putquick "PRIVMSG $chan : $temizint Reklamcılar"
putquick "PRIVMSG $chan : $temizint Spamcılar"
putquick "PRIVMSG $chan : $temizint Floodcular"
putquick "PRIVMSG $chan : $temizint Cam"
putquick "PRIVMSG $chan : $temizint Çöp"
putquick "PRIVMSG $chan : $temizint Bardak"
putquick "PRIVMSG $chan : $temizint Toz"
putquick "PRIVMSG $chan : $temizint Reklamcılar"
putquick "PRIVMSG $chan : $temizint Spamcılar"
putquick "PRIVMSG $chan : $temizint Floodcular"
putquick "PRIVMSG $chan : $temizint"
putquick "PRIVMSG $chan : Ekran temizlendi... Komutu kullanan: $nick"
}