on $*:TEXT:/^[!@]setgreet(ing)/Si:#: {
if (*$* iswm $2-) { notice $nick The symbol '$' is not allowed. Please use something different. | halt }
notice $nick Your personal greet has been $iif($readini(greets.ini,greet,$address($nick,3)),changed,set) to: $2-
writeini greets.ini greet $address($nick,3) $replace($2-,$chr(3),@k@,$chr(2),@b@,$chr(22),@r@,$chr(31),@u@)
}
on $*:TEXT:/^[!@]delgreet(ing)/Si:#: {
if (!$readini(greets.ini,greet,$address($nick,3))) { notice $nick You have no greet set. | halt }
remini greets.ini greet $address($nick,3)
notice $nick Your personal greet has been unset.
}
on $*:TEXT:/^[!@]greets (on|off)?/Si:#: {
if (!$2) { notice $nick Syntax: !greets *on/off* | halt }
if ($2 !== on) || ($2 !== off) { notice $nick Syntax: !greets *on/off* | halt }
writeini greets.ini usage $chan $iif($2 == on,on,off)
notice $nick Greets for $chan are now $iif($2 == on,on,off)
}
on $*:TEXT:/^[!@]greet/Si:#: {
if (!$readini(greets.ini,greet,$address($nick,3))) { notice $nick You have no greet set. | halt }
notice $nick Your current greet is: $replace($readini(greets.ini,greet,$address($nick,3)),@k@,$chr(3),@b@,$chr(2),@r@,$chr(22),@u@,$chr(31))
}
on *:JOIN:#: {
if ($readini(greets.ini,usage,$chan) == on) || (!$readini(greets.ini,usage,$chan)) {
msg $chan $+($chr(91),$nick,$chr(93)) $replace($readini(greets.ini,greet,$address($nick,3)),@k@,$chr(3),@b@,$chr(2),@r@,$chr(22),@u@,$chr(31))
}
}