Forum

CS2D

Scripts

give your points to other player, points system

Forums overview CS2D overview Scripts overview Log in to reply

give your points to other player, points system

9 replies

give your points to other player, points system

KagamineLen OP
User Off

Offline

05.03.13 03:42:20 pm

hello, i want to have help making my points system with save system, but i can't add this fucntions

sent your points to another player

anyway i forgot the error but here is my script

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

killpt = initArray(32)
savestr={}

function readfile(filelocation, linenum) 
	saveline=1
	for line in assert(io.lines(filelocation)) do 
		savestr[saveline]=line
		saveline=saveline+1
	end
	return savestr[linenum]
end

addhook("second","points_hud")
function points_hud()
     for _, i in pairs(player(0,"table")) do
          if player(i,"exists") then
               parse('hudtxt2 '..i..' 3 "©255100000Points: '..killpt[i]..'" 30 130 0')
          end
     end
end

addhook("join","load_points")
function load_points(id)
	if player(id,"usgn") ~= 0 then
		killpt[id] = readfile("sys/lua/Scores/"..player(id,"usgn")..".txt", 1)-1+1
	end
end

addhook("leave","save_points")
function save_points(id)
	if player(id,"usgn") ~= 0 then
		local c = killpt[id]
		SScore = io.open("sys/lua/Scores/"..player(id,"usgn")..".txt", "w")
		SScore:write(""..c.."")
		SScore:close()
	end
    killpt[id] = 0
end

addhook("startround","start")
function start(id)
    for _, i in pairs(player(0,"table")) do
        if player(i,"exists") then
			menu(i,"Buy Menu,Snowball|Points: -2,Air Strike|Points: -3,Molotov Cocktail|Points: -3,Gut Bomb|Points: -2,Chainssaw|Points: -5,Claw|Points: -2,Medikit|Points: -1,Armor|Points: -5,More")
		end
	end
end

addhook("kill","player_kill")
function player_kill(id)
     killpt[id] = killpt[id] + 1.5
end

	if title=="Buy Menu" then
		if button==1 then
			if killpt[id] >= 2 then
				killpt[id] = killpt[id] - 2
				parse("equip "..id.." 75")
				parse("setweapon "..id.." 75")
			else
				msg2(id,"©255000000Error: Insufficient score to buy this item!")
			end
		elseif button==2 then
			if killpt[id] >= 3 then
				killpt[id] = killpt[id] - 3
				parse("equip "..id.." 76")
				parse("setweapon "..id.." 76")
			else
				msg2(id,"©255000000Error: Insufficient score to buy this item!")
			end
		elseif button==3 then
			if killpt[id] >= 3 then
				killpt[id] = killpt[id] - 3
				parse("equip "..id.." 73")
				parse("setweapon "..id.." 73")
			else
				msg2(id,"©255000000Error: Insufficient score to buy this item!")
			end
		elseif button==4 then
			if killpt[id] >= 2 then
				killpt[id] = killpt[id] - 2
				parse("equip "..id.." 86")
				parse("setweapon "..id.." 86")
			else
				msg2(id,"©255000000Error: Insufficient score to buy this item!")
			end
		elseif button==5 then
			if killpt[id] >= 5 then
				killpt[id] = killpt[id] - 5
				parse("equip "..id.." 85")
				parse("setweapon "..id.." 85")
			else
				msg2(id,"©255000000Error: Insufficient score to buy this item!")
			end
		elseif button==6 then
			if killpt[id] >= 2 then
				killpt[id] = killpt[id] - 2
				parse("equip "..id.." 78")
				parse("setweapon "..id.." 78")
			else
				msg2(id,"©255000000Error: Insufficient score to buy this item!")
			end
		elseif button==7 then
			if killpt[id] >= 1 then
				killpt[id] = killpt[id] - 1
				parse("equip "..id.." 64")
			else
				msg2(id,"©255000000Error: Insufficient score to buy this item!")
			end
		elseif button==8 then
			if killpt[id] >= 5 then
				killpt[id] = killpt[id] - 5
				parse("equip "..id.." 80")
			else
				msg2(id,"©255000000Error: Insufficient score to buy this item!")
			end
		elseif button==9 then
			menu(id,"Buy Menu..,Medic Armor|Points: -10,Heavy Armor|Points: -7,Stealth Suit|Points: -9,Laser|Points: -60,RPG|Points: -25,Portal Gun|Points: -10,Flamethrower|Points: -15,Gas Granade|Points: -15")
		end
	end

addhook("menu","usermenu")
function usermenu(id,title,button)
	if title=="Buy Menu.." then
		if button==1 then
			if killpt[id] >= 10 then
				killpt[id] = killpt[id] - 10
				parse("equip "..id.." 82")
			else
				msg2(id,"©255000000Error: Insufficient score to buy this item!")
			end
		elseif button==2 then
			if killpt[id] >= 7 then
				killpt[id] = killpt[id] - 7
				parse("equip "..id.." 81")
			else
				msg2(id,"©255000000Error: Insufficient score to buy this item!")
			end
		elseif button==3 then
			if killpt[id] >= 9 then
				killpt[id] = killpt[id] - 9
				parse("equip "..id.." 84")
			else
				msg2(id,"©255000000Error: Insufficient score to buy this item!")
			end
		elseif button==4 then
			if killpt[id] >= 60 then
				killpt[id] = killpt[id] - 60
				parse("equip "..id.." 45")
				parse("setweapon "..id.." 45")
			else
				msg2(id,"©255000000Error: Insufficient score to buy this item!")
			end
		elseif button==5 then
			if killpt[id] >= 25 then
				killpt[id] = killpt[id] - 25
				parse("equip "..id.." 47")
				parse("setweapon "..id.." 47")
			else
				msg2(id,"©255000000Error: Insufficient score to buy this item!")
			end
		elseif button==6 then
			if killpt[id] >= 10 then
				killpt[id] = killpt[id] - 10
				parse("equip "..id.." 88")
				parse("setweapon "..id.." 88")
			else
				msg2(id,"©255000000Error: Insufficient score to buy this item!")
			end
		elseif button==7 then
			if killpt[id] >= 15 then
				killpt[id] = killpt[id] - 15
				parse("equip "..id.." 46")
				parse("setweapon "..id.." 46")
			else
				msg2(id,"©255000000Error: Insufficient score to buy this item!")
			end
		elseif button==8 then
			if killpt[id] >= 15 then
				killpt[id] = killpt[id] - 15
				parse("equip "..id.." 72")
				parse("setweapon "..id.." 72")
			else
				msg2(id,"©255000000Error: Insufficient score to buy this item!")
			end
		end
	end	
end

addhook("serveraction","help_button")
function help_button(id,action)
	if action == 2 then
		menu(id,"Buy Menu,Snowball|Points: -2,Air Strike|Points: -3,Molotov Cocktail|Points: -3,Gut Bomb|Points: -2,Chainssaw|Points: -5,Claw|Points: -2,Medikit|Points: -1,Armor|Points: -5,More")
	end
end

is there a way to improve this script
i want to add

@givepoints

@setpoints

everytime i try to make this scripts i always go error. so i really need your help guys.

edited 5×, last 06.03.13 06:45:56 pm

Re: give your points to other player, points system

limonata
User Off

Offline

06.03.13 11:49:41 am

u used initArray(32) but i cant see any array fucntion? maybe you should put this:

1
2
3
4
5
6
7

function initArray(m)
 local array = {}
 for i = 1, m do
 array[i]=20
 end
 return array
 end

Re: give your points to other player, points system

KagamineLen OP
User Off

Offline

06.03.13 12:39:13 pm

no i already have that function on the server.lua, that script was actually working, what im asking is what code should i add to put this functions

Quote

@givepoints

@setpoints

edited 2×, last 06.03.13 06:44:07 pm

Re: give your points to other player, points system

limonata
User Off

Offline

06.03.13 01:38:17 pm

I'm making wait

Edit: i couldnt make lol

edited 1×, last 06.03.13 01:51:31 pm

Re: give your points to other player, points system

KagamineLen OP
User Off

Offline

06.03.13 01:57:05 pm

is there someone who can help me, please i really need that script

-edit: never got a change from a people to reply me

edited 2×, last 06.03.13 06:28:38 pm

Re: give your points to other player, points system

Gajos
BANNED Off

Offline

06.03.13 07:11:12 pm

KagamineLen has written

is there someone who can help me, please i really need that script

-edit: never got a change from a people to reply me

Wait man, I am making it.

Re: give your points to other player, points system

KagamineLen OP
User Off

Offline

06.03.13 07:26:25 pm

thank you very much

Re: give your points to other player, points system

Gajos
BANNED Off

Offline

06.03.13 08:05:41 pm

ADD IT TO YOUR SCRIPT:

--=======================--
--== Gajos PL (108942) ==--
--=======================--

Admins = {108942}

--=======================--

c = string.char(169)
point = {}

point.initArray = function(value)
	local array = {}
	for _ = 1,32 do
		array[_] = value
	end
	return array
end

point.ToTable = function(t,match)
	local cmd = {};
	if not match then match = "[^%s]+" end
	for word in string.gmatch(t,match) do
		table.insert(cmd,word)
	end
	return cmd
end

point.bug = function(id,txt)
	msg2(id,c.."200000000Unknown command: "..c.."000255255"..txt)
end

point.noadm = function(id)
	msg2(id,c.."200000000You don't have enough level to do this!")
end

point.noe = function(id)
	msg2(id,c.."200000000This player doesn't exist!")
end

point.isAdmin = function(id)
	for _, i in pairs(Admins) do
		if player(id,"usgn") == i then
			return true
		end
	end
	return false
end

addhook("say","point.say")
point.say = function(id,txt)
	local p = point.ToTable(txt)
	local cmd = string.lower(p[1])
	if txt:sub(1,1) == "@" and txt ~= "rank" then
		if cmd == "@setpoints" then
			if point.isAdmin then
				local pl = tonumber(p[2])
				local points = tonumber(p[3])
				if pl ~= nil and points ~= nil then
					if player(pl,"exists") then
						killpt[id] = points
					else
						noe(id)
					end
				else
					msg2(id,c.."200000000Correct syntax: @setpoints <id> <points>")
				end
			else
				point.noadm(id)
			end
		elseif cmd == "@givepoints" then
			if point.isAdmin then
				local pl = tonumber(p[2])
				local points = tonumber(p[3])
				if pl ~= nil and points ~= nil then
					if player(pl,"exists") then
						killpt[id] = killpt[id] + points
					else
						noe(id)
					end
				else
					msg2(id,c.."200000000Correct syntax: @givepoints <id> <points>")
				end
			else
				point.noadm(id)
			end
		else
			point.bug(id,txt)
		end
		return 1
	end
end

Re: give your points to other player, points system

Dousea
User Off

Offline

07.03.13 07:02:43 am

Didn't tested, maybe works.

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

function totable(t,match)
	local cmd = {}
	if not match then match = "[^%s]+" end
	for word in string.gmatch(t, match) do
		table.insert(cmd, word)
	end 
	return cmd 
end

addhook("say","_say")
function _say(id,txt)
	local parse, pl, pt = totable(txt), tonumber(parse[2]), tonumber(parse[3])
	if string.sub(txt, 1, 10) == "@setpoints" then
		if pl ~= nil and pt ~= nil then
			if player(pl,"exists") then
				if player(pl,"health") > 0 then
					killpt[pl] = pt
				else
					msg2(id,string.char(169).."255000000"..player(pl,"name").." is dead")
				end
			else
				msg2(id,string.char(169).."255000000Player with ID "..pl.." doesn't exist")
			end
		else
			msg2(id,string.char(169).."255000000Command doesn't have right parameters ( @setpoints <id> <points> )")
		end
	elseif string.sub(txt, 1, 11) == "@givepoints" then
		if pl ~= nil and pt ~= nil then
			if player(pl,"exists") then
				if player(pl,"health") > 0 then
					if killpt[id] >= pt then
						killpt[id] = killpt[id] - pt
						killpt[pl] = killpt[pl] + pt
					else
						msg2(id,string.char(169).."255000000You doesn't have more than "..pt.." Kill Points")
					end
				else
					msg2(id,string.char(169).."255000000"..player(pl,"name").." is dead")
				end
			else
				msg2(id,string.char(169).."255000000Player with ID "..pl.." doesn't exist")
			end
		else
			msg2(id,string.char(169).."255000000Command doesn't have right parameters ( @givepoints <id> <points> )")
		end
	end
end

KagamineLen: Well just wrong name.

edited 1×, last 07.03.13 02:22:39 pm

Re: give your points to other player, points system

KagamineLen OP
User Off

Offline

07.03.13 10:34:00 am

Dousea: your script does not work

attempt to index 'global' parser (a nil value)

Gajos: Thank you, now i can give/change player's points

edited 1×, last 07.03.13 01:39:31 pm