alias karaliste { if ($dialog(karaliste)) { dialog -c karaliste } | dialog -ma karaliste karaliste }
dialog karaliste {
  title "Kötü Nick Listesi"
  size -1 -1 266 310
  option pixels
  icon icon\olumsuz.ico, 0  
  combo 1, 16 21 181 250, vsbar
  button "&Ekle", 2, 199 20 50 22, flat
  button "&Sil", 3, 199 49 50 22, flat
  button "&Tamam", 4, 200 234 49 31, ok flat
  check "Korumayı Aktif Et", 5, 16 272 182 20, flat
  box "Kötü Nick Ekleme", 6, 7 2 251 296
}

on *:dialog:karaliste:*:*: {
  if ($devent == init) { karaliste.txt }
  if ($devent == sclick) {
    if ($did == 2) { if ($did(1) != $null) { /.auser 10 $did(1) | karaliste.txt } }
    if ($did == 3) { if ($did(1) != $null) { /.ruser $did(1) | karaliste.txt } }
    if ($did == 5) { 
      if ($did(5).state == 1) { writeini " $+ $mircini $+ " karaliste karaliste on }
      if ($did(5).state == 0) { writeini " $+ $mircini $+ " karaliste karaliste off }
    }
  }
}

alias karaliste.txt {
  did -r karaliste 1
  if ($readini " $+ $mircini $+ " karaliste karaliste == on) { did -c karaliste 5 }
  set %ul 1 
  while (%ul <= $ulist(*,0)) {
    if ($level($ulist(*,%ul)) == 10) { did -a karaliste 1 $ulist(*,%ul) }
    inc %ul 1
  }
  unset %ul
}

#karaliste on
on 10:join:#: {
  if ($readini " $+ $mircini $+ " karaliste karaliste == on) { 
    /qline  $nick  4 $+ $chan 12Kanalında (4 Bad2/4Kötü Nick12 ) Kullandığınızdan Dolayı Uzaklaştırıldınız. %logo 
    { Window -e @Rapor | titlebar @Rapor Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @Rapor »2 4Suç : 2Kötü Nick 4Nick : 2 $nick 4Kanal : 2 # }
  }
} 
}

on 10:part:#: {
if ($readini " $+ $mircini $+ " karaliste karaliste == on) { 
  /qline  $nick  4 $+ $chan 12Kanalında (4 Bad2/4Kötü Nick12 ) Kullandığınızdan Dolayı Uzaklaştırıldınız. %logo 
  { Window -e @Rapor | titlebar @Rapor Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @Rapor »2 4Suç : 2Kötü Nick 4Nick : 2 $nick 4Kanal : 2 # }
}
} 
}
on 10:nick: {
if ($readini " $+ $mircini $+ " karaliste karaliste == on) { 
  /qline  $nick  4 $+ $chan 12Kanalında (4 Bad2/4Kötü Nick12 ) Kullandığınızdan Dolayı Uzaklaştırıldınız. %logo 
  { Window -e @Rapor | titlebar @Rapor Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @Rapor »2 4Suç : 2Kötü Nick 4Nick : 2 $nick 4Kanal : 2 # }

}
} 
}
on 10:text:*:#: {
if ($readini " $+ $mircini $+ " karaliste karaliste == on) { 
  /qline  $nick  4 $+ $chan 12Kanalında (4 Bad2/4Kötü Nick12 ) Kullandığınızdan Dolayı Uzaklaştırıldınız. %logo 
  { Window -e @Rapor | titlebar @Rapor Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @Rapor »2 4Suç : 2Kötü Nick 4Nick : 2 $nick 4Kanal : 2 # }
}
} 
}
on 10:notice:*:#: {
if ($readini " $+ $mircini $+ " karaliste karaliste == on) { 
  /qline  $nick  4 $+ $chan 12Kanalında (4 Bad2/4Kötü Nick12 ) Kullandığınızdan Dolayı Uzaklaştırıldınız. %logo 
}
} 
}
on 10:action:*:#: {
if ($readini " $+ $mircini $+ " karaliste karaliste == on) { 
  /qline  $nick  4 $+ $chan 12Kanalında (4 Bad2/4Kötü Nick12 ) Kullandığınızdan Dolayı Uzaklaştırıldınız. %logo 
  { Window -e @Rapor | titlebar @Rapor Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @Rapor »2 4Suç : 2Kötü Nick 4Nick : 2 $nick 4Kanal : 2 # }
}
} 
}
on 10:op:#: {
if ($readini " $+ $mircini $+ " karaliste karaliste == on) { 
  /qline  $nick  4 $+ $chan 12Kanalında (4 Bad2/4Kötü Nick12 ) Kullandığınızdan Dolayı Uzaklaştırıldınız. %logo 
}
} 
}
on 10:deop:#: {
if ($readini " $+ $mircini $+ " karaliste karaliste == on) { 
  /qline  $nick  4 $+ $chan 12Kanalında (4 Bad2/4Kötü Nick12 ) Kullandığınızdan Dolayı Uzaklaştırıldınız. %logo 
}
} 
}
on 10:voice:#: {
if ($readini " $+ $mircini $+ " karaliste karaliste == on) { 
  /qline  $nick  4 $+ $chan 12Kanalında (4 Bad2/4Kötü Nick12 ) Kullandığınızdan Dolayı Uzaklaştırıldınız. %logo 
}
} 
}
on 10:devoice:#: {
if ($readini " $+ $mircini $+ " karaliste karaliste == on) { 
  /qline  $nick  4 $+ $chan 12Kanalında (4 Bad2/4Kötü Nick12 ) Kullandığınızdan Dolayı Uzaklaştırıldınız. %logo 
}
} 
}
on 10:help:#: {
if ($readini " $+ $mircini $+ " karaliste karaliste == on) { 
  /qline  $nick  4 $+ $chan 12Kanalında (4 Bad2/4Kötü Nick12 ) Kullandığınızdan Dolayı Uzaklaştırıldınız. %logo 
}
} 
}
on 10:dehelp:#: {
if ($readini " $+ $mircini $+ " karaliste karaliste == on) { 
  /qline  $nick  4 $+ $chan 12Kanalında (4 Bad2/4Kötü Nick12 ) Kullandığınızdan Dolayı Uzaklaştırıldınız. %logo 
}
} 
}
#karaliste end