Forum

CS2D

Scripts

Buy menu in my script

Forums overview CS2D overview Scripts overview Log in to reply

Buy menu in my script

6 replies

Buy menu in my script

EndDead
User Off

Offline

04.07.12 02:37:22 pm

Hey all. am still learning lua so i tried to make a menu where you buy weapons from it for my master lua which i will get it here soon. in the menu you buy special weapons.
The part of buying in my script is:

Spoiler

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

addhook("serveraction","buyweapons")
function buyweapons(id,act)
if act==1 then
menu(id,"Buy,Buy Advance Weapons")
	end
end

addhook("menu","buymenu")
function buymenu(id,title,buton)
if title=="Buy" then
if buton==1 then
menu(id,"Buy,Laser|5000$,Flamethrower|4000$,Rocket Launcher|3500$,Grenade Launcher|3000$,Light Armor|2200$,Armor|2500$")
end
if title=="Buy" then
if buton==1 then
	if player(id,"money")>=5000 then
		parse("equip "..id.." 45")
		msg2(id,"©000255000You successfully bought Laser!@C")
		parse("setmoney "..id.." "..(player(id,"money")-5000))
	else
		msg2(id,"©255000000You have insufficient funds!@C")

end
elseif buton==2 then
	if player(id,"money")>=4000 then
		parse("equip "..id.." 46")
		msg2(id,"©000255000You successfully bought Flamethrower!@C")
		parse("setmoney "..id.." "..(player(id,"money")-4000))
	else
		msg2(id,"©255000000You have insufficient funds!@C")

end
elseif buton==3 then
	if player(id,"money")>=3500 then
		parse("equip "..id.." 48")
		msg2(id,"©000255000You successfully bought Rocket Launcher!@C")
		parse("setmoney "..id.." "..(player(id,"money")-3500))
	else
		msg2(id,"©255000000You have insufficient funds!@C")

end
elseif buton==4 then
	if player(id,"money")>=3000 then
		parse("equip "..id.." 49")
		msg2(id,"©000255000You successfully bought Grenade Launcher!@C")
		parse("setmoney "..id.." "..(player(id,"money")-3000))
	else
		msg2(id,"©255000000You have insufficient funds!@C")

end
elseif buton==5 then
	if player(id,"money")>=2200 then
		parse("equip "..id.." 79")
		msg2(id,"©000255000You successfully bought Light Armor!@C")
		parse("setmoney "..id.." "..(player(id,"money")-2200))
	else
		msg2(id,"©255000000You have insufficient funds!@C")

end
elseif buton==6 then
	if player(id,"money")>=2500 then
		parse("equip "..id.." 80")
		msg2(id,"©000255000You successfully bought Five Seven!@C")
		parse("setmoney "..id.." "..(player(id,"money")-2500))
	else
		msg2(id,"©255000000You have insufficient funds!@C")

end
end
end

Am sure theres a problem with spaces or something.. if you can review it and fix it ill put you in the credits.
Thanks in advance

Re: Buy menu in my script

Avo
User

Offline

04.07.12 02:38:47 pm

Wait, WTF is "Master Lua"

Re: Buy menu in my script

EngiN33R
Moderator Off

Offline

04.07.12 02:43:31 pm

1
2
3
4

if title=="Buy" then
if buton==1 then
menu(id,"Buy,Laser|5000$,Flamethrower|4000$,Rocket Launcher|3500$,Grenade Launcher|3000$,Light Armor|2200$,Armor|2500$")
end

You forgot an end there - it should close every if block.

1
2

end
elseif buton==2 then

You've got an extra end here - elseif doesn't require an end to go before it. This same error is made in every elseif block, so fix all of them.

Other than that, I can't see any serious errors aside from your English.

Re: Buy menu in my script

EndDead
User Off

Offline

04.07.12 02:46:15 pm

Avo has written

Wait, WTF is "Master Lua"

Well i meant that this script i posted was a part of my full lua/script which i have an error/problem in it.

@EngiN33R
Thanks. ill try and give you what i get.

Re: Buy menu in my script

Jynxxx
User Off

Offline

04.07.12 02:54:31 pm

Here you go. Just like Engineer said you were missing end.

Spoiler

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

addhook("serveraction","buyweapons")
function buyweapons(id,act)
	if act==1 then
		menu(id,"Buy,Buy Advance Weapons")
	end
end
addhook("menu","buymenu")
function buymenu(id,title,buton)
	if title=="Buy" then
		if buton==1 then
			menu(id,"Buy,Laser|5000$,Flamethrower|4000$,Rocket Launcher|3500$,Grenade Launcher|3000$,Light Armor|2200$,Armor|2500$")
		end
	end
	if title=="Buy" then
		if buton==1 then
			if player(id,"money")>=5000 then
				parse("equip "..id.." 45")
				msg2(id,"©000255000You successfully bought Laser!@C")
				parse("setmoney "..id.." "..(player(id,"money")-5000))
				else
				msg2(id,"©255000000You have insufficient funds!@C")
			end
		elseif buton==2 then
			if player(id,"money")>=4000 then
				parse("equip "..id.." 46")
				msg2(id,"©000255000You successfully bought Flamethrower!@C")
				parse("setmoney "..id.." "..(player(id,"money")-4000))
				else
				msg2(id,"©255000000You have insufficient funds!@C")
			end
		elseif buton==3 then
			if player(id,"money")>=3500 then
				parse("equip "..id.." 48")
				msg2(id,"©000255000You successfully bought Rocket Launcher!@C")
				parse("setmoney "..id.." "..(player(id,"money")-3500))
				else
				msg2(id,"©255000000You have insufficient funds!@C")
			end
		elseif buton==4 then
			if player(id,"money")>=3000 then
				parse("equip "..id.." 49")
				msg2(id,"©000255000You successfully bought Grenade Launcher!@C")
				parse("setmoney "..id.." "..(player(id,"money")-3000))
				else
				msg2(id,"©255000000You have insufficient funds!@C")
			end
		elseif buton==5 then
			if player(id,"money")>=2200 then
				parse("equip "..id.." 79")
				msg2(id,"©000255000You successfully bought Light Armor!@C")
				parse("setmoney "..id.." "..(player(id,"money")-2200))
				else
				msg2(id,"©255000000You have insufficient funds!@C")
			end
		elseif buton==6 then
			if player(id,"money")>=2500 then
				parse("equip "..id.." 80")
				msg2(id,"©000255000You successfully bought Five Seven!@C")
				parse("setmoney "..id.." "..(player(id,"money")-2500))
				else
				msg2(id,"©255000000You have insufficient funds!@C")
			end
		end
	end
end

Re: Buy menu in my script

Avo
User

Offline

04.07.12 02:57:07 pm

Jynxxx's looks fine.

Re: Buy menu in my script

EndDead
User Off

Offline

04.07.12 02:57:49 pm

Thanks alot JeT and EngiN33R
now i learnt some tips in scripting and fixed my script, btw i spoted a wrong and fixed it but nvm

This thread can be closed. Problem solved.