Untitled

alias addgreet {
  if ($hget(greets) != greets) { hmake greets }
  hadd greets $1 $2-
  echo -a Greet Added for $1
}

alias delgreet {
  var %i = 1
  while (%i <= $hget(greets,0).item) {
    if ($hget(greets,%i).item == $1) {
      hdel greets $1
      echo -a Greet Deleted for $1
    }
    inc %i
  }
}

alias greets {
  var %i = 1
  if ($hget(greets)) {
    while (%i <= $hget(greets,0).item) {
      echo -a 4,1[0 $+ $hget(greets,%i).item $+ 4,1] 4,1(7 $+ $hget(greets,$hget(greets,%i).item) $+ 4)
      inc %i
    }
  }
}

on *:EXIT:{ hsave greets greetsystem.txt }
on *:START:{ hmake greets | hload greets greetsystem.txt }

on *:JOIN:#:{
  var %i = 1
  while (%i <= $hget(greets,0).item) {
    if ($nick == $hget(greets,%i).item) {
      msg $chan 4,1[0 $+ $nick $+ 4,1] 4,1(7 $+ $hget(greets,$nick) $+ 4)
    }
    inc %i
  }
  on $*:text:*:#:{
    tokenize 32 $strip($1-)
    if ($network == PeerCommons) && ($istok(#main #support #abuse #appeals #staff #staff-scripts #RoomMonitor #NickMonitor #Recruits,32)) return
  }
}