menu * {
  Spamfilter Manager: /dialog -m spamfilterman spamfilterman | .stats f
}
raw 229:*: {
  if ($dialog(spamfilterman)) {
    did -a spamfilterman 1 $2-
    did -z spamfilterman 1
    halt
  }
}
dialog spamfilterman {
  title "Spamfilter Manager IRC.Power.Org.Mx"
  size -1 -1 282 226
  option dbu
  button "Borrar", 2, 2 124 70 12
  button "Editar", 3, 3 198 120 12
  button "Actualizar", 4, 149 198 130 12, disable
  button "Agregar Nuevo", 5, 72 124 80 12
  box "Spamfilters", 6, 1 191 280 22
  box "Typo", 7, 1 136 121 54
  check "Channel (c)", 9, 3 143 59 10
  check "Private (p)", 10, 3 152 60 10
  check "Private Notice (n)", 11, 3 161 50 10
  check "Channel Notice (N)", 12, 3 170 60 10
  check "Part (P)", 13, 3 179 50 10
  check "Quit (q)", 14, 64 161 54 10
  check "DCC Send (d)", 15, 64 170 57 10
  check "Away (a)", 16, 64 179 50 10
  check "Topic (t)", 17, 64 143 50 10
  check "User (u)", 18, 64 152 50 10
  box "Aktion", 19, 123 136 157 27
  radio "Kill", 20, 125 142 21 10
  radio "kLine", 21, 150 142 25 10
  radio "zLine", 22, 176 142 25 10
  radio "gLine", 23, 150 151 25 10
  radio "gzLine", 24, 176 151 25 10
  radio "Shun", 25, 125 151 23 10
  radio "tempshun", 26, 206 142 36 10
  radio "Viruschan", 27, 206 151 34 10
  radio "Block", 28, 243 143 25 10
  radio "DCC Block", 29, 243 151 35 10
  edit "", 30, 153 164 127 10, autohs
  text "Spam ->", 31, 126 165 25 8
  edit "", 32, 153 175 127 10, autohs
  text "Razon ->", 33, 127 176 25 8
  edit "", 8, 1 214 280 10, read
  list 1, 1 1 280 121, size hsbar vsbar
}
on *:dialog:spamfilterman:sclick:*: {
  if ($did == 2) {
    if ($did(1).seltext) {
      if ($gettok($did(1).seltext,1,32) === f) {
        did -ra spamfilterman 8 Der gewählte Spamfilter Eintrag kann nicht gelöscht werden da er in der Server Konfiguration steht.
      }
      else {
        spamfilter del $gettok($did(1).seltext,2,32) $gettok($did(1).seltext,3,32) - $gettok($did(1).seltext,7,32) $gettok($did(1).seltext,9-,32)
        did -ra spamfilterman 8 Spamfiltereintrag gelöscht.
        did -r spamfilterman 1
        .stats f
      }
    }
    else {
      did -ra spamfilterman 8 Kein Spamfiltereintrag markiert.
    }
  }
  if ($did == 3) {
    if ($did(1).seltext) {
      if (c isincs $gettok($did(1).seltext,2,32)) {
        did -c spamfilterman 9
      }
      else {
        did -u spamfilterman 9
      }
      if (p isincs $gettok($did(1).seltext,2,32)) {
        did -c spamfilterman 10
      }
      else {
        did -u spamfilterman 10
      }
      if (n isincs $gettok($did(1).seltext,2,32)) {
        did -c spamfilterman 11
      }
      else {
        did -u spamfilterman 11
      }
      if (N isincs $gettok($did(1).seltext,2,32)) {
        did -c spamfilterman 12
      }
      else {
        did -u spamfilterman 12
      }
      if (P isincs $gettok($did(1).seltext,2,32)) {
        did -c spamfilterman 13
      }
      else {
        did -u spamfilterman 13
      }
      if (q isincs $gettok($did(1).seltext,2,32)) {
        did -c spamfilterman 14
      }
      else {
        did -u spamfilterman 14
      }
      if (t isincs $gettok($did(1).seltext,2,32)) {
        did -c spamfilterman 17
      }
      else {
        did -u spamfilterman 17
      }
      if (u isincs $gettok($did(1).seltext,2,32)) {
        did -c spamfilterman 18
      }
      else {
        did -u spamfilterman 18
      }
      if (d isincs $gettok($did(1).seltext,2,32)) {
        did -c spamfilterman 15
      }
      else {
        did -u spamfilterman 15
      }
      if (a isincs $gettok($did(1).seltext,2,32)) {
        did -c spamfilterman 16
      }
      else {
        did -u spamfilterman 16
      }
      did -ra spamfilterman 30 $gettok($did(1).seltext,9-,32)
      did -ra spamfilterman 32 $gettok($did(1).seltext,7,32)
      if ($gettok($did(1).seltext,3,32) == kill) {
        did -c spamfilterman 20
        did -u spamfilterman 21
        did -u spamfilterman 22
        did -u spamfilterman 23
        did -u spamfilterman 24
        did -u spamfilterman 25
        did -u spamfilterman 26
        did -u spamfilterman 27
        did -u spamfilterman 28
        did -u spamfilterman 29
      }
      if ($gettok($did(1).seltext,3,32) == kline) {
        did -c spamfilterman 21
        did -u spamfilterman 20
        did -u spamfilterman 22
        did -u spamfilterman 23
        did -u spamfilterman 24
        did -u spamfilterman 25
        did -u spamfilterman 26
        did -u spamfilterman 27
        did -u spamfilterman 28
        did -u spamfilterman 29
      }
      if ($gettok($did(1).seltext,3,32) == zline) {
        did -c spamfilterman 22
        did -u spamfilterman 21
        did -u spamfilterman 20
        did -u spamfilterman 23
        did -u spamfilterman 24
        did -u spamfilterman 25
        did -u spamfilterman 26
        did -u spamfilterman 27
        did -u spamfilterman 28
        did -u spamfilterman 29
      }
      if ($gettok($did(1).seltext,3,32) == gline) {
        did -c spamfilterman 23
        did -u spamfilterman 21
        did -u spamfilterman 22
        did -u spamfilterman 20
        did -u spamfilterman 24
        did -u spamfilterman 25
        did -u spamfilterman 26
        did -u spamfilterman 27
        did -u spamfilterman 28
        did -u spamfilterman 29
      }
      if ($gettok($did(1).seltext,3,32) == gzline) {
        did -c spamfilterman 24
        did -u spamfilterman 21
        did -u spamfilterman 22
        did -u spamfilterman 23
        did -u spamfilterman 20
        did -u spamfilterman 25
        did -u spamfilterman 26
        did -u spamfilterman 27
        did -u spamfilterman 28
        did -u spamfilterman 29
      }
      if ($gettok($did(1).seltext,3,32) == shun) {
        did -c spamfilterman 25
        did -u spamfilterman 21
        did -u spamfilterman 22
        did -u spamfilterman 23
        did -u spamfilterman 24
        did -u spamfilterman 20
        did -u spamfilterman 26
        did -u spamfilterman 27
        did -u spamfilterman 28
        did -u spamfilterman 29
      }
      if ($gettok($did(1).seltext,3,32) == tempshun) {
        did -c spamfilterman 26
        did -u spamfilterman 21
        did -u spamfilterman 22
        did -u spamfilterman 23
        did -u spamfilterman 24
        did -u spamfilterman 25
        did -u spamfilterman 20
        did -u spamfilterman 27
        did -u spamfilterman 28
        did -u spamfilterman 29
      }
      if ($gettok($did(1).seltext,3,32) == viruschan) {
        did -c spamfilterman 27
        did -u spamfilterman 21
        did -u spamfilterman 22
        did -u spamfilterman 23
        did -u spamfilterman 24
        did -u spamfilterman 25
        did -u spamfilterman 26
        did -u spamfilterman 20
        did -u spamfilterman 28
        did -u spamfilterman 29
      }
      if ($gettok($did(1).seltext,3,32) == block) {
        did -c spamfilterman 28
        did -u spamfilterman 21
        did -u spamfilterman 22
        did -u spamfilterman 23
        did -u spamfilterman 24
        did -u spamfilterman 25
        did -u spamfilterman 26
        did -u spamfilterman 27
        did -u spamfilterman 20
        did -u spamfilterman 29
      }
      if ($gettok($did(1).seltext,3,32) == dccblock) {
        did -c spamfilterman 29
        did -u spamfilterman 21
        did -u spamfilterman 22
        did -u spamfilterman 23
        did -u spamfilterman 24
        did -u spamfilterman 25
        did -u spamfilterman 26
        did -u spamfilterman 27
        did -u spamfilterman 28
        did -u spamfilterman 20
      }
      did -e spamfilterman 4
    }
    else {
      did -ra spamfilterman 8 Kein Eintrag ausgewählt.
    }
  }
  if ($did == 4) {
    if ($did(1).seltext) {
      spamfilter del $gettok($did(1).seltext,2,32) $gettok($did(1).seltext,3,32) - $gettok($did(1).seltext,7,32) $gettok($did(1).seltext,9-,32)
      if ($did(9).state == 1) { if (%spamf.types) { set %spamf.types %spamf.types $+ c }
        else { set %spamf.types c }
      }
      if ($did(10).state == 1) { if (%spamf.types) { set %spamf.types %spamf.types $+ p }
        else { set %spamf.types p }
      }
      if ($did(11).state == 1) { if (%spamf.types) { set %spamf.types %spamf.types $+ n }
        else { set %spamf.types n }
      }
      if ($did(12).state == 1) { if (%spamf.types) { set %spamf.types %spamf.types $+ N }
        else { set %spamf.types N }
      }
      if ($did(13).state == 1) { if (%spamf.types) { set %spamf.types %spamf.types $+ P }
        else { set %spamf.types P }
      }
      if ($did(14).state == 1) { if (%spamf.types) { set %spamf.types %spamf.types $+ q }
        else { set %spamf.types q }
      }
      if ($did(15).state == 1) { if (%spamf.types) { set %spamf.types %spamf.types $+ d }
        else { set %spamf.types d }
      }
      if ($did(16).state == 1) { if (%spamf.types) { set %spamf.types %spamf.types $+ a }
        else { set %spamf.types a }
      }
      if ($did(17).state == 1) { if (%spamf.types) { set %spamf.types %spamf.types $+ t }
        else { set %spamf.types t }
      }
      if ($did(18).state == 1) { if (%spamf.types) { set %spamf.types %spamf.types $+ u }
        else { set %spamf.types u }
      }
      if ($did(20).state == 1) { set %spamf.action kill }
      if ($did(21).state == 1) { set %spamf.action kline }
      if ($did(22).state == 1) { set %spamf.action zline }
      if ($did(23).state == 1) { set %spamf.action gline }
      if ($did(24).state == 1) { set %spamf.action gzline }
      if ($did(25).state == 1) { set %spamf.action shun }
      if ($did(26).state == 1) { set %spamf.action tempshun }
      if ($did(27).state == 1) { set %spamf.action viruschan }
      if ($did(28).state == 1) { set %spamf.action block }
      if ($did(29).state == 1) { set %spamf.action dccblock }
      if (($did(30).text) && ($did(32).text) && (%spamf.types) && (%spamf.action)) {
        .spamfilter add %spamf.types %spamf.action - $did(32).text $did(30).text
        unset %spamf.types
        unset %spamf.action
        did -ra spamfilterman 8 Spamfiltereintrag wurde gesetzt.
        did -r spamfilterman 1
        .stats f
      }
      else {
        did -ra spamfilterman 8 Fehlende Angaben!
      }
    }
    else {
      did -ra spamfilterman 8 Kein markierter Eintrag.
    }
  }
  if ($did == 5) {
    if ($did(9).state == 1) { if (%spamf.types) { set %spamf.types %spamf.types $+ c }
      else { set %spamf.types c }
    }
    if ($did(10).state == 1) { if (%spamf.types) { set %spamf.types %spamf.types $+ p }
      else { set %spamf.types p }
    }
    if ($did(11).state == 1) { if (%spamf.types) { set %spamf.types %spamf.types $+ n }
      else { set %spamf.types n }
    }
    if ($did(12).state == 1) { if (%spamf.types) { set %spamf.types %spamf.types $+ N }
      else { set %spamf.types N }
    }
    if ($did(13).state == 1) { if (%spamf.types) { set %spamf.types %spamf.types $+ P }
      else { set %spamf.types P }
    }
    if ($did(14).state == 1) { if (%spamf.types) { set %spamf.types %spamf.types $+ q }
      else { set %spamf.types q }
    }
    if ($did(15).state == 1) { if (%spamf.types) { set %spamf.types %spamf.types $+ d }
      else { set %spamf.types d }
    }
    if ($did(16).state == 1) { if (%spamf.types) { set %spamf.types %spamf.types $+ a }
      else { set %spamf.types a }
    }
    if ($did(17).state == 1) { if (%spamf.types) { set %spamf.types %spamf.types $+ t }
      else { set %spamf.types t }
    }
    if ($did(18).state == 1) { if (%spamf.types) { set %spamf.types %spamf.types $+ u }
      else { set %spamf.types u }
    }
    echo -a %spamf.types
    if ($did(20).state == 1) { set %spamf.action kill }
    if ($did(21).state == 1) { set %spamf.action kline }
    if ($did(22).state == 1) { set %spamf.action zline }
    if ($did(23).state == 1) { set %spamf.action gline }
    if ($did(24).state == 1) { set %spamf.action gzline }
    if ($did(25).state == 1) { set %spamf.action shun }
    if ($did(26).state == 1) { set %spamf.action tempshun }
    if ($did(27).state == 1) { set %spamf.action viruschan }
    if ($did(28).state == 1) { set %spamf.action block }
    if ($did(29).state == 1) { set %spamf.action dccblock }
    if (($did(30).text) && ($did(32).text) && (%spamf.types) && (%spamf.action)) {
      .spamfilter add %spamf.types %spamf.action - $did(32).text $did(30).text
      unset %spamf.types
      unset %spamf.action
      did -ra spamfilterman 8 Spamfiltereintrag wurde gesetzt.
      did -r spamfilterman 1
      .stats f
    }
  }
}