/*) CTCP.COMMANDS v1.0 by Josef Faulkner (panther@gate.net) IRC: Josef \\\ Written for Grapevine 2.0 (and betas) /// \\\ This command allows people to see the list of ctcp commands you have available /// \\\ Usage: /ctcp COMMANDS (*/ arexxdir='gv:rexx/' options results if ~show('L','rexxsupport.library') then if ~addlib('rexxsupport.library',0,-30,0) then exit parse arg cmds if word(cmds,1)~='¶' then do parse source . . thisscript . thissscript=strip(thisscript) address command 'run >NIL: rx' thisscript '¶' address() cmds exit end else do parse var cmds .' 'addr' 'nick' 'name' 'cmd' '. address(addr) ctcpswitch=getclip('gv.switch') if ctcpswitch=1 then do 'notice 'nick' CTCP scripts are currently deactivated.' 'echo CTCP COMMANDS request recieved from 'nick'.' end else do outfiles='' files=showdir(arexxdir) do until files='' parse var files file' 'files if left(upper(file),5)='CTCP.' then outfiles=outfiles' 'right(file,length(file)-5) end 'notice' nick outfiles end end