Unreal Software

31.03.10 03:54:35 pm

goweiwen
User
Offline Off

This is a script to save money & player's location, also allows players to have any finite amount of money.

Change dir to where you want to save the players' stats.

Use the function addmoney(id, amount) to add/remove money, just negate the amount if you want to remove. If you try to remove an amount that the player doesn't have, it doesn't remove at all and returns false.

Use getmoney(id) to get the player's money.

Spoiler

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

This other script is a car script. Nothing special, but can be implemented into other scripts easily.

Use Use to enter the car, default E. (pun intended)

There is a command, !car, that allows you to buy cars, compatible with the above script. CARS_PRICE is the price of buying a car.

As before, edit CARS_IMAGEPATH for the image path of the car. I'm not going to provide you with one, use Google if you don't have any.

CARS_MAXSPEED is the top speed of cars, in pixels/100ms.

If you want to use this script in yours, you can use the function addcar(x, y), in pixels, to create cars and comment out the say hook.

Spoiler

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

edited 2×, last 03.04.10 09:16:12 am

02.04.10 08:16:50 am

LV
BANNED
Offline Off

woa thx

Lolz!

02.04.10 10:07:04 am

Sleepin
User
Offline Off

Nice script weiwen,this will be helpful for lua scripters or servers.

Gattling Gun

02.04.10 12:20:41 pm

DrPyromatic
User
Offline Off

The Car script is so AWESOME!!!But why i get Money when i buy the car lol?

03.04.10 03:55:18 am

Sleepin
User
Offline Off

I got bad argument #1 to pairs on Car script,can you fix it weiwen?

Gattling Gun

03.04.10 05:02:15 am

goweiwen
User
Offline Off

I don't know where that error came from. Do you have any script that overrides the CARS variable by any chance? If not, try using the updated script, at the first post.

03.04.10 05:42:45 am

Flacko
User
Offline Off

Code:

1

for id, car in pairs(CARS) do

Maybe you should use ipairs instead?

Xecutors.esy.es | This post is licensed under the WTFPL | How to ask for help (Lua)

03.04.10 07:40:33 am

Sleepin
User
Offline Off

Yep,its fixed but it GIVES you money........ How do you fix it???

EDIT:Now money script doesnt work. it says attempt to index field ? (a nil value)

Gattling Gun

03.04.10 09:15:14 am

goweiwen
User
Offline Off

@Flacko
Nope, when cars get destroyed, it creates a hole in the table, so I just use pairs instead.

@banana200000
You need to use it on a dedicated server, it's not going to work if you just run it with a listen server because it uses the join hook. I'm not sure how to get around that.

oops, i realised that the indentation is gone, going to update it again.

03.04.10 09:30:01 am

Sleepin
User
Offline Off

Now its stuck on line 40 attempt to index globel 'PLAYERS' (a nil value)....

Gattling Gun

03.04.10 11:25:04 am

Flacko
User
Offline Off

weiwen has written:

@Flacko
Nope, when cars get destroyed, it creates a hole in the table, so I just use pairs instead.

table.remove?
Maybe it could improve the perfomance...

Xecutors.esy.es | This post is licensed under the WTFPL | How to ask for help (Lua)

03.04.10 04:20:41 pm

goweiwen
User
Offline Off

I had actually wanted to recognise the cars by IDs, but I think I didn't in the end. Anyway, the speed of ipairs is roughly the same as pairs, if I benchmarked them correctly.

edit:
researched a bit, http://www.facepunch.com/showthread.php?p=19526763

03.04.10 11:39:59 pm

Flacko
User
Offline Off

Lol, seems like the for loop wins by fatality

Nice link, btw.

Xecutors.esy.es | This post is licensed under the WTFPL | How to ask for help (Lua)

20.04.10 05:26:21 pm

Szkieletor
User
Offline Off

I want every minute each player on server to get +1000$. I tried to code it myself, but I'm not a scripter... Can you help me with this code? It just don't work.
I put this after hook second(after end of all belonging to that hook)

Code:

1
2
3
4

addhook ("minute", "RPminute")
function RPminute()
addmoney (id, 1000)
end

20.04.10 08:50:53 pm

Jermuk
User
Offline Off

What is id?
You should change it, because there are lots of hooks with parameter "id".
If you want, that everyone gets 1000$ a minute its better to use Global Arrays and connect/disconnect hooks or what is not good programming style, with a for-loop. Start with 1 and count to 32, but this is really bad programming style.

I hope this helped you!

Jermuk aka Dönarmaster

Quote:

Kebab Clan - multigaming since 2011

20.04.10 09:09:37 pm

Flacko
User
Offline Off

Jermuk has written:

What is id?
You should change it, because there are lots of hooks with parameter "id".
If you want, that everyone gets 1000$ a minute its better to use Global Arrays and connect/disconnect hooks or what is not good programming style, with a for-loop. Start with 1 and count to 32, but this is really bad programming style.

Lol?

Global arrays and fucking with hooks just for giving every player 1000$ per minute?

You obviously have to use a loop.

Code:

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

addhook("minute","asd")
function asd()
     local p = function(id)
          if player(id,"exists") then return true end
          return nil
     end
     local give = function(id,ammount)
          local cash = player(id,"money")
          parse("setmoney "..id.." "..(cash+ammount))
     end
     for id=1,32 do
          if p(id) then
               give(id,1000)
          end
     end
end

Xecutors.esy.es | This post is licensed under the WTFPL | How to ask for help (Lua)

21.04.10 01:57:32 pm

Szkieletor
User
Offline Off

I slightly modified it to be compatible with script above(I posted it here to get script compatible with one above, otherwise it should be in Lua scripts help thread) and it works. Thanks.

Spoiler

22.04.10 08:59:53 am

goweiwen
User
Offline Off

Flacko did it right but he wanted to do it with the money system I made.
It can be optimised a lot, too.
You can use the function player(0, 'table') to get a table with all the player ids. player(id, 'exists') also return true/false (iirc) so you do not need a new function to do it.

Code:

1
2
3
4
5
6
7
8
9

addhook("minute","RPminute")
function RPminute()
     for _, id in ipairs(player(0, 'table') do
          if not player(id, 'idle') then
               addmoney(id, 1000)
          end
     end
     --msg('Payday! Everyone gets $1000')
end

Remove the comment if you want it to tell everyone that it is payday.

22.04.10 10:16:52 am

Flacko
User
Offline Off

You should make a local copy of your addmoney function since "getglobal'ing" it would waste some time, especially when you know that you will call it more than one time (loop)

Xecutors.esy.es | This post is licensed under the WTFPL | How to ask for help (Lua)

22.04.10 10:55:07 am

goweiwen
User
Offline Off

Right.
Add this at the top of the script, then.

Code:

1

local addmoney = addmoney

Forum

Scripts useful for RP (money & cars)

Gaming Network

Games

Info

Community