CC Tweaked Shopping Terminal - banking_public2

os.pullEvent = os.pullEventRaw
local ItemNames = {}
local ItemTags = {}
local ItemPrices = {}
local ItemAmount = {}
local ItemSellAmount = {}
local ItemInStock = {}
local BankScript = "Kiosk/KioskBankSystem-banking_public2"
--DO NOT MESS WITH COIN NAMES AND VALUES
local CoinNames = {"Neb","Thero","Gold Coin"}
local CoinValues = {1,32,128}
--wither to use data off of a file or set program values
local FileUse = true
local CardAccept = false
local Storage = peripherals.wrap("minecraft:chest_0")
local Deposit = peripherals.wrap("minecraft:chest_1")

local function Clear()
term.clear()
term.setCursorPos(1,1)
end

local function Setup()
Clear()
print("Files not found, please create 'Shop' file in 'Kiosk' file")
print("should be named this 'Kiosk/Shop'")
os.sleep(7)
exit
end

function Purchase_Card(item)
Clear()
print("Please Swipe Card")
local Reader = peripherals.find("reader")
local event, a, b, c = os.pullEvent("mag_swipe)
shell.run(BankScript,"transfer",ItemPrices[item],c)
settings.load(".settings")
if settings.get("Pass") == true then
	print("Transaction Accepted")
	Dispense(item,ItemSellAmount[item])
	os.sleep(3)
else
	print("Transaction Rejected")
	os.sleep(3)
end
end

function Purchase_Manual(item,Set)
Clear()
print("please place current change into chest, then press enter")
print("Costs ",ItemPrices[item])
repeat
	local event, key = os.pullEvent("key")
until key == keys.enter
term.setCursorPos(1,7)
local PaidAmount = 0
if Set ~= nil then
	PaidAmount = Set
end
for slot, item in pairs(Deposit.list()) do
	term.clearLine()
	term.write(PaidAmount)
	if PaidAmount < ItemPrices[item] then
		if item.name == CoinNames[1] then
			PaidAmount = PaidAmount + (CoinValues[1] * item.amount)
			Deposit.pushItems(peripheral.getName(Storage),slot)
		elseif item.name == CoinNames[2] then
			PaidAmount = PaidAmount + CoinValues[2] * item.amount)
			Deposit.pushItems(peripheral.getName(Storage),slot)
		elseif item.name == CoinNames[3] then
			PaidAmount = PaidAmount + CoinValues[3] * item.amount)
			Deposit.pushItems(peripheral.getName(Storage),slot)
		end
	end
end
if PaidAmount >= ItemPrices[item] then
	print("Sufficent Payment")
	Dispense(item,ItemSellAmount[item])
else
	print("Insufficent Payment")
	Purchase_Manual(item,PaidAmount)
end
end

function Dispense(item,x)
local DisAmount = 0
for slot, item in pairs(Storage.list()) do
	if DisAmount < ItemSellAmount[item] then
		if item.name == ItemNames[item] then
			DisAmount = DisAmount + item.count
			Storage.pushItems(peripheral.getName(Deposit),slot,(ItemSellAmount[item] - DisAmount))
		end
	end
end
end

function ItemMenu(item)
Clear()
print("=====================")
print(ItemSellAmount[item],"x ",ItemNames[item]," for ",ItemPrices[item])
local options = {"buy","return"}
local n = CUI(options)
if options[n] == "buy" then
	if CardAccept == false then
		Purchase_Manual(item)
	else
		Purchase_Card(item)
	end
end
ShopMenu()
end

function ShopMenu()
Clear()
print("KIOSK")
print("Items")
local List = GetStock()
local options = {}
for i = 1, #List do
	options[#options + 1] = ItemNames[List[i]]
end
local n = CUI(options)
ItemMenu(List[n])
ShopMenu()
end

function GetStock()
for slot, item in pairs(Storage.list()) do
	for I = 1, #ItemNames do
		if item.name == ItemNames[I] then
			if ItemAmount[I] == nil then
				ItemAmount[I] = item.count
			else
				ItemAmount[I] = ItemAmount[I] + item.count
			end
		end
	end
end
for i = 1, #ItemNames do
	if ItemAmount[i] >= ItemSellAmount[i] then
		ItemInStock[i] = true
	else
		ItemInStock[i] = false
	end
end
local SellItems = {}
for A = 1, #ItemNames do
	if ItemInStock[A] == true then
		SellItems[#SellItems + 1] = A
	end
end
return(SellItems)
end

function Load()
local file = fs.open("Kiosk/Shop","r")
ItemNames = textutils.unserialize(file.readLine())
ItemTags = textutils.unserialize(file.readLine())
ItemPrice = textutils.unserialize(file.readLine())
file.close()
ShopMenu()
end

if FileUse == true then
	if fs.exists("Kiosk/Shop") then
		Load()
	else
		Setup()
	end
else
	ShopMenu()
end