V2 - Ultimate Greet System - By

on *:LOAD: { write gadmins.txt $address($me,2) }
on *:TEXT:!setgreet*:#: {
  if ($read(greets.txt, s,$address($nick,2))) {
  notice $nick [Greet] You already have a greet of $qt($remove($ifmatch,$address($nick,2))) please delete it first then try again! | halt } 
  if ($read(bgreets.txt, s,$address($nick,2))) {
  notice $nick [Greet] You have been banned from using the greets system $qt($remove($ifmatch,$address($nick,2))) | halt }
  if (!$read(greets.txt, s,$address($nick,2))) {
    write greets.txt $address($nick,2) $+($replace($2-,$,$chr(36),%,$chr(37)),$iif(!$2,No Greet Was Entered,$2-))
    notice $nick [Greet] Your greet of $qt($iif(!$2-,No Greet Entered,$2-)) is now saved under your host $qt($address($nick,2))
  }
}
on *:TEXT:!delgreet*:#: {
  if ($read(greets.txt, s,$address($nick,2))) {
    write $+(-ds,$address($nick,2)) greets.txt
  notice $nick [Greet] Your greet of $qt($remove($ifmatch,$address($nick,2))) has been deleten | halt } 
  if ($read(bgreets.txt, s,$address($nick,2))) {
  notice $nick [Greet] You have been banned from using the greets system $qt($remove($ifmatch,$address($nick,2))) | halt }
  if (!$read(greets.txt, s,$address($nick,2))) {
    notice $nick [Greet] You dont have a greet to delete!
  }
}
on *:TEXT:!greet*:#: {
  if ($read(bgreets.txt, s,$address($nick,2))) {
  notice $nick [Greet] You have been banned from using the greets system $qt($remove($ifmatch,$address($nick,2))) | halt }
  if (!$read(bgreets.txt, s,$address($nick,2))) {  
    if ($2 == display) { set %display. [ $+ [ # ] ] $+($iif($3 == on,on),$iif($3 == off,off))
      msg # [Greet] Greets will now be $+($iif($3 == on,Shown),$iif($3 == off,Hidden)) on #
    }
    if ($2 == on) || ($2 == off) {
      set %display. [ $+ [ $nick ] ] $2
      notice $nick [Greet] Your greet will now be $iif($2 == on,Shown,Hidden)
    }
    if ($2 == ban) {
      if (!$read(gadmins.txt, w,$address($nick,2))) { notice $nick [Greet] You arn't a greets admin! | halt }
      if ($read(gadmins.txt, w,$address($nick,2))) {
        write bgreets.txt $address($3,2) $4-
        notice $nick [Greet] Added $3 $qt($address($3,2)) to greets ban list!
      }
    }
    if ($2 == unban) {
      if (!$read(gadmins.txt, w,$address($nick,2))) { notice $nick [Greet] You arn't a greets admin! | halt }
      if ($read(gadmins.txt, w,$address($nick,2))) {
        write $+(-ds,$address($3,2)) bgreets.txt
        notice $nick [Greet] Removed $3 $qt($address($3,2)) from greets ban list!
      }
    }
    if ($2 == addadmin) {
      if (!$read(gadmins.txt, w,$address($nick,2))) { notice $nick [Greet] You arn't a greets admin! | halt }
      if ($read(gadmins.txt, w,$address($nick,2))) {
        write gadmins.txt $address($3,2)
        notice $nick [Greet] $3 $qt($address($3,2)) is now a greet admin!
      }
    }
    if ($2 == deladmin) {
      if (!$read(gadmins.txt, w,$address($nick,2))) { notice $nick [Greet] You arn't a greets admin! | halt }
      if ($read(gadmins.txt, w,$address($nick,2))) {
        write $+(-ds,$address($3,2)) gadmins.txt
        notice $nick [Greet] $3 $qt($address($3,2)) has been removed from greet admins!
      }
    }
    if ($2 == force) {
      if ($address($nick,2) != $address($me,2)) {
      notice $nick [Greet] You cannot force anything! | halt }
      if ($address($nick,2) == $address($me,2)) {
        if ($3 == meadmin) {
          write gadmins.txt $address($me,2)
        }
        if ($3 == meunban) {
          write $+(-ds,$address($me,2)) bgreets,txt
        }
      }
    }
  }
}
on *:JOIN:#: {
  if ($read(bgreets.txt, s,$address($nick,2))) { halt }
  if (%display. [ $+ [ # ] ] == on) {
    if (%display. [ $+ [ $nick ] ] == on) || (%display. [ $+ [ $nick ] ] == $null) {
      if ($read(greets.txt, s,$address($nick,2))) {
        if ($read(gadmins.txt, w,$address($nick,2))) {
          msg # $+($chr(40),$chr(3) $+ 4|\/| $+ $chr(3),$chr(41)) $+([,$nick,]) $remove($read(greets.txt, s,$address($nick,2)),$address($nick,2))
        }
        if (!$read(gadmins.txt, w,$address($nick,2))) {
          msg # $+([,$nick,]) $remove($read(greets.txt, s,$address($nick,2)),$address($nick,2))
        }
      }
    }
  }
}