| … | … | ||
|---|---|---|---|
| 3 | # the version command | 3 | # the version command |
| 4 | 4 | ||
| 5 | cf::client->attach ( | 5 | cf::client->attach ( |
| 6 | on_connect => sub { | 6 | on_connect => sub { |
| 7 | my ($ns) = @_; | 7 | my ($ns) = @_; |
| 8 | |||
| 9 | $ns->send_packet ("1234\x01\x00\x80\xff"); | ||
| 8 | 10 | ||
| 9 | $ns->send_packet ("version " . $cf::json_coder->encode ({ | 11 | $ns->send_packet ("version " . $cf::json_coder->encode ({ |
| 10 | server => "Deliantra Server", | 12 | server => "Deliantra Server", |
| 11 | serverver => cf::VERSION, | 13 | serverver => cf::VERSION, |
| 12 | })); | 14 | })); |
| … | … | ||
| 35 | tileset => [[1, "default 64x64 faceset", 1, 64], [0, "default 32x32 faceset", 1, 32], [2, "default text faceset", 2, 1]], | 37 | tileset => [[1, "default 64x64 faceset", 1, 64], [0, "default 32x32 faceset", 1, 32], [2, "default text faceset", 2, 1]], |
| 36 | ); | 38 | ); |
| 37 | 39 | ||
| 38 | # dclient prefers bump messages | 40 | # dclient prefers bump messages |
| 39 | $ns->bumpmsg ($ns->{client} eq "dclient"); | 41 | $ns->bumpmsg ($ns->{client} eq "dclient"); |
| 40 | |||
| 41 | }, | 42 | }, |
| 42 | ); | 43 | ); |
| 43 | 44 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |