| … | |
… | |
| 19 | my ($ns, $args) = @_; |
19 | my ($ns, $args) = @_; |
| 20 | |
20 | |
| 21 | # run through the cmds of setup |
21 | # run through the cmds of setup |
| 22 | # syntax is setup <cmdname1> <parameter> <cmdname2> <parameter> ... |
22 | # syntax is setup <cmdname1> <parameter> <cmdname2> <parameter> ... |
| 23 | # |
23 | # |
| 24 | # we send the status of the cmd back, or a FALSE is the cmd is the server unknown |
24 | # we send the status of the cmd back, or a FALSE is the cmd if the server unknown |
| 25 | # The client then must sort this out |
25 | # the client then must sort this out |
| 26 | |
26 | |
| 27 | my %setup = split / +/, $args; |
27 | my %setup = split / +/, $args; |
| 28 | while (my ($k, $v) = each %setup) { |
28 | while (my ($k, $v) = each %setup) { |
| 29 | if ($k eq "sound") { |
29 | if ($k eq "sound") { |
| 30 | $ns->sound ($v); |
30 | $ns->sound ($v); |
| … | |
… | |
| 109 | $setup{map1acmd} = 1; |
109 | $setup{map1acmd} = 1; |
| 110 | $setup{map1cmd} = 0; |
110 | $setup{map1cmd} = 0; |
| 111 | $setup{msg} = 1; |
111 | $setup{msg} = 1; |
| 112 | $setup{newmapcmd} = 1; |
112 | $setup{newmapcmd} = 1; |
| 113 | |
113 | |
| 114 | |
|
|
| 115 | $ns->send_packet (join " ", setup => %setup); |
114 | $ns->send_packet (join " ", setup => %setup); |
| 116 | |
115 | |
| 117 | cf::datalog setup => |
116 | cf::datalog setup => |
| 118 | request => $args, |
117 | request => $args, |
| 119 | reply => \%setup, |
118 | reply => \%setup, |
