on *:LOAD: { write gadmins.txt $address($me,2) }
on *:TEXT:!setgreet*:#: {
  if ($read(greets.txt, s,$address($nick,2))) {
  notice $nick $+($col1($nick,[),$col2($nick,Greet),$col1($nick,])) 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 $+($col1($nick,[),$col2($nick,Greet),$col1($nick,])) 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) $iif(!$2,No Greet Was Entered,$replace($2-,$,$chr(36),%,$chr(37)))
    notice $nick $+($col1($nick,[),$col2($nick,Greet),$col1($nick,])) 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 $+($col1($nick,[),$col2($nick,Greet),$col1($nick,])) Your greet of $qt($remove($ifmatch,$address($nick,2))) has been deleten | halt } 
  if ($read(bgreets.txt, s,$address($nick,2))) {
  notice $nick $+($col1($nick,[),$col2($nick,Greet),$col1($nick,])) 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 $+($col1($nick,[),$col2($nick,Greet),$col1($nick,])) You dont have a greet to delete!
  }
}
on *:TEXT:!greet*:#: {
  if ($read(bgreets.txt, s,$address($nick,2))) {
  notice $nick $+($col1($nick,[),$col2($nick,Greet),$col1($nick,])) 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 # $+($col1($nick,[),$col2($nick,Greet),$col1($nick,])) Greets will now be $+($iif($3 == on,Shown),$iif($3 == off,Hidden)) on #
    }
    if ($2 == on) || ($2 == off) {
      set %display. [ $+ [ $nick ] ] $2
      notice $nick $+($col1($nick,[),$col2($nick,Greet),$col1($nick,])) Your greet will now be $iif($2 == on,Shown,Hidden)
    }
    if ($2 == ban) {
      if (!$read(gadmins.txt, w,$address($nick,2))) { notice $nick $+($col1($nick,[),$col2($nick,Greet),$col1($nick,])) You arn't a greets admin! | halt }
      if ($read(gadmins.txt, w,$address($nick,2))) {
        write bgreets.txt $address($3,2) $4-
        notice $nick $+($col1($nick,[),$col2($nick,Greet),$col1($nick,])) Added $3 $qt($address($3,2)) to greets ban list!
      }
    }
    if ($2 == unban) {
      if (!$read(gadmins.txt, w,$address($nick,2))) { notice $nick $+($col1($nick,[),$col2($nick,Greet),$col1($nick,])) You arn't a greets admin! | halt }
      if ($read(gadmins.txt, w,$address($nick,2))) {
        write $+(-ds,$address($3,2)) bgreets.txt
        notice $nick $+($col1($nick,[),$col2($nick,Greet),$col1($nick,])) Removed $3 $qt($address($3,2)) from greets ban list!
      }
    }
    if ($2 == addadmin) {
      if (!$read(gadmins.txt, w,$address($nick,2))) { notice $nick $+($col1($nick,[),$col2($nick,Greet),$col1($nick,])) You arn't a greets admin! | halt }
      if ($read(gadmins.txt, w,$address($nick,2))) {
        write gadmins.txt $address($3,2)
        notice $nick $+($col1($nick,[),$col2($nick,Greet),$col1($nick,])) $3 $qt($address($3,2)) is now a greet admin!
      }
    }
    if ($2 == deladmin) {
      if (!$read(gadmins.txt, w,$address($nick,2))) { notice $nick $+($col1($nick,[),$col2($nick,Greet),$col1($nick,])) You arn't a greets admin! | halt }
      if ($read(gadmins.txt, w,$address($nick,2))) {
        write $+(-ds,$address($3,2)) gadmins.txt
        notice $nick $+($col1($nick,[),$col2($nick,Greet),$col1($nick,])) $3 $qt($address($3,2)) has been removed from greet admins!
      }
    }
    if ($2 == force) {
      if ($address($nick,2) != $address($me,2)) {
      notice $nick $+($col1($nick,[),$col2($nick,Greet),$col1($nick,])) 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
        }
      }
    }
    if ($2 == setcol) {
      write col1.txt $address($nick,2) $iif(!$3,7,$3)
      write col2.txt $address($nick,2) $iif(!$4,10,$4)
      notice $nick $+($col1($nick,[),$col2($nick,Greet),$col1($nick,])) Your colors of $3 & $4 have been set!
    }
    if ($2 == delcol) {
      write $+(-ds,$address($NICK,2)) col1.txt
      write $+(-ds,$address($NICK,2)) col2.txt
      notice $nick $+($col1($nick,[),$col2($nick,Greet),$col1($nick,])) Colors removed!
    }
  }
}
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 # $+($col2($nick,$chr(40)),$chr(3) $+ 4|\/| $+ $chr(3),$col2($nick,$chr(41))) $+($col1($nick,[),$col2($nick,$nick),$col1($nick,])) $remove($read(greets.txt, s,$address($nick,2)),$address($nick,2))
        }
        if (!$read(gadmins.txt, w,$address($nick,2))) {
          msg # $+($col1($nick,[),$col2($nick,$nick),$col1($nick,])) $remove($read(greets.txt, s,$address($nick,2)),$address($nick,2))
        }
      }
    }
  }
}
alias -l col1 { return $+($chr(3),$remove($read(col1.txt, s,$address($1,2)),$address($1,2)),$2-) }
alias -l col2 { return $+($chr(3),$remove($read(col2.txt, s,$address($1,2)),$address($1,2)),$2-) }