Something

On $*:TEXT:/^[!@](setgreet|sgreet) ?/Si:#: { 
  if (*$* iswm $2-) {
    notice $nick 14The character "7$14" is not allowed to be set in greets.
  } 
  else {
    writeini greets.ini Greet $address($nick,2) $2-
    notice $nick 14Your greet under the adress of7 [ $address($nick,2) ] 14has been set to:7 $2-
  }
}

On $*:TEXT:/^[!@](delgreet|dgreet) ?/Si:#: { 
  set %oldgreet [ $+ [ $nick ] ] $readini(greets.ini, n, Greet, $address($nick,2))
  remini %greets.ini Greet $address($nick,2)
  notice $nick 14Your greet has been removed. If you would like to set a new greet, type: 7!setgreet greet
  notice $nick 14This was your old greet:7 %oldgreet [ $+ [ $nick ] ]
  unset %oldgreet
} 

ON *:TEXT:!greet*:#:{
  if ($readini(greets.ini, n, $adress($nick,2), Greet)) { 
    notice $nick 14Your greet is currently set to:7 $readini(greets.ini, n, $adres($nick,2), Greet))
  }
  else {
    notice $nick 14You have no greet set! To set a greet, type: 7!setgreet greet
  }
}

ON *:JOIN:#:{
  if ($readini(greets.ini, n, Greet, $address($nick,2))) {
  msg $chan 4[15»14»4 $nick 14«15«4] $readini(Greets.ini, n, Greet, $address($nick,2))
}
else {
  notice $nick 14You have no greet set! Type 7!setgreet greet14to set one!
}