
dialog beg {
title "Begrüßung AgF 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 {
AgF Begrüßung:dialog -m beg beg 
}
