casinoSorter

-- 4 = -x
-- 3 = +z

disk = peripheral.wrap("left")
sort = peripheral.wrap("bottom")
diamond = 264
gold = 266
nugget = 371
credits = 0
floppy = 4257
id = 18



function sendTurtleBack()
rednet.open("right")
rednet.send(id, "go")
end

function readCredits()
file = fs.open("/disk/credits", "r")
cashOutCredits = file.readLine()
file.close()
end


function writeCredits()
file = fs.open("/disk/credits", "w")
file.write(tostring(credits))
file.close()
credits = 0
end

function getDisk()
sort.extract(3, 4257, 5, 1)
sleep(2)
writeCredits()
rednet.send(22, "go")
end

function exchange()
numberOfDiamonds = math.floor(cashOutCredits / 50)
sort.extract(3, 264, 2, numberOfDiamonds)

cashOutCredits = cashOutCredits - numberOfDiamonds*50
numberOfIngots = math.floor(cashOutCredits / 10)
sort.extract(3, 266, 2, numberOfIngots)

cashOutCredits = cashOutCredits - numberOfIngots*10
numberOfNuggets =  cashOutCredits
sort.extract(3, 371, 2, numberOfNuggets)
end



function resetVariables()
credits = 0
numberOfDiamonds = 0
numberOfIngots = 0
numberOfNuggets = 0
cashOutCredits = 0
credits = 0
end

function wait()
event, item, message = os.pullEvent()
if event == "isort_item" and item == 264 then
  credits = credits + 50*message
  print("Credits = "..credits)
  sort.sort(4, message)
  print("diamond")

elseif event == "isort_item" and item == 266 then
  credits = credits + 10*message
  print("Credits = "..credits)
  sort.sort(4, message)
  print("ingot")

elseif event == "isort_item" and item == 371 then
  credits = credits + 1*message
  print("Credits = "..credits)
  sort.sort(4, message)
  print("nugget")

elseif event == "rednet_message" and message == "go" then  -- check in
  print("signal received, getting disk")
  getDisk()
  resetVariables()

elseif event == "rednet_message" and message == "cashOut" then  -- cash out
  print("disk received, cashing out")
  sort.sort(5, 1)
  sleep(2)
  readCredits()
  sort.extract(5, 4257, 3, 1)
  exchange()
  sleep(1)
  sendTurtleBack()
  resetVariables()
end
end



while true do
rednet.open("right")
wait()
end