on *:join:#:{
if $level($nick) == 1 {
.msg $nick Please choose one of the following designations
set %desig = $addtok(%desig,$nick,32)
;list of designations
}
else $read(Welcome.txt,$level($nick))
}
on *:text:!desig &:*:{
if $istok(%desig,$nick,32) {
.auser $2 $nick
set %desig $remtok(%desig,$nick,1,32)
}
}