Here are a few sections you can shorten. There are some others you can shorten which I did not so you can see the differences and what can be changed.
if ($did = 27) {
unset %aid.nick1
unset %aid.pass1
unser %aid.nick2
unset %aid.pass2
unset %aid.nick3
unset %aid.pass3
}
if ($did = 27) { unset %aid.nick* %aid.pass* }
Can be:
if ($did = 4) {
unset %aid.group1
unset %aid.nick1
unset %aid.pass1
unset %aid.group2
unset %aid.nick2
unset %aid.pass2
unset %aid.group3
unset %aid.nick3
unset %aid.pass3
did -r aid 8
did -r aid 10
did -r aid 14
did -r aid 16
did -r aid 21
did -r aid 23
}
Can be:
if ($did = 4) {
unset %aid.nick* %aid.pass* %aid.group*
did -r aid 8,10,14,16,21,23
}