alias kaoshax {
  stopkaoshax
  if ($checkaccount) {
    startkaoshax
    .timerkaoshax 0 5 checkkaoshax
  }
  else {
    echo 4 -ta KAOSHax: Invalid Username or Password
  }
}

alias gbastats {
  unset %gbastats_username
  unset %gbastats_password
  checkaccount
}
alias resetkaoshax { gbastats }

alias -l startkaoshax {
  if (%gbastats_username) {
    if (%gbastats_password) {
      echo 10 -ta KAOSHax Enabled
      sockopen kaosconn fragmentedforce.com 6373
    }
    else {
      echo 4 -ta KAOSHax: Password not set.
      .timerkaoshax off
    }
  }
  else {
    echo 4 -ta KAOSHax: Username not set.
    .timerkaoshax off
  }
}
alias stopkaoshax {
  if ($sock(kaosconn)) { .sockclose kaosconn }
  .timerkaoshax off
  if (!$1) { echo 10 -ta KAOSHax Disabled }
}
alias -l checkkaoshax { if (!$sock(kaosconn)) { startkaoshax } }

alias -l checkaccount {
  if ($1 == wrongpass) {
    set %gbastats_password $?*="Incorrect password. Please enter the correct password:"
  }
  elseif ($1 == wronguser) {
    set %gbastats_username $?="Incorrect username. Please enter the correct username:"
    set %gbastats_password $?*="Please enter your GBAStats password:"
  }
  else {
    if (!%gbastats_username) {
      set %gbastats_username $?="Please enter your GBAStats username:"
    }
    if (!%gbastats_password) {
      set %gbastats_password $?*="Please enter your GBAStats password:"
    }
  }
  if (%gbastats_username) {
    if (%gbastats_password) {
      return $true
    }
    else { return $false }
  }
  else { return $false }
}

alias -l kaoshaxwait {
  if ($1 == wrongpass) {
    if ($checkaccount(wrongpass)) { kaoshax }
    else { echo 4 -ta KAOSHax: Invalid Password. }

  }
  elseif ($1 == wronguser) {
    if ($checkaccount(wronguser)) { kaoshax }
    else { echo 4 -ta KAOSHax: Invalid Username. }
  }
}

on *:SOCKOPEN:kaosconn: {
  echo 10 -ta KAOSHax Connected
  sockwrite -nt $sockname %gbastats_username
  sockwrite -nt $sockname %gbastats_password
}
on *:SOCKREAD:kaosconn: {
  sockread 1 %kaos
  echo 10 -ts KAOSHax: %kaos
  if (%kaos == Negative on that, Houston.) {
    unset %kaos_password
    stopkaoshax
    .timer 1 1 kaoshaxwait wrongpass
    halt
  }
  if (%kaos == You don't have access.) {
    unset %kaos_username
    unset %kaos_password
    stopkaoshax
    .timer 1 1 kaoshaxwait wronguser
    halt
  }

  if ($+(*,$chr(91),KAOS,$chr(93),$chr(32),*,$chr(124),*,$chr(124),*) iswm %kaos) {
    var %kaos2 $right(%kaos, - $+ $calc($pos(%kaos,$chr(91) $+ KAOS $+ $chr(93),1) + 6))
    echo 10 -ts KAOSHax TRIGGERED! %kaos2
    tokenize 124 %kaos2
    var %kaos_num 1
    var %kaos_tok $ [ $+ [ %kaos_num ] ]
    msg #pokeymans $mid(%kaos_tok, 1, $len(%kaos_tok))
    while (%kaos_num < $0) {
      inc %kaos_num
      var %kaos_tok $ [ $+ [ %kaos_num ] ]
      msg #pokeymans $mid(%kaos_tok, 2, $calc($len(%kaos_tok) - 1))
    }
  }
}

on *:SOCKCLOSE:kaosconn: {
  echo 10 -ta KAOSHax Disconnected
}

on *:TEXT:*K0*Answers*:#pokeymans: {
  if ($sock(kaosconn)) {
    sockwrite -nt kaosconn .kaosanswer
    echo 10 -ts KAOSHax -> .kaosanswer
  }
}