try this

on *:load: { set %clan $$?=\"What is your clan name?\" | set %clanchan $$?=\"What channel is the clan for?\" }
on *:text:*:{
  if ($chan == %clanchan) {
    if ($2) {
      if ($1 == !clangreet) {
        set %clangreet [ $+ [ $nick ] ] $2-
        notice $nick Your greet is now: $2-
      }
      if ($1 == !delclangreet) {
        if (!%clangreet [ $+ [ $nick ] ]) {
          unset %clangreet [ $+ [ $nick ] ]
          notice $nick Your greet has been deleted!
        }
        else notice $nick You don\'t have a greet, how can you delete it?
      }
      if ($nick isop $chan || $nick ishop $chan) {
        if ($1 == !addmember) {
          if (!$istok(%member,$2,32) {
            set %member $addtok(%member,$2,32) 
            msg $chan $2 has been added to the %clan database.
          }
          else msg $chan $2 is already in the %clan database.
        }
        if ($1 == !delmember) {
          if ($istok(%member,$2,32) {
            set %member $remtok(%member,$2,1,32)
            msg $chan $2 has been removed from the %clan database.
          }
          else msg $chan $2 isn\'t in the %clan database.
        }
        if ($1 == !addelitemember) {
          if (!$istok(%emember,$2,32)) {
            set %emember $addtok(%emember,$2,32)
            msg $chan $2 has been added to the %clan elite database.
          }
          else msg $chan $2 Is already in the %clan elite database.
        }
        if ($1 == !delelitemember) {
          if ($istok(%emember,$2,32) {
            set %emember $remtok(%emember,$2,1,32)
            msg $chan $2 has been removed from the %clan elite member database.
          }
          else msg $chan $2 Isn\'t in the %clan elite member database.
        }
        if ($nick isop $chan) {
          if ($1 == !addfriend) {
            if (!$istok(%friend,$2,32) { 
              set %friend $addtok(%friend,$2,32) 
              msg $chan $2 has been added to the %clan friends database.
            }
            else msg $chan $2 is already in the %clan friends database.
          }
          if ($1 == !delfriend) {
            if ($istok(%friend,$2,32) { 
              set %friend $remtok(%friend,$2,1,32)
              msg $chan $2 has been removed from the %clan friends database.
            }
            else msg $chan $2 isn\'t in the %clan friends database.
          }
          if ($1 == !addleader) {
            if (!$istok(%leader,$2,32) {
              set %leader $addtok(%leader,$2,32)  
              msg $chan $2 has been added to the %clan leader database.
            }
            else msg $chan $2 is already in the %clan leader database.
          }
          if ($1 == !delleader) {
            if ($istok(%leader,$2,32) {
              set %leader $remtok(%leader,$2,1,32)
              msg $chan $2 has been removed from the %clan leader database.
            }
            else msg $chan $2 isn\'t in the %clan leader database.
          }
        }
        elseif ($nick !isop $chan) msg $chan You must be op.
      }
      elseif ($nick !ishop $chan || $nick !isop $chan) msg $chan You muse be halfop or op.
    }
    else msg $chan Please supply a $nick
  }
}
on *:JOIN:#: { 
  if ($chan == %clanchan) {
    if ($istok(%member,$nick,32)) { 
      inc %mj 1 
      msg $chan 4,1Welcome 8%clan15 $nick 
      if (%clangreet [ $+ [ $nick ] ] == $null) notice $nick You don\'t have a greet set! Type !clangreet <GREET> to set one! 
      else msg $chan GREET: %CLANgreet [ $+ [ $nick ] ] 
    msg $chan A MEMBER has joined this channel %mj times } 
    if ($istok(%friend,$nick,32)) { 
      inc %fj 1 
      msg $chan 4,1Welcome 8%clan15 12friend15 $nick 
      if (%clangreet [ $+ [ $nick ] ] == $null) notice $nick You don\'t have a greet set! Type !clangreet <GREET> to set one! 
      else msg $chan GREET: %clangreet [ $+ [ $nick ] ] 
      msg $chan A friend has joined this channel %fj times 
    } 
    if ($istok(%emember,$nick,32)) { 
      inc %ej 1 
      msg $chan 4,1Welcome 8%clan12Elite8 MEMBER15 $nick 
      if (%clangreet [ $+ [ $nick ] ] == $null) notice $nick You don\'t have a greet set! Type !clangreet <GREET> to set one! 
      else msg $chan GREET: %clangreet [ $+ [ $nick ] ] 
      msg $chan An Elite MEMBER has joined this channel %ej times 
    } 
    if ($istok(%leader,$nick,32)) { 
      inc %lj 1 
      msg $chan 4,1Welcome 8%clan15 12LEADER8 $nick 
      if (%clangreet [ $+ [ $nick ] ] == $null) notice $nick You don\'t have a greet set! Type !clangreet <GREET> to set one! 
      else msg $chan GREET: %clangreet [ $+ [ $nick ] ] 
      msg $chan A Leader has joined this channel %lj times 
    } 
  } 
}