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
|
-- RST
-- win_condition_functions.lua
-- ---------------------------
--
-- This script contains functions that are shared by different win conditions.
-- RST
-- .. function:: make_extra_data(plr, name, version[, extra])
--
-- Constructs a string containing information about the win condition.
-- this can e.g be used to inform the meta server about it.
--
-- :arg plr: Player to calculate extra data for
-- :type plr: :class:`~wl.game.Player`
-- :arg name: Name of the win-condition
-- :type name: :class:`string`
-- :arg version: Version the win-condition
-- :type version: :class:`integer`
-- :arg extra: list of other extra arguments that should be passed
-- to the server. They will also be incorporated into the extra string.
-- :type extra: :class:`array`
--
-- :returns: the extra string that can be passed on
function make_extra_data(plr, name, version, extra)
extra = extra or {}
local rv = {
"win_condition=" .. name,
"win_condition_version=" .. version,
"tribe=" .. plr.tribe_name,
}
for k,v in pairs(extra) do
rv[#rv+1] = ("%s=%s"):format(k,v)
end
return table.concat(rv, ";")
end
-- =======================================================================
-- PUBLIC FUNCTIONS
-- =======================================================================
-- RST
-- .. function:: check_player_defeated(plrs, heading, msg)
--
-- Checks whether one of the players in the list was defeated and if yes,
-- removes that player from the list and sends him/her a message.
--
-- :arg plrs: List of Players to be checked
-- :arg heading: Heading of the message the defeated player will get
-- :arg msg: Message the defeated player will get
-- :arg wc_name: Name of the win condition
-- :arg wc_ver: Version of the win condition
--
-- :returns: :const:`nil`
function check_player_defeated(plrs, heading, msg, wc_name, wc_ver)
for idx,p in ipairs(plrs) do
if p.defeated then
p:send_message(heading, msg, { popup = true })
p.see_all = 1
wl.game.report_result(p, false, 0, make_extra_data(p, wc_name, wc_ver))
table.remove(plrs, idx)
break
end
end
end
-- RST
-- .. function:: count_factions(plrs)
--
-- Calculates and returns the number of factions that are still involved in
-- the running game.
-- A faction is a team or an unteamed player.
--
-- :arg plrs: List the players will be saved to
--
-- :returns: the number of factions left in game
function count_factions(plrs)
local factions = 0
local teams = {}
for idx,p in ipairs(plrs) do
local team = p.team
if team == 0 then
factions = factions + 1
else
if not teams[team] then
teams[team] = true
factions = factions + 1
end
end
end
return factions
end
-- RST
-- .. function:: broadcast(plrs, header, msg[, options])
--
-- broadcast a message to all players using
-- :meth:`~wl.game.Player.send_message`. All parameters are passed
-- literally.
function broadcast(plrs, header, msg, goptions)
local options = goptions or {}
for idx, p in ipairs(plrs) do
p:send_message(header, msg, options)
end
end
function broadcast_win(plrs, header, msg, goptions, wc_name, wc_ver)
local options = goptions or {}
for idx, p in ipairs(plrs) do
p:send_message(header, msg, options)
wl.game.report_result(p, true, 0, make_extra_data(p, wc_name, wc_ver))
end
end
|
