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.3 by root, Wed Jul 11 17:09:06 2007 UTC vs.
Revision 1.20 by root, Sun May 16 01:58:50 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 30 my @name = split /\s*,\s*/, $list;
13 [sort grep $_, map +(cf::face::find "$prefix$_"), 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 }
48 }
49
50 # sort by size, smallest first, because it'S the fastest to download...
51 [ sort { (cf::face::get_data_size $a) <=> (cf::face::get_data_size $b) } @face ]
14} 52}
15 53
16our %MUSIC_QUEUE; 54our %MUSIC_QUEUE;
17 55
18our $MUSIC_SCHEDULER = cf::async_ext { 56our $MUSIC_SCHEDULER = cf::async_ext {
57 $Coro::current->{desc} = "music scheduler";
58
19 while () { 59 while () {
20 for (keys %MUSIC_QUEUE) { 60 for (keys %MUSIC_QUEUE) {
21 delete $MUSIC_QUEUE{$_}; 61 delete $MUSIC_QUEUE{$_};
62
63 cf::get_slot 0.01, -10, "music scheduler";
64
22 my $pl = cf::player::find_active $_ 65 my $pl = cf::player::find_active $_ or next;
66 my $ob = $pl->ob;
67 my $ns = $pl->ns or next;
68 $ns->extcmd or next;
69 my $map = $ob->map;
70 my $rgn = $ob->region;
71
72 my $id = join "\x00", $map->path, $rgn->name;
73
74 my $faces = delete $ns->{music_play_once};
75 $faces ||= $MUSIC_FACE_CACHE{$id} ||= do {
76 # 1. map-specific music info
77 parse_musiclist $map->{music}
78 or do {
79 # 2. fall back to region if no map-specific music
80 $rgn = $rgn->parent
81 while $rgn && !exists $rgn->{music};
82
83 parse_musiclist $rgn->{music}
84 }
85 ;
86 };
87
88 $faces
23 or next; 89 or next;
24 90
25 my $faces; 91 my $facestr = join ",", @$faces;
26 92 $ns->{current_music_faces} ne $facestr
27 my $map = $pl->ob->map
28 or next; 93 or next;
29 94
30 # 1. update map-specific music info 95 $ns->{current_music_faces} = $facestr;
31 unless (exists $map->{music_faces}) {
32 $map->{music_faces} = parse_facelist "music/", $map->{music};
33 }
34 96
35 my $faces = $map->{music_faces}; 97 my $pri = 0;
98 $ns->send_face ($_, --$pri - 110)
99 for @$faces;
100 $ns->flush_fx;
36 101
37 # 2. fall back to region if no map-specific music 102 $ns->ext_msg (ambient_music => $faces);
38 unless ($faces) {
39 my $rgn = $pl->ob->region
40 or next;
41
42 unless (exists $rgn->{music_faces}) {
43 my $par = $rgn;
44 while () {
45 last if exists $par->{music};
46 $par = $par->parent
47 or last;
48 }
49
50 $rgn->{music_faces} = parse_facelist "music/", $par->{music};
51 }
52
53 $faces = $rgn->{music_faces};
54 }
55
56 warn "music for $pl is @$faces\n"
57 if $faces;
58
59 cf::cede_to_tick;
60 } 103 }
61 Coro::schedule unless %MUSIC_QUEUE; 104 Coro::schedule unless %MUSIC_QUEUE;
62 } 105 }
63}; 106};
64 107
… …
66 on_region_change => sub { 109 on_region_change => sub {
67 my ($pl, $new, $old) = @_; 110 my ($pl, $new, $old) = @_;
68 111
69 $pl->ob->message ("You are now " . $new->longname . ". H<Use whereami for more details.>", $new->longname); 112 $pl->ob->message ("You are now " . $new->longname . ". H<Use whereami for more details.>", $new->longname);
70 113
71 $MUSIC_QUEUE{$pl->ob->name} = undef; 114 undef $MUSIC_QUEUE{$pl->ob->name};
72 $MUSIC_SCHEDULER->ready; 115 $MUSIC_SCHEDULER->ready;
73 }, 116 },
74 on_map_change => sub { 117 on_map_change => sub {
75 my ($pl, $new) = @_; 118 my ($pl, $new) = @_;
76 119
77 $MUSIC_QUEUE{$pl->ob->name} = undef; 120 undef $MUSIC_QUEUE{$pl->ob->name};
78 $MUSIC_SCHEDULER->ready; 121 $MUSIC_SCHEDULER->ready;
79 }, 122 },
80); 123);
81 124
125sub play_music_once {
126 my ($pl, $music) = @_;
82 127
128 $pl->ns->{music_play_once} = parse_musiclist $music;
129
130 undef $MUSIC_QUEUE{$pl->ob->name};
131 $MUSIC_SCHEDULER->ready;
132}
133

Diff Legend

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