; Check ID Status

alias id {
  if (%identify.service. [ $+ [ $network ] $+ .mode ] isincs $usermode) goto ok
  if (%identify.service. [ $+ [ $network ] $+ .mode ] !isincs $usermode) goto error
  :error
  .timercheckid off
  echo $color(notice) -st -CheckID- User is not identified! Authenticating to: %identify.service. [ $+ [ $network ] $+ .name ]
  if (%identify.service. [ $+ [ $network ] $+ .password ] == $null) {
    set %identify.service. [ $+ [ $network ] $+ .password ] $?*="Please enter your %identify.service. [ $+ [ $network ] $+ .name ] password"
  }
  %identify.service. [ $+ [ $network ] $+ .authstring ] %identify.service. [ $+ [ $network ] $+ .password ]
  checkid
  :ok
  ; echo $color(info) -st -CheckID- User has identified to: %identify.service. [ $+ [ $network ] $+ .name ]
}

alias checkidoff {
  timercheckid off
  echo $color(info) -st -CheckID- Timer Disabled
}

alias checkidon {
  checkid
  echo $color(info) -st -CheckID- Timer Enabled
}

alias checkid .timercheckid 0 10 id

on *:START: {
  echo $color(info) -st -CheckID- CheckID by Dematerialised loaded...
  if ($network == $null) {
    echo $color(info) -st -CheckID- Current Network: Unknown. You are either not connected, or connected to an unsupported network.
    echo $color(info) -st -CheckID- Network detection will be done on next connect.
  }
  if ($network != $null) {
    echo $color(info) -st -CheckID- Current Network: $network
    echo $color(info) -st -CheckID- Checking the current status of the CheckID service...
  }
  :servicecheck
  if (%identify.checkservice.count >= 3) goto failcheckservice
  if ($timer(checkid).secs == $null) {
    inc %identify.checkservice.count
    echo $color(notice) -st -CheckID- CheckID service is not running! Attempting to start it now... ( $+ %identify.checkservice.count $+ )
    checkid
    goto servicecheck
  }
  if ($timer(checkid).secs != $null) {
    echo $color(info) -st -CheckID- CheckID Service is currently running!
    goto done
  }
  :failcheckservice
  echo $color(info) -st -CheckID- CheckID was unable to determine whether the CheckID service was running.
  echo $color(info) -st -CheckID- Please check for any error messages and try reconnecting to the server.
  :done
  unset %identify.checkservice.count
}

on *:CONNECT: {
  if ($network == $null) goto nonetwork
  goto $network
  :AustNet
  set %identify.service. [ $+ [ $network ] $+ .name ] NickOP
  set %identify.service. [ $+ [ $network ] $+ .authstring ] identify
  set %identify.service. [ $+ [ $network ] $+ .mode ] r
  echo $color(info) -st -CheckID- Network detected: $network $+ . Setting nick service to NickOP and auth string to "/identify <password>"
  if (r isincs $usermode) echo $color(info) -st -CheckID- Detecting IDENTIFY status: 3USER IS IDENTIFIED
  if (r !isincs $usermode) echo $color(info) -st -CheckID- Detecting IDENTIFY status: 5USER IS NOT IDENTIFIED. Attempting identification in 10 seconds.
  .timeridentify 1 5 id
  goto end
  :nonetwork
  echo $color(info) -st -CheckID- Unable to detect your current network. Please provide the following:
  set %identify.service. [ $+ [ $network ] $+ .name ] $?="Nick service name i.e NickServ:"
  echo $color(info) -st -CheckID- Nickname service set to: $!
  set %identify.service. [ $+ [ $network ] $+ .authstring ] $?="Nick service login command i.e: /auth username$+ $crlf $+ Do not enter your password here:"
  echo $color(info) -st -CheckID- Nickname service login string set to: $!
  set %identify.service. [ $+ [ $network ] $+ .password ] $?*="Please enter your %identify.service. [ $+ [ $network ] $+ .name ] password"
  echo $color(info) -st -CheckID- Nickname service password has been set. Do not give this password to anybody!
  :end
  checkid
}

on *:TEXT:*:?: {
  if ($nick == %identify.service. [ $+ [ $network ] $+ .name ]) goto $network
  :AustNet
  if ($1 == $me) && ($3 == not) && ($5 == registered) {
    echo $color(info) -st -CheckID- %identify.service. [ $+ [ $network ] $+ .name ] advises: $1-
    echo $color(info) -st -CheckID- Disabling CheckID service.
    %identify.service. [ $+ [ $network ] $+ .name ]
    checkidoff
  }
}


on *:NOTICE:*:*: {
  if ($nick == %identify.service. [ $+ [ $network ] $+ .name ]) goto $network
  :AustNet
  if ($1 == $me) && ($3 == not) && ($5 == registered) {
    echo $color(info) -st -CheckID- %identify.service. [ $+ [ $network ] $+ .name ] advises: $1-
    echo $color(info) -st -CheckID- Disabling CheckID service.
    %identify.service. [ $+ [ $network ] $+ .name ]
    checkidoff
  }
}