… | |
… | |
63 | cf::get_slot 0.01, -10, "music scheduler"; |
63 | cf::get_slot 0.01, -10, "music scheduler"; |
64 | |
64 | |
65 | my $pl = cf::player::find_active $_ or next; |
65 | my $pl = cf::player::find_active $_ or next; |
66 | my $ob = $pl->ob; |
66 | my $ob = $pl->ob; |
67 | my $ns = $pl->ns or next; |
67 | my $ns = $pl->ns or next; |
68 | $ns->extcmd or next; |
|
|
69 | my $map = $ob->map; |
68 | my $map = $ob->map; |
70 | my $rgn = $ob->region; |
69 | my $rgn = $ob->region; |
71 | |
70 | |
72 | my $id = join "\x00", $map->path, $rgn->name; |
71 | my $id = join "\x00", $map->path, $rgn->name; |
73 | |
72 | |