Forum

CS2D

Scripts

Equip menu with collect+remove

Forums overview CS2D overview Scripts overview Log in to reply

Equip menu with collect+remove

17 replies

Equip menu with collect+remove

strelok_953
User Off

Offline

10.08.13 01:54:18 pm

Hello all!
Please sorry for my bad English.
I need help with this code-where i can search this?

Collect

Remove
i need make for "Flare" multi functions: (it menu for equip)

Spoiler

and this: (but it 101% not work) i want fix,but i cant,please help me:

Spoiler

if i take item "flare then this item not pickup(in inventory) and just remove and if i buy +10hp then when i pickup flare i have +10 hp, if i buy +30HP then when i take flare i have +30HP and etc.
Thanks you so much!

Re: Equip menu with collect+remove

Rainoth
Moderator Off

Offline

10.08.13 01:58:01 pm

So...
You select how much health you get and you get it only when you pick up a flare ?

Why would you do it like that ? Wouldn't it be more simple to get health straight from menu ?

Re: Equip menu with collect+remove

brofistmsia
User Off

Offline

10.08.13 02:00:20 pm

Sorry, me dunno code...
i need a code for press f for zp flashlight...

download my new mod demo pls:
http://www.unrealsoftware.de/forum_posts.php?post=359050&l#jl

Re: Equip menu with collect+remove

strelok_953
User Off

Offline

11.08.13 08:47:28 am

Raining Mammoths has written

Why would you do it like that ? Wouldn't it be more simple to get health straight from menu ?

Yes,it is easier to receive health directly with the menu.

Raining Mammoths has written

You select how much health you get and you get it only when you pick up a flare ?

Yes,I want to. I made a restaurant where the food is served by flare.

Re: Equip menu with collect+remove

Rainoth
Moderator Off

Offline

11.08.13 01:12:09 pm

The 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

heal = {}

addhook("spawn","mhm")
function mhm(id)
	heal[id]=0
end

addhook("movetile","health_shop")
function health_shop(id,x,y)
	if x == 10 and y == 13 then
		menu(id,"HP equip,small HP{10}|100$,light HP{30}|500$,medium HP{50}|1000$,more HP{75}|3000,Full HP{100}|5000$")
	end
end

addhook("menu","_menuhp")
function _menuhp(id,t,b)
local x = player(id,"tilex")
local y = player(id,"tiley")
local money = player(id,"money")
	if t=="HP equip" then
		if b==1 then
			if money>99 then
				parse("spawnitem 54 "..x.." "..y)
				parse("setmoney "..id.." "..money-100)
				heal[id]=1
			else msg2(id,"©255255255You dont have money!")
			end
		elseif b==2 then
			if money>499 then
				parse("spawnitem 54 "..x.." "..y)
				parse("setmoney "..id.." "..money-500)
				heal[id]=2
			else msg2(id,"©255255255You dont have money!")
			end
		elseif b==3 then
			if money>999 then
				parse("spawnitem 54 "..x.." "..y)
				parse("setmoney "..id.." "..money-1000)
				heal[id]=3
			else msg2(id,"©255255255You dont have money!")
			end
		elseif b==4 then
			if money>2999 then
				parse("spawnitem 54 "..x.." "..y)
				parse("setmoney "..id.." "..money-3000)
				heal[id]=4
			else msg2(id,"©255255255You dont have money!")
			end
		elseif b==5 then
			if money>4999 then
				parse("spawnitem 54 "..x.." "..y)
				parse("setmoney "..id.." "..money-5000)
				heal[id]=5
			else msg2(id,"©255255255You dont have money!")
			end
		end
	end
end

addhook("collect","gethathealth")
function gethathealth(id,item)
local hp = player(id,"health")
	if item==54 then
		if heal[id]==1 then
			parse("sethealth "..id.." "..hp+10)
			heal[id]=0
		elseif heal[id]==2 then
			parse("sethealth "..id.." "..hp+30)
			heal[id]=0
		elseif heal[id]==3 then
			parse("sethealth "..id.." "..hp+50)
			heal[id]=0
		elseif heal[id]==4 then
			parse("sethealth "..id.." "..hp+75)
			heal[id]=0
		elseif heal[id]==5 then
			parse("sethealth "..id.." "..hp+100)
			heal[id]=0
		end
	end
end

I could have shortened it a lot but I guess you wanted it presented in a way so you could understand the code yourself. So there it is. I didn't test it but I believe that it should work.

P.S. I still think that it's a dumb idea to do it by picking up flares... I mean, others can pick up the flare you spawn and then you won't have yours. Well.. Suit yourself.

Re: Equip menu with collect+remove

strelok_953
User Off

Offline

11.08.13 02:51:13 pm

you are right,for you may be stupid,but that is the whole point...
And by the way, if I try to take flare then it just disappears on the floor,but the health i get .
increase in the inventory of the flare is not added.
I hope that this will be so
Thanks you Raining Mammoths! you god!

Re: Equip menu with collect+remove

Rainoth
Moderator Off

Offline

11.08.13 02:59:31 pm

The Code

heal = {}

addhook("spawn","mhm")
function mhm(id)
     heal[id]=0
end

addhook("movetile","health_shop")
function health_shop(id,x,y)
     if x == 10 and y == 13 then
          menu(id,"HP equip,small HP{10}|100$,light HP{30}|500$,medium HP{50}|1000$,more HP{75}|3000,Full HP{100}|5000$")
     end
end

addhook("menu","_menuhp")
function _menuhp(id,t,b)
local x = player(id,"tilex")
local y = player(id,"tiley")
local money = player(id,"money")
     if t=="HP equip" then
          if b==1 then
               if money>99 then
                    parse("spawnitem 54 "..x.." "..y)
                    parse("setmoney "..id.." "..money-100)
                    heal[id]=1
               else msg2(id,"©255255255You dont have money!")
               end
          elseif b==2 then
               if money>499 then
                    parse("spawnitem 54 "..x.." "..y)
                    parse("setmoney "..id.." "..money-500)
                    heal[id]=2
               else msg2(id,"©255255255You dont have money!")
               end
          elseif b==3 then
               if money>999 then
                    parse("spawnitem 54 "..x.." "..y)
                    parse("setmoney "..id.." "..money-1000)
                    heal[id]=3
               else msg2(id,"©255255255You dont have money!")
               end
          elseif b==4 then
               if money>2999 then
                    parse("spawnitem 54 "..x.." "..y)
                    parse("setmoney "..id.." "..money-3000)
                    heal[id]=4
               else msg2(id,"©255255255You dont have money!")
               end
          elseif b==5 then
               if money>4999 then
                    parse("spawnitem 54 "..x.." "..y)
                    parse("setmoney "..id.." "..money-5000)
                    heal[id]=5
               else msg2(id,"©255255255You dont have money!")
               end
          end
     end
end

addhook("collect","gethathealth")
function gethathealth(id,item)
local hp = player(id,"health")
     if item==54 then
		parse("strip "..id.." 54")
          if heal[id]==1 then
               parse("sethealth "..id.." "..hp+10)
               heal[id]=0
          elseif heal[id]==2 then
               parse("sethealth "..id.." "..hp+30)
               heal[id]=0
          elseif heal[id]==3 then
               parse("sethealth "..id.." "..hp+50)
               heal[id]=0
          elseif heal[id]==4 then
               parse("sethealth "..id.." "..hp+75)
               heal[id]=0
          elseif heal[id]==5 then
               parse("sethealth "..id.." "..hp+100)
               heal[id]=0
          end
     end
end

Don't call me stupid. If I give my opinion, it does not make me stupid unless it's ridiculously retarded. The opinion I gave seems to be normal.

Re: Equip menu with collect+remove

strelok_953
User Off

Offline

11.08.13 03:30:49 pm

no no no ! you what??? I will never say that you are stupid!
I mean it can for you is not so interesting what would you prefer another method is more convenient for you!
I badly know English and use translator and as I understood it too bad.
EDIT:
LUA ERROR: sys/lua/hp.lua:21: attempt to perform arithmetic on field '?' (a nil value)

Re: Equip menu with collect+remove

Rainoth
Moderator Off

Offline

11.08.13 06:11:13 pm

strelok_953 has written

LUA ERROR: sys/lua/hp.lua:21: attempt to perform arithmetic on field '?' (a nil value)

Give whole code.

Re: Equip menu with collect+remove

strelok_953
User Off

Offline

11.08.13 06:29:01 pm

here (is your code)

Spoiler

heal = {}

addhook("spawn","mhm")
function mhm(id)
     heal[id]=0
end

addhook("movetile","health_shop")
function health_shop(id,x,y)
     if x == 10 and y == 13 then
          menu(id,"HP equip,small HP{10}|100$,light HP{30}|500$,medium HP{50}|1000$,more HP{75}|3000,Full HP{100}|5000$")
     end
end

addhook("menu","_menuhp")
function _menuhp(id,t,b)
local x = player(id,"tilex")
local y = player(id,"tiley")
local money = player(id,"money")
     if t=="HP equip" then
          if b==1 then
               if money>99 then
                    parse("spawnitem 54 "..x.." "..y)
                    parse("setmoney "..id.." "..money-100)
                    heal[id]=1
               else msg2(id,"©255255255You dont have money!")
               end
          elseif b==2 then
               if money>499 then
                    parse("spawnitem 54 "..x.." "..y)
                    parse("setmoney "..id.." "..money-500)
                    heal[id]=2
               else msg2(id,"©255255255You dont have money!")
               end
          elseif b==3 then
               if money>999 then
                    parse("spawnitem 54 "..x.." "..y)
                    parse("setmoney "..id.." "..money-1000)
                    heal[id]=3
               else msg2(id,"©255255255You dont have money!")
               end
          elseif b==4 then
               if money>2999 then
                    parse("spawnitem 54 "..x.." "..y)
                    parse("setmoney "..id.." "..money-3000)
                    heal[id]=4
               else msg2(id,"©255255255You dont have money!")
               end
          elseif b==5 then
               if money>4999 then
                    parse("spawnitem 54 "..x.." "..y)
                    parse("setmoney "..id.." "..money-5000)
                    heal[id]=5
               else msg2(id,"©255255255You dont have money!")
               end
          end
     end
end

addhook("collect","gethathealth")
function gethathealth(id,item)
local hp = player(id,"health")
     if item==54 then
          parse("strip "..id.." 54")
          if heal[id]==1 then
               parse("sethealth "..id.." "..hp+10)
               heal[id]=0
          elseif heal[id]==2 then
               parse("sethealth "..id.." "..hp+30)
               heal[id]=0
          elseif heal[id]==3 then
               parse("sethealth "..id.." "..hp+50)
               heal[id]=0
          elseif heal[id]==4 then
               parse("sethealth "..id.." "..hp+75)
               heal[id]=0
          elseif heal[id]==5 then
               parse("sethealth "..id.." "..hp+100)
               heal[id]=0
          end
     end
end

Re: Equip menu with collect+remove

Rainoth
Moderator Off

Offline

11.08.13 06:57:13 pm

I meant the whole code.
In my code, line 21 couldn't give that error.

Re: Equip menu with collect+remove

strelok_953
User Off

Offline

11.08.13 07:40:09 pm

if i user only your script[w/o others]then If i take Flare,i dont have + health and flare added to inventory.
If i use your code + my script,[in my script have many menus] then it error

Re: Equip menu with collect+remove

Rainoth
Moderator Off

Offline

11.08.13 07:44:44 pm

That's why I'm asking you to post the whole code, in other words, my script + your script, because the error is probably not mine. I'll check my script a bit later by myself.
Just post WHOLE code for now.

Re: Equip menu with collect+remove

strelok_953
User Off

Offline

11.08.13 07:50:01 pm

I'll send it to you in a PM

Re: Equip menu with collect+remove

Rainoth
Moderator Off

Offline

11.08.13 08:58:38 pm

The 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

heal = {}

addhook("movetile","health_shop")
function health_shop(id,x,y)
     if x == 10 and y == 13 then
          menu(id,"HP equip,small HP{10}|100$,light HP{30}|500$,medium HP{50}|1000$,more HP{75}|3000,Full HP{100}|5000$")
     end
end

addhook("menu","_menuhp")
function _menuhp(id,t,b)
local x = player(id,"tilex")
local y = player(id,"tiley")
local money = player(id,"money")
     if t=="HP equip" then
          if b==1 then
               if money>99 then
                    parse("spawnitem 54 "..x.." "..y)
                    parse("setmoney "..id.." "..money-100)
                    heal[id]=1
               else msg2(id,"©255255255You dont have money!")
               end
          elseif b==2 then
               if money>499 then
                    parse("spawnitem 54 "..x.." "..y)
                    parse("setmoney "..id.." "..money-500)
                    heal[id]=2
               else msg2(id,"©255255255You dont have money!")
               end
          elseif b==3 then
               if money>999 then
                    parse("spawnitem 54 "..x.." "..y)
                    parse("setmoney "..id.." "..money-1000)
                    heal[id]=3
               else msg2(id,"©255255255You dont have money!")
               end
          elseif b==4 then
               if money>2999 then
                    parse("spawnitem 54 "..x.." "..y)
                    parse("setmoney "..id.." "..money-3000)
                    heal[id]=4
               else msg2(id,"©255255255You dont have money!")
               end
          elseif b==5 then
               if money>4999 then
                    parse("spawnitem 54 "..x.." "..y)
                    parse("setmoney "..id.." "..money-5000)
                    heal[id]=5
               else msg2(id,"©255255255You dont have money!")
               end
          end
     end
end

addhook("walkover","gethathealth")
function gethathealth(id,iid,type)
local hp = player(id,"health")
	if type==54 then
          timer(100,"parse","strip "..id.." "..type)
          if heal[id]==1 then
               parse("sethealth "..id.." "..hp+10)
               heal[id]=0
          elseif heal[id]==2 then
               parse("sethealth "..id.." "..hp+30)
               heal[id]=0
          elseif heal[id]==3 then
               parse("sethealth "..id.." "..hp+50)
               heal[id]=0
          elseif heal[id]==4 then
               parse("sethealth "..id.." "..hp+75)
               heal[id]=0
          elseif heal[id]==5 then
               parse("sethealth "..id.." "..hp+100)
               heal[id]=0
          end
     end
end

Tested. Working. If you get an error, it's in your scripts, not mine.

Re: Equip menu with collect+remove

tek69
User Off

Offline

13.08.13 11:55:29 am

nub

Re: Equip menu with collect+remove

Ashelin
BANNED Off

Offline

13.08.13 12:09:07 pm

bun

Re: Equip menu with collect+remove

strelok_953
User Off

Offline

13.08.13 02:02:06 pm

oh thanks you @ user

Rainoth: ! you good))

Thanks!