Cirom's Custom Slots - FINAL

prizeamount = 5
prizeA = 1
prizeBBB = 10
prizeBB = 2
prizeC = 22
prizeD = 64
prizeE = 192
detectside = "back"
monside = "left"
dispenserside = "top"
stopperside = "right"
showloser = true
starrystuff = 0

mon = peripheral.wrap(monside)
redstone.setOutput(stopperside,true)
shell.run("clear",1)
mon.clear()
mon.setCursorPos(1,1)
mon.write("* * * *")
mon.setCursorPos(1,2)
mon.write("INSERT ")
mon.setCursorPos(1,3)
mon.write("       ")
mon.setCursorPos(1,4)
mon.write("   COIN")
mon.setCursorPos(1,5)
mon.write("* * * *")
print("Hold Control + T to terminate slots.")

function winner()
    sleep(2)
    cpayout = 0
    if result4 == "X" then
        prizeamount = prizeA
        mon.setCursorPos(1,1)
        mon.write("* XXX *")
        mon.setCursorPos(1,5)
        mon.write("* WIN *")
    elseif result4 == "O" and result5 == "O" and result6 == "O" then
        prizeamount = prizeBBB
        mon.setCursorPos(1,1)
        mon.write("* OOO *")
        mon.setCursorPos(1,5)
        mon.write("* WIN *")
    elseif result4 == "O" and result5 == "O" then
        prizeamount = prizeBB
        mon.setCursorPos(1,1)
        mon.write("* OO? *")
        mon.setCursorPos(1,5)
        mon.write("* WIN *")
    elseif result4 == "$" then
        prizeamount = prizeC
        mon.setCursorPos(1,1)
        mon.write("* $$$ *")
        mon.setCursorPos(1,5)
        mon.write("* WIN *")
    elseif result4 == "7" then
        prizeamount = prizeD
        mon.setCursorPos(1,1)
        mon.write("* 777 *")
        mon.setCursorPos(1,5)
        mon.write("* WIN *")
    else
        prizeamount = prizeE
        mon.setCursorPos(1,1)
        mon.write("JACKPOT")
        mon.setCursorPos(1,5)
        mon.write("* WIN *")
        end
    while cpayout < prizeamount do
        redstone.setOutput(dispenserside,true)
        sleep(0.2)
        redstone.setOutput(dispenserside,false)
        sleep(0.2)
        cpayout = cpayout +1
    end
    sleep(2)
end

function slots()

rollsdone = 0
    while rollsdone < 30 do
        result1 = math.random(1,100)
        result1 = result1 - ".0"
        result2 = math.random(1,100)
        result2 = result2 - ".0"
        result3 = math.random(1,100)
        result3 = result3 - ".0"
        result4 = math.random(1,100)
        result4 = result4 - ".0"
        result5 = math.random(1,100)
        result5 = result5 - ".0"
        result6 = math.random(1,100)
        result6 = result6 - ".0"
        result7 = math.random(1,100)
        result7 = result7 - ".0"
        result8 = math.random(1,100)
        result8 = result8 - ".0"
        result9 = math.random(1,100)
        result9 = result9 - ".0"

        if result1 < 31 then result1 = "X"
        elseif result1 < 56 then result1 = "O"
        elseif result1 < 76 then result1 = "$"
        elseif result1 < 91 then result1 = "7"
        else result1 = "J" end
        if result2 < 31 then result2 = "X"
        elseif result2 < 56 then result2 = "O"
        elseif result2 < 76 then result2 = "$"
        elseif result2 < 91 then result2 = "7"
        else result2 = "J" end
        if result3 < 31 then result3 = "X"
        elseif result3 < 56 then result3 = "O"
        elseif result3 < 76 then result3 = "$"
        elseif result3 < 91 then result3 = "7"
        else result3 = "J" end
        if result4 < 31 then result4 = "X"
        elseif result4 < 56 then result4 = "O"
        elseif result4 < 76 then result4 = "$"
        elseif result4 < 91 then result4 = "7"
        else result4 = "J" end
        if result5 < 31 then result5 = "X"
        elseif result5 < 56 then result5 = "O"
        elseif result5 < 76 then result5 = "$"
        elseif result5 < 91 then result5 = "7"
        else result5 = "J" end
        if result6 < 31 then result6 = "X"
        elseif result6 < 56 then result6 = "O"
        elseif result6 < 76 then result6 = "$"
        elseif result6 < 91 then result6 = "7"
        else result6 = "J" end
        if result7 < 31 then result7 = "X"
        elseif result7 < 56 then result7 = "O"
        elseif result7 < 76 then result7 = "$"
        elseif result7 < 91 then result7 = "7"
        else result7 = "J" end
        if result8 < 31 then result8 = "X"
        elseif result8 < 56 then result8 = "O"
        elseif result8 < 76 then result8 = "$"
        elseif result8 < 91 then result8 = "7"
        else result8 = "J" end
        if result9 < 31 then result9 = "X"
        elseif result9 < 56 then result9 = "O"
        elseif result9 < 76 then result9 = "$"
        elseif result9 < 91 then result9 = "7"
        else result9 = "J" end

        term.setCursorPos(25,5)
        mon.clear()
        mon.setCursorPos(1,1)
        mon.write("*******")
        mon.setCursorPos(2,2)
        mon.write(result1.."|"..result2.."|"..result3)
        mon.setCursorPos(1,3)
        mon.write(">"..result4.."|"..result5.."|"..result6.."<")
        mon.setCursorPos(2,4)
        mon.write(result7.."|"..result8.."|"..result9)
        mon.setCursorPos(1,5)
        mon.write("*******")
        term.setCursorPos(1,3)
        print("Debug Info:")
        print("Results:   "..result1.."|"..result2.."|"..result3)
        print("           "..result4.."|"..result5.."|"..result6)
        print("           "..result7.."|"..result8.."|"..result9)
        rollsdone = rollsdone + 1
        sleep(rollsdone / 100)
    end

    if result4 == result5 and result5 == result6 then
        print("Detected win in middle row!")
        winner()
        os.reboot()
    elseif result4 == "O" and result5 == "O" then
        print("Detected win - cherry win!")
        winner()
        os.reboot()
    else
        print("There was No Match")
        sleep(1)
        mon.setCursorPos(1,1)
        mon.write("* TRY *")
        mon.setCursorPos(1,5)
        mon.write(" AGAIN ")
        sleep(2)
        os.reboot()
    end

end

local rRunning = true

while rRunning do
  sleep(0.5)
  local rEvent, param = os.pullEvent()
  if rEvent == "redstone" then
    if redstone.getInput(detectside) then
      if redstone.getInput(detectside) == true then
      redstone.setOutput(stopperside,false)
      slots()
      else
        shell.run("clear",1)
      end
    end
  end
end