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 … 210 211 212 … 338 339

Re: Lua Scripts/Questions/Help

Echo-Charlie
User Off

Offline

20.06.10 09:18:22 pm

i will try it

Re: Lua Scripts/Questions/Help

Casper-
User Off

Offline

20.06.10 10:39:22 pm

Guys i need help i want to make in lua script da surprise box from cod5 nazi zombie and i dont know how to do it. Anyone help ?

Re: Lua Scripts/Questions/Help

Homer
User Off

Offline

21.06.10 01:48:43 am

Could you please elaborate as to what you are trying to do Burex?

Re: Lua Scripts/Questions/Help

YellowBanana
BANNED Off

Offline

21.06.10 01:51:24 am

Can't you read english?
He obviously wants to nazi zombies to play jack-in-the-box, oh, and do it with lua!

Re: Lua Scripts/Questions/Help

palomino
User Off

Offline

21.06.10 10:00:29 am

YellowBanana has written

Can't you read english?
He obviously wants to nazi zombies to play jack-in-the-box, oh, and do it with lua!

No, he is trying to get nazi zombies to script stuff while sitting in the box

Re: Lua Scripts/Questions/Help

EngiN33R
Moderator Off

Offline

21.06.10 02:22:11 pm

Hello, me again. I want so that on sayfunc "!exit" sprite will be created at player's position, and when player gets back under the sprite and says another sayfunc like "!enter" he will achieve the sprite that was lying/standing/whatever. How is it possible anyways? Thanks in advance.

fun_fight

texnonikWP
User Off

Offline

21.06.10 07:20:14 pm

HELP ME
why dont working?
Please repair

1
2
3
4
5
6

addhook("spawn","sample.fast.spawn")
function sample.fast.spawn(p)
     if (hit == 1) then 
     parse("enny_knock = 4")
     end
end

Re: Lua Scripts/Questions/Help

TimeQuesT
User Off

Offline

21.06.10 07:27:00 pm

parse("enny_knock = 4")

enny_knock ?
no known command...

and why is this in a spawn hook!?

you know you have to put this in a "hit hook"...

" if (hit == 1) then "

hit?
undefined variable...

Re: Lua Scripts/Questions/Help

texnonikWP
User Off

Offline

21.06.10 08:12:48 pm

Here need to if ID:1 hit ID:2 then ID:2 get back once

1
2
3
4
5
6

addhook("hit","sample.fast.spawn")
	function hit.fast.spawn(p)
	if (hit == 1) then 
	parse("enny_knock = 4")
	end
end

Here need play random sounds in 2 teams.

1
2
3
4
5
6
7
8
9
10
11
12
13

addhook("endround","sample.ut.ending")
function sample.ut.ending()
	if (player(id,"team") == 1) then 
	parse("sv_sound \"WarP0rTal/quake/winsounds/rt"..math.random(1,14)..".wav\"")
	sample.ut.fblood=0
end

addhook("endround","sample.ut.ending")
function sample.ut.ending()
	if (player(id,"team") == 2) then 
	parse("sv_sound \"WarP0rTal/quake/winsounds/rct"..math.random(1,14)..".wav\"")
	sample.ut.fblood=0
end

Re: Lua Scripts/Questions/Help

Echo-Charlie
User Off

Offline

21.06.10 09:55:12 pm

There is a Famas with 25bullets in a clip and i want change bullets to 20 with lua script. IF IT IS POSSIBLE, how can I do that in lua script?

Re: Lua Scripts/Questions/Help

Cure Pikachu
User Off

Offline

21.06.10 11:02:31 pm

Not possible. The only thing you can change for weapons is the damage it can deal.

CS2D Tibia - RPG

RyceR
User Off

Offline

22.06.10 12:59:27 pm

Who can give me mod for map rpg_mapb_4.1?
Thank you in advance!

Re: Lua Scripts/Questions/Help

Casper-
User Off

Offline

22.06.10 10:58:39 pm

Sunny Autumn has written

YellowBanana has written

Can't you read english?
He obviously wants to nazi zombies to play jack-in-the-box, oh, and do it with lua!

No, he is trying to get nazi zombies to script stuff while sitting in the box

yeah but i want to make all 4 maps. that zombie verruckt , shi no numa , der riese and nacht der untoten maps

i did already guns with lua
mostly i think there is supposed to be just like from the bet from tibia mod(if u know what i mean xDD)

Re: Lua Scripts/Questions/Help

Redefinder
User Off

Offline

23.06.10 09:18:40 am

Hello all!
Here I have two scripts, the first one:

1
2
3
4
5
6
7
8
9
10
11
12

weapons={1, 2, 3, 4, 5}
addhook("say","adminsay")
function adminsay(id,txt)
	if (txt=="!equipall" "..id") and 
 	player(id,"usgn") == 29595 then
		if _table.weapons then
for index_of_weapon,wpn in ipairs(_table.weapons) do
parse("equip "..id.." "..wpn)
		end
	end
end
end

Second one:

1
2
3
4
5
6

function adminsay(id,txt)
	if (txt=="!tele" "..id")
	and player(id,"usgn") == 29595 then
parse("setpos "..id.." "..x.." "..y.." ")
	end
end

Now I'll start explaining them.

1.The first one: I need it to when the admin says !equipall <id>, he gives a player(or himself) all the weapons.

2.The second one: Well, what can I say about this? Isn't finished yet. But it's purpose is to teleport a player on the admin's position.

Please help.

PS: Sorry for the messy script, I couldn't get the usgn part in one line.

Re: Lua Scripts/Questions/Help

YellowBanana
BANNED Off

Offline

23.06.10 10:52:49 am

redefinder has written

Hello all!
Here I have two scripts, the first one:

1
2
3
4
5
6
7
8
9
10
11
12

weapons={1, 2, 3, 4, 5}
addhook("say","adminsay")
function adminsay(id,txt)
	if (txt=="!equipall" "..id") and 
 	player(id,"usgn") == 29595 then
		if _table.weapons then
for index_of_weapon,wpn in ipairs(_table.weapons) do
parse("equip "..id.." "..wpn)
		end
	end
end
end

Second one:

1
2
3
4
5
6

function adminsay(id,txt)
	if (txt=="!tele" "..id")
	and player(id,"usgn") == 29595 then
parse("setpos "..id.." "..x.." "..y.." ")
	end
end

I'm baffled with all the errors in the script...

this is how to concatenate strings:

a = "hello ".."world"

so..

1
2
3
4
5

function adminsay(id,txt)
	if(txt=="!tele" and player(id,"usgn")==29595) then
                 parse(string.format("setpos %i %i %i",id,x,y))
        end
end

and the second one:

1
2
3
4
5
6
7
8
9

weapons={1, 2, 3, 4, 5}
addhook("say","adminsay")
function adminsay(id,txt)
     if (txt=="!equipall" and player(id,"usgn") == 29595) then
        for i,wpn in ipairs(weapons) do
               parse("equip "..id.." "..wpn)
        end
     end
end

This is just for giving himself stuff tho..
If you wanna catch the id from the txt, u'll have to use some kind of substring function, or the string libraries by leegao.

Re: Lua Scripts/Questions/Help

Redefinder
User Off

Offline

23.06.10 11:12:51 am

@YellowBanana, Hmph, it doesn't seem to be working, I don't get any error messages though.

Re: Lua Scripts/Questions/Help

KenVo
User Off

Offline

24.06.10 01:49:15 am

I used the car script of weiwen:

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

CARS = {}
CARS_MAXSPEED = 25
CARS_ACCELERATION = function(speed) return speed/2 + 1 end
CARS_DECELERATION = function(speed) return -speed/2 - 1 end
CARS_IMAGEPATH = "gfx/weiwen/car.png"
CARS_PRICE = 10000

if not addmoney then
     function addmoney(id, amount)
          if player(id, 'money') >= amount then
               parse(string.format("setmoney %i %i", id, player(id, 'money') - amount))
               return true
          end
          return false
     end
end

function addcar(x, y)
     table.insert(CARS, {x = x, y = y, speed = 0, image = image(CARS_IMAGEPATH, x, y, 0), rot = 0})
end

function carpos(car, x, y)
     local tilex, tiley = math.floor(car.x/32), math.floor(car.y/32)
     if not tile(tilex, tiley, 'walkable') then
          return false
     end
     for _, id in ipairs(player(0, 'table')) do
          if car.driver and car.driver ~= id and player(id, 'health') > 0 and math.abs(x - player(id, 'x')) < 16 and math.abs(y - player(id, 'y')) < 16 then
               parse(string.format("customkill %i Car %i", car.driver, id))
          end
     end
     car.x, car.y = x, y
     if car.driver then
          parse(string.format("setpos %i %i %i", car.driver, x, y))
     else
          imagepos(car.image, x, y, car.rot)
     end
     return true
end

addhook("ms100", "CARms100")
function CARms100()
     for id, car in pairs(CARS) do
          if car.driver then
               if not player(car.driver, 'exists') or player(car.driver, 'health') <= 0 then
                    car.driver = nil
                    car.speed = math.min(CARS_MAXSPEED, car.speed + CARS_DECELERATION(car.speed))
               else
                    car.rot = player(car.driver, 'rot')
                    car.speed = math.min(CARS_MAXSPEED, car.speed + CARS_ACCELERATION(car.speed))
               end
          elseif car.speed > 0 then
               car.speed = math.min(CARS_MAXSPEED, car.speed + CARS_DECELERATION(car.speed))
          end
          if car.speed > 0 then
               local rot = math.rad(car.rot - 180)
               if not carpos(car, car.x - math.sin(rot)*car.speed, car.y + math.cos(rot)*car.speed) then
                    if car.driver then
                         parse(string.format("customkill %i Car %i", car.driver, car.driver))
                    end
                    freeimage(car.image)
                    parse(string.format("explosion %i %i 128 250 %i", car.x, car.y, car.driver or 0))
                    parse(string.format("effect \"fire\" %i %i 256 128", car.x, car.y))
                    CARS[id] = nil
               end
          end
     end
end

addhook("use", "CARuse")
function CARuse(id,event,data,x,y)
     x, y = player(id, 'x'), player(id, 'y')
     for _, car in pairs(CARS) do
          if not car.driver and math.abs(car.x - x) < 32 and math.abs(car.y - y) < 32 then
               car.speedmod = player(id, 'speedmod')
               parse(string.format("speedmod %i 0", id))
               car.driver = id
               freeimage(car.image)
               car.image = image(CARS_IMAGEPATH, 1, 0, 200+id)
                break
          elseif car.driver == id then
               parse(string.format("speedmod %i %i", id, car.speedmod))
               car.driver = nil
               freeimage(car.image)
               car.image = image(CARS_IMAGEPATH, player(id, 'x'), player(id, 'y'), 0)
                break
          end
     end
end

addhook("die", "CARdie")
function CARdie(id,killer,weapon,x,y)
     x, y = player(id, 'tilex'), player(id, 'tiley')
     for id, car in pairs(CARS) do
          if car.driver == id then
               freeimage(car.image)
               parse(string.format("explosion %i %i 128 250 %i", car.x, car.y, car.driver))
               parse(string.format("effect \"fire\" %i %i 256 128", car.x, car.y))
               CARS[id] = nil
                break
          end
     end
end

local bought, nomoney = "You have bought a car for $" .. CARS_PRICE .. ".", "You do not have enough money to buy a car. ($" .. CARS_PRICE .. ")"
addhook("say", "CARsay")
function CARsay(id,message)
     if message == "!car" then
          if addmoney(id, -CARS_PRICE) then
               addcar(player(id, 'x'), player(id, 'y'))
               msg2(id, bought)
          else
               msg2(id, nomoney)
          end
          return 1
     end
end

My question is how to add more car with simple steps?

Re: Lua Scripts/Questions/Help

HaRe
User Off

Offline

24.06.10 10:28:58 am

Ok, Im trying to do when you throw an Smoke it freeze's the one's it hit.

But i cant get it to work

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

--Weapons--
addhook("projectile","hnsteam_smokecus")
function hnsteam_smokecus(id,weapon,x,y)
  if (weapon==53) then
     		parse('effect "colorsmoke" ' ..x.. ' ' ..y.. ' 140 96 0 0 128')
     		parse('effect "colorsmoke" ' ..x.. ' ' ..y.. ' 140 96 0 0 128')
		return 1
	end
end

addhook("hit","hnsteam_smokefreeze")
function hnsteam_freeze(target,weapon)
  if (weapon==53) then
		parse("speedmod "..target.." -100")
		return 1
	end
end

Re: Lua Scripts/Questions/Help

RAVENOUS
BANNED Off

Offline

24.06.10 11:54:34 am

Could someone make me a fast menu example, for how to work with menus? I don't understand DC's sample at all. Just a little menu which gives out a message if you choose Button1, Button2, etc.

Thanks

Re: Lua Scripts/Questions/Help

TimeQuesT
User Off

Offline

24.06.10 01:45:08 pm

addhook ("say","sages")
function sages(id,txt)
if txt=="menu" then
menu (id,"hallo,hello,moin,huhu")
end
end

this creates a simple menu...

addhook ("menu","meno")
function meno(id,menu,sel)
if menu=="hallo" then
if sel==1 then
msg ("yeah sel1!")
elseif sel==2 then
msg ("yeah sel2!")
elseif sel>=3 and sel<=9 then
msg ("between 3 and 9!")
end

end
end

1 2 … 210 211 212 … 338 339