on *:Start:{
  if (!$hget(greet)) {
    hmake Greet
  }
  if ($exists(greet.txt)) {
    hload greet greet.txt
  }
}

on *:Exit:{
  hsave greet greet.txt
}

on *:text:!setgreet*:#:{
  if ($len($2-) > 200) { .notice $nick That greet is too long. Your greet must be under 200 characters. | Halt }
  else {
    if (!$2) { 
      .notice $nick No greet set. 
      halt 
    }
    if ($2 == off) && (!$3) {
      .hadd greet $nick off
      .notice $nick Greets turned off for the nick $+($nick,.)
    } 
    else { 
      .notice $nick Your greet has been set to $+($2-,.) 
      .hadd greet $nick $2-
      .hsave greet greet.txt
    }
  }
}

on *:TEXT:!Greets*:#:{
  if ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
    if (!$2) {
      if ($hget(greet,$chan)) {
        .notice $nick Greets are currently off in $+($chan,.)
      }
      else {
        .notice $nick Greets are currently on in $+($chan,.)
      }
    }
    if ($2 == off) { 
      .notice $nick Greets are now off in channel $+($chan,.) 
      .hadd greet $chan on 
      .hsave greet greet.txt 
    }
    elseif ($2 == on) { 
      .notice $nick Greets are now on in channel $+($chan,.) 
      .hdel greet $chan 
      .hsave greet greet.txt
    }
  }
  else { .notice $nick You must be an op to alter this channel's greet settings. | halt }
}

on *:Text:!viewgreet:*:{
  if (!$hget(greet,$nick)) {
    notice $nick No Greet Found, please type !greethelp to get help with greets.
  }
  else {
    notice $nick Your greet is set to $hget(greet,$nick))
  }
} 

on *:TEXT:!Delgreet*:#:{
  if ($hget(greet,$nick)) {
    .hdel greet $nick 
    .notice $nick Your greet has been deleted.
  }
  else { .notice $nick You have no greet set. Type !setgreet greet here to set one. | halt }
}

on *:Join:#:{
  if (($hget(Greet,$chan)) || ($hget(greet,$nick) == off) || ($nick == $me)) {
    Halt
  } 
  if ((!$hget(greet,$nick)) && (!$hget(greet,$chan))) { 
    .notice $nick You have no greet set. To set a greet, type !setgreet greet here.
    halt 
  }
  elseif (($hget(greet,$nick)) && (!$hget(Greet,$chan))) {
    .msg $chan [12  $nick  ] 7 $hget(greet,$nick) 
  }
}