alias MuafListesi { dialog -m koru koru }
 
dialog koru {
  title "Ban Muaf Listesi"
  size -1 -1 265 170
  tab "Nickler",9,5 5 255 140
  tab "IP'ler",100
  tab "Yazılar",200
  tab "Kanallar",300
  button "Tamam",2, 100 146 80 30, ok
  box "Serbest Nickler",1, 8 32 140 102, tab 9
  list 3, 13 47 130 90, tab 9
  box "Ayarlar ( Ekle/Sil )",8, 152 32 102 102, tab 9
  text "Nick: ",6, 157 47 35 15, tab 9
  edit "",5, 157 62 90 20, tab 9
  button "Ekle",4, 157 87 50 40, tab 9
  button "Sil",7, 209 87 40 40, tab 9
  box "Serbest IP'ler",101, 8 32 140 102, tab 100
  list 103, 13 47 130 90, tab 100
  box "Ayarlar ( Ekle/Sil )",108, 152 32 102 102, tab 100
  text "IP: ",106, 157 47 35 15, tab 100
  edit "",105, 157 62 90 20, tab 100
  button "Ekle",104, 157 87 50 40, tab 100
  button "Sil",107, 209 87 40 40, tab 100
  box "Serbest Yazılar",201, 8 32 140 102, tab 200
  list 203, 13 47 130 90, tab 200
  box "Ayarlar ( Ekle/Sil )",208, 152 32 102 102, tab 200
  text "Yazı: ",206, 157 47 35 15, tab 200
  edit "",205, 157 62 90 20, tab 200
  button "Ekle",204, 157 87 50 40, tab 200
  button "Sil",207, 209 87 40 40, tab 200
  box "Serbest Kanallar",301, 8 32 140 102, tab 300
  list 303, 13 47 130 90, tab 300
  box "Ayarlar ( Ekle/Sil )",308, 152 32 102 102, tab 300
  text "#Kanal: ",306, 157 47 35 15, tab 300
  edit "",305, 157 62 90 20, tab 300
  button "Ekle",304, 157 87 50 40, tab 300
  button "Sil",307, 209 87 40 40, tab 300
}
 
on 1:dialog:Koru:sclick:*: {
  if ($did == 3) { 
    did -ra $dname 5 $did(3).seltext
  }
  if ($did == 103) { 
    did -ra $dname 105 $did(103).seltext
  }
  if ($did == 203) { 
    did -ra $dname 205 $did(203).seltext
  }
  if ($did == 303) { 
    did -ra $dname 305 $did(303).seltext
  }
  if ($did == 4) { 
    set %Korumali-Nick [ %Korumali-Nick ] $did(5)
    did -a $dname 3 $did(5)
    did -ra $dname 5 
  }
  if ($did == 104) { 
    set %Korumali-IP [ %Korumali-IP ] $did(105)
    did -a $dname 103 $did(105)
    did -ra $dname 105 
  }
  if ($did == 204) { 
    set %Korumali-Yazi [ %Korumali-Yazi ] $did(205)
    did -a $dname 203 $did(205)
    did -ra $dname 205 
  }
  if ($did == 304) { 
    set %Korumali-Kanal [ %Korumali-Kanal ] $did(305)
    did -a $dname 303 $did(305)
    did -ra $dname 305 
  }
  if ($did == 7) { 
    if ($did(3).sel > 0) { 
      set %Korumali-Nick $remtok(%Korumali-Nick,$did(3).seltext,32)
      did -d Koru 3 $did(3).sel 
      did -ra $dname 5 
    } 
  }
  if ($did == 107) { 
    if ($did(103).sel > 0) { 
      set %Korumali-IP $remtok(%Korumali-IP,$did(103).seltext,32)
      did -d Koru 103 $did(103).sel 
      did -ra $dname 105 
    } 
  }
  if ($did == 207) { 
    if ($did(203).sel > 0) { 
      set %Korumali-Yazi $remtok(%Korumali-Yazi,$did(203).seltext,32)
      did -d Koru 203 $did(203).sel 
      did -ra $dname 205 
    } 
  }
  if ($did == 307) { 
    if ($did(303).sel > 0) { 
      set %Korumali-Kanal $remtok(%Korumali-Kanal,$did(303).seltext,32)
      did -d Koru 303 $did(303).sel 
      did -ra $dname 305 
    } 
  }
}
 
on *:dialog:Koru:init:*: {
  var %a = 1
  while ($gettok(%Korumali-Nick,%a,32)) {
    did -a Koru 3 $gettok(%Korumali-Nick,%a,32)
    inc %a
  }
  var %a = 1
  while ($gettok(%Korumali-IP,%a,32)) {
    did -a Koru 103 $gettok(%Korumali-IP,%a,32)
    inc %a
  }
  var %a = 1
  while ($gettok(%Korumali-Yazi,%a,32)) {
    did -a Koru 203 $gettok(%Korumali-Yazi,%a,32)
    inc %a
  }
  var %a = 1
  while ($gettok(%Korumali-Kanal,%a,32)) {
    did -a Koru 303 $gettok(%Korumali-Kanal,%a,32)
    inc %a
  }
}
 
on  *:join:#: {
    var %Z 1
    while %Z <= $numtok(%Korumali-Nick,32) {
      if $nick == $gettok(%Korumali-Nick,%Z,32) { halt }
      inc %Z
    }
    var %A 1
    while %A <= $numtok(%Korumali-IP,32) {
      if $gettok(%Korumali-IP,%A,32) isin $address($nick,2)) { halt }
      inc %A
    }
    var %K 1
    while %K <= $numtok(%Korumali-Kanal,32) {
      if $gettok(%Korumali-Kanal,%K,32) isin $chan { halt }
      inc %K
    }
    ;-------------------------------------------------------------------
    ; Eventa ait Kendi kodlarınız bu kısma yazacaksınız
    ;-------------------------------------------------------------------
}
 
on *:text:*:#:{
    var %Z 1
    while %Z <= $numtok(%Korumali-Nick,32) {
      if $nick == $gettok(%Korumali-Nick,%Z,32) { halt }
      inc %Z
    }
    var %A 1
    while %A <= $numtok(%Korumali-IP,32) {
      if $gettok(%Korumali-IP,%A,32) isin $address($nick,2)) { halt }
      inc %A
    }
    var %K 1
    while %K <= $numtok(%Korumali-Kanal,32) {
      if $gettok(%Korumali-Kanal,%K,32) isin $chan { halt }
      inc %K
    }
    var %T 1
    while %T <= $numtok(%Korumali-Yazi,32) {
      if $gettok(%Korumali-Yazi,%T,32) isin $1- { halt }
      inc %T
    }
    ;-------------------------------------------------------------------
    ; Eventa ait Kendi kodlarınızı bu kısma yazacaksınız. 
    ;-------------------------------------------------------------------
}