@program $player:beep
if (ticks_left < 500)
raise(E_QUOTA, "Not enough ticks to complete beep.");
else
try
set_connection_option(this, "binary", 1);
this:notify("~07");
finally
set_connection_option(this, "binary", 0);
endtry
endif
.
That's about it . . .
(The tilde,07 is a beep in hex)