View difference between Paste ID: Svi2ZczK and uHEtcpFq
SHOW: | | - or go back to the newest paste.
1
side = "top"
2
mon = peripheral.wrap(side)
3
mon.setTextScale(1)
4
mon.setBackgroundColor(32768)
5
mon.clear()
6
7
function calc_color(color)
8
    return math.pow(2, color - 1)
9
end
10
11
function msg(gap, line, color, groundb, text) 
12
    mon.setBackgroundColor(calc_color(groundb))
13
    mon.setCursorPos(gap,line)
14
    mon.setTextColor(calc_color(color))
15
    text = mon.write(text)
16
end  
17
18
function clear()
19
    for x = 3,22 do
20-
msg(01,08,09,16,"- Activate Highlite Informations")
20+
        msg(01,x,16,16,"                                                        ")
21-
msg(01,09,09,16,"  with NumPad 1 open config with NumPad 0")
21+
    end
22-
msg(01,03,09,16,"- Use /warps to teleport to other worldspawns")
22+
23-
msg(07,03,10,16,"/warps")
23+
24-
msg(01,05,09,16,"- To enter the Nether you have to build a")
24+
function page1()
25-
msg(01,06,09,16,"  Netherportal on your own, therefore is no warp")
25+
    a = 1
26-
msg(01,11,09,16,"- All villager trades with emeralds are disabled")
26+
    clear()
27-
msg(01,13,09,16,"- Open Banneditem list with:")
27+
    msg(41,18,16,01,"          ")
28-
msg(30,13,10,16,"/banneditems")
28+
    msg(41,19,16,01,"  page 2  ")
29-
msg(01,16,09,16,"  every hour of playtime you get 120 claim blocks")
29+
	msg(01,08,09,16,"- Activate Highlite Informations")
30-
msg(01,15,09,16,"- New players get 1000 claim blocks for free")
30+
	msg(01,09,09,16,"  with NumPad 1 open config with NumPad 0")
31-
msg(01,18,09,16,"- You want Optifine? download Optifine1.12.2.jar")
31+
	msg(01,03,09,16,"- Use /warps to teleport to other worldspawns")
32-
msg(01,19,09,16,"  and insert it into the ´Mods´ folder")
32+
	msg(07,03,10,16,"/warps")
33-
msg(01,20,09,16," ")
33+
	msg(01,05,09,16,"- To enter the Nether you have to build a")
34
	msg(01,06,09,16,"  Netherportal on your own, therefore is no warp")
35
	msg(01,11,09,16,"- All villager trades with emeralds are disabled")
36
	msg(01,13,09,16,"- Open Banneditem list with:")
37
	msg(30,13,10,16,"/banneditems")
38
	msg(01,16,09,16,"  every hour of playtime you get 120 claim blocks")
39
	msg(01,15,09,16,"- New players get 1000 claim blocks for free")
40
end
41
42
function page2()
43
    a = 2
44
    clear()
45
    msg(41,18,16,01,"          ")
46
    msg(41,19,16,01,"  page 1  ")
47
	msg(01,03,09,16,"- You want Optifine? download Optifine1.12.2.jar")
48
	msg(01,04,09,16,"  and insert it into the ´Mods´ folder")
49
	msg(01,06,09,16,"- Want to store much EMC? use Industrial Credits")
50
    msg(01,07,09,16,"  Buy your first one at:")
51
    msg(26,07,10,16,"/gsm industrial-credit")
52
    msg(01,06,09,16," ")
53
    msg(01,06,09,16," ")
54
    msg(01,06,09,16," ")
55
    msg(01,06,09,16," ")
56
    msg(01,06,09,16," ")
57
    msg(01,06,09,16," ")
58
    msg(01,06,09,16," ")
59
end
60
61
msg(08,01,05,16,"         Useful Informations               |")
62
msg(08,02,05,16,"         ~~~~~~~~~~~~~~~~~~~               |")
63
page1()
64
65
while true do
66
	local event, button, X, Y = os.pullEvent("monitor_touch")
67
	if X >= 41 and X <= 50 and Y >= 18 and Y <= 20 and a == 1 then --open page2
68
	    page2()
69
	elseif X >= 41 and X <= 50 and Y >= 18 and Y <= 20 and a == 2 then --open page1
70
	    page1()
71
	end
72
	sleep(0.5)
73
end
74
    
75