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

Diff Legend

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