home *** CD-ROM | disk | FTP | other *** search
- /* 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