ON *:JOIN:#:{ 
  if ($chan == #mirc) { halt }
  if ($readini(DIR,$address($nick,2),GREET)) { /MSG $Chan $+([,$nick,])  $readini(DIR,$address($nick,2),GREET) } 
} 
on $*:text:/^[!@.]setgreet*/Si:#: { 
  if (!$2) { .notice $nick Specify A Greet Message. | halt } 
  else { 
    writeini DIR $address($nick,2) GREET $2- 
    notice $nick :D Your new greet has been seted: $2- $+ . 
    Halt 
  } 
}