Mine

on *:TEXT:@set*:#:{
  if ($2 == greeting) {
    if (!$3) { notice $nick Greeting requirers more parameters. | halt }
    if ($3 == *) || ($3 == none) || ($3 == off) { unset $+(%,$chan,greeting1) | notice $nick Greeting for # is now off. | halt }
    set $+(%,$chan,greeting1) $3-
    notice $nick Greeting for # has been set to $3-
  }
  if ($2 == greeting2) {
    if (!$3) { notice $nick Greeting2 requirers more parameters. | halt }
    if ($3 == *) || ($3 == none) || ($3 == off) { unset $+(%,$chan,greeting2) | notice $nick Greeting2 for # is now off. | halt }
    set $+(%,$chan,greeting2) $3-
    notice $nick Greeting for # has been set to $3-
  }
}
on *:JOIN:#:{
  if ($chan == #sk33ny) { inc %counter }
  if ($eval($+(%,$chan,greeting1),2) != $null) {
    notice $nick $replace($eval($+(%,$chan,greeting1),2),<counter>,%counter)
  }
  if ($eval($+(%,$chan,greeting2),2) != $null) {
    notice $nick $replace($eval($+(%,$chan,greeting1),2),<counter>,%counter)
  }
}