on *:TEXT:!setgreet *:#:{ 
  inc %greetnick
  Inc %greetnick set %greetnick $nick
  inc %greet
  set %greet $2-
}
}

on *:JOIN:#:{ if ( $nick == %greetnick )
/msg $chan %greet
}
}