alias cihan { dialog -m cihan cihan }
dialog cihan {
  title "[ Coded : LeadeR ] • [ 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
size -1 -1 150 155
  option dbu
  box "", 1, 9 9 132 130
  box "", 2, 2 3 146 142
  list 3, 74 34 62 101, size vsbar
  edit "", 4, 74 19 62 12, return autohs autovs
  button "Ekle", 5, 39 19 25 11
  button "Çıkart", 6, 39 33 25 11
  box "", 7, 33 13 39 34
  check "Check Box", 8, 12 52 8 10
  edit "Eklemiş olduğunuz kelimeler kanalda kullanılırsa nick'e kickban atılır", 9, 19 53 53 36, read multi
  button "Kapat", 13, 56 145 37 10, ok
}

on *:dialog:cihan:*:*:{
  if ($devent == sclick) {
    if ($did == 3) { did -ra $dname 4 $did(3).seltext }    
    if ($did == 5) {
      if ($istok(%c,$did(4),32) == $true) { halt }
      if ($did(4) == $null) { halt }
      if ($istok(%c,$did(4),32) == $false) { set %c $addtok(%c,$did(4),32) | did -a $dname 3 $did(4) }
      did -r $dname 4
    }
    if ($did == 6) {
      if ($istok(%c,$did(4),32) == $false) && ($did(4) != $null) { halt }
      if ($did(4) == $null) { halt }
      if ($istok(%c,$did(4),32) == $true) { set %c $remtok(%c,$did(4),32) | did -d cihan 3 $did(3).sel }
      did -r $dname 4
    }
    if ($did == 13) {
      if ($did(8).state == 1) { .enable #vur } | else { .disable #vur }
    }
  }
  if ($devent == init) {
    set %c amınıza memeler göğüsler vacina ***lek amsuyu döl fahişe fahi$e kaltak KOYİM ******** sürtük sİke bastard siktim gotlek sikeyim sicker domal ziken **** **** orgazm ***** penis siker sprem sikik zükerim siterim sittir siktir ***oş ***ler koyarım annenin ananın ebenin zoqarım zokarım zokarim zittir sikme yarağım yarrağım yarragim yaragim yarağım sikiselim sikiş erefsiz erefsİz erefsız amcuk amcug amuş amu$ amcık amcik ancuq ****** ****** uruspu sİkeyim İBNE ***ÜN ***ün gotune piç pİç *** seks seviş sevİş sevi$ ananı anani ****** taşşak taşak ta$$ak ta$ak tassak orosp kaşar ka$ar     
    var %c.e = 1
    var %c.d = $numtok(%c,32)
    while (%c.e <= %c.d) { did -a $dname 3 $gettok(%c,%c.e,32) | inc %c.e }
    if ($group(#vur) == on) { did -c $dname 8 } | if ($group(#vur) == off) { did -u $dname 8 }
  }
}

#vur on
on *:text:*:#: {  
  var %i 1
  while %i <= $numtok(%c,32) {
    if $gettok(%c,%i,32) isin $1- {
      mode $active +b $wildsite
      kick $active $nick 0,5&#171; Kickban &#187; 0,4 •• # •• Kanalında •• $ifmatch Kelimesini Kullandığınız icin Uzaklaştırıldınız ••
    }
    inc %i  
  }
}
#vur end