Mobfarm-Auto-Switch

os.loadAPI("col")
col.setBackground(colors.black)
rednet.open("bottom")
col.clear()




function alloff()
    col.msg(02," &8+-------------+")
    col.msg(03," &8|&7Zombie-Pigmen&8|    &cAUS")
    col.msg(04," &8+-------------+")

    col.msg(05," &8+-------------+")
    col.msg(06," &8|   &7Zombie    &8|    &cAUS")
    col.msg(07," &8+-------------+")

    col.msg(08," &8+-------------+")
    col.msg(09," &8|   &7Spider    &8|    &cAUS")
    col.msg(10," &8+-------------+")

    col.msg(11," &8+-------------+")
    col.msg(12," &8|    &7free     &8|    &cAUS")
    col.msg(13," &8+-------------+")

    col.msg(14," &8+-------------+")
    col.msg(15," &8|     &7Cow     &8|    &cAUS")
    col.msg(16," &8+-------------+")
end




function pigmenAN()
    col.msg(03," &8|&7Zombie-Pigmen&8|         ")
    sleep(0.1)
    col.msg(03," &8|&fZombie-Pigmen&8|    &aAN ")
end

function zombieAN()
    col.msg(06," &8|   &7Zombie    &8|         ")
    sleep(0.1)
    col.msg(06," &8|   &fZombie    &8|    &aAN ")
end

function spiderAN()
    col.msg(09," &8|   &7Spider    &8|         ")
    sleep(0.1)
    col.msg(09," &8|   &fSpider    &8|    &aAN ")
end

function freeAN()
    col.msg(12," &8|    &7free     &8|         ")
    sleep(0.1)
    col.msg(12," &8|    &ffree     &8|    &aAN ")
end

function cowAN()
    col.msg(15," &8|     &7Cow     &8|         ")
    sleep(0.1)
    col.msg(15," &8|     &fCow     &8|    &aAN ")
end




function pigmenAUS()
    col.msg(03," &8|&fZombie-Pigmen&8|         ")
    sleep(0.1)
    col.msg(03," &8|&7Zombie-Pigmen&8|    &cAUS")
end

function zombieAUS()
    col.msg(06," &8|   &7Zombie    &8|         ")
    sleep(0.1)
    col.msg(06," &8|   &7Zombie    &8|    &cAUS")
end

function spiderAUS()
    col.msg(09," &8|   &7Spider    &8|         ")
    sleep(0.1)
    col.msg(09," &8|   &7Spider    &8|    &cAUS")
end

function freeAUS()
    col.msg(12," &8|    &7free     &8|         ")
    sleep(0.1)
    col.msg(12," &8|    &7free     &8|    &cAUS")
end

function cowAUS()
    col.msg(15," &8|     &7Cow     &8|         ")
    sleep(0.1)
    col.msg(15," &8|     &7Cow     &8|    &cAUS")
end




--Programm
v = 0
alloff()
while true do
    local event, side, X, Y = os.pullEvent("monitor_touch")

    if v == 0 and X >= 2 and X <= 16 and Y == 03 and side == "top" then
        pigmenAN()
        y = 1
        v = 1
        rednet.send(5881,y)
        sleep(0.5)
    end
        if v == 1 and X >= 20 and X <= 24 and Y == 03 and side == "top" then
            pigmenAUS()
            v = 0
            sleep(0.5)
        end





    if v == 0 and X >= 2 and X <= 16 and Y == 06 and side == "top" then
        zombieAN()
        y = 2
        v = 2
        rednet.send(5881,y)
        sleep(0.5)
    end
        if v == 2 and X >= 20 and X <= 24 and Y == 06 and side == "top" then
            zombieAUS()
            v = 0
            sleep(0.5)
        end





    if v == 0 and X >= 2 and X <= 16 and Y == 09 and side == "top" then
        spiderAN()
        y = 3
        v = 3
        rednet.send(5881,y)
        sleep(0.5)
    end
        if v == 3 and X >= 20 and X <= 24 and Y == 09 and side == "top" then
            spiderAUS()
            v = 0
            sleep(0.5)
        end





    if v == 0 and X >= 2 and X <= 16 and Y == 12 and side == "top" then
        freeAN()
        y = 4
        v = 4
        rednet.send(5881,y)
        sleep(0.5)
    end
        if v == 4 and X >= 20 and X <= 24 and Y == 12 and side == "top" then
            freeAUS()
            v = 0
            sleep(0.5)
        end





    if v == 0 and X >= 2 and X <= 16 and Y == 15 and side == "top" then
        cowAN()
        y = 5
        v = 5
        rednet.send(5881,y)
        sleep(0.5)
    end
        if v == 5 and X >= 20 and X <= 24 and Y == 15 and side == "top" then
            freeAUS()
            v = 0
            sleep(0.5)
        end


sleep(1)
end