İRC PAYLASİM www.ircpaylasim.tr.gg

http://ircpaylasim.tr.gg

İRCPAYLASİM SIK KULLANILANLARA EKLE!
   
  İRc Paylaşım
  Kufur Gecistirici(Güncel Kullanım)
 

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..

Bunu 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..

Kod:
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
}
 
  Bugün 19 ziyaretçi (63 klik) kişi burdaydı! (2008-2020 © Copyright By ircpaylasim ® Tüm Hakları saklıdır)  
 
Bu web sitesi ücretsiz olarak Bedava-Sitem.com ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?
Ücretsiz kaydol