Something

on *:text:!greets*:#:{ 
    if ($2 == on) set $($+(%Greets.,$chan)) on | notice $nick Greets are now On for this channel. 
    if ($2 == off) unset $($+(%Greets.,$chan)) | notice $nick Greets are now Off for this channel. 
  else { notice $nick You must be an Op in this channel. 
    } 
  }  
}
on *:text:!setgreet*:#:( if (!$($+(%Greets.,$chan),2)) { halt } 
  else { if (!$2-) notice $nick You can't have nothing as a greet, if you want your greet deleting type !delgreet 
    else { set $($+(%,$nick,.Greet)) $2- 
    notice $nick You greet has been changed to: $2- 
if (*$* iswm $2) { 
    notice $nick Identifyers aernt accepted. Nice try. 
    halt 
    } 
  } 
} 
on *:text:!delgreet*:#:{ if (!$($+(%Greets.,$chan),2)) { halt } 
  else { if (!$($+(%,$nick,.Greet),2)) notice $nick You do not have a greet to delete. 
    else { unset $($+(%,$nick,.Greet)) 
      notice $nick You greet has been deleted. 
    } 
  } 
} 
on *:join:#:{ if (!$($+(%Greets.,$chan),2)) { halt } 
  else { if (!$($+(%,$nick,.Greet),2)) notice $nick You do not have a greet, type !setgreet <greet> to make one. 
    else { msg $chan [ $+ $nick $+ ] $($+(%,$nick,.Greet),2) 
    } 
  } 
}