fasdfdsfdsa

mon=peripheral.wrap("top")
xm,ym=mon.getSize()
tick=0.2
colLine=8 --Ltblue
colMisc = 256 -- Ltgray
colBMODS = 16384 -- Red
colBITEM = 2 -- Orange
colITEM = 16 -- Yellow
colSPACER = 512 -- Cyan
colREASON = 32 -- Lime
colTXT = 1 -- White
col1=256 --Rank color (Check color API)
col2=1 --Text color (Check color API)
prNum=1 prNumMax=2
plNum=1 plNumMax=2
div="|"
rank="U s e f u l  S e r v e r  C o m m a n d s"
kit="C o m m a n d"
kit2="D e s c r i p t i o n"
receive="Silver kit contains:"
pos=12
function wr(x,y,string,col)
        mon.setCursorPos(x,y)
        mon.setTextColor(col)
        mon.write(string)
end
function line(y,col)
    for n=1,xm do
        mon.setCursorPos(n,y)
        mon.write("-")
    end
end

function ends(y,col)
        mon.setTextColor(col)
        mon.setCursorPos(1,y)
        mon.write("|")
        mon.setCursorPos(xm,y)
        mon.write("|")
end

function layoutRank()
mon.setTextColor(32)
line(2,32)
wr(1+xm/2-(#(rank)/2),3,rank,32)
ends(3,32)
line(4,32)
wr(2+xm/2-#("Remember To Visit Our Website At Http://Orecloud.net")/2,6,"Remember To Visit Our Website At Http://Orecloud.net",8)
mon.setTextColor(colITEM)
line(8,colBITEM)
wr(1+xm/4-(#kit/2),9,kit,1)
wr((((xm/4)*3)-(#kit2/2))-2,9,kit2,2)
ends(9,colITEM)
line(10,colITEM)
--divisor(9)
line(ym-3,colITEM)
wr(xm/2-#("(Page "..plNum.." / "..plNumMax..")")/2,ym-2,("(Page "..plNum.." / "..plNumMax..")"),32)
wr(1+xm/2-(#"Right click to change page"/2),ym-1,"Right click to change page",32)
ends(ym-1,colITEM) ends(ym-2,colITEM)
mon.setTextColor(colITEM)
line(ym,colITEM)
end

function wri(x,pos,string,col)
    wr(x,pos,string,col)
end
function cll(x,xmax,y)
    for n=x,xmax do
        wr(n,y," ",colBITEM)
    end
    for n=y,ym do
        wr(x,n," ",colBITEM)
    end
end
function cll(y)
    for ny=y,ym do
        for nx=1,(xm/2)-1 do
            mon.setCursorPos(nx,ny)
            mon.write(" ")
        end
    end
end
function clr(y)
    for ny=y,ym do
        for nx=(xm/2)+1,xm+1 do
            mon.setCursorPos(nx,ny)
            mon.write(" ")
        end
    end
end
function divisor(y)
    for n=y,ym do
        wr(2+xm/2-#div,n,div,colITEM)
    end
end
--Left pages
function pl1()
    --cll(1,((xm/2)-1),11)
    cll(11)
    layoutRank()
    wr(12,pos,"- /OC",1)
    wr(12,pos+2,"- /Island",1)
    wr(12,pos+4,"- /Help",1)
    wr(12,pos+6,"- /Shop",1)
    wr(12,pos+8,"- /Warp",1)

end
function pl2()
    --cll(1,((xm/2)-1),11)
    cll(11)
    layoutRank()
    wr(12,pos,"- /Vote",1)
    wr(12,pos+2,"- /Rules",1)
    wr(12,pos+4,"- /SFC2",1)
    wr(12,pos+6,"- /Sethome 'Name'",1)
    wr(12,pos+8,"- /Home 'Name'",1)
end


--Right pages
function pr1()
    clr(11)
    layoutRank()
    wr((xm/2)+5,pos,"- OreCloud Main Command",2)
    wr((xm/2)+5,pos+2,"- Island Creating, Help, & Info",2)
    wr((xm/2)+5,pos+4,"- Help For Everything On OreCloud",2)
    wr((xm/2)+5,pos+6,"- Buy Items With In-Game Cash",2)
    wr((xm/2)+5,pos+8,"- List Of All OreCloud Hotspots",2)
end
function pr2()
    clr(11)
    layoutRank()
    wr((xm/2)+5,pos,"- Earn Rewards & Help The Server",2)
    wr((xm/2)+5,pos+2,"- OreCloud Server Rules",2)
    wr((xm/2)+5,pos+4,"- List Of All SF2 Challenges",2)
    wr((xm/2)+5,pos+6,"- Set & Name Multiple Homes,2)
    wr((xm/2)+5,pos+8,"- Teleport To Your Set Homes",2)
end
function montouch()
  layoutRank()
  if plNum==1 then
    pl1()
  elseif plNum==2 then
    pl2()
  end
  if prNum==1 then
    pr1()
  end
  if prNum==2 then
    pr2()
  end
  local event, side, xPos, yPos = os.pullEvent("monitor_touch")

  if yPos>=11 then
      plNum=plNum+1
      prNum=prNum+1
  end

  if plNum>plNumMax then
    plNum=1
  end
  if prNum>prNumMax then
    prNum=1
  end
end







mon.clear()
prNum=1
plNum=1
while true do
    montouch()
end