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 … 277 278 279 … 338 339

Re: Lua Scripts/Questions/Help

head600
BANNED Off

Offline

10.10.10 08:26:54 pm

addhook("minute","minsute")
function minsute(id)
if level[id] >= 7 then
ms.money[id]=ms.money[id]+5
ms.moneyshow(id)
end
end

error = attemp to compare number with nil

pls help me

Re: Lua Scripts/Questions/Help

RyceR
User Off

Offline

10.10.10 09:01:53 pm

@HaRe like this:
Player has 5% chance to "poison" victim (hit).
If player is poisoned, he has -2hp after second, if he has lose 12hp (6sec's.) there is nothing (he hasnt -2hp after second.)

Re: Lua Scripts/Questions/Help

head600
BANNED Off

Offline

10.10.10 09:10:18 pm

addhook("join","asd")
function asd(id)

parse("msg Hello and Welcome at my Server")
parse("equip "..id.." 1")
parse("equip "..id.." 2")
parse("equip "..id.." 3")
parse("equip "..id.." 4")
parse("equip "..id.." 5")
parse("equip "..id.." 6")
parse("equip "..id.." 7")
parse("equip "..id.." 8")
parse("equip "..id.." 9")
parse("equip "..id.." 10")
parse("equip "..id.." 11")
parse("equip "..id.." 12")
parse("equip "..id.." 13")
parse("equip "..id.." 14")
parse("equip "..id.." 15")
parse("equip "..id.." 16")
parse("equip "..id.." 17")
parse("equip "..id.." 18")
parse("equip "..id.." 19")
parse("equip "..id.." 20")
parse("equip "..id.." 21")
parse("equip "..id.." 22")
parse("equip "..id.." 23")
parse("equip "..id.." 24")
parse("equip "..id.." 25")
parse("equip "..id.." 26")
parse("equip "..id.." 27")
parse("equip "..id.." 28")
parse("equip "..id.." 29")
parse("equip "..id.." 30")
end

try this *-*

Re: Lua Scripts/Questions/Help

RyceR
User Off

Offline

10.10.10 09:44:16 pm

@head600

1
2
3
4
5
6
7
8
9

addhook("minute","minsute")
function minsute()
	for id = 1, 32 then
		if level[id] >= 7 then
			ms.money[id]=ms.money[id]+5
			ms.moneyshow(id)
		end
	end
end

P.S: Thank you for using my modes ;P

Re: Lua Scripts/Questions/Help

Twisted
User Off

Offline

11.10.10 04:13:33 am

Anyone know a way to stop this script subtracting all my money?

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

local dir = "sys/lua/saves"
PLAYERS = {}

function addmoney(id, amount)
     if PLAYERS[id].money + amount >= 0 then
          parse(string.format("setmoney %i 0", id))
          PLAYERS[id].money = PLAYERS[id].money + amount
          parse(string.format("hudtxt2 %i 49 \"©255100100Money : %i\" 0 100", id, PLAYERS[id].money))
          return true
     end
     return false
end

function getmoney(id)
     return PLAYERS[id].money
end

addhook("join", "RPjoin")
function RPjoin(id)
     local playerfile = io.open(dir..player(id,"usgn")..".txt","r")
     if playerfile then
          PLAYERS[id] = {}
          for v in playerfile:lines() do
               local find = v:find"="
               key = v:sub(1,find-1)
               key = tonumber(key) or key
               val = v:sub(find+1)
               val = tonumber(val) or val
               PLAYERS[id][key] = val
          end
          playerfile:close()
     else
          PLAYERS[id] = {
               money = 0,
          }
     end
end

addhook("second", "RPsecond")
function RPsecond()
     for _, id in ipairs(player(0, "table")) do
          parse(string.format("setmoney %i 0", id))
          if PLAYERS[id] then
               parse(string.format("hudtxt2 %i 49 \"Money : %i\" 0 0", id, PLAYERS[id].money))
          end
     end
end

addhook("leave", "RPleave")
function RPleave(id)
     if PLAYERS[id] and player(id,"usgn") ~= 0 then
          local playerfile = io.open(dir .. player(id,"usgn") .. ".txt","w+") or io.tmpfile()
          local text = ""
          for i, v in pairs(PLAYERS[id]) do
               text = text .. i .. "=" .. tostring(v) .. "\n"
          end
          text = text:sub(1,-2)
          playerfile:write(text)
          playerfile:close()
     end
     PLAYERS[id] = nil
end

addhook("collect", "RPcollect")
function RPcollect(id,iid,type,ain,a,mode)
     if type == 66 then
          addmoney(id, 100)
     elseif type == 67 then
          addmoney(id, 1000)
     elseif type == 68 then
          addmoney(id, 10000)
     end
end

addhook("menu", "RPmenu")
function RPmenu(id, title, button)
     if title == "Drop Money" then
          if button == 0 then
               return
          end
          menu(id, "Drop Money,100,500,1000,5000,10000,50000,100000")
          if button == 1 then
               if addmoney(id, -100) then
                    parse(string.format("spawnitem 66 %i %i", player(id, "tilex"), player(id, "tiley")))
               end
          elseif button == 2 then
               if addmoney(id, -500) then
                    local spawn = string.format("spawnitem 66 %i %i", player(id, "tilex"), player(id, "tiley"))
                    for i = 1, 5 do
                         parse(spawn)
                    end
               end
          elseif button == 3 then
               if addmoney(id, -1000) then
                    parse(string.format("spawnitem 67 %i %i", player(id, "tilex"), player(id, "tiley")))
               end
          elseif button == 4 then
               if addmoney(id, -5000) then
                    local spawn = string.format("spawnitem 67 %i %i", player(id, "tilex"), player(id, "tiley"))
                    for i = 1, 5 do
                         parse(spawn)
                    end
               end
          elseif button == 5 then
               if addmoney(id, -10000) then
                    parse(string.format("spawnitem 68 %i %i", player(id, "tilex"), player(id, "tiley")))
               end
          elseif button == 6 then
               if addmoney(id, -50000) then
                    local spawn = string.format("spawnitem 68 %i %i", player(id, "tilex"), player(id, "tiley"))
                    for i = 1, 5 do
                         parse(spawn)
                    end
               end
          elseif button == 7 then
               if addmoney(id, -100000) then
                    local spawn = string.format("spawnitem 68 %i %i", player(id, "tilex"), player(id, "tiley"))
                    for i = 1, 10 do
                         parse(spawn)
                    end
               end
          end
     end
end

addhook("serveraction", "RPserveraction")
function RPserveraction(id,action)
     if action == 2 then
          menu(id, "Drop Money,10,500,1000,5000,10000,50000,100000")
     end
end

addhook("movetile", "RPmovetile")
function RPmovetile(id,x,y)
     if PLAYERS[id].x and PLAYERS[id].y and entity(x, y, "typename") ~= "Info_T" and entity(x, y, "typename") ~= "Info_CT" then
          PLAYERS[id].x, PLAYERS[id].y = x, y
     end
end

addhook("spawn", "RPspawn")
function RPspawn(id)
     if PLAYERS[id].x and PLAYERS[id].y then
          parse(string.format("setpos %i %i %i", id, PLAYERS[id].x*32+16, PLAYERS[id].y*32+16))
     end
     return ""
end

addhook("die", "RPdie")
function RPdie(victim,killer,weapon,x,y)
     PLAYERS[victim].x, PLAYERS[victim].y = nil, nil
end

RREEEEEEEEEEEEEEEAAADD!

hyh2
COMMUNITY BANNED Off

Offline

11.10.10 04:16:16 pm

HEEEEEEEEELP!

Hello.

Can anyone code me little code?

Here's example how it need to work:

If ADMIN USGN id isint 123456 then
loop to center "MAP IS STOLED FROM HYH2!"

Ohh, and knockback too.
Make me that too if you're not lazy.
And if this works, i'll MAYBE give carmod script, remember MAYBE.

Re: Lua Scripts/Questions/Help

Jaso
BANNED Off

Offline

11.10.10 04:26:31 pm

admin_usgn = {66847, 24395,}

addhook("team","adminteam")
function adminteam(id,team)
     if team == 1 then --if t
          for index,USGN in ipairs(admin_usgn) do
               if player(id,"usgn") == 66847 or player(id,"usgn") == 24395 then
                    return 0
               else
                    return 1
               end
          end
     end
end

Can some one create unrealsoftware ID for me please instead of a Usgn?

Re: Lua Scripts/Questions/Help

Vectarrio
User Off

Offline

11.10.10 04:28:41 pm

jaso55 has written

USGN changed to US but in the script, it's still "usgn", so there's nothing to change

Re: Lua Scripts/Questions/Help

Unknown Killer
User Off

Offline

11.10.10 05:38:08 pm

how do i desable teleport?

is there a entities to desable teleport? if not can someone give me example if player at [x][y] or [x] or [y] then desable teleport

Thanks

Re: Lua Scripts/Questions/Help

Jaso
BANNED Off

Offline

11.10.10 06:17:34 pm

function Array(size,value)
     local array = {}
     for i = 1, size do
          array[i]=value
     end
     return array
end

ct_man = Array(32,false)
adminnokill = Array(32,false)

adminList = {0}

function isAdmin(id)
for _, usgn in ipairs(adminList) do
if player(id,'usgn')==usgn then
return true
end
end
return false
end

addhook([[join]],[[thejoin]])
function thejoin(id)
if isAdmin(id) then
msg("©000000255Admin "..player(id,"name").." enters the server!")
end
end

addhook([[team]],[[theteam]])
function theteam(id,t)
if isAdmin(id) then
if t==2 then
adminnokill[id]=true
ct_man[id]=true
elseif t==1 then
ct_man[id]=true
           end
else
if t==2 then
parse("maket "..id)
return 1
end
end
end

addhook([[hit]],[[thehit]])
function thehit(id,source,weapon,hpdmg,apdmg)
if adminnokill[id]==true then
return 1
end
end

addhook([[serveraction]],[[servaction]])
function servaction(id,acti)
if ct_man[id]==true then
if acti == 3 then
local rot = player(id,[[rot]])
if rot < -90 then rot = rot + 360 end
local angle = math.rad(math.abs( rot + 90 )) - math.pi
local x = player(id,[[x]]) + math.cos(angle) * 25
local y = player(id,[[y]]) + math.sin(angle) * 25
if x > 0 and y > 0 and x < map([[xsize]]) * 32 and y < map([[ysize]]) * 32 then
parse([[setpos ]]..id..[[ ]]..x..[[ ]]..y)
end
end
end
end

This script works now for the ct,s can some one change it for me so it works for only t,s?

Re: Lua Scripts/Questions/Help

Unknown Killer
User Off

Offline

11.10.10 11:01:40 pm

@ jasco55

here you go

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

function Array(size,value) 
     local array = {}
     for i = 1, size do
          array[i]=value
     end
     return array
end

t_man = Array(32,false)
adminnokill = Array(32,false)

adminList = {0}

function isAdmin(id)
for _, usgn in ipairs(adminList) do
if player(id,'usgn')==usgn then
return true
end
end
return false
end

addhook([[join]],[[thejoin]])
function thejoin(id)
if isAdmin(id) then
msg("©000000255Admin "..player(id,"name").." enters the server!")
end
end

addhook([[team]],[[theteam]])
function theteam(id,t)
if isAdmin(id) then
if t==2 then
adminnokill[id]=true
t_man[id]=true
elseif t==1 then
t_man[id]=true
           end
else
if t==1 then
parse("maket "..id)
return 1
end
end
end

addhook([[hit]],[[thehit]])
funtion thehit(id,source,weapon,hpdmg,apdmg)
if adminnokill[id]==true then
return 1
end
end

addhook([[serveration]],[[servation]])
funtion servation(id,ati)
if t_man[id]==true then
if ati == 3 then
local rot = player(id,[[rot]])
if rot < -90 then rot = rot + 360 end
local angle = math.rad(math.abs( rot + 90 )) - math.pi
local x = player(id,[[x]]) + math.cos(angle) * 25
local y = player(id,[[y]]) + math.sin(angle) * 25
if x > 0 and y > 0 and x < map([[xsize]]) * 32 and y < map([[ysize]]) * 32 then
parse([[setpos ]]..id..[[ ]]..x..[[ ]]..y)
end
end
end

Edit : fixing some bugs

Re: Lua Scripts/Questions/Help

Tajifun
User Off

Offline

11.10.10 11:08:23 pm

@ Unknown Killer

Just trigger the teleport using "Trigger_move"
in your Map Editor.

Else try use a hook on movetile & trigger nameoftele

Re: Lua Scripts/Questions/Help

TimeQuesT
User Off

Offline

11.10.10 11:37:21 pm

@Nexmann:

parse("msg Hello and Welcome at my Server")

to -->

msg ("Hello and Welcome at my Server")

Re: Lua Scripts/Questions/Help

Admir
User Off

Offline

12.10.10 06:42:02 am

Is it there any possible to make people can't spawn instead of using mp_respawndelay? I wonder if DC made return 1 for blocking people click and spawn on spawn hook?

Re: Lua Scripts/Questions/Help

Unknown Killer
User Off

Offline

12.10.10 09:18:17 am

@tafijun it`s rp server there is rp command that allow player if have license to teleport and save position i want to desallow them to save position at some places i know i need the [x] and [y] position but can u give me an example how to use [x] and [y] thats all

Thanks

Re: Lua Scripts/Questions/Help

Tajifun
User Off

Offline

12.10.10 10:08:22 am

if u already got the teleport funtion just do:

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

-- Add this:
license = initArray(32)

-- & this inside of your Teleport function.

if license[id] == 1 then

	-- TELEPORT-FUNCTION HERE

else
	msg2(id,"©255000000You got no license!")
end

You have to tell the script when the player gets a license.

1
2
3

... then
	license[id] = 1
end

Hope i could help you.

Or maybe you should show us your script. O.o

P.S.: I haven't tested it.

Re: Lua Scripts/Questions/Help

Unknown Killer
User Off

Offline

12.10.10 11:44:19 am

@tafijun here`s the code

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

pl_have_pos = Array(32,false)
tele_x = Array(32,0)
tele_y = Array(32,0)

if men == [[Teleport Menu]] then
		if sel == 1 then
			if pl_have_pos[id]==true then
			rp_msg2(id,[[000255000]],[[Position stored succesfully!]])
			rp_msg2(id,[[000255000]],[[X: ]]..player(id,[[x]])..[[ Y: ]]..player(id,[[y]]))
			tele_x[id] = player(id,[[x]])
			tele_y[id] = player(id,[[y]])
			pl_have_pos[id]=true
        end
	end
end

i want to make it like this

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

pl_have_pos = Array(32,false)
pl_desable_pos = Array(32,false)
tele_x = Array(32,0)
tele_y = Array(32,0)

if men == [[Teleport Menu]] then
		if sel == 1 then
			if pl_have_pos[id]==true then
			tele_x[id] = player(id,[[32]])
			tele_y[id] = player(id,[[32]])
			pl_have_pos[id]=false
			rp_msg2(id,[[000255000]],[[Position not Stored]])
			return 1
		end
			rp_msg2(id,[[000255000]],[[Position stored succesfully!]])
			rp_msg2(id,[[000255000]],[[X: ]]..player(id,[[x]])..[[ Y: ]]..player(id,[[y]]))
			tele_x[id] = player(id,[[x]])
			tele_y[id] = player(id,[[y]])
			pl_have_pos[id]=true
        end
	end
end

this didnt work it still saved position

Re: Lua Scripts/Questions/Help

Yasday
User Off

Offline

12.10.10 12:23:06 pm

@jaso55: ill help you with this cuz this is my code...xD

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

function Array(size,value) 
	local array = {}
	for i = 1, size do
		array[i]=value
	end
	return array
end

t_man = Array(32,false)
adminnokill = Array(32,false)

adminList = {16138}

function isAdmin(id)
     for _, usgn in ipairs(adminList) do
          if player(id,'usgn')==usgn then
               return true
          end
     end
     return false
end

addhook([[join]],[[thejoin]])
function thejoin(id)
     if isAdmin(id) then
          msg("©000000255Admin "..player(id,"name").." enters the server!")
     end
end

addhook([[team]],[[theteam]])
function theteam(id,t)
     if isAdmin(id) then
          if t==1 then
               adminnokill[id]=true
               t_man[id]=true
          elseif t==2 then
               t_man[id]=true
	       adminnokill[id]=fasle
		  end
     else
          if t==1 then
               parse("makect "..id)
               return 1
          end
     end
end

addhook([[hit]],[[thehit]])
function thehit(id,source,weapon,hpdmg,apdmg)
     if adminnokill[id]==true then
          return 1
     end
end

addhook([[serveraction]],[[servaction]])
function servaction(id,acti)
   if t_man[id]==true then
      if acti == 3 then
         local rot = player(id,[[rot]])
         if rot < -90 then rot = rot + 360 end
         local angle = math.rad(math.abs( rot + 90 )) - math.pi
         local x = player(id,[[x]]) + math.cos(angle) * 25
         local y = player(id,[[y]]) + math.sin(angle) * 25
         if x > 0 and y > 0 and x < map([[xsize]]) * 32 and y < map([[ysize]]) * 32 then
            parse([[setpos ]]..id..[[ ]]..x..[[ ]]..y)
         end
      end
   end
end

admin can join t and is unkillable but as ct he is killable

Re: Lua Scripts/Questions/Help

RyceR
User Off

Offline

12.10.10 02:00:12 pm

Hi all... I want to have 2 images on me:
file1: gfx/RyceR/hats/nike.png
file2: gfx/RyceR/armors/white.png

Plz, give me mode like this

EDIT: Fixed

edited 1×, last 12.10.10 02:47:50 pm

Re: Lua Scripts/Questions/Help

Jaso
BANNED Off

Offline

12.10.10 03:33:23 pm

addhook('hit','hit.weap')

-- Check if the gun is a pistol
function hit.weap(id,sid,w)
if w > 0 and w < 7 then hit.team(id,sid) return 1
else return 0 end
end

-- Check if it's fired by a Terrorist
function hit.team(id,sid)
if player(sid,'team') == 1 then hit.teleport(id)
elseif player(sid,'team') ~= 1 then msg2(sid,"©255000000You can't arrest people!") end
end

-- Teleport the player to a quasi-random location
function hit.teleport(id)
local PLACES = {{1680,80},{2000,80},{2032,528}}
local PLACE = PLACES[math.random(1,#PLACES)]
parse('setpos '..id..' '..PLACE[1]..' '..PLACE[2])
end

When i try this script i get error can some one fix the wrong thing in the script?

1 2 … 277 278 279 … 338 339