Generic Music Machine (#1472)(an instance of generic thing made by Trismegistos)A customizable, virtual music emulator with autoplay capacity. Type help #1472 for details. Go to location of this object, wooden box. HELP MANUAL: This is the Generic Music Machine, intended to emulate a non-queued music player, and programmed with an additional autoplay capacity. You can program any number of "tunes" into the GMM -- an ordered series of text scraps describing what is going on in a song -- as well as the tune's title, artist, and the duration it will play. Text scraps are announced every 30 seconds, or less frequently depending on how many there are, as the song plays. The GMM announces when it is starting and finishing a song, and includes the title and artist in its own name while playing, so that people entering the room will "hear" what is on. Verbs on the GMM: sel*ection on VERB SOURCE CODE: addtune:
maxtime = 600;
event_interval = 30;
player:tell("What is the tune called?");
title = $command_utils:read();
player:tell("Who is the tune by?");
artist = $command_utils:read();
tunetime = 0;
while (!tunetime)
player:tell("How long is the tune? (mm:ss)");
timeinput = $command_utils:read();
if (((length(timeinput) == 5) && (timeinput[3] == ":")) && match(timeinput, "[0-9][0-9]:[0-9][0-9]"))
time_secs = (tonum(timeinput[1..2]) * 60) + tonum(timeinput[4..5]);
if (time_secs > maxtime)
player:tell("What are you programming, a rock opera or something? That
track is too long!");
elseif (time_secs < event_interval)
player:tell("That track is shorter than the minimum possible time of
", event_interval, " seconds.");
else
tunetime = time_secs;
endif
else
player:tell(timeinput, " is not a valid time in the format mm:ss (ex: 02:59).");
endif
endwhile
max_events = tunetime / event_interval;
player:tell("Type a maximum of ", max_events, " lines describing events happening
in the song.");
player:tell("These lines will be announced in order, the first one immediately after
the tune begins, and at equal intervals through the duration of the tune after that.");
tune_events = {};
while (!tune_events)
events = $command_utils:read_lines();
if (length(events) <= max_events)
tune_events = events;
else
player:tell("That entry was longer than the maximum of ", max_events, " lines.
Try again.");
endif
endwhile
tune_entry = {title, artist, tunetime, tune_events};
this.tunes = listappend(this.tunes, tune_entry);
player:tell(title, " by ", artist, " added to ", this.name, ".");
.
rmtune:
if (player != this.owner)
player:tell("Only the owner of ", this.name, " (", owner.name, ") may remove
a tune from the selection.");
return;
endif
request = #1472:to_request(args[1]);
if (request)
player:tell("Do you really want to remove '", this.tunes[request][1], "' from
", this.name, "?");
if (!$command_utils:yes_or_no())
player:tell("Remove aborted.");
return;
endif
this.tunes = listdelete(this.tunes, request);
player:tell("Removed.");
else
player:tell(this.name, " does not carry that selection.");
endif
.
sel*ection:
if (this.tunes)
for i in [1..length(this.tunes)]
tunemins = this.tunes[i][3] / 60;
tunesecs = this.tunes[i][3] - (tunemins * 60);
player:tell(i, ": ", this.tunes[i][1], " by ", this.tunes[i][2], " (", tunemins,
" min ", tunesecs, " sec", ")");
endfor
else
player:tell(this.name, " has no tunes on it right now.");
endif
.
play:
if (this.tunes)
request = #1472:to_request(args[1], this.tunes);
if (request)
tune = this.tunes[request];
this.location:announce_all("'", tune[1], "' by ", tune[2], " starts playing
on ", this.name, ".");
this.name = ((((this.name + " [playing: ") + this.tunes[request][1]) + "
by ") + this.tunes[request][2]) + "]";
this.playing = request;
interval = max(this.interval, tune[3] / length(tune[4]));
for i in [1..length(tune[4])]
fork (interval * (i - 1))
if (this.playing)
this.location:announce_all("[on ", this.aliases[1], ":] ", tune[4][i]);
endif
endfork
endfor
fork (tune[3])
if (this.playing)
this.name = strsub(this.name, (((" [playing: " + this.tunes[request][1])
+ " by ") + this.tunes[request][2]) + "]", "");
this.location:announce_all("'", tune[1], "' by ", tune[2], " stops
playing on ", this.name, ".");
this.playing = 0;
endif
endfork
else
player:tell(this.name, " does not carry that selection.");
endif
else
player:tell(this.name, " has no tunes to play!");
endif
.
auto*play:
if (this.playing)
player:tell(this.name, " is already playing something.");
return;
endif
playlist = {};
schedule = {};
tunetime = 0;
n = min(length(this.tunes) / 2, 8);
for i in [1..n]
t = random(length(this.tunes));
playlist = listappend(playlist, t);
schedule = listappend(schedule, tunetime);
tunetime = (tunetime + this.tunes[t][3]) + 1;
endfor
for i in [1..n]
fork (schedule[i] + 1)
this:play(playlist[i]);
endfork
endfor
.
turnoff:
if (this.playing)
q = queued_tasks();
for i in [1..length(q)]
if (match(q[i][9], toobj(this)))
kill_task(q[i][1]);
endif
endfor
this.location:announce_all(player.name, " turns off ", this.name, ".");
this.playing = 0;
this.name = this.aliases[1];
else
player:tell(this.name, " is already turned off!");
endif
.
req*uest:
if (this.playing)
player:tell(this.name, " is already playing something.");
return;
else
this:play(args[1]);
endif
.
dub:
if ($object_utils:isa(dobj, #1472) && $object_utils:isa(iobj, #1472))
player:tell("Copy which tune [title or selection number] from ", dobj.name, "
to ", iobj.name, "?");
request = $command_utils:read();
request = #1472:to_request(request, this.tunes);
if (request)
iobj.tunes = setadd(iobj.tunes, dobj.tunes[request]);
player:tell(dobj.tunes[request][1], " by ", dobj.tunes[request][2], " copied
to ", iobj.name, ".");
else
player:tell(dobj.name, " does not carry that selection.");
endif
else
player:tell("Both objects have to be children of the Generic Music Machine, #1472.");
endif
.
to_request:
request = 0;
if (tonum(args[1]) <= length(args[2]))
request = tonum(args[1]);
else
for i in [1..length(args[2])]
if (args[1] == args[2][i][1])
request = i;
endif
endfor
endif
return request;
.
PROPERTY DATA: playing tunes interval help_msg queue CHILDREN: jukebox keyboard Tunes poetry engine torso |