Forum

CS2D

Scripts

Lua Scripts/Questions/Help

Forums overview CS2D overview Scripts overview Log in to reply

Lua Scripts/Questions/Help

6,770 replies

1 2 … 197 198 199 … 338 339

Re: Lua Scripts/Questions/Help

gabpro
User Off

Offline

02.05.10 10:56:31 pm

@Soja1997
It's here!

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
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

--------------------------------------------------
-- Player Classes Script by Unreal Software     --
-- 28.02.2009 - www.UnrealSoftware.de           --
-- Adds Player Classes to your server           --
-- Edited by : GabPro                           --
--------------------------------------------------
-- INITIAL SETUP     --
-----------------------
function initArray(m)
	local array = {}
	for i = 1, m do
		array[i]=0
	end
	return array
end
job_offer=initArray(32)
jobs_avaible=initArray(7)
function job_offer_menu(id)
	menu(id,"Job Menu,Quit Job,Jobs Offer("..jobs_avaible[1]+jobs_avaible[2]+jobs_avaible[3]+jobs_avaible[4]+jobs_avaible[5]+jobs_avaible[6]+jobs_avaible[7]..")")
end
function job_offer_menu2(id)
	menu(id,"Jobs Offer,Worker("..jobs_avaible[1].."),Miner("..jobs_avaible[2].."),Barman("..jobs_avaible[3].."),Soldier("..jobs_avaible[4].."),Doctor("..jobs_avaible[5].."),Dealer("..jobs_avaible[6].."),Banker("..jobs_avaible[7]..")")
end

-----------------------
-- SERVERACTION      --
-----------------------
addhook("serveraction","job_offer_pressF3")
function job_offer_pressF3(id,action)
	if (action==2) then
		job_offer_menu(id)
	end
end


-----------------------
-- CLASS SELECTION   --
-----------------------
addhook("menu","job_offer_select")
function job_offer_select(id,menu,sel)
	if (menu=="Job Menu") then
		if (sel==1) then
			msg2(id,"You leave your work!@C")
			givework[id]=0
		end
		if (sel==2) then
			job_offer_menu2(id)
		end
	end
	if (menu=="Jobs Offer") then
		if (sel==1) then
			if (jobs_avaible[sel]>=1) or (jobs_avaible[sel]=="inf") then
			msg2(_t2,"©255255255Now you are a Worker!@C")
			givework[id]=1
				if (jobs_avaible[sel]~="inf") then
					jobs_avaible[sel]=jobs_avaible[sel]-1
				end
			else
				msg2(_t2,"©255255255No available!@C")
			end
		end
		if (sel==2) then
			if (jobs_avaible[sel]>=1) or (jobs_avaible[sel]=="inf") then
			msg2(_t2,"©255255255Now you are a Miner!@C")
			givework[id]=2
				if (jobs_avaible[sel]~="inf") then
					jobs_avaible[sel]=jobs_avaible[sel]-1
				end
			else
				msg2(_t2,"©255255255No available!@C")
			end
		end
		if (sel==3) then
			if (jobs_avaible[sel]>=1) or (jobs_avaible[sel]=="inf") then
			msg2(_t2,"©255255255Now you are a Barman!@C")
			givework[id]=3
				if (jobs_avaible[sel]~="inf") then
					jobs_avaible[sel]=jobs_avaible[sel]-1
				end
			else
				msg2(_t2,"©255255255No available!@C")
			end
		end
		if (sel==4) then
			if (jobs_avaible[sel]>=1) or (jobs_avaible[sel]=="inf") then
			msg2(_t2,"©255255255Now you are a Soldier!@C")
			givework[id]=4
				if (jobs_avaible[sel]~="inf") then
					jobs_avaible[sel]=jobs_avaible[sel]-1
				end
			else
				msg2(_t2,"©255255255No available!@C")
			end
		end
		if (sel==5) then
			if (jobs_avaible[sel]>=1) or (jobs_avaible[sel]=="inf") then
			msg2(_t2,"©255255255Now you are a Doctor!@C")
			givework[id]=5
				if (jobs_avaible[sel]~="inf") then
					jobs_avaible[sel]=jobs_avaible[sel]-1
				end
			else
				msg2(_t2,"©255255255No available!@C")
			end
		end
		if (sel==6) then
			if (jobs_avaible[sel]>=1) or (jobs_avaible[sel]=="inf") then
			msg2(_t2,"©255255255Now you are a Dealer!@C")
			givework[id]=6
				if (jobs_avaible[sel]~="inf") then
					jobs_avaible[sel]=jobs_avaible[sel]-1
				end
			else
				msg2(_t2,"©255255255No available!@C")
			end
		end
		if (sel==7) then
			if (jobs_avaible[sel]>=1) or (jobs_avaible[sel]=="inf") then
			msg2(_t2,"©255255255Now you are a Banker!@C")
			givework[id]=7
				if (jobs_avaible[sel]~="inf") then
					jobs_avaible[sel]=jobs_avaible[sel]-1
				end
			else
				msg2(_t2,"©255255255No available!@C")
			end
		end
	end
end


----------------------------------
-- ADMIN COMMAND : AVAIBLE JOBS --
----------------------------------
addhook("say","AdminOffer")
function AdminOffer(id,txt)
	if (player(id,"usgn")==16001 then -- YOUR USGN
		_msg=totable(txt)
		_t1=tostring(_msg[1])
		if (_t1=="!joboffer") then
			_t2=tonumber(_msg[2])
			_t3=tonumber(_msg[3])
			if (_t2 ~= nil) then
				if (_t2>=1) and (_t2<=7) then
					if (_t3 ~= nil)then
						if (_t3>=0) or (_t3=="inf") then
							if (_t3=="inf") then
								jobs_avaible[_t2] = "inf"
							else
								jobs_avaible[_t2] = _t3
							end
						else
							msg2(id,"©255255255Input the Quantity!@C")
							end
					else
						msg2(id,"©255255255Input the Quantity!@C")
						end
				else
					msg2(id,"©255255255".._t2.." is not a valid Work Number!@C")
					end
			else
				msg2(id,"©255255255You need to input the Work Number!@C")
				end
		return 1
		end
	end
end

Command :
!joboffer <Work Number> <Quantity Available>

<Work Number> : 0~7
<Quantity Available> :
0 : No available
1 or more : Quantity Available
inf : Infinite

Enjoy

Spoiler

Re: Lua Scripts/Questions/Help

Soja1997
User Off

Offline

03.05.10 07:56:21 am

O thank you very much. Now I'll be testing
@Edit :
Gapro it does not work. Could you fix it and next time test your scripts

edited 1×, last 03.05.10 08:09:34 am

Hello?

craza424
User Off

Offline

03.05.10 02:00:41 pm

Can anyone make me a admin colour script for more then 1 person, don't matter what colour but blue would be nice. It's for a dedicated server.... BTW I've asked this once and got ignored

Re: Lua Scripts/Questions/Help

Patasuss
User Off

Offline

03.05.10 02:10:34 pm

I am making such a script . YOu can have it when it's finished.

Re: Lua Scripts/Questions/Help

Soja1997
User Off

Offline

03.05.10 02:16:11 pm

who can help me

Re: Lua Scripts/Questions/Help

craza424
User Off

Offline

03.05.10 02:18:53 pm

Patasuss has written

I am making such a script . YOu can have it when it's finished.

Thanks man.

Re: Lua Scripts/Questions/Help

gabpro
User Off

Offline

03.05.10 05:30:42 pm

@Soja1997
I tested it when I finish and it's all ok
Remember to add a new script file and edit the server.lua

Re: Lua Scripts/Questions/Help

Redefinder
User Off

Offline

03.05.10 07:23:03 pm

@craza424,I remember making that script a while ago...

1
2
3
4
5
6
7

addhook("say","adminsay")
function adminsay(id,txt)
	if player(id,"usgn") == YOUR USGN
	msg("©000000255"..player(id,"name").." (Admin): "..txt)
	return 1
	end
end

Re: Lua Scripts/Questions/Help

Patasuss
User Off

Offline

03.05.10 09:12:12 pm

He wants that there can be multiple guys which can speak in color.

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

admins={}

function inTable(tble,val)
	for i=1,#tble do
		if(tble[i]==val) then
			return true
		end
	end
return false
end


function add_admin(uid)
	if(inTable(admins,uid)==false) then
		table.insert(admins,uid)
	end
        print("Admin added")
end

addhook("say","asay")
function asay(id,txt)
	local usgn=player(id,"usgn")
        if(inTable(admins,usgn)==true) then
               msg("©000000255"..(player(id,"name"))..":"..txt)
               return 1
        end
end

Not tested.
To add a admin,
call add_admin(<USGN-ID>)
Replace <USGN-ID> with the usgn-id of the admin.

Re: Lua Scripts/Questions/Help

YellowBanana
BANNED Off

Offline

04.05.10 12:41:15 pm

I made a little mod that everyone can talk in different colors

Press f2 to select a color, or type !color xxxxxxxxx, and u will talk in that color.

Spoiler

--Toa:
--string library by leegao
function string.trim(t)
     t = string.split(t)
     s = ""
     if not t then return end
     for i, v in ipairs(t) do
          s = s.." "..v
     end
     s = string.sub(s, 2)
     return s
end

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

function string.qsplit(t)
     local tab = string.split(t, '"')
     if #tab == 1 then
          return string.split(tab[1])
     end
     local ret = {}
     for i, v in ipairs(tab) do
          if i%2 == 0 then
               table.insert(ret, v)
          else
               v = string.split(v)
               for _i, _v in ipairs(v) do
                    table.insert(ret, _v)
               end
          end
     end
     return ret
end

colormod = {}

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

function createMenu(header, matrix)
	local menuString = header;
	menuString = menuString..", "
	for key, value in ipairs(matrix) do
		menuString = menuString..value.title.." | "..value.color.." ,"
	end
	return menuString
end


colortable = 	{	{title = "red",color="©255000000"},
					{title = "blue",color="©000000255"},
					{title = "green",color = "©000255000"},
					{title = "yellow",color="©255255000"},
					{title = "pink",color="©255000255"},
					{title = "cyan",color="©000255255"},
					{title = "black",color = "©000000000"},
					{title = "white",color = "©255255255"}
				}

colorMenuString = createMenu("Color menu",colortable)

colormod.colors = initArray(32,0)



addhook("serveraction","colormod.serveraction")
function colormod.serveraction(id,action)
	if(action == 1) then -- f2
		menu(id,colorMenuString)
	end
end

addhook("menu","colormod.menu")
function colormod.menu(id,title,button)
	if(title == "Color menu") then
		if(button >=0 and button <=9) then
			colormod.colors[id] = colortable[button].color
		end
	end
end


addhook("say","colormod.say")
function colormod.say(id,txt)
	parses = string.qsplit(txt)

	local cmd = parses[1]
	local color = 0

	if(cmd == "!color") then
		if(parses[2] ~= "") then
			if(string.sub(parses[2],1,1) == "©") then
				colormod.colors[id] = parses[2]
			end
		end
	else
		if(colormod.colors[id] ==0) then
			return 0
		else
			msg(string.format("%s%s: %s",colormod.colors[id],player(id,"name"),txt))
			return 1
		end
	end
end

addhook("join","colormod.join")
function colormod.join(id)
	colormod.colors[id] = 0
end

Re: Lua Scripts/Questions/Help

craza424
User Off

Offline

04.05.10 01:00:41 pm

Patasuss has written

He wants that there can be multiple guys which can speak in color.

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

admins={}

function inTable(tble,val)
	for i=1,#tble do
		if(tble[i]==val) then
			return true
		end
	end
return false
end


function add_admin(uid)
	if(inTable(admins,uid)==false) then
		table.insert(admins,uid)
	end
        print("Admin added")
end

addhook("say","asay")
function asay(id,txt)
	local usgn=player(id,"usgn")
        if(inTable(admins,usgn)==true) then
               msg("©000000255"..(player(id,"name"))..":"..txt)
               return 1
        end
end

Not tested.
To add a admin,
call add_admin(<USGN-ID>)
Replace <USGN-ID> with the usgn-id of the admin.

It doesnt work.........

Re: Lua Scripts/Questions/Help

Kostyan1996
User Off

Offline

04.05.10 03:36:26 pm

Hello All, I need a mod (1gmod.lua 2gmod.lua 3gmod.lua-http://letitbit.net/download/24533.244e9ee789495277fdbf791e7/new_gmod.zip.html) select "items" (press F2). That is to say that when you press F2 to me shows a list of guns, and when you press F3 and F4-nothing.

Re: Lua Scripts/Questions/Help

Amidan
User Off

Offline

04.05.10 07:46:43 pm

Can anyone help me with my first script? It's about regaining HE grenades after a period of time. But it doesn't give me them, idk why

. I checked console, it didin't find any bugs, everything seemed to work. Spoiler:

Can you tell me why it doesn't work? I'd be thankful.

Re: Lua Scripts/Questions/Help

craza424
User Off

Offline

04.05.10 07:57:13 pm

Amidan has written

Can anyone help me with my first script? It's about regaining HE grenades after a period of time. But it doesn't give me them, idk why

. I checked console, it didin't find any bugs, everything seemed to work.

Here. I have a grenade script! (This is no reload too if your good try to get rid of that if u don't want it)

(Sorry it looks wierd I'm not perfect on forums >.>)

EDIT: This is for EVERY grenade not just HE I suppose if you deleted the grenade ID's on that line and just left the HE ID that MIGHT just make it HE, I havn't tryed it but have a go!

Re: Lua Scripts/Questions/Help

Patasuss
User Off

Offline

04.05.10 08:20:50 pm

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

-- No Reload and Unlimited Ammo
--
-- By wUps
--
-- # Creds:
-- 
-- Schinken - For the ground of the first No-reload code.
-- LinuxGuy - For the projecttile code, that got my head to think about grenades.
-- And all that i have forgot.
-- 


wat = "51 52 53 54 72 73 75 76 77 86" -- Grenades

addhook("projectile","noreload1")
function noreload1(p,w)
if (string.find(wat,w)~=nil) then
     parse("equip "..p.." "..w) 
     parse("setweapon "..p.." "..w)
end
end

That's better and works for all on the server

Re: Lua Scripts/Questions/Help

craza424
User Off

Offline

04.05.10 08:54:52 pm

Patasuss has written

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

-- No Reload and Unlimited Ammo
--
-- By wUps
--
-- # Creds:
-- 
-- Schinken - For the ground of the first No-reload code.
-- LinuxGuy - For the projecttile code, that got my head to think about grenades.
-- And all that i have forgot.
-- 


wat = "51 52 53 54 72 73 75 76 77 86" -- Grenades

addhook("projectile","noreload1")
function noreload1(p,w)
if (string.find(wat,w)~=nil) then
     parse("equip "..p.." "..w) 
     parse("setweapon "..p.." "..w)
end
end

That's better and works for all on the server

Lolol we linked the same script!

Re: Lua Scripts/Questions/Help

Redefinder
User Off

Offline

04.05.10 10:37:44 pm

Hello,I'm having trouble with this code,it's job is to make the member's message in white color.
It does that but it doubles the message.
Example:

Spoiler

I returned the hook and it isn't working.

1
2
3
4
5
6
7
8
9
10
11

member_usgn = {41794}

addhook("say","membersay")
function membersay(id,txt)
          for index,USGN in ipairs(member_usgn) do
               if player(id,"usgn") == 41794 then
                 msg("©255255255"..player(id,"name").." [Member]: "..txt)
		 return 1
               end
          end
end

Any help?

Re: Lua Scripts/Questions/Help

Heartless Soldier
User Off

Offline

05.05.10 02:28:02 am

redefinder has written

Hello,I'm having trouble with this code,it's job is to make the member's message in white color.
It does that but it doubles the message.
Example:

Spoiler

I returned the hook and it isn't working.

1
2
3
4
5
6
7
8
9
10
11

member_usgn = {41794}

addhook("say","membersay")
function membersay(id,txt)
          for index,USGN in ipairs(member_usgn) do
               if player(id,"usgn") == 41794 then
                 msg("©255255255"..player(id,"name").." [Member]: "..txt)
		 return 1
               end
          end
end

Any help?

The part of code that you gave us works perfect, you should give us the complete code.

Re: Lua Scripts/Questions/Help

Redefinder
User Off

Offline

05.05.10 01:07:10 pm

@N-B-K,I can't give full code right now.
I just know that when my friend joined the server,the say hook wasn't working properly.

Re: Lua Scripts/Questions/Help

gabpro
User Off

Offline

05.05.10 05:12:19 pm

In "say" the return didn't works for me too...

When I "return 1" in the say hook of my scripts,the message appears =x

What's wrong?It's a error?

edited 1×, last 05.05.10 06:26:03 pm

1 2 … 197 198 199 … 338 339