
dialog beg {
  title ".:.FK.:. Begrüßung V1.0"
  size -1 -1 133 193
  option dbu
  button "Fertig", 2, 87 178 37 12, ok
  combo 6, 8 13 116 141, size
  box "Nick : Begrüssung (mit : getrennt eingeben)", 7, 2 3 128 168
  button "Speichern", 8, 7 178 37 12
  button "Löschen", 9, 47 178 37 12
  check "Begrüßung aktivieren", 10, 30 158 76 10
}

on *:dialog:beg:*:*:{
  if ($devent == init) {
    if (%begrüssung == 1) did -c $dname 10
    loadbuf -o $dname 6 begrüssungs.txt
    did -c $dname 6 1 
  }
  if ($devent == sclick) {
    if ($did = 8) {
      write begrüssungs.txt $did(6).text
      did -r $dname 6
      loadbuf -o $dname 6 begrüssungs.txt
      did -c $dname 6 1
    }
    if ($did = 9) {
      write $+(-dl,$did($dname,6).sel) begrüssungs.txt
      did -r $dname 6
      loadbuf -o $dname 6 begrüssungs.txt
      did -c $dname 6 1
    }
    if ($did = 2) {
      set %begrüssung $did(10).state
    }
  }
}

on *:join:#:{
  if ($nick != $me) && ($read(begrüssungs.txt,s,$nick) != $null) && (%begrüssung == 1) {
    msg $chan $gettok($read(begrüssungs.txt,s,$nick),1-,58) $+
  }
}

menu channel {
  FunKiller Begrüßung:dialog -m beg beg 
}
