More 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
function array(v,ez,mz)
	local tbl = {}
	if not v then v = 0 end
	if not ez then ez = 32 end
	if not mz then mz = 1 end
	for i = mz,ez do
		tbl[i] = v
	end
	return tbl
end
sell = array()
num = num or {}
did = did or {}
for i = 1,4 do num[i] = array() end
for i = 1,32 do
	for is = 1,4 do
		did[is] = did[is] or {}
		did[is][i] = array(false)
	end
end
mute = array(false)
mute_time = array(1)
pln = array("")
addhook([[join]],[[joiner]])
function joiner(id)
	sell[id] = 0
	mute_time[id] = 1
	mute[id] = false
	num[1][id] = 0
	num[2][id] = 0
	num[3][id] = 0
	num[4][id] = 0
	for i = 1,32 do for is = 1,4 do did[is][i][id] = false end end
end
addhook([[serveraction]],[[sa]])
function sa(id,a)
	if a == 1 then
		menu(id,[[Vote,Vote Mute,Vote Kill,Vote Kick,Vote Ban]])
	end
end
function names()
	for id = 1,32 do
		if player(id,"exists") then
			pln[id] = player(id,"name")
		else
			pln[id] = ""
		end
	end
end
function pl_1(id)
	names()
	menu(id,[[Players 1@b,]]..pln[1]..[[,]]..pln[2]..[[,]]..pln[3]..[[,]]..pln[4]..[[,]]..pln[5]..[[,]]..pln[6]..[[,]]..pln[7]..[[,,Next]])
end
function pl_2(id)
	names()
	menu(id,[[Players 2@b,]]..pln[8]..[[,]]..pln[9]..[[,]]..pln[10]..[[,]]..pln[11]..[[,]]..pln[12]..[[,]]..pln[13]..[[,]]..pln[14]..[[,Back,Next]])
end
function pl_3(id)
	names()
	menu(id,[[Players 3@b,]]..pln[15]..[[,]]..pln[16]..[[,]]..pln[17]..[[,]]..pln[18]..[[,]]..pln[19]..[[,]]..pln[20]..[[,]]..pln[21]..[[,Back,Next]])
end
function pl_4(id)
	names()
	menu(id,[[Players 4@b,]]..pln[22]..[[,]]..pln[23]..[[,]]..pln[24]..[[,]]..pln[25]..[[,]]..pln[26]..[[,]]..pln[27]..[[,]]..pln[28]..[[,Back,Next]])
end
function pl_5(id)
	names()
	menu(id,[[Players 5@b,]]..pln[29]..[[,]]..pln[30]..[[,]]..pln[31]..[[,]]..pln[32]..[[,,,,Back]])
end
function fun(n)
	if n == 1 then
		return 1,7,0
	elseif n == 2 then
		return 8,14,-7
	elseif n == 3 then
		return 15,21,-14
	elseif n == 4 then
		return 22,28,-21
	elseif n == 5 then
		return 29,32,-28
	end
end
function pll(id,n)
	if n == 1 then pl_1(id)
	elseif n == 2 then pl_1(id)
	elseif n == 3 then pl_2(id)
	elseif n == 4 then pl_3(id)
	elseif n == 5 then pl_4(id)
	end
end
function pll2(id,n)
	if n == 1 then pl_2(id)
	elseif n == 2 then pl_3(id)
	elseif n == 3 then pl_4(id)
	elseif n == 4 then pl_5(id)
	elseif n == 5 then pl_5(id)
	end
end
function plrt()
	if #player(0,"table")/3 >= 3 then
		return math.ceil(#player(0,"table")/3)
	else
		return 3
	end
end
addhook([[menu]],[[menuer]])
function menuer(id,men,sel)
	if men == [[Vote]] then
		for i = 1,4 do
			if sel == i then
				sell[id] = i
				pl_1(id)
			end
		end
	end
	for plni = 1,5 do
		if men == [[Players ]]..plni then
			local bla,blu,bll,zu = fun(plni)
			for pl = bla,blu do
				if sel == pl - bll then
					local sel = sell[id]
					if sel == 1 then
						if did[sel][pl][id] == false then
							for i = 1,4 do if i ~= sel then did[sel][pl][id] = false end end
							did[sel][pl][id] = true
							if num[sel][pl] ~= plrt() then
								num[sel][pl] = num[sel][pl] + 1
								msg([[Player ]]..player(id,"name")..[[ voted to mute ]]..player(pl,"name")..[[, ]]..num[sel][pl]..[[/]]..plrt()..[[!]])
								if num[sel][pl] == plrt() then
									mute[pl] = true
									num[sel][pl] = 0
								end
							elseif num[sel][pl] == plrt() then
								mute[pl] = true
								num[sel][pl] = 0
							end
						end
					elseif sel == 2 then
						if did[sel][pl][id] == false then
							for i = 1,4 do if i ~= sel then did[sel][pl][id] = false end end
							did[sel][pl][id] = true
							if num[sel][pl] ~= plrt() then
								num[sel][pl] = num[sel][pl] + 1
								msg([[Player ]]..player(id,"name")..[[ voted to kill ]]..player(pl,"name")..[[, ]]..num[sel][pl]..[[/]]..plrt()..[[!]])
								if num[sel][pl] == plrt() then
									parse([[killplayer ]]..pl)
									num[sel][pl] = 0
								end
							elseif num[sel][pl] == plrt() then
								parse([[killplayer ]]..pl)
								num[sel][pl] = 0
							end
						end
					elseif sel == 3 then
						if did[sel][pl][id] == false then
							for i = 1,4 do if i ~= sel then did[sel][pl][id] = false end end
							did[sel][pl][id] = true
							if num[sel][pl] ~= plrt() then
								num[sel][pl] = num[sel][pl] + 1
								msg([[Player ]]..player(id,"name")..[[ voted to kick ]]..player(pl,"name")..[[, ]]..num[sel][pl]..[[/]]..plrt()..[[!]])
								if num[sel][pl] == plrt() then
									parse([[kick ]]..pl)
									num[sel][pl] = 0
								end
							elseif num[sel][pl] == plrt() then
								parse([[kick ]]..pl)
								num[sel][pl] = 0
							end
						end
					elseif sel == 4 then
						if did[sel][pl][id] == false then
							for i = 1,4 do if i ~= sel then did[sel][pl][id] = false end end
							did[sel][pl][id] = true
							if num[sel][pl] ~= plrt() then
								num[sel][pl] = num[sel][pl] + 1
								msg([[Player ]]..player(id,"name")..[[ voted to ban ]]..player(pl,"name")..[[, ]]..num[sel][pl]..[[/]]..plrt()..[[!]])
								if num[sel][pl] == plrt() then
									parse([[banname ]]..pl)
									num[sel][pl] = 0
								end
							elseif num[sel][pl] == plrt() then
								parse([[banname ]]..pl)
								num[sel][pl] = 0
							end
						end
					end
				end
			end
			if sel == 8 then
				pll(id,plni)
			elseif sel == 9 then
				pll2(id,plni)
			end
		end
	end
end
addhook([[say]],[[sayer]])
function sayer(id,txt)
	if mute[id] == true then
		return 1
	end
	if txt == [[vote]] then
		menu(id,[[Vote,Vote Mute,Vote Kill,Vote Kick,Vote Ban]])
		return 1
	elseif txt == [[votemute]] then
		sell[id] = 1
		pl_1(id)
		return 1
	elseif txt == [[votekill]] then
		sell[id] = 2
		pl_1(id)
		return 1
	elseif txt == [[votekick]] then
		sell[id] = 3
		pl_1(id)
		return 1
	elseif txt == [[voteban]] then
		sell[id] = 4
		pl_1(id)
		return 1
	end
end
addhook([[minute]],[[minuter]])
function minuter()
	for _,id in pairs(player(0,"table") do
		if mute[id] = true then
			if mute_time[id] == 3 then
				mute[id] = false
				mute_time[id] = 1
			end
			mute_time[id] = mute_time[id] + 1
		end
	end
end
Little vote script
1 
Offline