1 | #!/opt/bin/perl |
1 | #!/opt/bin/perl |
|
|
2 | |
|
|
3 | if ($ENV{DELIANTRA_CORO_DEBUG}) { |
|
|
4 | eval ' |
|
|
5 | use Coro; |
|
|
6 | use Coro::EV; |
|
|
7 | use Coro::Debug; |
|
|
8 | our $debug = new_unix_server Coro::Debug "/tmp/dc"; |
|
|
9 | '; |
|
|
10 | } |
2 | |
11 | |
3 | # do splash-screen thingy on win32 |
12 | # do splash-screen thingy on win32 |
4 | my $startup_done = sub { }; |
13 | my $startup_done = sub { }; |
5 | BEGIN { |
14 | BEGIN { |
6 | if (%PAR::LibCache && $^O eq "MSWin32") { |
15 | if (%PAR::LibCache && $^O eq "MSWin32") { |
… | |
… | |
249 | } else { |
258 | } else { |
250 | # fetch from database |
259 | # fetch from database |
251 | CFPlus::DB::get res_data => $meta->{name}, sub { |
260 | CFPlus::DB::get res_data => $meta->{name}, sub { |
252 | my $rwops = new CFPlus::RW $_[0]; |
261 | my $rwops = new CFPlus::RW $_[0]; |
253 | my $chunk = new CFPlus::MixChunk $rwops |
262 | my $chunk = new CFPlus::MixChunk $rwops |
254 | or Carp::confess "sound face " . (JSON::XS::to_json $meta) . " unloadable: " . CFPlus::Mix_GetError; |
263 | or Carp::confess "sound face " . (JSON::XS::encode_json $meta) . " unloadable: " . CFPlus::Mix_GetError; |
255 | $chunk->volume (($meta->{data}{volume} || 1) * 128); |
264 | $chunk->volume (($meta->{data}{volume} || 1) * 128); |
256 | $AUDIO_CHUNK{$face} = $chunk; |
265 | $AUDIO_CHUNK{$face} = $chunk; |
257 | |
266 | |
258 | audio_sound_push ($face); |
267 | audio_sound_push ($face); |
259 | }; |
268 | }; |
… | |
… | |
1341 | my $ok = 0; |
1350 | my $ok = 0; |
1342 | |
1351 | |
1343 | CFPlus::background { |
1352 | CFPlus::background { |
1344 | my $ua = CFPlus::lwp_useragent; |
1353 | my $ua = CFPlus::lwp_useragent; |
1345 | |
1354 | |
1346 | CFPlus::background_msg CFPlus::from_json +(CFPlus::lwp_check $ua->get ($META_SERVER))->decoded_content; |
1355 | CFPlus::background_msg CFPlus::decode_json +(CFPlus::lwp_check $ua->get ($META_SERVER))->decoded_content; |
1347 | } sub { |
1356 | } sub { |
1348 | my ($msg) = @_; |
1357 | my ($msg) = @_; |
1349 | if ($msg) { |
1358 | if ($msg) { |
1350 | $table->clear; |
1359 | $table->clear; |
1351 | |
1360 | |