View/Edit #6099:tell_contents

Switch to edit mode.

1:  contents = fcontents = args[1]
2:  stage = {}
3:  for c in (contents)
4:    if (is_player(c) && !c:isa($project) && (c == this.mike || c in this.on_stage || c in this.mike_q))
5:      contents = setremove(contents, c)
6:    endif
7:  endfor
8:  args[1] = contents
9:  pass(@args)
10: l = length(stage = this.on_stage) == 1
11: if (player in stage)
12:   if (l)
13:     $msg:mtell("u_stage_sing")
14:   else
15:     $msg:mtell("u_stage_plur", setremove(stage, player))
16:   endif
17: elseif (l)
18:   $msg:mtell("stage_sing", @stage)
19: elseif (length(stage) > 1)
20:   $msg:mtell("stage_plur", stage)
21: endif
22: queue = $set_utils:intersection(this.mike_q, fcontents)
23: if (this.mike == player)
24:   $msg:mtell("u_mike")
25:   queue && (length(queue) == 1 ? $msg:mtell("u_q_sing", @queue) | $msg:mtell("u_q_plur", queue))
26: elseif (valid(this.mike))
27:   $msg:mtell("at_mike", this.mike)
28:   queue && (length(queue) == 1 ? $msg:mtell("mike_q_sing", @queue) | $msg:mtell("mike_q_plur", queue))
29: endif

[home | help | who | search | setup | code]