Forum

CS2D

Scripts

Menu disappear when not wanted to.

Forums overview CS2D overview Scripts overview Log in to reply

Menu disappear when not wanted to.

13 replies

Menu disappear when not wanted to.

Mami Tomoe
User Off

Offline

27.09.15 08:17:31 am

Couldn't think of a better title

Script:
http://unrealsoftware.de/files_show.php?file=14359

This is a door script thing that has password when you click E on a specific door, I like it but its easy to crack since when you hit the wrong number the menu disappears.

If the menu will disappear you know that is not the password and can start cracking the password easily.

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

--[[
	Password for doors - lock doors on your map!
	By Avobolt (USGN#88318)
]]--
function Array(m, v)
	local T = {}
	for i = 1, m do
		T[i] = v
	end
	return T
end
AnglePosition = function(rot, x, y, factor)
    if rot < -90 then rot = rot + 360 end
    local angle = math.rad(math.abs(rot + 90)) - math.pi
    local x = x + (math.cos(angle) * factor)
    local y = y + (math.sin(angle) * factor)
    return x, y
end

pkl = {}
pkl.Comb = Array(32, { "" , "", {0, 0} } ) -- [  1 ] - password, [  2 ] - inserted password, [3] - position
pkl.Chars = {"1","2","3","4","5","6","7","8","9"} -- up to 9 chars, I was too lazy to unclude inf menus
addhook("use","pkl.HookUse")
pkl.HookUse = function(id)
	local x, y = AnglePosition(player(id, "rot"), player(id, "x"), player(id, "y"), 32)
	x, y = math.floor(x/32), math.floor(y/32)
	local name = entity(x, y, "name")
	if tile(x,y, "entity") and type(entity(x, y, "name")) == "string" and entity(x, y, "name"):sub(1,5) == "lock:" then
		local name = entity(x, y, "name")
		if entity(x, y, "state") == false then
			if #name <= 5 then return end
			pkl.Comb[id][1] = name:sub(6)
			pkl.Comb[id][2] = ""
			pkl.Comb[id][3] = {x, y}
			pkl.OpenMenu(id)
		else
			parse("triggerposition "..x.." "..y)
		end
	end
end
pkl.OpenMenu = function(id, step)
	if not step then step = 1 end
	local x, y = unpack(pkl.Comb[id][3])
	if entity(x, y, "state") == false then
		menu(id, "Lock - step "..step..","..table.concat(pkl.Chars, ","))
	end
end
addhook("menu", "pkl.HookMenu")
pkl.HookMenu = function(id,title,b)
	if title:sub(1, 12) == "Lock - step " then
		if b == "x" or b == 0 then return end
		local step = tonumber(title:sub(13))
		local ch = pkl.Chars[b]
		pkl.Comb[id][2] = pkl.Comb[id][2]..ch
		if #pkl.Comb[id][1] == #pkl.Comb[id][2] then
			parse("triggerposition "..pkl.Comb[id][3][1].." "..pkl.Comb[id][3][2])	
		else
			if pkl.Comb[id][2] == pkl.Comb[id][1]:sub(1, #pkl.Comb[id][2]) then
				parse("sv_sound2 "..id.."\"wpn_select.wav\"")
				pkl.OpenMenu(id, step + 1)
			else
				parse("sv_sound2 "..id.."\"wpn_denyselect.wav\"")
			end
		end
	end
end

I want the menu to stay even if you clicked the wrong number and only check if you were right after you finished all the password steps.

I was about to ask @ user

Avo: (the creator) but his last visit was 4 weeks ago...

Re: Menu disappear when not wanted to.

Talented Doge
User Off

Offline

27.09.15 08:40:00 am

Solution: add a variable to check whether the player has clicked E on the door.

Re: Menu disappear when not wanted to.

Mami Tomoe
User Off

Offline

27.09.15 09:29:04 am

Talented Doge:

What is a variable?

Re: Menu disappear when not wanted to.

Talented Doge
User Off

Offline

27.09.15 10:14:31 am

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

Re: Menu disappear when not wanted to.

Mami Tomoe
User Off

Offline

27.09.15 10:20:38 am

Talented Doge: I couldn't understand that, can you explain me that with a example?

Re: Menu disappear when not wanted to.

Talented Doge
User Off

Offline

27.09.15 10:21:20 am

a = 1

This is an example.

Re: Menu disappear when not wanted to.

Mami Tomoe
User Off

Offline

27.09.15 11:34:34 am

Talented Doge: Oh, how to use it?

Re: Menu disappear when not wanted to.

Talented Doge
User Off

Offline

27.09.15 01:46:54 pm

Write it. Done.

Re: Menu disappear when not wanted to.

Nekomata
User Off

Offline

27.09.15 06:24:21 pm

A variable is basically a box stored in your computer's memory. You can name that box and assign a value to it. For example, I'll make a box called 'myName' and assign my name to it.

myName = "Nighthawk"

Now, 'myName' is a variable. Whenever I call 'myName', like this:

print(myName)

I'll get this as a result/output:

Nighthawk

I can even change the value of the variable:

myName = "I need milk"

So now, the result would be:

I need milk

You can assign a name/value to any variable. Variables always starts from a letter.
It can be this:

lolwut1234 = "asdf"

But It can never be this:

1234lolwut = "asdf"

Starkkz has a pretty nice tutorial for LUA here. He explained it way better than me, so have a look at that.

Re: Menu disappear when not wanted to.

Mami Tomoe
User Off

Offline

28.09.15 01:19:07 am

@Nighthawk
Oh I think I saw it few times in scripts!
What to do to make the menu not disappear though?

Re: Menu disappear when not wanted to.

Nekomata
User Off

Offline

28.09.15 02:24:37 am

I am not exactly familiar with the script and I've edited a single line on a whim. Try this:

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

addhook("menu", "pkl.HookMenu")
pkl.HookMenu = function(id,title,b)
     if title:sub(1, 12) == "Lock - step " then
          if b == "x" or b == 0 then return end
          local step = tonumber(title:sub(13))
          local ch = pkl.Chars[b]
          pkl.Comb[id][2] = pkl.Comb[id][2]..ch
          if #pkl.Comb[id][1] == #pkl.Comb[id][2] then
               parse("triggerposition "..pkl.Comb[id][3][1].." "..pkl.Comb[id][3][2])     
          else
               if pkl.Comb[id][2] == pkl.Comb[id][1]:sub(1, #pkl.Comb[id][2]) then
                    parse("sv_sound2 "..id.."\"wpn_select.wav\"")
                    pkl.OpenMenu(id, step + 1)
               else
                    parse("sv_sound2 "..id.."\"wpn_denyselect.wav\"")
		   	 pkl.OpenMenu(id) --This should make it work
               end
          end
     end
end

Complete thing

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

--[[
     Password for doors - lock doors on your map!
     By Avobolt (USGN#88318)
]]--
function Array(m, v)
     local T = {}
     for i = 1, m do
          T[i] = v
     end
     return T
end
AnglePosition = function(rot, x, y, factor)
    if rot < -90 then rot = rot + 360 end
    local angle = math.rad(math.abs(rot + 90)) - math.pi
    local x = x + (math.cos(angle) * factor)
    local y = y + (math.sin(angle) * factor)
    return x, y
end

pkl = {}
pkl.Comb = Array(32, { "" , "", {0, 0} } ) -- [  1 ] - password, [  2 ] - inserted password, [3] - position
pkl.Chars = {"1","2","3","4","5","6","7","8","9"} -- up to 9 chars, I was too lazy to unclude inf menus
addhook("use","pkl.HookUse")
pkl.HookUse = function(id)
     local x, y = AnglePosition(player(id, "rot"), player(id, "x"), player(id, "y"), 32)
     x, y = math.floor(x/32), math.floor(y/32)
     local name = entity(x, y, "name")
     if tile(x,y, "entity") and type(entity(x, y, "name")) == "string" and entity(x, y, "name"):sub(1,5) == "lock:" then
          local name = entity(x, y, "name")
          if entity(x, y, "state") == false then
               if #name <= 5 then return end
               pkl.Comb[id][1] = name:sub(6)
               pkl.Comb[id][2] = ""
               pkl.Comb[id][3] = {x, y}
               pkl.OpenMenu(id)
          else
               parse("triggerposition "..x.." "..y)
          end
     end
end
pkl.OpenMenu = function(id, step)
     if not step then step = 1 end
     local x, y = unpack(pkl.Comb[id][3])
     if entity(x, y, "state") == false then
          menu(id, "Lock - step "..step..","..table.concat(pkl.Chars, ","))
     end
end
addhook("menu", "pkl.HookMenu")
pkl.HookMenu = function(id,title,b)
     if title:sub(1, 12) == "Lock - step " then
          if b == "x" or b == 0 then return end
          local step = tonumber(title:sub(13))
          local ch = pkl.Chars[b]
          pkl.Comb[id][2] = pkl.Comb[id][2]..ch
          if #pkl.Comb[id][1] == #pkl.Comb[id][2] then
               parse("triggerposition "..pkl.Comb[id][3][1].." "..pkl.Comb[id][3][2])     
          else
               if pkl.Comb[id][2] == pkl.Comb[id][1]:sub(1, #pkl.Comb[id][2]) then
                    parse("sv_sound2 "..id.."\"wpn_select.wav\"")
                    pkl.OpenMenu(id, step + 1)
               else
                    parse("sv_sound2 "..id.."\"wpn_denyselect.wav\"")
			pkl.OpenMenu(id)
               end
          end
     end
end

Re: Menu disappear when not wanted to.

Mami Tomoe
User Off

Offline

28.09.15 03:57:55 am

Nekomata: It works but even if you click the wrong password it will open the door, I need it to check the password only on the last key.

Edit: >>>A LINK<<<
P.S. Ignore my name in the video, it was meant to give this name to a Bot but I used new game so it changed my name instead.

edited 1×, last 28.09.15 04:08:08 am

Re: Menu disappear when not wanted to.

tontonEd
User Off

Offline

28.09.15 08:30:59 am

line 55 - the object is tringgered if the both filed have the same lenght, whereas it should be tringgered if both field have the same password.

I won't post code since that would certainly doesn't work without tests in game. gl

+
line 28 : tile(x,y, "entity") return int
if int and X => X

line 51 : b == "x" return false
if false or X => X

edited 1×, last 28.09.15 10:31:15 am

Re: Menu disappear when not wanted to.

Mami Tomoe
User Off

Offline

28.09.15 02:29:22 pm

tontonEd: Can you put it in the code for me? I don't know if to replace these lines or just add them, and if add them than under the original code or above it?