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
251
252
253
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
251
252
253
--[[ Admin Script made by MC_Bowlinghead! Maximum Edit made by Yasday! Problems? Write message at -> USGN 51028(MC_Bowlinghead) English or German only! (NEVER use Translator!) ]]-- -- Change the USGN-ID in this "{","}". Example: {1,12,123,1234,12345,123456,1234567,12345678,123456789} Admins = {120840} -- Every ID is Admin Premium = {} -- Every ID is Premium -- No Teamkill! addhook("kill","NoTeamKill") function NoTeamKill(killer,victim,weapon,x,y) if player(killer,"team") == player(victim,"team") then msg2(killer,"©255000000You killed "..player(victim,"name").." don't do it again!") msg("©255000000"..player(killer,"name").." killed "..player(victim,"name")) end end -- Admin Say addhook("say","adminsay") function adminsay(id,txt) for _, usgn in ipairs(Admins) do if player(id,'usgn') == usgn then msg("©255255255"..player(id,"name").." (Admin): "..txt) return 1 end end for _, usgn in ipairs(Premium) do if player(id,'usgn') == usgn then msg("©100000000"..player(id,"name").." (Premium): "..txt) return 1 end end if player(id,"usgn")>=1 then msg("©100100100"..player(id,"name").." (User): "..txt) return 1 else msg("©000000000"..player(id,"name").." (Non-User): "..txt) return 1 end end addhook("sayteam","adminteamsay") function adminteamsay(id,txt) for _, pl in ipairs(player(0, "table")) do if player(pl, "team") == player(id, "team") and id ~= pl then for _, usgn in ipairs(Admins) do if player(id, 'usgn') == usgn then msg2(pl, "©255255255" .. player(id, "name") .. " (Admin): " .. txt) return 1 end end for _, usgn in ipairs(Premium) do if player(id, 'usgn') == usgn then msg2(pl, "©100000000" .. player(id,"name") .. " (Premium): " ..txt) return 1 end end if player(id, "usgn") > 0 then msg2(pl, "©100100100" .. player(id,"name") .. " (User): " .. txt) return 1 else msg2(pl, "©000000000" .. player(id,"name") .. " (Non-User): " .. txt) return 1 end end end end -- Serveraction for Admin&Premium addhook("serveraction","adminaction") function adminaction(id,b) if b == 1 then for _, usgn in ipairs(Admins) do if player(id,'usgn') == usgn then menu(id,"Admin Menu,Kill every Player|Everyone,Give everyone Energie ,Traning Rounds Menu,Build Options,Restart Round|In 10 Seconds,Mapchange") return 1 end end for _, usgn in ipairs(Premium) do if player(id,'usgn') == usgn then menu(id,"Premium Menu,Buy Menu|Extra Menu") return 1 end end end end -- Menu Settings addhook("menu","adminmenu") function adminmenu(id,t,b) if t=="Admin Menu" then if b==1 then msg("©255000000Everyone dies from the admin!@C") for _, pl in ipairs(player(0, "tableliving")) do parse("killplayer " .. pl) elseif b==2 then menu(id,"Admin Energie,Give everyone +10 Energie,Give everyone +20 Energie,Give everyone +30 Energie, Give everyone +50 Energie, Give everyone +100 Energie,Set HP to 50, Set HP to 10") elseif b==3 then menu(id,"Traning Rounds,M4A1 + AK-47 Round,Knife Round,M3 Round,FN F2000 Round,AWP + SCOUT Round,deadly Round,Mini Round") elseif b==4 then menu(id,"Build Options,Turrets,Dispenser,Supply,Gate Field") elseif b==5 then parse("restartround 10") elseif b==6 then menu(id,"Mapchange,M4A1_Deagle,fr33kz") end 		 elseif t == "Admin Energie" then if type(b) == "number" and b > 0 then if b > 5 then if b == 6 then for _, id in ipairs(player(0, "tableliving")) do parse("sethealth "..id.." 50") end elseif b==7 then for _, id in ipairs(player(0, "tableliving")) do parse("sethealth "..id.." 10") end end else local c = { 10, 20, 30, 50, 100 } for _, id in ipairs(player(0, "tableliving")) do msg("©255000000Your Energy increases by " .. c[b] .. "!") parse('setmaxhealth ' .. id .. ' ' .. player(id, "health") + c[b]) end end end 		 elseif t=="Traning Rounds" then if b==1 then for _, pl in ipairs(player(0, "tableliving")) do parse("strip "..pl) parse("equip "..pl.." 32") parse("equip "..pl.." 30") parse("equip "..pl.." 3") end msg("©255000000M4A1,AK-47 Round!@C") elseif b==2 then for _, pl in ipairs(player(0, "tableliving")) do parse("strip "..pl) parse("equip "..pl.." 50") end msg("©255000000Knife Round!@C") elseif b==3 then for _, pl in ipairs(player(0, "tableliving")) do parse("strip "..pl) parse("equip "..pl.." 10") parse("equip "..pl.." 3") parse("speedmod "..pl.." 5") end msg("©255000000M3 Round!@C") elseif b==4 then for _, pl in ipairs(player(0, "tableliving")) do parse("strip "..pl) parse("equip "..pl.." 91") parse("equip "..pl.." 3") parse("speedmod "..pl.." -5") end msg("©255000000FN F2000 Round!@C") elseif b==5 then for _, pl in ipairs(player(0, "tableliving")) do parse("strip "..pl) parse("equip "..pl.." 35") parse("equip "..pl.." 34") parse("equip "..pl.." 3") end msg("©255000000AWP + SCOUT Round!@C") elseif b==6 then for _, pl in ipairs(player(0, "tableliving")) do parse("strip "..pl) parse("equip "..pl.." 46") parse("equip "..pl.." 47") parse("equip "..pl.." 90") end msg("©255000000deadly Round!@C") elseif b==7 then for _, pl in ipairs(player(0, "tableliving")) do parse("strip "..pl) parse("equip "..pl.." 38") parse("equip "..pl.." 39") parse("equip "..pl.." 6") end msg("©255000000Mini Round!@C") end 		 elseif t=="Build Options" then if b==1 then menu(id,"Turrets,1 Turret,2 Turrets,5 Turrets,10 Turrets,15 Turrets,20 Turrets,30 Turrets,50 Turrets,Unlimit Turrets") elseif b==2 then menu(id,"Dispenser,1 Dispenser,2 Dispenser,5 Dispenser,10 Dispenser,15 Dispenser,20 Dispenser,30 Dispenser,50 Dispenser,Unlimit Dispenser") elseif b==3 then menu(id,"Supply,1 Supply,2 Supply,5 Supply,10 Supply,15 Supply,20 Supply,30 Supply,50 Supply,Unlimit Supply") elseif b==4 then menu(id,"GateField,1 Gate Field,2 Gate Field,5 Gate Field,10 Gate Field,15 Gate Field,20 Gate Field,30 Gate Field,50 Gate Field,Unlimit Gate Field") end 		 elseif t=="Turrets" then if type(b) == "number" and b > 0 then local c = { 1, 2, 5, 10, 15, 20, 30, 50, 9999 } msg("©255000000You can build " .. c[b] .. " Turrets now!") parse('mp_building_limit "turret" ' .. c[b]) end 		 elseif t=="Dispenser" then if type(b) == "number" and b > 0 then local c = { 1, 2, 5, 10, 15, 20, 30, 50, 9999 } msg("©255000000You can build " .. c[b] .. " Dispensers now!") parse('mp_building_limit "dispenser" ' .. c[b]) end 		 elseif t=="Supply" then if type(b) == "number" and b > 0 then local c = { 1, 2, 5, 10, 15, 20, 30, 50, 9999 } msg("©255000000You can build " .. c[b] .. " Supplys now!") parse('mp_building_limit "supply" ' .. c[b]) end 		 elseif t=="GateField" then if type(b) == "number" and b > 0 then local c = { 1, 2, 5, 10, 15, 20, 30, 50, 9999 } msg("©255000000You can build " .. c[b] .. " Gate Fields now!") parse('mp_building_limit "gate field" ' .. c[b]) end elseif t=="Map change" then if b==1 then for _, pl in ipairs(player(0, "tableliving")) do parse("changemap aim_m4a1_deagle.map") end elseif b==2 then for _, pl in ipairs(player(0, "tableliving")) do parse("chnagemap aim_fr33kz.map") end elseif t=="Premium Menu" then if b==1 then menu(id,"Buy Menu,Gas Grenade|3.000$,Shield|3.000$,Chainsaw|6.500$,Wrench|4.500$") end 		 elseif t=="Buy Menu" then local a, c = { 3000, 3000, 6500, 4500 }, { 72, 41, 85, 74 } if type(b) == "number" and b > 0 and b < 5 then if player(id, "money") >= a[b] then msg2(id,"©255000000You bought a " .. itemtype(c[b], "name") .. "!@C") parse("equip " .. id .. " " .. c[b]) parse("setmoney " .. id .. " " .. player(id, "money") - a[b]) end end end end
and it wrote up lua problem ..
this is it :
LUA ERROR: sys/lua/admin-mod.lua:99: 'end' expected (to close 'for' at line 97) near 'elseif'
this is it
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
251
252
253
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
251
252
253
--[[ Admin Script made by MC_Bowlinghead! Maximum Edit made by Yasday! Problems? Write message at -> USGN 51028(MC_Bowlinghead) English or German only! (NEVER use Translator!) ]]-- -- Change the USGN-ID in this "{","}". Example: {1,12,123,1234,12345,123456,1234567,12345678,123456789} Admins = {120840} -- Every ID is Admin Premium = {} -- Every ID is Premium -- No Teamkill! addhook("kill","NoTeamKill") function NoTeamKill(killer,victim,weapon,x,y) if player(killer,"team") == player(victim,"team") then msg2(killer,"©255000000You killed "..player(victim,"name").." don't do it again!") msg("©255000000"..player(killer,"name").." killed "..player(victim,"name")) end end -- Admin Say addhook("say","adminsay") function adminsay(id,txt) for _, usgn in ipairs(Admins) do if player(id,'usgn') == usgn then msg("©255255255"..player(id,"name").." (Admin): "..txt) return 1 end end for _, usgn in ipairs(Premium) do if player(id,'usgn') == usgn then msg("©100000000"..player(id,"name").." (Premium): "..txt) return 1 end end if player(id,"usgn")>=1 then msg("©100100100"..player(id,"name").." (User): "..txt) return 1 else msg("©000000000"..player(id,"name").." (Non-User): "..txt) return 1 end end addhook("sayteam","adminteamsay") function adminteamsay(id,txt) for _, pl in ipairs(player(0, "table")) do if player(pl, "team") == player(id, "team") and id ~= pl then for _, usgn in ipairs(Admins) do if player(id, 'usgn') == usgn then msg2(pl, "©255255255" .. player(id, "name") .. " (Admin): " .. txt) return 1 end end for _, usgn in ipairs(Premium) do if player(id, 'usgn') == usgn then msg2(pl, "©100000000" .. player(id,"name") .. " (Premium): " ..txt) return 1 end end if player(id, "usgn") > 0 then msg2(pl, "©100100100" .. player(id,"name") .. " (User): " .. txt) return 1 else msg2(pl, "©000000000" .. player(id,"name") .. " (Non-User): " .. txt) return 1 end end end end -- Serveraction for Admin&Premium addhook("serveraction","adminaction") function adminaction(id,b) if b == 1 then for _, usgn in ipairs(Admins) do if player(id,'usgn') == usgn then menu(id,"Admin Menu,Kill every Player|Everyone,Give everyone Energie ,Traning Rounds Menu,Build Options,Restart Round|In 10 Seconds,Mapchange") return 1 end end for _, usgn in ipairs(Premium) do if player(id,'usgn') == usgn then menu(id,"Premium Menu,Buy Menu|Extra Menu") return 1 end end end end -- Menu Settings addhook("menu","adminmenu") function adminmenu(id,t,b) if t=="Admin Menu" then if b==1 then msg("©255000000Everyone dies from the admin!@C") for _, pl in ipairs(player(0, "tableliving")) do parse("killplayer " .. pl) elseif b==2 then menu(id,"Admin Energie,Give everyone +10 Energie,Give everyone +20 Energie,Give everyone +30 Energie, Give everyone +50 Energie, Give everyone +100 Energie,Set HP to 50, Set HP to 10") elseif b==3 then menu(id,"Traning Rounds,M4A1 + AK-47 Round,Knife Round,M3 Round,FN F2000 Round,AWP + SCOUT Round,deadly Round,Mini Round") elseif b==4 then menu(id,"Build Options,Turrets,Dispenser,Supply,Gate Field") elseif b==5 then parse("restartround 10") elseif b==6 then menu(id,"Mapchange,M4A1_Deagle,fr33kz") end elseif t == "Admin Energie" then if type(b) == "number" and b > 0 then if b > 5 then if b == 6 then for _, id in ipairs(player(0, "tableliving")) do parse("sethealth "..id.." 50") end elseif b==7 then for _, id in ipairs(player(0, "tableliving")) do parse("sethealth "..id.." 10") end end else local c = { 10, 20, 30, 50, 100 } for _, id in ipairs(player(0, "tableliving")) do msg("©255000000Your Energy increases by " .. c[b] .. "!") parse('setmaxhealth ' .. id .. ' ' .. player(id, "health") + c[b]) end end end elseif t=="Traning Rounds" then if b==1 then for _, pl in ipairs(player(0, "tableliving")) do parse("strip "..pl) parse("equip "..pl.." 32") parse("equip "..pl.." 30") parse("equip "..pl.." 3") end msg("©255000000M4A1,AK-47 Round!@C") elseif b==2 then for _, pl in ipairs(player(0, "tableliving")) do parse("strip "..pl) parse("equip "..pl.." 50") end msg("©255000000Knife Round!@C") elseif b==3 then for _, pl in ipairs(player(0, "tableliving")) do parse("strip "..pl) parse("equip "..pl.." 10") parse("equip "..pl.." 3") parse("speedmod "..pl.." 5") end msg("©255000000M3 Round!@C") elseif b==4 then for _, pl in ipairs(player(0, "tableliving")) do parse("strip "..pl) parse("equip "..pl.." 91") parse("equip "..pl.." 3") parse("speedmod "..pl.." -5") end msg("©255000000FN F2000 Round!@C") elseif b==5 then for _, pl in ipairs(player(0, "tableliving")) do parse("strip "..pl) parse("equip "..pl.." 35") parse("equip "..pl.." 34") parse("equip "..pl.." 3") end msg("©255000000AWP + SCOUT Round!@C") elseif b==6 then for _, pl in ipairs(player(0, "tableliving")) do parse("strip "..pl) parse("equip "..pl.." 46") parse("equip "..pl.." 47") parse("equip "..pl.." 90") end msg("©255000000deadly Round!@C") elseif b==7 then for _, pl in ipairs(player(0, "tableliving")) do parse("strip "..pl) parse("equip "..pl.." 38") parse("equip "..pl.." 39") parse("equip "..pl.." 6") end msg("©255000000Mini Round!@C") end elseif t=="Build Options" then if b==1 then menu(id,"Turrets,1 Turret,2 Turrets,5 Turrets,10 Turrets,15 Turrets,20 Turrets,30 Turrets,50 Turrets,Unlimit Turrets") elseif b==2 then menu(id,"Dispenser,1 Dispenser,2 Dispenser,5 Dispenser,10 Dispenser,15 Dispenser,20 Dispenser,30 Dispenser,50 Dispenser,Unlimit Dispenser") elseif b==3 then menu(id,"Supply,1 Supply,2 Supply,5 Supply,10 Supply,15 Supply,20 Supply,30 Supply,50 Supply,Unlimit Supply") elseif b==4 then menu(id,"GateField,1 Gate Field,2 Gate Field,5 Gate Field,10 Gate Field,15 Gate Field,20 Gate Field,30 Gate Field,50 Gate Field,Unlimit Gate Field") end elseif t=="Turrets" then if type(b) == "number" and b > 0 then local c = { 1, 2, 5, 10, 15, 20, 30, 50, 9999 } msg("©255000000You can build " .. c[b] .. " Turrets now!") parse('mp_building_limit "turret" ' .. c[b]) end elseif t=="Dispenser" then if type(b) == "number" and b > 0 then local c = { 1, 2, 5, 10, 15, 20, 30, 50, 9999 } msg("©255000000You can build " .. c[b] .. " Dispensers now!") parse('mp_building_limit "dispenser" ' .. c[b]) end elseif t=="Supply" then if type(b) == "number" and b > 0 then local c = { 1, 2, 5, 10, 15, 20, 30, 50, 9999 } msg("©255000000You can build " .. c[b] .. " Supplys now!") parse('mp_building_limit "supply" ' .. c[b]) end elseif t=="GateField" then if type(b) == "number" and b > 0 then local c = { 1, 2, 5, 10, 15, 20, 30, 50, 9999 } msg("©255000000You can build " .. c[b] .. " Gate Fields now!") parse('mp_building_limit "gate field" ' .. c[b]) end elseif t=="Map change" then if b==1 then for _, pl in ipairs(player(0, "tableliving")) do parse("changemap aim_m4a1_deagle.map") end elseif b==2 then for _, pl in ipairs(player(0, "tableliving")) do parse("chnagemap aim_fr33kz.map") end elseif t=="Premium Menu" then if b==1 then menu(id,"Buy Menu,Gas Grenade|3.000$,Shield|3.000$,Chainsaw|6.500$,Wrench|4.500$") end elseif t=="Buy Menu" then local a, c = { 3000, 3000, 6500, 4500 }, { 72, 41, 85, 74 } if type(b) == "number" and b > 0 and b < 5 then if player(id, "money") >= a[b] then msg2(id,"©255000000You bought a " .. itemtype(c[b], "name") .. "!@C") parse("equip " .. id .. " " .. c[b]) parse("setmoney " .. id .. " " .. player(id, "money") - a[b]) end end end end
5× editiert, zuletzt 05.12.13 13:23:22