/*) XDCC DCC Interface v1.1 by Josef Faulkner (panther@gate.net) IRC: Josef \\\ Written for Grapevine 2.0 beta /// \\\ This program can be launched remotely by anyone who can /ctcp you, and /// might interrupt your chat, so if you woudln't like this, dont use it :) \\\ /// Installation: \\\ copy sendgvdccmsg to somewhere in your path /// copy this file to wherever you keep your DCC programs \\\ protect dcc.xdcc.as225 +S /// \\\ Thats it! /CTCP XDCC for usage /// \\\ /// This program requies that you already have xdcc.gvrexx installed to \\\ maintain the file database. (*/ /*parse arg nick' '. 'notice' nick 'XDCC is for PIE_RATs, use FDCC instead...' exit*/ mynick = 'me' options results if ~show('L','rexxsupport.library') then if ~addlib('rexxsupport.library',0,-30,0) then do 'echo You need rexxsupport.library version 30 or greater in libs:' exit 10 end 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' 'cmd' 'file' '. address(addr) ctcpswitch=getclip('gv.switch') if ctcpswitch=1 then do 'notice 'nick' CTCP scripts are currently deactivated.' 'echo CTCP XDCC request recieved from 'nick'.' end else do cmd=upper(cmd) if cmd='LIST' then 'xdcc list' nick if cmd='SEND' then 'xdcc send' nick file end end exit */