DotsAndBoxesExamen_OostvogelsTomas.jl

#######################<---Dots And Boxes--->#######################
"""
  1  7777777 555555
 111     777 55
  11    777  555555
  11   777      5555
 111  777    555555

	Created by: Tim De Smet, Tomas Oostvogels
	Last edit: 07/06/2021 @1555
--------------------------------------------------------------------
	IDEAS
		- Startup menu: choose between which mode, REPL or GameZero
		- Normal mode, level of difficulty
		- (Then cooler modes: square, triangle, hexagon, ..., easy/mediocre/hard..., choice mode (check if possible))
		- Timer
		- Output of score/game overview to text file
		- Cool visuals, interface design
		- Ctrl-z undo move -> Save moves to a dictionary? + print next to grid the history of moves?
		- Ctrl-s save game to file
"""
#using BenchmarkTools
#using CPUTime
#using GameZero
#using Colors
#using CSV 
#using DataFrames
using DelimitedFiles # Part of standard library, way faster than combo csv/dataframes

global SETTINGS = Dict() # Settings to import from csv file on startup
global BUFFER	# Keyboard input handling
global const GRID = Array{Int}

struct ANSIColor
    red::Function
    bright_red::Function
    green::Function
    blue::Function
    bright_blue::Function
    yellow::Function
    magenta::Function
    cyan::Function
    white::Function
    black::Function
    rgb::Function
    ANSIColor() = new(
        c -> "\e[31m$c\e[0m", # Red
        c -> "\e[31;1m$c\e[0m", # Bright red
        c -> "\e[32m$c\e[0m", # Green
        c -> "\e[34m$c\e[0m", # Blue
        c -> "\e[34;1m$c\e[0m", # Bright blue
        c -> "\e[33m$c\e[0m", # Yellow
        c -> "\e[35m$c\e[0m", # Magenta
        c -> "\e[36m$c\e[0m", # Cyan
        c -> "\e[37m$c\e[0m", # White
        c -> "\e[40m$c\e[0m", # Black
        c -> "\x1b[38;2;55;223;206m" #test RGB
    )
end
global const ANSI = ANSIColor()

# Keyboard Input
global const KEY_ESC = "ESC"
global const KEY_ENTER = "Enter"
global const KEY_Q = "q"
global const KEY_Z = "z"
global const KEY_S = "s"
global const KEY_D = "d"
global const KEY_R = "r"
global const esc_codes = Dict([
    "[A" => "Up",
    "[B" => "Down",
    "[C" => "Right",
    "[D" => "Left",
    "[F" => "End",
    "[H" => "Pos1",
    "[2~" => "Ins",
    "[3~" => "Del",
    "[5~" => "PgUp",
    "[6~" => "PdDown",
    "OP" => "F1",
    "[[A" => "F1",
    "OQ" => "F2",
    "[[B" => "F2",
    "OR" => "F3",
    "[[C" => "F3",
    "OS" => "F4",
    "[[D" => "F4",
    "[15~" => "F5",
    "[[E" => "F5",
    "[17~" => "F6",
    "[[F" => "F6",
    "[18~" => "F7",
    "[[G" => "F7",
    "[19~" => "F8",
    "[[H" => "F8",
    "[20~" => "F9",
    "[[I" => "F9",
    "[21~" => "F10",
    "[[J" => "F10",
    "[23~" => "F11",
    "[[K" => "F11",
    "[24~" => "F12",
    "[[L" => "F12",
    "\e" => "ESC"
])
global const ctrl_codes = Dict([
    0 => "Ctrl-2",
    1 => "Ctrl-A",
    2 => "Ctrl-B",
    3 => "Ctrl-C",
    4 => "Ctrl-D",
    5 => "Ctrl-E",
    6 => "Ctrl-F",
    7 => "Ctrl-G",
    8 => "Backspace",
    9 => "Tab",
    10 => "Ctrl-J",
    11 => "Ctrl-K",
    12 => "Ctrl-L",
    13 => "Enter",
    14 => "Ctrl-N",
    15 => "Ctrl-O",
    16 => "Ctrl-P",
    17 => "Ctrl-Q",
    18 => "Ctrl-R",
    19 => "Ctrl-S",
    20 => "Ctrl-T",
    21 => "Ctrl-U",
    22 => "Ctrl-V",
    23 => "Ctrl-W",
    24 => "Ctrl-X",
    25 => "Ctrl-Y",
    26 => "Ctrl-Z",
    27 => "Ctrl-3",
    29 => "Ctrl-5",
    30 => "Ctrl-6",
    31 => "Ctrl-7"
])

# Settings Handling
function converttoarray(sarr)
	sarr = sarr[2:end-1]
	sarr = split(sarr, ",")
	sarr = parse.(Int, sarr)
	return sarr
end
function ImportSettings()
    d = Dict()
	filename = joinpath(@__DIR__, "Settings.dnb")
	if isfile(filename)
        df = readdlm(filename, ':')
        for i in 1:size(df, 1)
            if !(df[i, 1] in keys(d)) # todo: haskey()
                d[df[i,1]] = df[i, 2]
            end
        end
        return d
	else
    	CreateSettings(filename)
        df = readdlm(filename, ':')
        for i in 1:size(df, 1)
            if !(df[i, 1] in keys(d))
                d[df[i,1]] = df[i, 2]
            end
        end
        return d
	end
end
function updateSettings(updateSett::Array)
	filename = joinpath(@__DIR__, "Settings.dnb")
	s = sortslices(updateSett, dims=1)
    open(filename, "w") do io
        writedlm(io, s, ':')
    end
end
function allowedSettings()
	# TODO
	# gridwidth, gridheight >= 2
	# player one or two
	# readline for char/strings
	# array: startco
	# spacingx: name has to be shorter than distance!!
	# if some setting is not possible: show it to the player
end
function CreateSettings(filename::String)
    BaseSettings = Dict([
    "GRID_WIDTH" => 4,
    "GRID_HEIGHT" => 4,
    "PLAYERSIGN1" => "Player1",
    "PLAYERSIGN2" => "Player2",
    "PLAYSFIRST" => 1, # Put one or two here (1 corresponds to playersign 1)
    "STARTCO" => [1, 2],
    "SPACINGX" => 18,
    "GRIDPOINT" => "+",
    "HORZLINE" => "-",
    "VERTLINE" => "|",
    "CURSORCHAR" => '0',
    "BOT_ON" => false
    ])
    Setting = []
    Value = []
    for key in keys(BaseSettings)
        push!(Setting, key)
        push!(Value, BaseSettings[key])
    end
    # Sort array? -> yes
    s = sortslices([Setting Value], dims=1)
    open(filename, "w") do io
        writedlm(io, s, ':')
    end
end
function fixsettings()
	global SETTINGS
	function converttochar(s)
		if isa(s, Int) || isa(s, Float64)
			s = string(s)
		end
		s = collect(s)
		return s[1]
	end
	SETTINGS["CURSORCHAR"] = converttochar(SETTINGS["CURSORCHAR"])
	SETTINGS["STARTCO"] = converttoarray(SETTINGS["STARTCO"])
	SETTINGS["GRIDPOINT"] = string(SETTINGS["GRIDPOINT"])
end

# Keyboard Input
function Initiate_Keyboard_Input()
	# https://discourse.julialang.org/t/wait-for-a-keypress/20218/4
	# https://docs.julialang.org/en/v1/manual/calling-c-and-fortran-code/#Calling-C-and-Fortran-Code
	# https://stackoverflow.com/questions/56888266/how-to-read-keyboard-inputs-at-every-keystroke-in-julia
    global BUFFER
    ccall(:jl_tty_set_mode, Int32, (Ptr{Cvoid}, Int32), stdin.handle, true)
    BUFFER = Channel{Char}(100)
    @async while true
        put!(BUFFER, read(stdin, Char))
    end
end
function readinput()
	global BUFFER
	global ctrl_codes
	global esc_codes
    if isready(BUFFER)
        s = take!(BUFFER)
        if s == '\e' # Escape
        	esc_s = ""
       		while isempty(esc_s) || !(esc_s[end] in ['A','B','C','D','F','H','P','Q','R','S','~', '\e'])
            	esc_s *= take!(BUFFER)
        	end
       	 	if haskey(esc_codes, esc_s)
       	 		return esc_codes[esc_s]
       	 	end
    	elseif Int(s) in 0:31
        	return ctrl_codes[Int(s)]
    	else
       		return string(s)
    	end
    end
end

# REPL Graphics Stuff
# Cursor
mutable struct CursorStruct
	x::Int 
	y::Int
	CursorStruct(x, y) = new(x, y)
end
hidecursor() = print("\e[?25l") # Or \x1b[?25l
showcursor() = println("\e[?25h")
function clearscreen()
	# Move cursor to beginning, then clear to end then again begin
	#println("\x1b[42m")
	println("\33[H")
	println("\33[J")
	println("\33[H")
	hidecursor()
end

########<---- Game Logic and stuff ---->#############
mutable struct GameState
	gw::Int # Grid width
	gh::Int # Grid height
	grid::GRID # Grid itself
	gameover::Bool
	player::Int # Player turn, 1 or 2
	score::Array # Score[playerone, playertwo]
	bot::Int
	GameState(	gw = SETTINGS["GRID_WIDTH"],
				gh = SETTINGS["GRID_HEIGHT"],
				grid = resetGrid(gw, gh),
				gameover = false,
				player = SETTINGS["PLAYSFIRST"],
				score = [0, 0],
				bot = 0
			) = new(gw, gh, grid, gameover, player, score, bot)
end
function resetGrid(gw::Int, gh::Int)
	return zeros(Int, 2*gh-1, 2*gw-1)
end
function InitiateGrid(grid::GRID)
	for y in 1:size(grid, 1)
		if y%2 != 0 #odd line
			for x in 1:size(grid, 2)
				if x%2 != 0 #odd column
					grid[y, x] = -1 # Dots
				end
			end
		else #even line
			for x in 1:size(grid, 2) 
				if x%2 == 0 #even column
					grid[y, x] = -2 # Midpoints (to be used by algorithm/bot)
				end
			end
		end
	end
end
function botSettings(state::GameState)
	global SETTINGS
	if SETTINGS["BOT_ON"]
		if SETTINGS["PLAYERSIGN1"] == "BOT"
			state.bot = 1
		elseif SETTINGS["PLAYERSIGN2"] == "BOT"
			state.bot = 2
		end
	else
		state.bot = 0
	end
end

function CellsAround(x,y)
	Arr = [[x, y-1],
			[x+1, y],
			[x, y+1],
   			[x-1, y]
   			]
   	return Arr
end
function checkAround(grid::GRID)
	around = 0
	for y in 1:size(grid, 1)
		for x in 1:size(grid, 2)
			around = 0
			if grid[y, x] == -2
				# Up-Down Left-Right
				for dy in -1:2:1
					if !(grid[y+dy, x] == 0 || grid[y+dy, x] == 8)
						around+=1
					end
				end
				for dx in -1:2:1
					if !(grid[y, x+dx] == 0 || grid[y, x+dx] == 8)
						around+=1
					end
				end
				if around == 3
					for dy in -1:2:1
						if grid[y+dy, x] == 0
							grid[y+dy, x] = 8 # Randomly chosen, >=5
						end
					end
					for dx in -1:2:1
						if grid[y, x+dx] == 0
							grid[y, x+dx] = 8
						end
					end
				elseif around == 4
					for dy in -1:2:1
						if grid[y+dy, x] == 6
							grid[y, x] = 20
							# grid[y+dy, x] = 2 do not change yet! See next for loop
						elseif grid[y+dy, x] == 7
							grid[y, x] = 10
							# grid[y+dy, x] = 1 do not change yet!
						end
					end
					for dx in -1:2:1
						if grid[y, x+dx] == 6
							grid[y, x] = 20
							# grid[y, x+dx] = 2 do not change yet!
						elseif grid[y, x+dx] == 7
							grid[y, x] = 10
							# grid[y, x+dx] = 1 do not change yet!
						end
					end
				end
			end
		end
	end

	# Fix the lines taken, give them to the player who took them
	for y in 1:size(grid, 1)
		for x in 1:size(grid, 2)
			if grid[y, x] == 10
				for dy in -1:2:1
					if grid[y+dy, x] == 7
						grid[y+dy, x] = 1 # Player one
					end
				end
				for dx in -1:2:1
					if grid[y, x+dx] == 7
						grid[y, x+dx] = 1
					end
				end
			elseif grid[y, x] == 20
				for dy in -1:2:1
					if grid[y+dy, x] == 6
						grid[y+dy, x] = 2 # Player two
					end
				end
				for dx in -1:2:1
					if grid[y, x+dx] == 6
						grid[y, x+dx] = 2
					end
				end
			end
		end
	end
	return grid # Only needed when minimax algorithm needs this function
end

# Give box to the player who took it
function Difference(grid::GRID, oldgrid::GRID)
	change = oldgrid - grid # Pointwise
	for y in 1:size(grid, 1)
		for x in 1:size(grid, 2)
			if change[y, x] > 5
				grid[y, x] = change[y, x]
			end
		end
	end
	checkAround(grid)
end
function changeTurns(state::GameState, diffscore::Array)
	for i in diffscore
		if i != 0
			return false
		end
	end
	return true
end

###
function score(checkgrid::GRID)
	scores = [0, 0]
	for y in 2:2:size(checkgrid, 1)
		for x in 2:2:size(checkgrid, 2)
			if checkgrid[y, x] == 10
				scores[1] += 1
			elseif checkgrid[y, x] == 20
				scores[2] += 1
			end
		end
	end
	return scores
end
function available(checkgrid::GRID)
	availablemoves = []
	for y in 1:size(checkgrid, 1)
		for x in 1:size(checkgrid, 2)
			if checkgrid[y, x] == 0 || checkgrid[y, x] == 8
				push!(availablemoves, [y, x])
			end
		end
	end
	return availablemoves
end
function checkWinner(checkgrid::GRID)
	scores = score(checkgrid)
	if scores[1] > scores[2]
		return 1
	elseif scores[1] < scores[2]
		return 2
	else
		return 0
	end
end

#### BOT stuff ####
#### Everything chains
function CleanDict(dict)
	for i in keys(dict)
		if dict[i] == []
			delete!(dict,i)
		end
	end
end
function ChainsInGame(grid::GRID)
	Chains = Dict([])	# To keep track of chains
	History = []	# To keep track of places checked

	function InGrid(co)
		if co[1] > 0 && co[2] > 0 && co[1] <= size(grid, 2) && co[2] <= size(grid, 1)
			return true
		else
			return false
		end
	end
	function IsPartOfChain(co)
		# Other method to look around
		x = co[1] # For demonstrative purposes
		y = co[2]
		CellsAround = [
			(x, y-1),
			(x+1, y),
			(x, y+1),
	        (x-1, y)]
	    n_around = 0

	    for cell in CellsAround
	    	if InGrid(cell)
	    		if grid[cell[2],cell[1]] == 1 || grid[cell[2],cell[1]] == 2
	    			n_around += 1
	    		end
	    	end
	    end
	    if n_around == 2 || n_around == 3
	    	return true
	    else
	    	return false
	    end
	end 

	function Around(co, startco)
		x = co[1] # For demonstrative purposes
		y = co[2]
		# Array of arrays (tuples are immutable)
		CellsAround = [
			[x,y],
			[x, y-1],
			[x+1, y],
			[x, y+1],
	        [x-1, y]]
	    for cell in CellsAround
	    	if InGrid(cell)
	    		if grid[cell[2],cell[1]] == 0 || grid[cell[2],cell[1]] == 8 || grid[cell[2],cell[1]] == -2 
	    			if cell == CellsAround[1]
	    				if !IsPartOfChain(cell)
	    					push!(History,cell)
	    					continue
	    				elseif !(cell in History)
	    					push!(History,cell)
	    				end
	    			elseif cell == CellsAround[2]
	    				cell[2] -= 1 # Move up
	    				if !InGrid(cell)
	    					continue
	    				else
	    					if !IsPartOfChain(cell)
	    						push!(History,cell)
	    						continue
	    					elseif !(cell in History)
	    						push!(Chains["$(startco)"],cell) # Tie current coordinate to array in dictionary - make chain of coordinates
	    					end
	    					if !(cell in History)
	    						push!(History,cell)
	    						Around(cell, startco)
	    					end
	    				end
	    			elseif cell == CellsAround[3]
	    				cell[1] += 1
	    				if !InGrid(cell)
	    					continue
	    				else
	    					if !IsPartOfChain(cell)
	    						push!(History,cell)
	    						continue
	    					elseif !(cell in History)
	    						push!(Chains["$(startco)"],cell)
	    					end
	    					if !(cell in History)
	    						push!(History,cell)
	    						Around(cell, startco)
	    					end
	    				end
	    			elseif cell == CellsAround[4]
	    				cell[2] += 1
	    				if !InGrid(cell)
	    					continue
	    				else
	    					if !IsPartOfChain(cell)
	    						push!(History,cell)
	    						continue
	    					elseif !(cell in History)
	    						push!(Chains["$(startco)"],cell)
	    					end
	    					if !(cell in History)
	    						push!(History,cell)
	    						Around(cell, startco)
	    					end
	    				end
	    			elseif cell == CellsAround[5]
	    				cell[1] -= 1
	    				if !InGrid(cell)
	    					continue
	    				else
	    					if !IsPartOfChain(cell)
	    						push!(History,cell)
	    						continue
	    					elseif !(cell in History)
	    						push!(Chains["$(startco)"],cell)
	    					end
	    					if !(cell in History)
	    						push!(History,cell)
	    						Around(cell, startco)
	    					end
	    				end
	    			end
	    		end
	    	end
	    end
	end

	for y in 1:size(grid, 1)
		for x in 1:size(grid, 2)
			if grid[y,x] == -2 && IsPartOfChain([x,y]) && !([x,y] in History)
	    		Chains["$([x,y])"] = []
				Around([x,y], [x,y])
			end
		end
	end
	return Chains # return dictionary of current chains found (only >=2)
end
function CheckChains(Chains::Dict)
	n_LongChains = 0
	Lengths = []
	maxLength = 20 # todo length fix
	for i in 1:maxLength # todo length fix
		push!(Lengths,i)
	end
	LengthChainDict = Dict([(key,[]) for key in Lengths])
	for i in keys(Chains)
		if length(Chains[i]) in 1:maxLength-1
			push!(LengthChainDict[length(Chains[i])+1],i)
		end
	end
	for i in keys(LengthChainDict)
		if i >= 3 
			n_LongChains += length(LengthChainDict[i])
		end
	end		
	CleanDict(LengthChainDict)
	return n_LongChains,LengthChainDict
end
function CompleteableChain(state::GameState,Chains::Dict)
	completeablechainsArr = []
	Almost = [] # dont open this chain
	CompletableBox =[]
	for i in keys(Chains)
		n_around = 0
		start = converttoarray(i)
		for k in CellsAround(start[1],start[2])
				if state.grid[k[2],k[1]] == 1 || state.grid[k[2],k[1]] == 2
					n_around += 1
				end
			end
		for j in Chains[i]
			for k in CellsAround(j[1],j[2])
				if state.grid[k[2],k[1]] == 1 || state.grid[k[2],k[1]] == 2
					n_around += 1
				end
			end
		end
		n_around
		if n_around >= (length(Chains[i])+1)*2+1 && n_around >  3 # completeable criterium
			push!(completeablechainsArr, i)
		end 
		if n_around == (length(Chains[i])+1)*2 && n_around >=  6 # dont open this, otherwise loser
			push!(Almost, i)
		end 
		if n_around == 3 && length(Chains[i]) == 0
			push!(CompletableBox,i)
		end
	end
	return [completeablechainsArr,Almost, CompletableBox]
end
function CompleteChain(state::GameState,Chains::Dict, Chainranks::Array)
	Completable = Chainranks[1]
	element = 0
	for i in Completable
		element+=1
		if length(Chains[i]) == 1
			deleteat!(Completable,element)
			insert!(Completable,1, i)
		end
	end
	Almost = Chainranks[2]
	CompletableBox = Chainranks[3]
	availablemoves = available(state.grid)
	if length(CompletableBox) > 0 # alone standing box -> take it
		for i in CompletableBox
			cell = converttoarray(i)
			for j in CellsAround(cell[2], cell[1])
				if j in availablemoves
					state.grid[j[1],j[2]] = state.player
					state.grid[cell[2],cell[1]] = state.player*10
				end
			end
		end
	end
	if length(Completable) == 0
		@show return false
	end
	if length(Almost) == 0
		for i in Completable
			cell = converttoarray(i)
			for j in CellsAround(cell[2], cell[1])
				if j in availablemoves
					state.grid[j[1],j[2]] = state.player
					state.grid[cell[2],cell[1]] = state.player*10
				end
			end
			for j in Chains[i]
				for k in CellsAround(j[2], j[1])
					if k in availablemoves
						state.grid[k[1],k[2]] = state.player
						state.grid[j[2],j[1]] = state.player*10
					end
				end
			end
		end
	end
	if length(Almost) != 0 && length(Completable) > 1
		for i in Completable[1:end-1]
			cell = converttoarray(i)
			for j in CellsAround(cell[2], cell[1])
				if j in availablemoves
					state.grid[j[1],j[2]] = state.player
					state.grid[cell[2],cell[1]] = state.player*10
				end
			end
			for j in Chains[i]
				for k in CellsAround(j[2], j[1])
					if k in availablemoves
						state.grid[k[1],k[2]] = state.player
						state.grid[j[2],j[1]] = state.player*10
					end
				end
			end
		end
	elseif length(Almost) != 0
			for i in Completable
			cell = converttoarray(i)
			for j in CellsAround(cell[2], cell[1])
				if j in availablemoves
					state.grid[j[1],j[2]] = state.player
					state.grid[cell[2],cell[1]] = state.player*10
				end
			end
			for j in Chains[i]
				for k in CellsAround(j[2], j[1])
					if k in availablemoves
						state.grid[k[1],k[2]] = state.player
						state.grid[j[2],j[1]] = state.player*10
					end
				end
			end
			if length(Chains[i]) > 1
				zeroCo = (Chains[i][end-1] + Chains[i][end]).÷2
				state.grid[zeroCo[2],zeroCo[1]] = 0
				state.grid[Chains[i][end-1][2], Chains[i][end-1][1]] = -2
				state.grid[Chains[i][end][2], Chains[i][end][1]] = -2
				if state.player == 1
					state.player = 2
				elseif state.player == 2
					state.player = 1
				end
			else
				zeroCo = (cell + Chains[i][end]).÷2
				state.grid[zeroCo[2],zeroCo[1]] = 0
				state.grid[cell[2], cell[1]] = -2
				state.grid[Chains[i][end][2], Chains[i][end][1]] = -2
			end
		end
	end
	@show return true
end
function AllChains(LengthChainDict::Dict, Chains::Dict, state::GameState, Chainranks::Array)
	counter = 0
    for i in keys(LengthChainDict)
		for j in LengthChainDict[i]
			counter += i # key is length of element
		end
    end
    counter += length(Chainranks[3]) #completeable boxes
    counter += state.score[1] + state.score[2] #completed boxes
    if counter >= (state.gh-1)*(state.gw-1) # starting criterium for this bot
    	return true
    else
    	return false
    end
end

#### Everything minimax ####
global initialplayertop = 0
global counter = 0
function statEval(checkstate::GameState)
	global initialplayertop

	# Factor Score (amount of boxes)
	scores = score(checkstate.grid)
	otherplayer = 0
	if initialplayertop == 1
		otherplayer = 2
	else
		otherplayer = 1
	end

	factorscore = scores[initialplayertop] - scores[otherplayer]

	# Factor Chains (amount of chains) -> todo
	# Sum dots + number of chains = even -> player 1 controls
	
	"""
	Chains = ChainsInGame(checkstate.grid)
	checkChains = CheckChains(Chains)
	n_longchains = checkChains[1]
	factorchains = 0

	if checkstate.bot == 1 # the bot
		if (n_longchains + checkstate.gw*checkstate.gh)%2 == 0
			# Player one has control
			factorchains += 3
		else
			# Other player has control
			factorchains -= 3
		end
	else
		if (n_longchains + checkstate.gw*checkstate.gh)%2 == 0

	end

	"""

	return factorscore
end
function minimax(checkstate::GameState, depth::Int, isMax::Bool, prevgrid::GRID, prevplayer::Int)
	global counter
	availableMoves = available(checkstate.grid)
	if depth == 0  || length(availableMoves) == 0 # don't search any further, game is over
		counter += 1
		return statEval(checkstate)
	elseif isMax
		# Maximizing player
		maxEval = -Inf
		currEval = -Inf
		initialplayer1 = deepcopy(checkstate.player) # Bot
		initialgrid = deepcopy(checkstate.grid)
		for move in eachindex(availableMoves)
			checkstate.grid[availableMoves[move][1], availableMoves[move][2]] = checkstate.player

			Difference(checkstate.grid, prevgrid)
			diffscore = score(checkstate.grid) - score(prevgrid)
			if changeTurns(checkstate, diffscore)
				prevplayer = deepcopy(checkstate.player)
				if checkstate.player == 1
					checkstate.player = 2
				elseif checkstate.player == 2
					checkstate.player = 1
				end
				prevgrid = deepcopy(checkstate.grid)
				currEval = minimax(checkstate, depth-1, false, prevgrid, prevplayer)
			else
				prevgrid = deepcopy(checkstate.grid)
				currEval = minimax(checkstate, depth-1, true, prevgrid, prevplayer)	
			end

			checkstate.grid = deepcopy(initialgrid) # Undo Move
			prevgrid = deepcopy(initialgrid)
			checkstate.player = deepcopy(initialplayer1)

			maxEval = Int(max(maxEval, currEval))
			#@show maxEval
		end
		return maxEval
	else
		# Minimizing player
		minEval = Inf
		currEval = Inf
		initialplayer1 = deepcopy(checkstate.player) # Bot
		initialgrid = deepcopy(checkstate.grid)
		k = deepcopy(checkstate.player)
		for move in eachindex(availableMoves)
			checkstate.grid[availableMoves[move][1], availableMoves[move][2]] = checkstate.player

			Difference(checkstate.grid, prevgrid)
			diffscore = score(checkstate.grid) - score(prevgrid)
			if changeTurns(checkstate, diffscore)
				prevplayer = deepcopy(checkstate.player)
				if checkstate.player == 1
					checkstate.player = 2
				elseif checkstate.player == 2
					checkstate.player = 1
				end
				prevgrid = deepcopy(checkstate.grid)
				currEval = minimax(checkstate, depth-1, true, prevgrid, prevplayer)
			else
				prevgrid = deepcopy(checkstate.grid)
				currEval = minimax(checkstate, depth-1, false, prevgrid, prevplayer)
			end

			checkstate.grid = deepcopy(initialgrid) # Undo Move
			prevgrid = deepcopy(initialgrid)
			checkstate.player = deepcopy(initialplayer1)

			minEval = Int(min(minEval, currEval))
			#@show minEval
		end
		return minEval
	end
end
function minimaxMove(checkstate::GameState)
	global initialplayertop
	bestScore = -Inf
	bestMove = []
	currscore = -Inf
	initialplayertop = deepcopy(checkstate.player) # Bot
	initialgridtop = deepcopy(checkstate.grid)
	prevplayer = initialplayertop
	prevgrid = deepcopy(checkstate.grid)

	availableMoves = available(checkstate.grid)
	#@show length(availableMoves)
	for move in eachindex(availableMoves)
		#@show "newstartmove"
		checkstate.grid[availableMoves[move][1], availableMoves[move][2]] = checkstate.player # Bot makes initial move

		# todo: code refactoring
		Difference(checkstate.grid, prevgrid)
		diffscore = score(checkstate.grid) - score(prevgrid)
		if changeTurns(checkstate, diffscore)
			if checkstate.player == 1
				checkstate.player = 2
			elseif checkstate.player == 2
				checkstate.player = 1
			end
		end

		prevgrid = deepcopy(checkstate.grid)
		if checkstate.player == prevplayer
			currscore = minimax(checkstate, 3, true, prevgrid, prevplayer) # than it is still the bots' turn
		else
			currscore = minimax(checkstate, 3, false, prevgrid, prevplayer)
		end
		checkstate.grid = deepcopy(initialgridtop) # Undo move
		prevgrid = deepcopy(initialgridtop)
		checkstate.player = deepcopy(initialplayertop) # Again, bot to start

		if currscore > bestScore
			bestScore = currscore
			bestMove = availableMoves[move]
		end
		#@show bestMove
		#@show bestScore
	end

	return bestMove
end

function BOT(state::GameState)
	global counter
	counter = 0
	checkstate = deepcopy(state)
	move = minimaxMove(checkstate)
	
	state.grid[move[1], move[2]] = state.player
end

function BOT2(state::GameState)
	Chains = ChainsInGame(state.grid)
	checkChains = CheckChains(Chains)
	n_longchains = checkChains[1] #number of long chains
	LengthChainDict = checkChains[2] #Chains sorted by length
	Chainranks = CompleteableChain(state, Chains) #[Completable Chains, Almost Completable chains, Completable boxes]

	if AllChains(LengthChainDict,Chains,state, Chainranks)
		println("AllChains")
		if CompleteChain(state,Chains, Chainranks)
			return true #bot made move
		else 
			return false
		end
	else
		println("NotAllChains")
		return false
	end
end

# Output Handling TODO
function savegame(state::GameState)
	# TODO: write board to file
	# Other ideas: 
	filename = joinpath(@__DIR__, "GameHistory.dnb")
	if isfile(filename)
        df = readdlm(filename, ':')
	else
    	#CreateSettings(filename)
	end
end

#######################<---REPL GAME MODE--->#######################
function REPLMODE()
	global SETTINGS

	# Move cursor to discrete places, then return string with cursor to print
	function CursorInGameMove(state::GameState, cursor::CursorStruct, strgrid::Array)
		#cursor limits
		if cursor.x <= 1 && cursor.y%2 != 0
			cursor.x = 2 # Start here
		elseif cursor.x < 1 && cursor.y%2 == 0
			cursor.x = 1
		elseif cursor.x >= size(state.grid, 2) && cursor.y%2 != 0
			cursor.x = size(state.grid, 2)-1
		elseif cursor.x > size(state.grid, 2) && cursor.y%2 == 0
			cursor.x = size(state.grid, 2)
		elseif cursor.y > size(state.grid, 1)
			cursor.y = size(state.grid, 1)
			cursor.x += 1
		elseif cursor.y < 1
			cursor.y = 1
			cursor.x -= 1
		end
		# Get element out of stringgrid, change lines with cursor
		element = strgrid[cursor.y, cursor.x]
		element = collect(element)
		if cursor.y%2 != 0 # Uneven lines
			for i in 1:length(element)
				if string(element[i]) == SETTINGS["HORZLINE"]
					element[i] = SETTINGS["CURSORCHAR"]
				end
			end
		else
			for i in 1:length(element)
				if string(element[i]) == SETTINGS["VERTLINE"]
					element[i] = SETTINGS["CURSORCHAR"]
				end
			end
		end
		element = join(element)
		return element
	end

	# Grid with strings that will be printed
	function GridToPrint(state::GameState, co::Array)
		cox = co[1]
		coy = co[2]

		gridprint = fill("", (size(state.grid, 1), size(state.grid, 2)))
        for y in 1:size(state.grid, 1)
        	if y%2 != 0 # Uneven lines (with dots)
	            for x in 1:size(state.grid, 2)
	                if state.grid[y, x] == -1
	                    gridprint[y, x] = "\x1b[$(coy);$(cox)H"*SETTINGS["GRIDPOINT"]
	                    cox += length(SETTINGS["GRIDPOINT"])
	                elseif state.grid[y,x] == 1 # Player 1 -> Red
	                    gridprint[y, x] = "\x1b[$(coy);$(cox)H"*ANSI.red(SETTINGS["HORZLINE"])^SETTINGS["SPACINGX"]
	                    cox += length(SETTINGS["HORZLINE"]^SETTINGS["SPACINGX"])
	                elseif state.grid[y,x] == 2 # Player 2 -> Blue
	                    gridprint[y, x] = "\x1b[$(coy);$(cox)H"*ANSI.cyan(SETTINGS["HORZLINE"])^SETTINGS["SPACINGX"]
	                    cox += length(SETTINGS["HORZLINE"]^SETTINGS["SPACINGX"])
	                elseif state.grid[y,x] == 0 || state.grid[y,x] == 8 # No one -> Colorless
                    	gridprint[y, x] = "\x1b[$(coy);$(cox)H"*SETTINGS["HORZLINE"]^SETTINGS["SPACINGX"]
                    	cox += length(SETTINGS["HORZLINE"]^SETTINGS["SPACINGX"])
	                end
	            end
        	else # Even lines
        		for i in 1:round(SETTINGS["SPACINGX"]/2-1)
        			y = Int(y) # Otherwise errors
        			coy+=1
        			middlex = Int(round(SETTINGS["SPACINGX"]/2-1))
        			middley = round(round(SETTINGS["SPACINGX"]/2)/2)
	        		for x in 1:size(state.grid, 2)
		                if state.grid[y, x] == -2
		                   	gridprint[y, x] *= "\x1b[$(coy);$(cox)H"*" "
		                    cox += length(" ")
		                elseif state.grid[y, x] == 10
		                	middlesign = Int(round(length(SETTINGS["PLAYERSIGN1"])/2))
		                	if i == middley
		                		gridprint[y, x] = "\x1b[$(coy);$(cox-middlex-middlesign)H"*ANSI.red(SETTINGS["PLAYERSIGN1"])
		                	end
		                	cox += 1
	                	elseif state.grid[y, x] == 20
	                		middlesign = Int(round(length(SETTINGS["PLAYERSIGN2"])/2))
	                		if i == middley
	                			gridprint[y, x] = "\x1b[$(coy);$(cox-middlex-middlesign)H"*ANSI.cyan(SETTINGS["PLAYERSIGN2"])
	                		end
		                	cox += 1
		                elseif state.grid[y,x] == 1
		                    gridprint[y, x] *= "\x1b[$(coy);$(cox)H"*ANSI.red(SETTINGS["VERTLINE"])
		                    cox += SETTINGS["SPACINGX"]
		                elseif state.grid[y,x] == 2
		                    gridprint[y, x] *= "\x1b[$(coy);$(cox)H"*ANSI.cyan(SETTINGS["VERTLINE"])
		                    cox += SETTINGS["SPACINGX"]
		                elseif state.grid[y,x] == 0 || state.grid[y,x] == 8
	                    	gridprint[y, x] *= "\x1b[$(coy);$(cox)H"*SETTINGS["VERTLINE"]
	                    	cox += SETTINGS["SPACINGX"]
		                end
		            end
		            cox = co[1]
	        	end
	        	coy+=1
	        end
            cox = co[1]
        end
        return gridprint
	end
	function printTheGrid(printgrid::Array)
		gridstr = ""
		for y in 1:size(printgrid, 1)
			for x in 1:size(printgrid, 2)
				gridstr*=printgrid[y, x]
			end
		end
		println(gridstr)
	end
	function printLogo(printgrid::Array)
		a = printgrid[1, end] # Take out the cross element on top row to get coordinate
		a *= "\x1b[10C" # Move cursor forward by 10 spaces
		o = SETTINGS["GRIDPOINT"]
		println(a*"$(o)-$(o)        $(o)                      $(o)     $(o)--$(o)")
		a *= "\x1b[1B"
		println(a*"|  \\       |                      |     |   |")
		a *= "\x1b[1B"              
		println(a*"|   $(o) $(o)-$(o) -$(o)- $(o)-$(o)      $(o)$(o) $(o)-$(o)   $(o)-$(o)     $(o)--$(o)  $(o)-$(o) \\ / $(o)-$(o) $(o)-$(o) ")
		a *= "\x1b[1B"
		println(a*"|  /  | |  |   \\      | | |  | |  |     |   | | |  $(o)  |-   \\ ")
		a *= "\x1b[1B"
		println(a*"$(o)-$(o)   $(o)-$(o)  $(o)  $(o)-$(o)     $(o)-$(o)-$(o)  $(o)  $(o)-$(o)     $(o)--$(o)  $(o)-$(o) / \\ $(o)-$(o) $(o)-$(o)")
	end
	function printInformation(state::GameState, printgrid::Array)
		k = 5 - Int(round(SETTINGS["SPACINGX"]/2-1))
		if k >= 0
			a = printgrid[3+k, end]
			a *= "\x1b[10C"
		else
			a = printgrid[3, end]
			a *= "\x1b[10C"
		end
		if state.player == 1
				println(a*ANSI.red("$(SETTINGS["PLAYERSIGN1"])'s turn"))
		elseif state.player == 2
				println(a*ANSI.cyan("$(SETTINGS["PLAYERSIGN2"])'s turn"))
		end
		a *=  "\x1b[1B" # Move cursor down
		for i in 1:2
			a *= "\x1b[1B"
			println(a*"Score of $(SETTINGS["PLAYERSIGN$(i)"]): ", "$(state.score[i])")
		end
		# https://www.messletters.com/en/big-text/
		# https://www.coolgenerator.com/ascii-text-generator                                           
	end
	function showEndGame(state::GameState)
		printstrgrid = GridToPrint(state, SETTINGS["STARTCO"])
		printTheGrid(printstrgrid)
		printLogo(printstrgrid)

		k = 5 - Int(round(SETTINGS["SPACINGX"]/2-1))
		if k >= 0
			a = printstrgrid[3+k, end]
			a *= "\x1b[10C"
		else
			a = printstrgrid[3, end]
			a *= "\x1b[10C"
		end

		d = 7
		text = " takes the win!"
		if state.score[1] > state.score[2]
			println(a*ANSI.red("╔"*"─"^d*"─"^length(SETTINGS["PLAYERSIGN1"]*text)*"─"^d*"╗"))
			a *= "\x1b[1B"
        	println(a*ANSI.red("║"*" "^d*SETTINGS["PLAYERSIGN1"]*text*" "^d*"║"))
        	a *= "\x1b[1B"
        	println(a*ANSI.red("╚"*"─"^d*"─"^length(SETTINGS["PLAYERSIGN1"]*text)*"─"^d*"╝"))
		elseif state.score[1] < state.score[2]
			println(a*ANSI.cyan("╔"*"─"^d*"─"^length(SETTINGS["PLAYERSIGN2"]*text)*"─"^d*"╗"))
			a *= "\x1b[1B"
        	println(a*ANSI.cyan("║"*" "^d*SETTINGS["PLAYERSIGN2"]*text*" "^d*"║"))
        	a *= "\x1b[1B"	
        	println(a*ANSI.cyan("╚"*"─"^d*"─"^length(SETTINGS["PLAYERSIGN2"]*text)*"─"^d*"╝"))
		else
			for letter in eachindex("DRAW")
				if letter%2 == 0
					println(a*ANSI.red("DRAW"[letter]))
				else
					println(a*ANSI.cyan("DRAW"[letter]))
				end
				a *= "\x1b[1C"
			end
		end
		a = printstrgrid[end, end]*"\x1b[10C"
		println(a*"Press CTRL-R to restart or CTRL-C to exit")
	end

	function HelpMenu()
		clearscreen()
		printer::Bool = true
		while true
			sleep(0.05)
			key = readinput()

			if printer == true
				println(ANSI.yellow("HELP MENU"))
				println()
				println("Movement")
				println("	Press Z or Up to move the cursor up")
				println("	Press S or Down to move the cursor down")
				println("	Press Q or Left to move the cursor to the left")
				println("	Press D or Right to move the cursor to the right")
				println("	Press ENTER to cross a line")
				println("Other")
				println("	Press F2 to access the settings menu")
				println("	Press Ctrl-L to refresh the screen")
				println("	Press Ctrl-R to restart the game")
				println("	Press Ctrl-C to exit game")
				println()
				println(ANSI.yellow("Press ? or F1 to return to the game"))
				printer = false
			end
			if key == "?" || key == "F1"
				break
			end
		end
	end
	function SettingsREPL(state::GameState)
		global SETTINGS
		# More intuitive UI -> more code 

		Setting = []
		Value = []
		for key in keys(SETTINGS)
   			push!(Setting, key)
    		push!(Value, SETTINGS[key])
		end
		copysett = sortslices([Setting Value], dims=1)

		change::Bool = false	# Only import settings again if change is made
		printer::Bool = true
		up_down::Int = 1 	# Which setting is being accessed right now?

		function changeSett(up_down::Int, copysett::Array, initial::Int)
			left_right::Int = 0 	# 1 is left, 2 is right
			
			function updateChange(up_down::Int, left_right::Int, copysett::Array)
				change = true
				# TODO: array/chars/strings (readline for the last two)
				if isa(copysett[up_down, 2], Bool)
					if copysett[up_down, 2]
						copysett[up_down, 2] = false
					else
						copysett[up_down, 2] = true
					end
				elseif isa(copysett[up_down, 2], Int)
					if left_right == 2
						copysett[up_down, 2] += 1
						#allowedSett(copysett, up_down)
					else
						copysett[up_down, 2] -= 1
						#allowedSett(copysett, up_down)
					end
				end
			end

			# Individual setting loop
			while true
				sleep(0.05)
				key = readinput()

				if key == "Left" || initial == 1
					initial = 0
					left_right = 1
					updateChange(up_down, left_right, copysett)
					printer = true
				elseif key == "Right" || initial == 2
					initial = 0
					left_right = 2
					updateChange(up_down, left_right, copysett)
					printer = true
				elseif key == "Down"
					return 1 	# To move fluently to next setting
				elseif key == "Up"
					return -1
				elseif key == "F2"
					return 0
				end
				if printer
					printSett(up_down, copysett)
					printer = false
				end
			end
		end

		function printSett(up_down::Int, copysett::Array)
			clearscreen()
			println(ANSI.yellow("SETTINGS"))
			println()

			for i in 1:size(copysett, 1)
				if i == up_down
					println(ANSI.magenta(copysett[i, 1]*": "*string(copysett[i, 2])))
				else
					println(copysett[i, 1]*": "*string(copysett[i, 2]))
				end
			end
			if change
				println()
				println("Press Ctrl-S to save settings")
			end
			printer = false
		end
		function fluentmoves(c::Int, up_down::Int, copysett::Array)
		end
		# Main settings loop
		while true
			sleep(0.05)
			key = readinput()

			if key == "Up"
				printer = true
				if up_down > 1
					up_down -= 1
				else
					up_down = 1
				end
				c = changeSett(up_down, copysett, 0)
				if c == 0 # Fluently leave settings
					key = "F2"
				else
					up_down += c
					if up_down < 1
						up_down = 1
					elseif up_down > size(copysett, 1)
						up_down = size(copysett, 1)
					end
				end
				printer = true
			elseif key == "Down"
				printer = true
				if up_down < size(copysett, 1)
					up_down += 1
				end
				c = changeSett(up_down, copysett, 0)
				if c == 0 # Fluently leave settings
					key = "F2"
				else
					up_down += c
					if up_down < 1
						up_down = 1
					elseif up_down > size(copysett, 1)
						up_down = size(copysett, 1)
					end
				end
				printer = true
			elseif key == "Left"
				printer = true
				c = changeSett(up_down, copysett, 1)
				if c == 0 # Fluently leave settings
					key = "F2"
				else
					up_down += c
					if up_down < 1
						up_down = 1
					elseif up_down > size(copysett, 1)
						up_down = size(copysett, 1)
					end
				end
				printer = true
			elseif key == "Right"
				printer = true
				c = changeSett(up_down, copysett, 2)
				if c == 0 # Fluently leave settings
					key = "F2"
				else
					up_down += c
					if up_down < 1
						up_down = 1
					elseif up_down > size(copysett, 1)
						up_down = size(copysett, 1)
					end
				end
				printer = true
			end

			if key == "F2"
				updateSettings(copysett)
				return change
			elseif key == "Ctrl-S"
				# TODO, allowedSett
				# this needs to be in individual setting
			end
			if printer
				printSett(up_down, copysett)
			end
		end
	end

	# Debugging
	function printarray(a::Array, state::GameState)
		println("\33[H")
		for i in 1:(round(SETTINGS["SPACINGX"]/2-1)*(state.gh-1)+state.gh+1)
			println()
		end
		show(stdout, "text/plain", a)
	end

	# Game loop function
	function DotsAndBoxesREPL()
		global SETTINGS
		SETTINGS = ImportSettings()
		fixsettings()

		state::GameState = GameState()
		InitiateGrid(state.grid)
		botSettings(state)

		UPDATE::Bool = true 	# Only update screen if something has happened (ie key press)
		ENDGAME::Bool = false	# Alternative bool to state.gameover (such that keys can be pressed in endgame)
		RESTART::Bool = false	# To play directly again

		Initiate_Keyboard_Input()
		cursor = CursorStruct(2, 1)

		prevgrid = state.grid[:,:] # To check for changes
		printstrgrid = GridToPrint(state, SETTINGS["STARTCO"])
		printstrcursor = CursorInGameMove(state, cursor, printstrgrid)

		 # Clear entire console screen (top line has to be cleared by user in beginning)
    	clearscreen()
    	
    	# Game loop
		while !state.gameover
			sleep(0.05)
			printstrgrid = GridToPrint(state, SETTINGS["STARTCO"])

			# Key input
			key = readinput()
			if key == "Ctrl-R"
				state.gameover = true
				RESTART = true
			elseif key == "Ctrl-C"
				state.gameover = true
			elseif key == "Ctrl-L" # Refresh -> not needed anymore actually
				UPDATE = true
			elseif key == "Ctrl-S"
				# savegame(), create a history
			elseif key == "?" || key == "F1"
				UPDATE = true
				HelpMenu()
			elseif key == "F2"
				UPDATE = true
				if SettingsREPL(state)
					SETTINGS = ImportSettings()
					fixsettings()
					state = GameState()
					botSettings(state)
					InitiateGrid(state.grid)
					printstrgrid = GridToPrint(state, SETTINGS["STARTCO"])
					printstrcursor = CursorInGameMove(state, cursor, printstrgrid)
				end
			elseif key == KEY_Z || key == "Up"
				UPDATE = true
				cursor.y -= 1
				cursor.x += 1
				printstrcursor = CursorInGameMove(state, cursor, printstrgrid)
			elseif key == KEY_S || key == "Down"
				UPDATE = true
				cursor.y += 1
				cursor.x -= 1
				printstrcursor = CursorInGameMove(state, cursor, printstrgrid)
			elseif key == KEY_D || key == "Right"
				UPDATE = true
				cursor.x += 2
				printstrcursor = CursorInGameMove(state, cursor, printstrgrid)
			elseif key == KEY_Q || key == "Left"
				UPDATE = true
				cursor.x -= 2
				printstrcursor = CursorInGameMove(state, cursor, printstrgrid)
			elseif key == "Tab" && !ENDGAME
				UPDATE = true
				# Bot makes move, even if Settings BOT_ON = false

				BOT2(state)

				# Give box to the player who took it
				Difference(state.grid, prevgrid)

				# Update the score -> new method
				diffscore = score(state.grid) - state.score
				state.score = score(state.grid)

				# Change turns, if no box is completed
				"""
				if changeTurns(state, diffscore)
					if state.player == 1
						state.player = 2
					elseif state.player == 2
						state.player = 1
					end
				end
				"""

				printstrgrid = GridToPrint(state, SETTINGS["STARTCO"])	# Update the grid (to later print) here, so that the function on next line can take the right information		
				printstrcursor = CursorInGameMove(state, cursor, printstrgrid)
			elseif key == KEY_ENTER && !ENDGAME
				UPDATE = true
				#if state.bot == state.player #TODO

				if state.grid[cursor.y,cursor.x] == 0 || state.grid[cursor.y,cursor.x] == 8 # Is spot available?
						# Give line to the player
						state.grid[cursor.y,cursor.x] = state.player
				end

				# Give box to the player who took it
				Difference(state.grid, prevgrid)

				# Update the score -> new method (maybe later: updatescore function)
				diffscore = score(state.grid) - state.score
				state.score = score(state.grid)

				# Change turns, if no box is completed
				if changeTurns(state, diffscore) && prevgrid != state.grid
					if state.player == 1
						state.player = 2
					elseif state.player == 2
						state.player = 1
					end
				end

				# Move cursor to beginning
				cursor.x = 2
				cursor.y = 1

				printstrgrid = GridToPrint(state, SETTINGS["STARTCO"])	# Update the grid (to later print) here, so that the function on next line can take the right information		
				printstrcursor = CursorInGameMove(state, cursor, printstrgrid)
			end


			if UPDATE
				if state.score[1]+state.score[2] == (state.gh-1)*(state.gw-1)
					clearscreen()
					ENDGAME = true # alternative to state.gameover
					UPDATE = false

					showEndGame(state)

					continue # makes us stay in while loop (state.gameover is still false), in order to use key input
				end
				if !state.gameover
					clearscreen()
					printstrgrid = GridToPrint(state, SETTINGS["STARTCO"])
					printLogo(printstrgrid)
					printInformation(state, printstrgrid)

					# Print Grid
					printTheGrid(printstrgrid)
					#printarray(printstrgrid, state)
					#printarray(state.grid, state)

					# Print Cursor
					println(printstrcursor)

					# Nicely refresh
					println("\33[H")
					for i in 1:(round(SETTINGS["SPACINGX"]/2-1)*(state.gh-1)+state.gh)
						println()
					end

					prevgrid = state.grid[:,:]
					UPDATE = false
				end
			end
		end

		if RESTART
			clearscreen()
			println("Restart")
			
			DotsAndBoxesREPL()
		else
			clearscreen()
			println("Aww goodbye!")
			exit()
		end
	end
	DotsAndBoxesREPL()
end

#######################<---GAMEZERO GAME MODE--->#######################
function GAMEZEROMODE()
end
#######################<---STARTUP--->#######################
REPLMODE()