on *:text:!setgreet*:*: {
set %greet $+ $nick $2-
}

on *:join:*: {
if (%greet [ $+ [ $nick ] ] != $null) {
msg $chan %greet [ $+ [ $nick ] ]
}
}