welome msg

on *:start: {
  hmake Welcomes 100
  if ($isfile(Welcomes.hsh)) { hload Welcomes Welcomes.hsh }
}

on *:join:#: {
  if ($hget(Welcomes,$nick)) { msg $chan $v1 }
}

menu nicklist {
  Welcome Message
  .$iif(!$hget(Welcomes,$snicks),Create):WelcomeMsg Create $snicks
  .$iif($hget(Welcomes,$snicks),Change):WelcomeMsg Change $snicks
  .$iif($hget(Welcomes,$snicks),Remove):WelcomeMsg Remove $snicks
}

menu channel {
  Welcome Message
  .Create:WelcomeMsg Create $?="Enter a nick"
  .Remove:WelcomeMsg Remove $?="Enter a nick"
}

alias WelcomeMsg {
  if (!$hget(Welcomes)) {
    hmake Welcomes 100
    if ($isfile(Welcomes.hsh)) { hload Welcomes Welcomes.hsh }
  }
  if ($1 == Create) { hadd Welcomes $2 $$input(Enter Welcome Message,e,Welcome Message) | echo -a Created Welcome Message for $2 -- $hget(Welcomes,$2) }
  elseif ($1 == Change) { hadd Welcomes $2 $$input(Enter Welcome Message,e,Welcome Message,$hget(Welcomes,$2)) | echo -a Changed Welcome Message for $2 -- $hget(Welcomes,$2) }
  elseif ($1 == Remove) {
    if ($hget(Welcomes,$2) == $null) { echo -a Cannot remove message: No welcome message for $2 | return }
    hdel Welcomes $2
    echo -a Removed Welcome Message for $2
  }
  hsave Welcomes Welcomes.hsh
}