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 … 174 175 176 … 338 339

Re: Lua Scripts/Questions/Help

SQ
Moderator Off

Offline

13.03.10 07:32:59 pm

Okay, I added some explanations...

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

-- Projectiles Stuff Example --
-- Lua Scripting Tutorial Example

obj = {x = {}, y = {}, rot = {}, img = {}, id = {}} -- Making a table for objects list
-- Object Tables:
-- x & y - possition
-- rot - direction of flying
-- img - table for images
-- id - Owner (player) of object

-- Adding hooks, simple as always!
addhook("always","obj_update") -- Can be used in "ms100" hook
addhook("attack","obj_add")

function obj_remove(id) -- Remove Object Function
	local k, v -- Locals
	if obj.img[id] then freeimage(obj.img[id]) end -- Remove image if it's exists in table
	for k, v in pairs(obj) do table.remove(obj[k], id) end -- Remove all elements of those tables index
	-- k - key
	-- v - index
end

function obj_add(p) -- Add Object Into Map On Attacking
	local x , y, rot , id = player(p,"x"), player(p,"y"), player(p,"rot") -- Locals declaring
	id = image("gfx/sprites/flare2.bmp",x,y,1) -- Loading Image
	imageblend(id, 1) -- Light mode for image
	table.insert(obj.img, id) -- adding obj.imloaded image ID into table
	table.insert(obj.x, x)
	table.insert(obj.y, y)
	table.insert(obj.id, p)
	table.insert(obj.rot, rot) -- dirrection = player rotation
end

function obj_update()
	local del, id, n = {}
	for id, n in pairs(obj.img) do
		obj.x[id] = obj.x[id] + math.cos(math.rad(obj.rot[id] - 90)) * 10 -- updating obj x according direction
		obj.y[id] = obj.y[id] + math.sin(math.rad(obj.rot[id] - 90)) * 10 -- updating obj y according direction
		imagepos(n, obj.x[id], obj.y[id], obj.rot[id]) -- seting new image possition
		if tile( math.ceil(obj.x[id] / 32) - 1, math.ceil(obj.y[id] / 32) - 1, "wall") then -- check for wall colliding
			parse("explosion "..obj.x[id].." "..obj.y[id].." 50 250 "..obj.id[id]) -- explosion
			table.insert(del, id) -- adding object to delete list
		end
	end
	for id, n in ipairs(del) do obj_remove(n) end -- Removing objects from delete list
end

Re: Lua Scripts/Questions/Help

Dictatus Papae
User Off

Offline

13.03.10 11:11:34 pm

Can anyone tell me how to make a credit system that has no limit and shows it on the players screen. Also, if anyone knowas, how can I add the function to it (it's possible, already saw it on servers) , for example if aplayer collects money ($500), then it will add 500 to the normal money, but then take 500 away again (so it will be 0), but add 500 to the credits.

Re: Lua Scripts/Questions/Help

archmage
User Off

Offline

14.03.10 12:55:38 am

Terminator T02 has written

are you saying they should be able to have unlimited money?

Re: Lua Scripts/Questions/Help

CmDark
User Off

Offline

14.03.10 02:59:12 am

Haha....
Terminator T02 is trying to recreate
[CC] RP Server's
lua scripts

Spoiler

Re: Lua Scripts/Questions/Help

Dictatus Papae
User Off

Offline

14.03.10 03:20:38 am

I have an error in this script, and I don't know this one, and I don't know what it means. The error is:

LUA ERROR:sys/lua/samples/Bounty_Hunter_DEMO.lua:61:attemp to index field 'mainmenu' (a function value)

.

I also have a VERY serious problem, what I can't even guess why it happens. The problem is that when I press key 1 (F2), the whole game closes. I hope someone knows how to solve it.

The script is unfinished, but I don't care, I just want to solve the problems.

The code 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
71
72
73
74
75
76
77
78
79
80
81
82

-----------------------------------------------
-- Terminators RP Bounty Hunter DEMO         --
-- A demo for the Bounty Hunter from Ts RP   --
-- By: Terminator                            --
-- Started: 14/03/10                         --
-- Finished: 
-----------------------------------------------
-- Download at:                              --
-- www.FPSBanana.com                         --
-- www.UnrealSoftware.de                     --
-----------------------------------------------
-- www.CS2D.com                              --
-- www.UnrealSoftware.de                     --
-- www.USGN.de                               --
-- www.FPSBanana.com                         --
-----------------------------------------------
if sample==nil then sample={} end
sample.rp={}

-----------------------
-- Initial Setup     --
-----------------------
function initArray(m)
	local array = {}
	for i = 1, m do
		array[i]=0
	end
	return array
end

-----------------------
-- Main Menu         --
----------------------- 
sample.rp.main=initArray(32)
function sample.rp.mainmenu(id)
    menu(id,"Main Menu,Hire Bounty Hunter|Hire,Become Bounty Hunter|License,Bounty Hunter Menu|Items")
end

addhook("team","sample.rp.team")
function sample.rp.team (id,team)
  if (team>0) then
    sample.rp.mainmenu(id)
  end
end

-----------------------
-- Serveractio       --
-----------------------
addhook("serveraction"," sample.rp.serveraction")
function sample.rp.serveraction(id)
  sample.rp.mainmenu(id)
end

-----------------------
-- Select            --
-----------------------
addhook("menu","sample.rp.select")
function sample.rp.select(id,menu,sel)
  if (menu=="Main Menu") then
    if (sel>=0 and sel<=3) then
      sample.rp.mainmenu[id]=sel
    end
  end
end

-----------------------
-- Menus             --
-----------------------
addhook("menu","sample.rp.menu")
function sample.rp.menu(id,t,b)
  if (t=="Main Menu") then
    if (b==1) then
      menu(id,"Hire Menu,Hire to kill|Select Target,Hire to kill BH") else
        if (b==2) then
          menu(id,"Become Bounty Hunter,Buy license|8000") else
            if (b==3) then 
              menu(id,"Bounty Hunter Menu,Buy items|Purchase items,Inventory|Use items")
            end
        end
    end
  end
end

Sorry, but the site put the ends in straight colums, otherwise it wouldn't be like that.

CmDark has written

Haha....
Terminator T02 is trying to recreate
[CC] RP Server's
lua scripts

No, I just think that it's a standard thing for all rps, I'm going to make mine completely different.

edited 2×, last 14.03.10 03:32:06 am

Re: Lua Scripts/Questions/Help

DRoNe
User Off

Offline

14.03.10 10:34:28 am

How i randomize something in lua?

Re: Lua Scripts/Questions/Help

SQ
Moderator Off

Offline

14.03.10 11:00:43 am

math.randomseed() + os.clock()

math.randomseed(os.clock())

math.random()

print(math.random(1100))

Re: Lua Scripts/Questions/Help

goweiwen
User Off

Offline

14.03.10 11:03:51 am

@Terminator
For your money thing, try using another value to store the player's money, serverside. Update it every time the player gets money, and use hudtxt2 to show the value on his screen.

LUA ERROR:sys/lua/samples/Bounty_Hunter_DEMO.lua:61:attemp to index field 'mainmenu' (a function value)

You are trying to index mainmenu, which is a function.
Instead of using mainmenu to store the players' selections, use another table with a different name.

@DRoNE
Use math.random()

math.random(0, 5)

That returns a random number from 0 to 5.

EDIT: ninja'd

Re: Lua Scripts/Questions/Help

DRoNe
User Off

Offline

14.03.10 11:21:32 am

thanks
Can you write me one example?, im begginer

Re: Lua Scripts/Questions/Help

SQ
Moderator Off

Offline

14.03.10 11:33:16 am

I gave you example with print command.

Re: Lua Scripts/Questions/Help

DRoNe
User Off

Offline

14.03.10 11:51:59 am

parse ("sv_sound \"blabla/"[b]..math.random(1,3)..[/b]"\"")

is this good? if i want random sound file of 3 soundifles

Re: Lua Scripts/Questions/Help

SQ
Moderator Off

Offline

14.03.10 12:03:24 pm

Yea, that idea should work.
You should try on your own before asking.

Re: Lua Scripts/Questions/Help

DRoNe
User Off

Offline

14.03.10 12:23:57 pm

:D.
And i need last thing to my script, i don't know write
spawnplayer at T or CT spawn.

Re: Lua Scripts/Questions/Help

SQ
Moderator Off

Offline

14.03.10 12:49:45 pm

Script which loads all T & CT spawns in table.
When do you want to spawn players at spawn base?

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

-- Players Spawn (Table) Script --

blazz = { spawn_t_x = {}, spawn_t_y = {}, spawn_ct_x = {}, spawn_ct_y = {} }

function blazz.load()
	local x, y, name
	for x = 0, map([[xsize]]) do
		for y = 0, map([[ysize]]) do
			if entity(x,y,[[exists]]) then
				name = entity(x,y,[[typename]])
				if name == [[Info_T]] then
					table.insert(blazz.spawn_t_x, x)
					table.insert(blazz.spawn_t_y, y)
				elseif name == [[Info_CT]] then
					table.insert(blazz.spawn_ct_x, x)
					table.insert(blazz.spawn_ct_y, y)
				end
			end
		end
	end
end

blazz.load()

Re: Lua Scripts/Questions/Help

DRoNe
User Off

Offline

14.03.10 01:00:26 pm

yes.

and it here is possible?

parse ("spawnplayer "..id.."..info_ct.."..info_ct")

Re: Lua Scripts/Questions/Help

SQ
Moderator Off

Offline

14.03.10 01:34:15 pm

This script switch T & CT spawn places

That's example how to use those tables.

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

blazz = { spawn_t_x = {}, spawn_t_y = {}, spawn_ct_x = {}, spawn_ct_y = {} }

function blazz.load()
	local x, y, name
	for x = 0, map([[xsize]]) do
		for y = 0, map([[ysize]]) do
			if entity(x,y,[[exists]]) then
				name = entity(x,y,[[typename]])
				if name == [[Info_T]] then
					table.insert(blazz.spawn_t_x, x * 32)
					table.insert(blazz.spawn_t_y, y * 32)
				elseif name == [[Info_CT]] then
					table.insert(blazz.spawn_ct_x, x * 32)
					table.insert(blazz.spawn_ct_y, y * 32)
				end
			end
		end
	end
end

blazz.load()

function blazz.setpos(p) -- Random Terrorists Spawning
	local team, id = player(p,[[team]])
	if team == 2 then
		id = math.random(#blazz.spawn_t_x)
		parse(string.format([[setpos %s %s %s]],p,blazz.spawn_t_x[id],blazz.spawn_t_y[id]))
	elseif team == 1 then
		id = math.random(#blazz.spawn_ct_x)
		parse(string.format([[setpos %s %s %s]],p,blazz.spawn_ct_x[id],blazz.spawn_ct_y[id]))
	end
end

addhook([[spawn]],[[blazz.spawn]])
function blazz.spawn(p)
	blazz.setpos(p)
end

Re: Lua Scripts/Questions/Help

DRoNe
User Off

Offline

14.03.10 04:08:43 pm

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

drspawn = { spawn_t_x = {}, spawn_t_y = {}, spawn_ct_x = {}, spawn_ct_y = {} }

function drspawn.load()
     local x, y, name
     for x = 0, map([[xsize]]) do
          for y = 0, map([[ysize]]) do
               if entity(x,y,[[exists]]) then
                    name = entity(x,y,[[typename]])
                    if name == [[Info_CT]] then
                         table.insert(drspawn.spawn_ct_x, x * 32)
                         table.insert(drspawn.spawn_ct_y, y * 32)
                    end
               end
          end
     end
end

drspawn.load()

function pldie(p)
local team, id = player(p),[[team]])
	if (team==2) then
		if (dr.lifes[id] >= 6) then
			if (player(id,die)) then
				id = math.random(#drspawn.spawn_ct_x)
				parse(string.format([[setpos %s %s %s]],p,drspawn.spawn_ct_x[id],drspawn.spawn_ct_y[id]))
				dr.lifes[id] = dr.lifes[id] - 1
				msg2(id,"©000255000Your lifes : '..dr.lifes[id]..'/4@C")			
			end
		end
	end
end

addhook([[spawn]],[[drspawn.spawn]])
function drspawn.spawn(p)
     drspawn.setpos(p)
end

will this work? i chages your values(blazz) to (drspawn)

i combine your script with my ..

edited 3×, last 14.03.10 06:37:10 pm