Kanaldaki Edilen Küfürler Için Çoğumuz Bir Şekilde Korumalar Ile Atmışız veya attiktan sonra sayfayi dolduracaka şekilde .... işareti yapmışızdır bir 3 4 saat once aklima
gelen birşeyi gerçekleştirmek istedim öyle bir code yazayimki hemn manuel hem de ban attiktan sonra otomatikman kullanilabilsin..
Nasıl Kullanılır : 3 çeşit genel Kullanma Türü Vardır
A- küfür reklam vs kişiyi attiktan sonra ;
1- /kaydır #kanal Yazacaginiz Mesaj
2- /kaydır #kanal
B- Direk Kanalda Bir küfür Edildiğinde ;
1- /kaydır
2- /kaydır mesajınız
C- Ozeldede Kullanabilirsiniz..
Gerekli Bilgiler ;
1. Addonda Karakter Sınırı 40 ' tır Az Veya Cok Oldugunda Kendisi Ekleme Yapar Veya Siler.
2. Mesaj Gönderme Araliği Uymazsa %tim3 verisini değiştirip kendinize uyarlayabilirsiniz..
3. Işinize Yarayacağınıza umuyorum.. Addonun Adı Tamamen Dogaclamadır.. Şimdilik Bu Kadar.. Sabah Oldu Uyucam
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
08/04/07 - 04:34 Written Set By djiNn..
-----------------------------------------------------------------------------------------------------------------------------------------------
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias kaydır {
$iif($1-,$iif($left($gettok($1-,1,32),1) == $chr(35),set %kaydd. [ $+ [ $gettok($1-,1,32) ] ] $remove($1-,$gettok($1-,1,32)),set %kaydd $remove($1-,$chr(32))),set %kaydd BuradaYaziyiKaydiran40satirlikYaziVarBak)
if (!%kaydd) { %kaydd = %kaydd. [ $+ [ $gettok($1-,1,32) ] ] }
if (%kaydd == $null) { .set %kaydd BuradaYaziyiKaydiran40satirlikYaziVarBak }
if ($len($remove(%kaydd,$chr(32))) < 40) { %kaydd = $remove($+(%kaydd,$str(.,$calc(40 - $len(%kaydd)))),$chr(32)) }
else { if ($len($remove(%kaydd,$chr(32))) > 40) { set %kaydd $left($remove(%kaydd,$chr(32)),40) } }
var %;ü 1
var %b. $len(%kaydd)
var %tim3 1
while (%;ü <= %b.) {
$iif($left($gettok($1-,1,32),1) == $chr(35),%activech = $gettok($1-,1,32),$iif($active != Status Window,%activech = $active,return))
if (%;ü <= 10) { msg %activech $right($left(%kaydd,%;ü),1) }
else {
if ((%;ü >= 10) && (%;ü <= 20)) { .timer 1 %tim3 msg %activech $right($left(%kaydd,%;ü),1) }
elseif ((%;ü >= 20) && (%;ü <= 30)) { .timer 1 %tim3 msg %activech $right($left(%kaydd,%;ü),1) }
elseif ((%;ü >= 30) && (%;ü <= 40)) { .timer 1 %tim3 msg %activech $right($left(%kaydd,%;ü),1) }
}
inc %;ü
}
unset %kaydd
unset %kaydd. [ $+ [ $gettok($1-,1,32) ] ]
unset %q-
unset %activech
}