/* $VER: Getsound.amirx 1.0 (9.5.98) Kuang Eleven Plugin : GETSOUND command to send sounds on ctcp request
*   Requires AmIRC 1.30!
*/
options results
parse arg ':'prefix' 'type' 'channel' :'text
parse var prefix nick'!'user'@'host
div='01'x
parse var text (div) command file . (div)
if upper(command)~='GETSOUND' then exit
if file~==compress(file,'/:`"*') then exit
"GETCTCPSOUNDDIR"
fullfile=prsprg(result)||file
if ~exists(fullfile) then cecho('Unable to send' d2c(2)file||d2c(2) 'to' d2c(2)nick||d2c(2))
else do
	'SAY /DCC SEND' nick fullfile
	cecho('Sent' d2c(2)file||d2c(2) 'to' d2c(2)nick||d2c(2))
end
exit
prsprg:PROCEDURE
X=addpart(ARG(1),'')
"GETPROGDIR"
Y=RESULT
IF UPPER(LEFT(X,8))='PROGDIR:' THEN RETURN addpart(Y,'')||SUBSTR(X,9)
RETURN X
cecho:;"ECHO P="d2c(27)"b«SendSound»" arg(1);return 0