-- Copyright © 2022-2023 Kristify
-- MIT License
-- WARNING: Has Bad Code TM

local expect = require "cc.expect".expect

local kristly = {}
local kristlyWS = { ws = nil, id = 0 }
local syncNode = settings.get("kristly.node") or "https://crypticore.fso.ovh/" -- ~~Secret~~ setting to change node

--#region Utilities

---A basic JSON Post function to the krist api.
---Decodes the response from json into a table.
---@param endpoint string The json endpoint. The first part of the url should not be included.
---@param body string A stringified body
---@return table result The response from the krist API
local function basicJSONPOST(endpoint, body)
  expect(1, endpoint, "string")
  expect(2, body, "string")

  return textutils.unserializeJSON(http.post(syncNode .. endpoint, body).readAll())
end

---A basic GET function to the krist api.
---Decodes the response from json into a table.
---@param endpoint string The endpoint to connect to. Do not include the first part of the url. (krist.dev)
---@return table result The response from the krist API
local function basicGET(endpoint)
  expect(1, endpoint, "string")

  return textutils.unserializeJSON(http.get(syncNode .. endpoint).readAll())
end

---Sends a simple websocket message to the krist server
---@param type string The action you would like to take
---@param table table|nil Optional arguments
---@return number id The ID to listen after
function kristlyWS:simpleWSMessage(type, table)
  expect(1, type, "string")
  expect(2, table, "nil", "table")

  table = table or {}
  table.id = self.id
  table.type = type

  self.ws.send(textutils.serialiseJSON(table))

  self.id = self.id + 1

  return self.id
end

--#endregion

--#region Addresses

---Gets information about the supplied krist address.
---@param address string The krist address to get information about.
---@return table address A table, with address, balance, totalin, totalout, and firstseen.
function kristly.getAddress(address)
  expect(1, address, "string")

  return basicGET("addresses/" .. address)
end

---Lists initized krist addresses.
---@param limit number|nil The amount of addresses to return. Between 1-1000. Default: 50
---@param offset number|nil The amount of offset the results. Useful for pagination.
---@return table addressInformation Table with count, total, and a addresses table, which contains the same data you would get from getAddress()
function kristly.listAddresses(limit, offset)
  expect(1, limit, "nil", "number")
  expect(2, offset, "nil", "number")

  limit = limit or 50
  offset = offset or 0

  return basicGET("addresses?limit=" .. limit .. "&offset=" .. offset)
end

---Lists the richest krist addresses
---@param limit number|nil The amount of addresses to return. Between 1-1000. Default: 50
---@param offset number|nil The amount of offset the results. Useful for pagination.
---@return table richestAddresses Table with count, total, and an addresses table, which contains the same data you would get from getAddress()
function kristly.listRichestAddresses(limit, offset)
  expect(1, limit, "nil", "number")
  expect(2, offset, "nil", "number")

  limit = limit or 50
  offset = offset or 0

  return basicGET("addresses/rich?limit=" .. limit .. "&offset=" .. offset)
end

---Lists recent transactions for an address
---@param address string the address to get transactions from
---@param excludeMined boolean|nil If mined block should be excluded
---@param limit number|nil The limit of transactions to return
---@param offset number|nil The amount to offset the results, useful for pagination
---@return table recentTransactions table with count, total, and a table array with transactions
function kristly.getRecentTransactions(address, excludeMined, limit, offset)
  expect(1, address, "string")
  expect(2, excludeMined, "nil", "boolean")
  expect(3, limit, "nil", "number")
  expect(4, offset, "nil", "number")

  excludeMined = excludeMined or true
  limit = limit or 50
  offset = offset or 0

  return basicGET("addresses/" ..
    address .. "/transactions?limit=" .. limit .. "&offset=" .. offset .. "&excludeMined=" .. excludeMined)
end

---Lists the names owned by an address
---@param address string The address to get names from
---@param limit number|nil The limit of names to return
---@param offset number|nil The amount to offset the results, useful for pagination
---@return table names A table of names owned by the address
function kristly.getNamesOwnedBy(address, limit, offset)
  expect(1, address, "string")
  expect(2, limit, "nil", "number")
  expect(3, offset, "nil", "number")

  limit = limit or 50
  offset = offset or 0

  return basicGET("addresses/" .. address .. "/names")
end

--#endregion

-- MINING IS DISABLED. BLOCK API NOT ADDED

-- LOOKUP API IS IN BETA, WILL BE ADDED TO kristly IN THE FUTURE

--#region Miscellaneous

---Gets the current work
---@return table currentWork
function kristly.getCurrentWork()
  return basicGET("work")
end

---Gets the work over the past 24h
---@return table last24hWork A table with if the request was ok and a table of work
function kristly.getLast24hWork()
  return basicGET("work/day")
end

---Gets detailed information about work/blocks
---@return table detailedWorkInformation A table with lots of information
function kristly.getDetailedWorkInfo()
  return basicGET("work/detailed")
end

---Authenticates an address with a private key
---@param privatekey string The privatekey of the address you want to authenticate
---@return table authenticationInfo A table with a ok field, and authed key/value pairs
function kristly.authenticate(privatekey)
  expect(1, privatekey, "string")

  return basicJSONPOST("login", "privatekey=" .. privatekey)
end

---Gets information about the krist server (MOTD)
---@return table motd Table with lots of information. Specifications are over at krist.dev/docs
function kristly.getMOTD()
  return basicGET("motd")
end

---Gets the latest krist wallet version
---@return table kristwalletVersion Table with ok and walletVersion key/value pairs
function kristly.getKristWalletVersion()
  return basicGET("walletversion")
end

---Gets the latests changes/commits to the krist project
---@return table kristChanges A table with ok, commits and whatsNew
function kristly.getKristChanges()
  return basicGET("whatsnew")
end

---Gets the current supply of krist
---@return table kristSupplyInformation table with ok and money_supply
function kristly.getKristSupply()
  return basicGET("supply")
end

---Converts a private key into a krist address
---@param privatekey string The privatekey you want to convert to a public address
---@return table addressTable a table with ok and address property
function kristly.addressFromKey(privatekey)
  expect(1, privatekey, "string")

  return basicJSONPOST("v2", "privatekey=" .. privatekey)
end

--#endregion

--#region Names

---Gets information about a krist name
---@param name string The name you want information about
---@return table nameInformation A table with information
function kristly.getNameInfo(name)
  expect(1, name, "string")

  return basicGET("names/" .. name)
end

---Lists currently registered krist names
---@param limit number|nil The limit of results
---@param offset number|nil The amount to offset the results
---@return table kristNames A table with count, total, and a tablearray of names
function kristly.getKristNames(limit, offset)
  expect(1, limit, "nil", "number")
  expect(2, offset, "nil", "number")

  limit = limit or 50
  offset = offset or 0

  return basicGET("names?limit=" .. limit .. "&offset=" .. offset)
end

---Lists currently registered krist names sorted by newest
---@param limit number|nil The max amount of results
---@param offset number|nil The amount to offset the results
---@return table kristNames A table with count, total, and a tablearray of names
function kristly.getNewestKristNames(limit, offset)
  expect(1, limit, "nil", "number")
  expect(2, offset, "nil", "number")

  limit = limit or 50
  offset = offset or 0

  return basicGET("names/new?limit=" .. limit .. "&offset=" .. offset)
end

---Gets the price for purchasing krist names
---@return table namePriceInformation A table with ok and name_cost property
function kristly.getNamePrice()
  return basicGET("names/cost")
end

---Gets the current name bonus. Simply: Amount of names bought in the latest 500 blocks
---@return table nameBonusInformation A table with ok and name_bonus
function kristly.getCurrentNameBonus()
  return basicGET("names/bonus")
end

---Check if the supplied krist name is available
---@param name string The krist name to check if is available for purchase
---@return table nameAvailablityInformation A table with `ok` and `available` property
function kristly.isNameAvailable(name)
  expect(1, name, "string")

  return basicGET("names/check/" .. name)
end

---Attempts to register a krist name
---@param name string The krist name that should be registered
---@param privatekey string The krist privatekey of the wallet that should purchase the name. This should never be shared.
---@return table results A table with a propery named ok. If ok is false it also contains a error property
function kristly.purchaseName(name, privatekey)
  expect(1, name, "string")
  expect(2, privatekey, "string")

  return basicJSONPOST("names/" .. name, "privatekey=" .. privatekey)
end

---Tries to transfer a name from one krist address to another krist address
---@param name string The krist name that should be transferred
---@param fromPrivatekey string The privatekey of the krist address that name will be transferred from
---@param addressTo string The krist address that the name should be transferred to
---@return table nameTransferReults A table with ok propery and a name property. if ok was false, there should be a error propery
function kristly.transferName(name, addressTo, fromPrivatekey)
  expect(1, name, "string")
  expect(2, addressTo, "string")
  expect(3, fromPrivatekey, "string")

  return basicJSONPOST("names/" .. name .. "/transfer?name=", "address=" .. addressTo .. "&privatekey=" .. fromPrivatekey)
end

---Updates the data of a name, also knows as a A record
---@param name string The krist name that should get A record changed
---@param privatekey string The krist private key that ownes the krist name
---@param newData string|nil The new data of the name
---@return table ARecordChangeInformation A table with a ok property
function kristly.updateDataOfName(name, privatekey, newData)
  expect(1, name, "string")
  expect(2, privatekey, "string")
  expect(3, newData, "nil", "string")

  newData = newData or ""

  return basicJSONPOST("names/" .. name .. "/update", "privatekey=" .. privatekey .. "&newData=" .. newData)
end

--#endregion

--#region Transactions

---Gets a list of transactions. This is not the latest transctions!
---@param excludeMined boolean|nil If we should exclude transactions coming from mining
---@param limit number|nil The max amount of transactions to return.
---@param offset number|nil The amount to offset the transaction list. Useful for pagination.
---@return table listOfTransactions A table with the following fields: count, total, transactions(tablearray of transactions).
function kristly.listAllTransactions(excludeMined, limit, offset)
  expect(1, excludeMined, "nil", "boolean")
  expect(2, limit, "nil", "number")
  expect(3, offset, "nil", "number")

  excludeMined = excludeMined or true
  limit = limit or 50
  offset = offset or 0

  return basicGET("transactions?excludeMined=" .. excludeMined .. "&limit=" .. limit .. "&offset=" .. offset)
end

---Gets a list of the latest ransactions.
---@param excludeMined boolean|nil If we should exclude transactions coming from mining
---@param limit number|nil The max amount of transactions to return.
---@param offset number|nil The amount to offset the transaction list. Useful for pagination.
---@return table latestTransactionsInformation A table with the following fields: count, total, transactions(tablearray of transactions).
function kristly.listLatestTransactions(excludeMined, limit, offset)
  expect(1, excludeMined, "nil", "boolean")
  expect(2, limit, "nil", "number")
  expect(3, offset, "nil", "number")

  excludeMined = excludeMined or true
  limit = limit or 50
  offset = offset or 0

  return basicGET("transactions/latest?excludeMined=" .. excludeMined .. "&limit=" .. limit .. "&offset=" .. offset)
end

---Gets information about a specific transaction.
---@param transactionID string the ID of the transaction.
---@return table transactionInformation A table with one property: transaction
function kristly.getTransaction(transactionID)
  expect(1, transactionID, "number")

  return basicGET("transactions/" .. transactionID)
end

---Transfer the specified amount from the specified privatekey's address to another address
---@param privatekey string The krist privatekey of the address that the transaction should be from
---@param to string The krist address of the person recieveing the krist
---@param amount number The amount of krist to send
---@param metadata string|nil Optional parameter that contains metadata
function kristly.makeTransaction(privatekey, to, amount, metadata)
  expect(1, privatekey, "string")
  expect(2, to, "string")
  expect(3, amount, "number")
  expect(4, metadata, "nil", "string")

  metadata = metadata or "Powered by = Kristify"

  return basicJSONPOST("transactions",
    "privatekey=" .. privatekey .. "&to=" .. to .. "&amount=" .. amount .. "&metadata=" .. metadata)
end

--#endregion

--#region Websockets

---Generates a krist websocket url.
---@param privatekey string|nil Optional: Privatekey of a wallet
---@return table url A url to connect to with websocket
function kristly.generateWSUrl(privatekey)
  expect(1, privatekey, "nil", "string")

  privatekey = privatekey or ""
  return basicJSONPOST("ws/start", privatekey)
end

---Creates a new Kristly Websocket.
---@param privatekey string Optional: the private key of the connection.
---@return table kristlyWS a kristly ws object. Have fun with it!
function kristly.websocket(privatekey)
  expect(1, privatekey, "nil", "string")

  local url = kristly.generateWSUrl(privatekey)
  local ws = http.websocket(url.url)
  local kws = kristlyWS:new { ws = ws }

  return kws
end

---Creates a new Kristly websocket object.
---@param o table Table with ws object inside.
---@return table o a instance of Kristly WS
function kristlyWS:new(o)
  expect(1, o, "nil", "table")

  o = o or {}
  setmetatable(o, self)
  self.__index = self
  return o
end

---Start listening for websocket events
---You should run this function with the parallel API
function kristlyWS:start()
  -- Listen for events. If returns nil it is safe to say the ws is closed.
  -- Use os.queueEvent to send information back. Implement on and once later.

  while true do
    local ok, returned = pcall(self.ws.receive, 12) -- Every 10s there should come a keepalive packet

    if not ok then
      os.queueEvent("kristly", {
        type = "KRISTLY-ERROR",
        error = "DISCONNECTED. " .. returned
      })
      return
    end

    if returned == nil then
      os.queueEvent("kristly", {
        type = "KRISTLY-ERROR",
        error = "NO-RESPONSE"
      })
      return
    end

    local data = textutils.unserializeJSON(returned)

    os.queueEvent("kristly", data)
  end
end

---Downgrades the websocket connection.
---If you have a authenticated connection this will affectivly log you out.
function kristlyWS:downgradeConnection()
  return self:simpleWSMessage "logout"
end

---Upgrade the websocket connection.
---This will make a unauthenticated connection into a authenticated one
---@param privateKey string The krist private key that you want to login to.
function kristlyWS:upgradeConnection(privateKey)
  expect(1, privateKey, "string")

  return self:simpleWSMessage("login", {
    privatekey = privateKey
  })
end

---Subscribe to a krist event
---This will make kristly recieve for example transaction events
---@param event string The event to subscribe to.
function kristlyWS:subscribe(event)
  expect(1, event, "string")

  return self:simpleWSMessage("subscribe", {
    event = event
  })
end

--#endregion

return kristly