alias Bads { dialog -m Bads Bads }
#shitlizt on
on @666:join:#:{
  if ($nick != $me) {
    kick # $nick %shitkickmsg
    if (%banx == !) { mode # +b $address($nick,%mazk) }
  }
}
#shitlizt end
dialog Bads {
  title “[ Küfür korumasi - oLd ]”
  size -1 -1 385 340
  button “&Kapat”, 1, 323 198 58 30,ok
  list 2, 165 20 210 135, sort
  box “BadNick listesi”, 3, 160 5 220 145
  edit “”, 4, 165 165 210 20, autohs
  box “Eklenecek Nicki Yaziniz”, 5, 160 150 220 45
  button “E&kLe”, 6, 160 200 50 20
  box “Dikkat!:”, 7, 160 225 220 35
  text “Nick Üzerinde Çift Tiklamak Siler”, 8, 190 240 180 45 
  box “Ban tipi seçin”, 9, 5 5 150 225
  radio ” 0: *!user@host”, 10, 20 20 120 20
  radio “1: *!*user@host”, 11, 20 40 120 20
  radio “2: *!*@host”, 12, 20 60 120 20
  radio “3: *!*user@*.host“, 13, 20 80 120 20
  radio “4: *!*@*.host“, 14, 20 100 120 20
  radio “5: nick!user@host”, 15, 20 120 120 20
  radio “6: nick!*user@host”, 16, 20 140 120 20
  radio “7: nick!*@host”, 17, 20 160 120 20
  radio “8: nick!*user@*.host“, 18, 20 180 120 20
  radio “9: nick!*@*.host“, 19, 20 200 120 20
  box “Giris yaptiginda:”, 20, 5 235 150 75
  check “Sadece Kick”, 21, 20 255 100 20
  check “Kick+Ban”, 22, 20 275 100 20
  button “De&fault”, 23, 215 200 50 20
  button “&Özellik”, 24, 270 200 50 20
  edit “”, 26, 165 280 210 20, autohs
  box “Kick Mesajiniz”, 25, 160 265 220 45
  button “Korumalar Acik!”, 27, 5 315 180 20
  button “Korumalar Kapali”, 28, 200 315 180 20
}
alias shitdefmsg { return 4Bad Nick / Kotu nick! /nick yeni-nick.! }
alias shitsetup if $dialog(Bads) == $null dialog -m Bads Bads
alias s_about_s if $dialog(sabout) == $null yardi Bu özellik Sayesinde Kanala Giren istenmeyen Kisiler Kick Sebebiyle Birlikte Kanaldan Atilirr.
on *:dialog:Bads:dclick:2:{ /.ruser 666 $did(2).seltext | did -d Bads 2 $did(2).sel }
on *:dialog:Bads:sclick:6:{ if ($did(4) != $null) { did -a Bads 2 $did(4) | .auser 666 $did(4) | did -fr Bads 4 } }
on *:dialog:Bads:sclick:10:{ set %mazk 0 }
on *:dialog:Bads:sclick:11:{ set %mazk 1 }
on *:dialog:Bads:sclick:12:{ set %mazk 2 }
on *:dialog:Bads:sclick:13:{ set %mazk 3 }
on *:dialog:Bads:sclick:14:{ set %mazk 4 }
on *:dialog:Bads:sclick:15:{ set %mazk 5 }
on *:dialog:Bads:sclick:16:{ set %mazk 6 }
on *:dialog:Bads:sclick:17:{ set %mazk 7 }
on *:dialog:Bads:sclick:18:{ set %mazk 8 }
on *:dialog:Bads:sclick:19:{ set %mazk 9 }
on *:dialog:Bads:sclick:21:{ if (%banx == !) { unset %banx | did -u Bads 22  } | else { set %banx ! | did -c Bads 22 } }
on *:dialog:Bads:sclick:22:{ if (%banx == $null) { set %banx ! | did -u Bads 21 } | else { unset %banx | did -c Bads 21 } }
on *:dialog:Bads:sclick:23:{
  set %banx ! | set %mazk 2 | set %shitkickmsg $shitdefmsg | did -c Bads 12,22
  did -a Bads 26 %shitkickmsg | did -u Bads 10,11,13,14,15,16,17,18,19,21
}
on *:dialog:Bads:sclick:24:{ s_about_s }
on *:dialog:Bads:edit:26:{ set %shitkickmsg $did(26) }
on *:dialog:Bads:sclick:27:{ .enable #shitlizt | did -e Bads 21,22 }
on *:dialog:Bads:sclick:28:{ .disable #shitlizt | did -b Bads 21,22 }
on *:dialog:Bads:init:*:{
  if ($group(#shitlizt) == off) { did -b Bads 21,22 }
  if (%mazk == 0) { did -c Bads 10 }
  if (%mazk == 1) { did -c Bads 11 }
  if (%mazk == 2) { did -c Bads 12 }
  if (%mazk == 3) { did -c Bads 13 }
  if (%mazk == 4) { did -c Bads 14 }
  if (%mazk == 5) { did -c Bads 15 }
  if (%mazk == 6) { did -c Bads 16 }
  if (%mazk == 7) { did -c Bads 17 }
  if (%mazk == 8) { did -c Bads 18 }
  if (%mazk == 9) { did -c Bads 19 }
  if (%banx == $null) { did -c Bads 21 }
  if (%banx == !) { did -c Bads 22 }
  did -a Bads 26 %shitkickmsg
  if ($ulist(*,666,0) != $null) {
    set %cnt.shit 0
    while (%cnt.shit < $ulist(*,666,0)) {
      inc %cnt.shit 1
      did -a Bads 2 $ulist(*,666,%cnt.shit)
    } 
    unset %cnt.shit
  }
}