/* JSound.AMIRX
// $VER: JSound.AMIRX 4.1 (29.07.96) (MCF Extra Command)
\\ Written by Donald T. Becker (dtbecker@prolog.net) IRC: StarDustr
// Please mail any bug reports/comments to the above address with a subject
\\ header of MCF.AMIRX.
//
\\ ** What to do with this file?
// Put this script in REXX:
\\ Usage is: /Rx JSound -a #Channel sound.wav
//  where -a (optional) tells JSound to play sound
\\  after the join instead of before (default)
//  sound.wav (optional) overides EntrySound defined below.
\\         
//  Add the following Alias	JS /Rx JSound %p
\\  You may also desire to change the entry wav filename
*/
;EntrySound="Transprt.wav";parse arg flag Chan wav junk;if flag="" then exit;if 1=pos('#',flag) then;do;wav=Chan;Chan=flag;flag="";end;if Chan="" then exit;if wav ~="" then EntrySound=wav;flag=upper(flag);if flag ~="-A" then;do;"RAW PRIVMSG "Chan" :"||'01'x||"SOUND "EntrySound '01'x;xx=0;do cntr=1 by 1 until cntr=20;xx=cntr+xx;end cntr;end;"RAW JOIN "Chan;if flag="-A" then;do;getline;"RAW PRIVMSG "Chan" :"||'01'x||"SOUND "EntrySound '01'x;end;exit