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: $replace($readini(greets.ini,greets,$address($nick,3)),@k@,$chr(3),@b@,$chr(2),@r@,$chr(31),@u@,$chr(22))
}
on *:JOIN:#: {
if ($readini(greets.ini,greets,$address($nick,3))) { msg $chan $+($chr(91),$nick,$chr(93)) $replace($readini(greets.ini,greets,$address($nick,3)),@k@,$chr(3),@b@,$chr(2),@r@,$chr(31),@u@,$chr(22)) | halt }
}