Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement