Title: Z! Controller
======

Rexx code:
==========

/* Z! mini controller */

rc = RxFuncAdd('SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs')
if rc = 0 then call SysLoadFuncs

PosX = Arg(1)
PosY = Arg(2)
PipeName = '\pipe\zmp3'

if DragItem.0 = 0 then
    if PosY >= 50 then do
                rc = lineout(PipeName, '*vol+')
                rc = stream(PipeName, 'C', 'CLOSE')
    end; else do
                rc = lineout(PipeName, '*vol-')
                rc = stream(PipeName, 'C', 'CLOSE')
    end
else do
    do F = 1 to DragItem.0
        if (Right(FileSpec('name', DragItem.F), 3) = 'mp3')|,
           (Right(FileSpec('name', DragItem.F), 3) = 'MP3')
        then do
            message = '*play ' || DragItem.F
        	rc = lineout(PipeName, message)
        	rc = stream(PipeName, 'C', 'CLOSE')
        end; else do
            message = '*addlist ' || DragItem.F
        	rc = lineout(PipeName, message)
        	rc = stream(PipeName, 'C', 'CLOSE')
        	call SysSleep 1
            message = '*play'
        	rc = lineout(PipeName, message)
        	rc = stream(PipeName, 'C', 'CLOSE')        
        end
    end F
end

