19 Şubat 2007, 10:57
|
#1 |
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
| !temizle Tcl
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"
}
Konu intBilisim tarafından (19 Şubat 2007 Saat 11:07 ) değiştirilmiştir.
|
| |