on *:START:/server irc.xeonnet.net
on *:CONNECT: {
if ($network == XeonNET) {
ns auth AppServ qtk58 
mode $me +x
join -n #Apply
cs #ircops inviteme
join -n #ircops
}
}

on *:TEXT:*:?: {
  if ($nick isreg #apply) {
    if (!$readini(applist.ini,appsent,$nick)) {
      if ($1 == ;appstaff) {
        if (!$readini(applist.ini,staff,$nick)) && (!$readini(applist.ini,trust,$nick)) {
          ns info $nick
          set %nscheck. $+ $nick on
          nscheck.staff $nick
        }
      }
      elseif ($1 == fullname:) {
        if ($readini(applist.ini,staff,$nick)) {
          if ($readini(applist.ini,$nick,apptype) == staff) {
            if (!$readini(applist.ini,$nick,fullname)) {
              if ($2) {
                if ($3) {
                  set %aac. [ $+ [ $nick ] ] on
                  whois $nick
                  writeini applist.ini $nick fullname $2-
                  .msg $nick Next, please type in your Email Address by typing in- Email <EMAIL@EMAIL-ADDRESS.ENDING>
                }
                else .msg $nick Please provide your Last name as well.
              }
              else .msg $nick Please providide your First name.
            }
          }
        }
      }
      elseif ($1 == email:) {
        if ($readini(applist.ini,staff,$nick)) {
          if ($readini(applist.ini,$nick,apptype) == staff) {
            if ($readini(applist.ini,$nick,fullname)) {
              if (!$readini(applist.ini,$nick,email)) {
                if (* $+ $chr(64) $+ * iswm $2-) && (* $+ $chr(46) $+ * iswm $2-) {
                  writeini applist.ini $nick email $2-
                  .msg $nick Next, please type why you would like to become staff in support by typing in- Reason: <REASON HERE> (Please use at least 50 words)
                }
                else .msg $nick Please use the complete email systax. EX: Demon1LT@Yahoo.com - Not $2-
              }
            }
          }
        }
      }
      elseif ($1 == reason:) {
        if ($readini(applist.ini,staff,$nick)) {
          if ($readini(applist.ini,$nick,apptype) == staff) {
            if ($readini(applist.ini,$nick,fullname)) {
              if ($readini(applist.ini,$nick,email)) {
                if (!$readini(applist.ini,$nick,reason)) {
                  if ($0 >= 50) {
                    .msg $nick Thank you for applying for staff! We will email you on your progress soon!
                    ban #apply $nick Application Sent
                    kick #apply $nick Application Sent
                    writeini applist.ini $nick date $fulldate
                    writeini applist.ini $nick reason $2-
                    remini applist.ini staff $nick
                    inc %apps
                    writeini applist.ini config apps %apps
                    writeini applist.ini appsent $nick 1
                  }
                  else .msg $nick Please use 50 or more words - not $0
                }
              }
            }
          }
        }
      }
    }
  }
  elseif ($nick isop #apply) || ($nick isop #ircops) {
    if ($1 == staffapplications || $1 == staffapps) {
      apps.staff $nick
    }
    elseif ($1 == staffapp || $1 == staffapplication) {
      viewapp.staff $nick $2
    }
  }
}

alias authed { 
  if (!%authed. [ $+ [ $1 ] ]) {
    return $true
  }
  else return $false
}

on ^*:NOTICE:*:?: {
  if ($nick == NickServ) {
    if (*must first authenticate* iswm $1-) {
      haltdef
      set %authed. $+ $1 false
      .msg $1 You must first authenicate with NickServ before applying.
    }
    elseif (*account* iswm $1-) || (*Registered* iswm $1-) || (*last* iswm $1-) || (*info* iswm $1-) {
      haltdef
    }
  }
}

alias nscheck.staff {
  if (%nscheck. [ $+ [ $1 ] ] == on) {
    if ($authed($1) == $true) {
      set %aac. [ $+ [ $nick ] ] on
      whois $nick
      .writeini applist.ini staff $1 1
      .writeini applist.ini $1 apptype staff
      .query $nick So $1 $+ , you want to apply for staff eeh? Well today I'm going to ask you a few questions. Please be careful as you will not be able to edit any content.
      .msg $nick First off, we will read you the requirements (Originally GameSurge Requirements). Please take a moment to look at them when finished:
      .play $1 staffapp.txt 3000ms
      unset %nscheck. $+ $1
    }
  }
}

alias apps.staff {
  .msg $1 Applications Sent $chr(91) $+ $readini(applist.ini,config,apps) $+ $chr(93) $+ :
  var %apps2 = 1 {
    while (%apps2 <= $readini(applist.ini,config,apps)) {
      .msg $1 $ini(applist.ini,appsent,%apps2) $chr(91) $+ $readini(applist.ini,$nick,auth) $+ $chr(93) ( $+ $readini(applist.ini,$ini(applist.ini,appsent,%apps2),date) $+ )
      inc %apps2
    }
  }
  .msg $1 End of Sent Applications
}

alias viewapp.staff {
  if (!$readini(applist.ini,staff,$2)) && ($readini(applist.ini,$2,apptype) == staff) && ($readini(applist.ini,$2,fullname)) && ($readini(applist.ini,$2,email)) && ($readini(applist.ini,$2,reason)) {
    .msg $1 Application from: $2
    .msg $1 Date Sent: $readini(applist.ini,$2,date)
    .msg $1 Full Name: $readini(applist.ini,$2,fullname)
    .msg $1 Email: $readini(applist.ini,$2,email)
    .msg $1 Why he/she want to help: $readini(applist.ini,$2,reason)
    .msg $1 End of Application for: $2
  }
}

raw 330:*: {
  if (%aac. [ $+ [ $2 ] ]) {
    .writeini applist.ini $2 auth $3
    unset %aac. $+ $2
    halt
  }
}

raw 318:*: {
  if (%acc. [ $+ [ $2 ] ]) {
    unset %aac. $+ $2
    halt
  }
}

raw *:*: {
  if (%aac. [ $+ [ $2 ] ]) {
    if ($mid($numeric,1,1) == 3) {
      halt
    }
  }
}