Cevap: temizle.tcl istek
##############
# Temizleme tclsi #
# By ChatmIRC #
##############
set temizint "0,0_____________________________________________ _________________________1,0"
bind pub - !temizle intbilisimtemiz
proc intbilisimtemiz {nick user hand chan arg} {
global temizint
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"
putquick "MODE $chan -Mm"
}
|