Forum

CS2D

Scripts

some thing wrong

Forums overview CS2D overview Scripts overview Log in to reply

some thing wrong

11 replies

some thing wrong

Kirito2K
User Off

Offline

28.11.13 06:30:28 pm

hi all i have a problem with some lua i'm editing on it but something is wrong i don't know it btw the lua

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

--[[
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

--[[
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

edited 5×, last 05.12.13 01:23:22 pm

Admin/mod comment

The Scripts section is for anything and everything concerning Lua. Moved. /Engi

Re: some thing wrong

Rainoth
Moderator Off

Offline

28.11.13 06:40:37 pm

Tabbed the code.

What I got :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

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

How it should be :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

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)
			end
		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

Re: some thing wrong

Kirito2K
User Off

Offline

28.11.13 06:47:30 pm

it's not work

same thing

WTFF lol

Re: some thing wrong

Rainoth
Moderator Off

Offline

28.11.13 06:54:38 pm

That's because when I tabbed the whole thing, there were like 7 more cases of this.

So I fixed it. I ran it in cs2d and I got no errors.

Next time use code tags and tabs. Will help everyone. Most people won't bother to read through long codes in such a messy manner.

The Code that works

I don't really know if it works cause I didn't insert anything in tables. But I get no errors so...

-- 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
		for _, usgn in ipairs(Premium) do
			if player(id,'usgn') == usgn then
				msg("©100000000"..player(id,"name").." (Premium): "..txt)
				return 1
			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
	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
		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

-- 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)
			end
		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")
			end
		elseif b==2 then
			for _, pl in ipairs(player(0, "tableliving")) do
				parse("changemap aim_fr33kz")
			end
		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

edited 1×, last 28.11.13 07:07:49 pm

Re: some thing wrong

Kirito2K
User Off

Offline

28.11.13 07:02:53 pm

ty i try it and it work but i can't to change map i open the map change then change map to fr33kz or m4a1_deagle .. not changing the error is not in lua it's by me

help another time

Re: some thing wrong

Rainoth
Moderator Off

Offline

28.11.13 07:09:11 pm

Use my code again. There was a spelling of "changemap" as "chnagemap" and I'm not entirely sure if cs2d changes maps if you write '.map' at the end so I just changed it without it" and it definitely runs without the '.map' so better write without it.

P.S. You should note that the words in your script should be spelled as "energy" and "training"

Re: some thing wrong

Kirito2K
User Off

Offline

28.11.13 07:11:59 pm

what you mean i try with .map and without .map >.< i'm

Re: some thing wrong

EngiN33R
Moderator Off

Offline

28.11.13 07:16:54 pm

This line:

parse("chnagemap aim_fr33kz.map")

Should be this:

parse("changemap aim_fr33kz")

Re: some thing wrong

Kirito2K
User Off

Offline

28.11.13 07:22:35 pm

hfff it's not work too .. what the hell

i try to do that not work

Re: some thing wrong

ShouldBeNew
BANNED Off

Offline

28.11.13 08:13:30 pm

How about trying sv_map?

Re: some thing wrong

Rainoth
Moderator Off

Offline

28.11.13 08:39:50 pm

I already told you that your spelling is wrong. Use my code. Unless it's fine if I upload the same crap with one letter changed everytime I reply.

After recent check-up I found another spelling error.

What you should note when making a code :

Tab your code

Check for spelling errors and PLEASE note that "Mapchange" is not the same as "Map change". You call one menu and you check for another. Genius.

Map is a server command, not player, therefore using players table just to change map is useless.

Now use this code.

-- Change the USGN-ID in this "{","}". Example: {1,12,123,1234,12345,123456,1234567,12345678,123456789}
Admins = {15476} -- 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
		for _, usgn in ipairs(Premium) do
			if player(id,'usgn') == usgn then
				msg("©100000000"..player(id,"name").." (Premium): "..txt)
				return 1
			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
	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
		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

-- 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)
			end
		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,"Map change,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
			parse("map aim_m4a1_deagle")
		elseif b==2 then
			parse("map aim_fr33kz")
		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

Edit : I inserted my usgn when testing so don't forget to change it back to yours.

Re: some thing wrong

Kirito2K
User Off

Offline

29.11.13 04:10:47 am

will ty very very much you help me in 2 times in one post lol now i try change map and it work