main.lua

--[[
    Plinkett's wild ride. A simple, bare bones text based adventure game where you play as Red Letter Media's character Mr. Harry S. Plinkett.
    see youtube.com/@RedLetterMedia for more information on Red Letter Media and Mr. Plinkett.
    note: Red Letter Media did not create this game, nor have they endorsed this game.
    this game is a fan creation which in all probability RLM knows nothing about and probably never will.

    Copyright (C) <2023>  <return5>

    This program is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation, either version 3 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program.  If not, see <https://www.gnu.org/licenses/>.
--]]

local Character <const> = require('model.Character')
local OptionsTable <const> = require('options.OptionsTable')
local Output <const> = require('io.Output')
local Input <const> = require('io.Input')
local ConditionsCheck <const> = require('checks.ConditionsCheck')
local RandConditions <const> = require('checks.RandConditions')
local Helpers <const> = require('auxiliary.Helpers')

local function printOptions(options)
	local keys <const> = {}
	for k,v in pairs(options) do
		keys[#keys + 1] = k
		Output.write("\t",#keys,") ",v.message,"\n")
	end
	return keys
end

local function takeInput(options)
	local keys <const> = printOptions(options)
	local input <const> = Input.readNumber("n")
	if type(input) == "number" and input > 0 and #keys >= input and options[keys[input]] then
		return options[keys[input]].func
	end
	Input.readLine()
	Output.clearAndPrint("Wat? that wasn't correct, please try again.\n")
	return takeInput(options)
end

local function makeOptions()
	return {
		CallMikeJay = OptionsTable.CallMikeJay,
		BrainMedicine = OptionsTable.BrainMedicine,
		EatPizzaRoll = OptionsTable.EatPizzaRoll,
		NightCourt = OptionsTable.NightCourt,
		SocialSecurity = OptionsTable.SocialSecurity,
		BuyPizzaRoll = OptionsTable.BuyPizzaRoll,
		Quit = OptionsTable.Quit,
	}
end

local function printStats(plinkett)
	Output.clearAndPrint("score: ",plinkett.score,", money: ",plinkett.money,", brain medicine: ",plinkett.medicineCount,
			", pizza rolls: ",plinkett.pizzaRolls,", Mental state: ",plinkett.mentalState,"\n")
end

local function loopBody(plinkett,rand,options)
	plinkett:increaseCountsPerTurn()
	local brainMessage <const> = ConditionsCheck:checkConditions(plinkett,rand,options)
	Output.write(brainMessage)
	local message <const> = RandConditions:checkRandConditions(plinkett,rand,options)
	printStats(plinkett)
	Output.write(message)
	local func <const> = takeInput(options)
	local cont,mssg,brainMessg <const> = func(plinkett,rand,options)
	if mssg then
		Output.writeAndWait(mssg,brainMessg)
	end
	return cont
end

local function gameLoop(plinkett)
	local rand <const> = math.random
	local options <const> = makeOptions()
	local cond = true
	while cond do
		cond = loopBody(plinkett,rand,options)
	end
end

local function printEndMssg(plinkett)
	Output.write(plinkett.deathMssg,"You finished the game,congratulations! Final stats are:\n")
	Output.write("Score: ",plinkett.score,", money: ",plinkett.money,", total brain medicine taken: ",plinkett.totalBrainMedicine,
			", Number of pizza rolls eaten: ",plinkett.totalPizzaRolls,", Number of pizza rolls sent to web zone: ",
			plinkett.totalPizzaRollsWeb,", Total number of youtube reviews made: ",plinkett.youtubesMade,"\n")
	Output.write("Number of wives killed: ",plinkett.wivesKilled,", Number of hookers killed: ",plinkett.hookersKilled,
			", Number of club girls killed: ",plinkett.clubWomenKilled,"\n")
	Output.writeAndWait("Mike and Jay are ", plinkett.mikeJayDead and "thankfully dead and buried." or "unfortunately still alive.","\n")
end

local function main()
	math.randomseed(os.time())
	Helpers.optionsTable = OptionsTable
	local plinkett <const> = Character:new()
	gameLoop(plinkett)
	printEndMssg(plinkett)
end

main()