Miscellany

on *:TEXT:!setgreet*:#: { 
  set %greet $+ $address($nick,3) $2- 
  notice $nick $nick $+ , your personal greet has been set to: $2- 
} 
on *:JOIN:#: { 
  if (%greet [ $+ [ $address($nick,3) ] ] != $null) {  
  msg $chan [4 $nick ] %greet [ $+ [ $address($nick,3) ] ] }
  else {
  notice $nick You have not set a greet message yet, to do so say !greet <message>. }
}
on 1:TEXT:!delgreet:#:{ set %greet $+ $address($nick,3) $null | notice $nick Your greet was deleted. }
on 1:TEXT:!greet*:#:{ 
  if (%greet [ $+ [ $address($2,3) ] ] != $null) {
  /notice $nick [4 $2 ] %greet [ $+ [ $address($2,3) ] ] }
  elseif ($2 == $null) {
  /notice $nick [4 $nick ] %greet [ $+ [ $address($nick,3) ] ] }
  else {
  /notice $nick Sorry, $2 does not have a greet yet. Why not tell them about the greet system? }
}
on 1:TEXT:@greet*:#:{ 
  if (%greet [ $+ [ $address($2,3) ] ] != $null) {
  /msg $chan [4 $2 ] %greet [ $+ [ $address($2,3) ] ] }
  elseif ($2 == $null) {
  /msg $chan [4 $nick ] %greet [ $+ [ $address($nick,3) ] ] }
  else {
  /notice $nick Sorry, $2 does not have a greet yet. Why not tell them about the greet system? }
}