Admin:
!greet
!greetdel
!greetedit
User:
!greetme
!greetdelme
!greeteditme
Alias:
/GreetAdmin

;Greet
on 9:text:!greet *:#:{ 
  if (!%greet. [ $+ [ $2 ] ]) {  
    if ($2 && $3) {
      set %greet. $+ $2 $3- 
      msg # Greet added Successfuly
    } 
    else {  msg # You must enter and a message }
  }
  else { 
  msg # This nick is allready on my Greet list with msg ( $+ %greet. [ $+ [ $2 ] ] $+ ) You can change it by typing !greetedit <msg> or !greetdel <nick> }

}
on 1:text:!greetme *:#:{ 
  if (!%greet. [ $+ [ $nick ] ]) {
    if ($2) { 
      set %greet. $+ $nick $2-
      msg # Greet added succesfully
    }
    else { msg # You must write and the message }
  }
  else { msg # You are allready exists to my Greet list with msg ( $+ %greet. [ $+ [ $nick ] ] $+ ) You can change it by typing !greetedit <msg> or !greetdelme

  }
}
alias rb return $regsubex($$1-,/(.)/g,$+($chr(2) $+ $chr(3),$r(2,15),$chr(2),\1))
on 1:text:!greetedelme *:#:{
  if (%greet. [ $+ [ $nick ] ]) {
    if ($2) {
      set %greet. $+ $nick $2-
      msg  # Greet Edited succesfully
    }
    else { msg # You must write and a message }
  }
  else { msg # You have no greet }
}
on 1:text:!greetedit *:#:{
  if (%greet. [ $+ [ $2 ] ]) {
    if ($2-3) {
      set %greet. $+ $2 $3-
      msg # Greet Edited succesfully
    }
    else { msg # You must write and a message }
  }
  else { msg # $2 has no greet }
}
on 1:text:!greeteditme *:#:{
  if (%greet. [ $+ [ $nick ] ]) {
    if ($2) {
      set %greet. $+ $nick $2-
      msg # Greet Edited succesfully
    }
    else { msg # You must write and a message }
  }
  else { msg # $nick You have no greet }
}
on 1:text!greetdelme:#:{
  if (%greet. [ $+ [ $nick ] ]) {
    unset %greet. [ $+ [ $nick ] ]
    msg # Your msg has been deleted
  }
  else { msg # You are not on my Greet list }
}
on 10:text:!greetdel *:#:{
  if (%greet. [ $+ [ $2 ] ]) {
    if ($3) { set %Greason $3- }
    else { set %Greason No Reason }
    unset %greet. [ $+ [ $2 ] ]
    msg # $2 Greet has been deleted from ADMIN/DJ $nick with reason ( $+ %greason $+ )
  }
  else { msg # I have no user $2 in my greet list }
}
on 1:Text:!greetmsg*:#:{
  if (!$2) { 
    if (%greet. [ $+ [ $nick ] ]) {
      msg # Your Greet is: %greet. [ $+ [ $nick ] ]
    }
    else { msg # You Have no Greet }    
  }
  else { 
    if (%greet. [ $+ [ $2 ] ]) {
      msg # $rb($2) $+ 's Greet is: %greet. [ $+ [ $2 ] ]
    }
    else { msg # $rb($2) $+  Has no Greet }  
  }
}
alias GreetAdmin {
  if ($1 != $null) {
    auser 10 $1
  }
  else { echo $color(info) * /GreetAdmin: insufficient parameters }
}
on *:join:#:{ if (%greet. [ $+ [ $nick ] ]) { msg # 3(4 $+ $nick $+ 3) $rb(%greet. [ $+ [ $nick ] ]) } }
on *:text:!ghelp:#:{ if ($ulevel == 1) { notice $nick !greetme <msg> /\ !greetdelme /\ !greeteditme <msg> } | if ($ulevel > 9) { notice $nick !greetme <msg> /\ !greetdelme /\ !greeteditme <msg> /\ !greetedit <nick> <msg> /\ !greetdel <nick> (reason ( if you want)) /\ !greet <nick> <msg> } }