on $*:TEXT:/^[!@]setgreet(ing)?/Si:#: {
writeini greets.ini greets $address($nick,3) $replace($1-,$chr(3),@k@,$chr(2),@b@,$chr(31),@r@,$chr(22),@u@)
notice $nick Your personal greet has been set to $1-
}

on $*:TEXT:/^[!@]delgreet(ing)?/Si:#: {
if (!$readini(greets.ini,greets,$address($nick,3))) { notice $nick You have no greet set. | halt  }
remini greets.ini greets $address($nick,3)
notice $nick Your greet has been removed.
}

on $*:TEXT:/^[!@](current)?greet(ing)?/Si:#: {
if (!$readini(greets.ini,greets,$address($nick,3))) { notice $nick You have no greet set. | halt  }
notice $nick Your current greet is: $readini(greets.ini,greets,$address($nick,3))
}

on *:JOIN:#: {
if ($readini(greets.ini,greets,$address($nick,3))) { msg $chan $+($chr(91),$nick,$chr(93)) $readini(greets.ini,greets,$address($nick,3)) | halt }
}