1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
// @music atcommand
// changes the music for all players on the map
//
// group lv: 2
// group char lv: 99
// log: True
//
// usage:
// @music <short name>
//
// example:
// @music fun
- script @music 32767,{
end;
OnCall:
if (!is_evtc())
{
end;
}
// TODO: tmw-like argv splitter
.@map$ = getmap();
.@m$ = strtolower(.@atcmd_parameters$[0]);
// GMs might not know and want a list of musics
if (.@m$ == "" || .@m$ == "list") {
.@r$="list";
freeloop(true);
.@size=getarraysize($MUSIC_ARRAY$);
for (.@i = 0; .@i < .@size; ++.@i) {
.@r$+=", "+$MUSIC_ARRAY$[.@i];
}
freeloop(false);
dispbottom("Music list: "+.@r$);
end;
}
.@key = array_exists($MUSIC_ARRAY$, .@m$);
if (!.@key)
{
//.@m$ = implode(.@atcmd_parameters$[0], " ");
message(getcharid(CHAR_ID_ACCOUNT), sprintf("Can't broadcast: %s.ogg", .@m$));
} else {
message(getcharid(CHAR_ID_ACCOUNT), sprintf("Now broadcasting: %s", .@m$));
changemusic .@map$, .@m$ + ".ogg";
}
end;
OnMyself:
.@m$ = strtolower(.@atcmd_parameters$[0]);
.@key = array_exists($MUSIC_ARRAY$, .@m$);
// TODO: Check if you have the music unlocked? Bitmask? Array?
if (!.@key)
{
//.@m$ = implode(.@atcmd_parameters$[0], " ");
message(getcharid(CHAR_ID_ACCOUNT), sprintf("Can't play: %s.ogg", .@m$));
} else {
message(getcharid(CHAR_ID_ACCOUNT), sprintf("Now playing: %s", .@m$));
changeplayermusic .@m$ + ".ogg";
}
end;
OnInit:
bindatcmd "music", "@music::OnCall", 0, 99, 1;
bindatcmd "jukebox", "@music::OnMyself", 0, 50, 0;
end;
}
|
