alias cihans { dialog -m cihans cihans }
dialog cihans {
  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 reklamlar 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:cihans:*:*:{
  if ($devent == sclick) {
    if ($did == 3) { did -ra $dname 4 $did(3).seltext }    
    if ($did == 5) {
      if ($istok(%r,$did(4),32) == $true) { halt }
      if ($did(4) == $null) { halt }
      if ($istok(%r,$did(4),32) == $false) { set %r $addtok(%r,$did(4),32) | did -a $dname 3 $did(4) }
      did -r $dname 4
    }
    if ($did == 6) {
      if ($istok(%r,$did(4),32) == $false) && ($did(4) != $null) { halt }
      if ($did(4) == $null) { halt }
      if ($istok(%r,$did(4),32) == $true) { set %r $remtok(%r,$did(4),32) | did -d cihans 3 $did(3).sel }
      did -r $dname 4
    }
    if ($did == 13) {
      if ($did(8).state == 1) { .enable #rekvur } | else { .disable #rekvur }
    }
  }
  if ($devent == init) {
    set %r http: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
irc.     
    var %r.e = 1
    var %r.d = $numtok(%r,32)
    while (%r.e <= %r.d) { did -a $dname 3 $gettok(%r,%r.e,32) | inc %r.e }
    if ($group(#rekvur) == on) { did -c $dname 8 } | if ($group(#rekvur) == off) { did -u $dname 8 }
  }
}

#rekvur on
on *:text:*:#: {  
  var %i 1
  while %i <= $numtok(%r,32) {
    if $gettok(%r,%i,32) isin $1- {
      mode $active +b $wildsite
      kick $active $nick 0,5« Reklam Kickban » 0,4 •• # •• Kanalında •• $ifmatch Kelimesini Kullanarak Reklam Yaptınız ••
    }
    inc %i  
  }
}
#rekvur end