ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/ext/player-env.ext
(Generate patch)

Comparing deliantra/server/ext/player-env.ext (file contents):
Revision 1.12 by root, Tue Jul 31 00:56:58 2007 UTC vs.
Revision 1.19 by root, Fri May 14 23:47:37 2010 UTC

1#! perl # mandatory 1#! perl # mandatory
2 2
3# this extension provides "environmental effects", 3# this extension provides "environmental effects",
4# meaning mostly background music and region messages right now. 4# meaning mostly background music and region messages right now.
5 5
6our %MUSIC_GROUP;
7our %MUSIC_FACE_CACHE; # cleared by reload_facedata
8
9sub reload {
10 cf::trace "loading music config from $DATADIR/music\n";
11
12 0 < Coro::AIO::aio_load "$DATADIR/music", my $data
13 or die "$DATADIR/music $!";
14
15 my $conf = JSON::XS->new->utf8->relaxed->decode ($data);
16 %MUSIC_GROUP = %{ $conf->{group} };
17 %MUSIC_FACE_CACHE = ();
18}
19
20cf::post_init {
21 $_[0] ? cf::async { reload } : reload
22};
23
6sub parse_facelist($$) { 24sub parse_musiclist($) {
7 my ($prefix, $list) = @_; 25 my ($list) = @_;
8 26
9 return undef 27 return undef
10 unless defined $list; 28 unless defined $list;
11 29
12 #TODO, sort by size (smallest first...) 30 my @name = split /\s*,\s*/, $list;
31 my @face;
32
33 while (@name) {
34 my $name = shift @name;
35
36 if ($name =~ /^\@(.*)$/) {
37 my $group = $MUSIC_GROUP{$1}
38 or cf::error "music group $1 does not exist (referenced in '$list')";
39
40 unshift @name, @$group;
41 } else {
42 my $face = cf::face::find "music/$name"
43 or "unable to find music face $name (referenced in '$list')";
44
45 push @face, $face
46 if $face;
47 }
13 [ 48 }
49
50 # sort by size, smallest first, because it'S the fastest to download...
14 sort { (cf::face::get_data_size $a) <=> (cf::face::get_data_size $b) } 51 [ sort { (cf::face::get_data_size $a) <=> (cf::face::get_data_size $b) } @face ]
15 grep $_,
16 map +(cf::face::find "$prefix$_" or ((warn "unable to find music file $_"), undef)),
17 split /\s*,\s*/, $list
18 ]
19} 52}
20 53
21our %MUSIC_QUEUE; 54our %MUSIC_QUEUE;
22 55
23our $MUSIC_SCHEDULER = cf::async_ext { 56our $MUSIC_SCHEDULER = cf::async_ext {
57 $Coro::current->{desc} = "music scheduler";
58
24 while () { 59 while () {
25 for (keys %MUSIC_QUEUE) { 60 for (keys %MUSIC_QUEUE) {
26 delete $MUSIC_QUEUE{$_}; 61 delete $MUSIC_QUEUE{$_};
27 62
28 cf::get_slot 0.01, -10, "music scheduler"; 63 cf::get_slot 0.01, -10, "music scheduler";
… …
31 $pl->ob->active or next; 66 $pl->ob->active or next;
32 my $ns = $pl->ns or next; 67 my $ns = $pl->ns or next;
33 $ns->extcmd or next; 68 $ns->extcmd or next;
34 my $map = $pl->ob->map or next; 69 my $map = $pl->ob->map or next;
35 70
36 my $faces; 71 my $faces = delete $ns->{music_play_once};
72 $faces ||= $MUSIC_FACE_CACHE{$map} ||= do {
73 # 1. map-specific music info
74 parse_musiclist $map->{music}
75 or do {
76 # 2. fall back to region if no map-specific music
77 my $rgn = $pl->ob->region
78 or next;
37 79
38 # 1. update map-specific music info 80 my $par = $rgn;
39 unless (exists $map->{music_faces}) { 81 while () {
40 $map->{music_faces} = parse_facelist "music/", $map->{music}; 82 last if exists $par->{music};
41 } 83 $par = $par->parent
84 or last;
85 }
42 86
43 my $faces = $map->{music_faces};
44
45 # 2. fall back to region if no map-specific music
46 unless ($faces) {
47 my $rgn = $pl->ob->region
48 or next;
49
50 unless (exists $rgn->{music_faces}) {
51 my $par = $rgn;
52 while () {
53 last if exists $par->{music}; 87 parse_musiclist $par->{music}
54 $par = $par->parent
55 or last;
56 } 88 }
57
58 $rgn->{music_faces} = parse_facelist "music/", $par->{music};
59 } 89 ;
60
61 $faces = $rgn->{music_faces};
62 } 90 };
63 91
64 $faces 92 $faces
65 or next; 93 or next;
66 94
67 my $facestr = join ",", @$faces; 95 my $facestr = join ",", @$faces;
… …
73 my $pri = 0; 101 my $pri = 0;
74 $ns->send_face ($_, --$pri - 110) 102 $ns->send_face ($_, --$pri - 110)
75 for @$faces; 103 for @$faces;
76 $ns->flush_fx; 104 $ns->flush_fx;
77 105
78 $ns->ext_msg (music => { ambient => $faces }); 106 $ns->ext_msg (ambient_music => $faces);
79 } 107 }
80 Coro::schedule unless %MUSIC_QUEUE; 108 Coro::schedule unless %MUSIC_QUEUE;
81 } 109 }
82}; 110};
83 111
… …
85 on_region_change => sub { 113 on_region_change => sub {
86 my ($pl, $new, $old) = @_; 114 my ($pl, $new, $old) = @_;
87 115
88 $pl->ob->message ("You are now " . $new->longname . ". H<Use whereami for more details.>", $new->longname); 116 $pl->ob->message ("You are now " . $new->longname . ". H<Use whereami for more details.>", $new->longname);
89 117
90 $MUSIC_QUEUE{$pl->ob->name} = undef; 118 undef $MUSIC_QUEUE{$pl->ob->name};
91 $MUSIC_SCHEDULER->ready; 119 $MUSIC_SCHEDULER->ready;
92 }, 120 },
93 on_map_change => sub { 121 on_map_change => sub {
94 my ($pl, $new) = @_; 122 my ($pl, $new) = @_;
95 123
96 $MUSIC_QUEUE{$pl->ob->name} = undef; 124 undef $MUSIC_QUEUE{$pl->ob->name};
97 $MUSIC_SCHEDULER->ready; 125 $MUSIC_SCHEDULER->ready;
98 }, 126 },
99); 127);
100 128
129sub play_music_once {
130 my ($pl, $music) = @_;
101 131
132 $pl->ns->{music_play_once} = parse_musiclist $music;
133
134 undef $MUSIC_QUEUE{$pl->ob->name};
135 $MUSIC_SCHEDULER->ready;
136}
137

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines