| … | |
… | |
| 21 | $ns->mapinfocmd ($v); |
21 | $ns->mapinfocmd ($v); |
| 22 | |
22 | |
| 23 | } elsif ($k eq "extcmd") { |
23 | } elsif ($k eq "extcmd") { |
| 24 | $ns->extcmd (min 2, $v); |
24 | $ns->extcmd (min 2, $v); |
| 25 | |
25 | |
| 26 | } elsif ($k eq "faceset") { |
|
|
| 27 | $ns->faceset (0); |
|
|
| 28 | $setup->{$k} = 0; |
|
|
| 29 | # $ns->image2 (1) |
|
|
| 30 | |
|
|
| 31 | } elsif ($k eq "tileset") { |
26 | } elsif ($k eq "tileset") { |
| 32 | $setup->{$k} = $ns->faceset (int cf::clamp $v, 0, 2); |
27 | $setup->{$k} = $ns->tileset (int cf::clamp $v, 0, 2); |
| 33 | |
28 | |
| 34 | } elsif ($k eq "itemcmd") { |
29 | } elsif ($k eq "itemcmd") { |
| 35 | # Version of the item protocol command to use. Currently, |
30 | # Version of the item protocol command to use. Currently, |
| 36 | # only supported versions are 1 and 2. Using a numeric |
31 | # only supported versions are 1 and 2. Using a numeric |
| 37 | # value will make it very easy to extend this in the future. |
32 | # value will make it very easy to extend this in the future. |
| … | |
… | |
| 85 | |
80 | |
| 86 | # force some mandatory protocol options, most of these |
81 | # force some mandatory protocol options, most of these |
| 87 | # are for obsolete clients only |
82 | # are for obsolete clients only |
| 88 | # $setup->{darkness} = 1; |
83 | # $setup->{darkness} = 1; |
| 89 | # $setup->{exp64} = 1; |
84 | # $setup->{exp64} = 1; |
| 90 | $setup->{extmap} = 1; |
85 | $setup->{extmap} = 1 if exists $setup->{extmap}; |
| 91 | # $setup->{facecache} = 1; |
86 | # $setup->{facecache} = 1; |
| 92 | $setup->{fxix} = 3; |
87 | $setup->{fxix} = 3 if exists $setup->{fxix}; |
| 93 | $setup->{map1acmd} = 1; |
88 | $setup->{map1acmd} = 1 if exists $setup->{map1acmd}; |
| 94 | $setup->{map1cmd} = 0; |
89 | $setup->{map1cmd} = 0 if exists $setup->{map1cmd}; |
| 95 | $setup->{msg} = 1; |
90 | $setup->{msg} = 1 if exists $setup->{msg}; |
| 96 | |
91 | |
| 97 | cf::datalog setup => |
92 | cf::datalog setup => |
| 98 | request => \%orig, |
93 | request => \%orig, |
| 99 | reply => $setup, |
94 | reply => $setup, |
| 100 | ; |
95 | ; |
