Forum

CS2D

Scripts

[request]need edit code

Forums overview CS2D overview Scripts overview Log in to reply

[request]need edit code

16 replies

[request]need edit code

super123s
User Off

Offline

25.07.11 03:01:25 am

hey guys i have this code in admin.lua

Spoiler

i want to free/arrest for only admin level 2 , 3 so i change it to

Spoiler

and i get error

LUA ERROR:sys/lua/admin.lua:182'end' expected{to close 'function' at line 31.

so i need some help to edit this script

edited 1×, last 25.07.11 03:47:30 am

Re: [request]need edit code

archmage
User Off

Offline

25.07.11 03:15:55 am

tab your code

Re: [request]need edit code

super123s
User Off

Offline

25.07.11 03:49:41 am

i don't know what you say about tab my code?
i'm a newbie i not read tutorial so i don't know what is tab your code

please help me/give me code

here take some cookie : 3 cookie

can you explane for me:how to tab code ?

and i want learn tutorial to making lua mod

Re: [request]need edit code

archmage
User Off

Offline

25.07.11 03:59:27 am

super123s has written

i'm a newbie i not read tutorial

That is the problem. You should read a tut (or book) first

http://www.lua.org/
http://www.lua.org/pil/

You get that error because you forgot to add an end somewhere. Which is easy to fix. If you had tabbed your code.

don't know

super123s
User Off

Offline

25.07.11 04:14:25 am

don't kidding me .men

the tutorial is very bigggggggggg.very much english word
and my english is bad so forget .I never read this tutorial
tutorial >>>>me>>>>>

[very hard to study]
let help me edit it

Re: [request]need edit code

kalis
User Off

Offline

25.07.11 04:22:54 am

@darkbyte
need buy book to read? @ @
i dont know how to learn on lua.org !

Re: [request]need edit code

super123s
User Off

Offline

25.07.11 05:04:18 am

huy guys let help me
don't answer my question>>>>>

i want you help me to edit this code and fix error not this
please help me

Re: [request]need edit code

archmage
User Off

Offline

25.07.11 05:11:34 am

Try this. If it does not work tab your code

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

drop_system_m = 1
tele_sys = 1
Mute_text= 0

function isAdmin(usgn)
local filename = "sys/lua/Admin.txt"
local file = io.open(filename)
if file then
for line in file:lines() do
local parses = totable(line)
if tonumber(parses[1]) ~= nil then
if usgn==tonumber(parses[1]) then
if tonumber(parses[2]) ~= nil then
return tonumber(parses[2])
else
return 1
end
end
end
end
if file ~= nil then
file:close()
end
end
return 0
end

function ParseAdminCommand(id,txt)
local p = totable(txt)
local cmd = tostring(p[1])
if rp_Adminlevel[id]>=2 then
if cmd =="!save" then
if rp_Adminlevel[id]>=3 then
for id = 1,32 do
if player(id,"exists") then
local UsgnID = UsgnIds[id]
if UsgnID > 0 then
SaveUserStat(id,UsgnID)
end
end
end
rp_msg2(id,"000255000","SAVE OK!")
else
admlevelmsg(id)
end
elseif cmd =="!money" then
if rp_Adminlevel[id]>=3 then
local pl = tonumber(p[2])
local money = tonumber(p[3])
if pl ~= nil and money ~= nil then
if player(pl,"exists") then
rp_money[pl]=rp_money[pl]+money
rp_msg2(pl,"000255000",player(id,"name").." Gave you "..money.." of money!")
rp_msg2(id,"000255000","You gave "..money.." to "..player(pl,"name"))
updatehud(pl)
end
end
else
admlevelmsg(id)
end
elseif cmd == "!set" then
if rp_Adminlevel[id]>=2 then
local pl = tonumber(p[2])
local item = tonumber(p[3])
if (pl ~= nil) and (item~=nil) then
if player(pl,"exists") then
Addons[item].FLic[pl]=1
rp_msg2(id,"000255000","You Give "..Addons[item].FName.." Add-ons to "..player(pl,"name"))
rp_msg2(pl,"000255000","You have "..Addons[item].FName.." Add-ons now, F3!")
end
end
else
admlevelmsg(id)
end
elseif cmd == "!remove" then
if rp_Adminlevel[id]>=2 then
local pl = tonumber(p[2])
if pl ~= nil then
if player(pl,"exists") then
InternalFreeImage(pl)
SetAddons(pl,0)
end
end
else
admlevelmsg(id)
end
elseif cmd == "!ban" then
if rp_Adminlevel[id] >=2 then
local pl = tonumber(p[2])
if pl ~= nil then
if player(pl,"exists") then
local ip = player(pl, "ip")
local usgn = player(pl, "usgn")
if ip then
parse("banip "..ip)
end
if usgn then
parse("banusgn "..usgn)
end
end
end
else
admlevelmsg(id)
end
elseif cmd == "!vip" then
if rp_Adminlevel[id] >=2 then
local pl = tonumber(p[2])
if pl ~= nil then
if player(pl,"exists") then
rp_license[pl]=2
rp_msg2(id,"000255000","You Give VIP to "..player(pl,"name"))
rp_msg2(pl,"000255000","You are VIP USER Now")
end
end
else
admlevelmsg(id)
end

elseif cmd =="!arrest" then
if rp_Adminlevel[id] >=2 then
local pl = tonumber(p[2])
local cell = tonumber(p[3])
if pl ~= nil then
if player(pl,"exists") then
if cell == 1 then
parse("setpos "..pl.." "..Config.AP[1][1].." "..Config.AP[1][2])
elseif cell == 2 then
parse("setpos "..pl.." "..Config.AP[2][1].." "..Config.AP[2][2])
elseif cell == 3 then
parse("setpos "..pl.." "..Config.AP[3][1].." "..Config.AP[3][2])
end
rp_arrest[pl]=true
end
end
elseif cmd =="!free" then
if rp_Adminlevel[id] >=2 then
local pl = tonumber(p[2])
if pl ~= nil then
if player(pl,"exists") then
rp_arrest[pl]=false
parse("setpos "..pl.." "..Config.FP[1].." "..Config.FP[2])
end
end

elseif cmd =="!bring" then
local pl = tonumber(p[2])
if pl ~= nil then
if player(pl,"exists") then
parse("setpos "..pl.." "..player(id,"x").." "..player(id,"y"))
else
rp_msg2(id,"255000000","This player does not exist!")
end
end
elseif cmd == "!goto" then
local pl = tonumber(p[2])
if pl ~= nil then
if player(pl,"exists") then
parse("setpos "..id.." "..player(pl,"x").." "..player(pl,"y"))
else
rp_msg2(id,"255000000","This player does not exist!")
end
end
elseif cmd == "!kick" then
if rp_Adminlevel[id] >=2 then
local pl = tonumber(p[2])
if pl ~= nil then
if player(pl,"exists") then
parse("kick "..pl)
end
end
else
rp_msg2(id,"255000000","Unknown Command !")
end
else
admlevelmsg(id)
end
end
end
end

function admlevelmsg(id)
rp_msg2(id,"255000000","You havent privilage to use this function!")
end

Re: [request]need edit code

Apache uwu
User Off

Offline

25.07.11 05:15:15 am

@Dark Byte you have to understand that they have no knowledge of lua, they just stole these scripts and at their state is was not working.

Re: [request]need edit code

Lee
Moderator Off

Offline

25.07.11 05:32:26 am

find all occurrences of this word: function

1
2
3
4
5
6
7
8
9
10
11
12

function xxxxxxx1(...)
code
code
...
end
...
function xxxxxxx1(...)
code
code
...
end
...

and change it to

1
2
3
4
5
6
7
8
9
10
11

function xxxxxxx1(...)
	code
	code
	...
end
...
function xxxxxxx2(...)
	code
	code
	...
end

and then find all occurrences of

1
2
3
4
5
6

if blah blah then
code
code
...
end
...

with

1
2
3
4
5
6

if blah blah then
	code
	code
	...
end
...

and

1
2
3
4
5
6
7
8

if blah blah then
code
...
if blah blah 2 then
more code
end
...
end

with

1
2
3
4
5
6
7
8

if blah blah then
	code
	...
	if blah blah 2 then
		more code
	end
	...
end

and do the same for these kinds of patterns as well.

1
2
3

for ... do
...
end

It's essential that you do this correctly, else you will get errors such as

LUA ERROR:*.lua:n 'end' expected to close 'function' at line n.

Re: [request]need edit code

Apache uwu
User Off

Offline

25.07.11 05:35:10 am

You will get errors because you are not organized with your tabbing. Not because of the tabbing.

You can even put your lua on 1 single line and lua wouldn't even care...however once you have tabbed your code it's much easier to spot somewhere you might have missed an end or misplaced an end.

Re: [request]need edit code

Lee
Moderator Off

Offline

25.07.11 05:38:30 am

shhhh! what he doesn't know won't hurt him

Re: [request]need edit code

super123s
User Off

Offline

25.07.11 05:41:00 am

hey dark byte your code >>>>

LUA ERROR: sys/lua/Admin.lua:183: 'end' expected (to close 'function' at line 28) near '<eof>'

some body help me please

Re: [request]need edit code

Apache uwu
User Off

Offline

25.07.11 05:46:05 am

Hmm I recall solving this problem.

here?

Re: [request]need edit code

super123s
User Off

Offline

25.07.11 05:48:07 am

oh cmonnnnnnnnnnnnnnnnn

let help me don't stay in this topic to >>>>

ok!
help me ! post the code

HERE take it if you want>>>>>>>> cookie

edited 1×, last 25.07.11 06:07:45 am

Re: [request]need edit code

Surplus
User Off

Offline

25.07.11 07:41:48 am

Jeez it sayes there is a end missing is it really so FUCKING HARD!?!

Re: [request]need edit code

super123s
User Off

Offline

25.07.11 10:09:57 am

HELPPPPPPPPPPPPP

Here take some cookie : cookie