Below set to 'NO' or 'YES' if you want the List in a Sepatate Query Window.*/
QUERY='NO'
/*-Do Not Alter After Here!-*/
QUERY=Left(Upper(QUERY),1);OPTIONS RESULTS;Parse Arg nick pack ',' reqtype;INFO screen;pubs="'"result"'";BOLD='02'x;INV='16'x;UL='1F'x;Version="v3.41";IF nick='' THEN;DO;sEcho(UL||BOLD"Usage of XDCC-Get "Version||UL":"BOLD" /XDCCGet <Nick> [Option] , [C/M]");sEcho("á");sEcho(BOLD"<Nick>"BOLD" is the person you wish to request XDCC Packs from and is always required.");sEcho('á');sEcho(BOLD"[Option]"BOLD" can be a pack # you wish to request or:");sEcho(BOLD" LIST"BOLD" - XDCC List");sEcho(BOLD" INPUT"BOLD" - Pack input window");sEcho(BOLD" MANUAL"BOLD" - Manual pack input window");sEcho(BOLD" LISTINPUT"BOLD" - XDCC List and also brings up the pack input window");sEcho(BOLD" LISTMANUAL"BOLD" - XDCC List and also brings up the manual pack input window.");sEcho('á');sEcho(BOLD", [C/M]"BOLD" where C is CTCP requests/GUI and M is Msg requests/GUI. (Always prefix C or M with a , )");Exit;End;IF Exists('Libs:rexxreqtools.library') THEN Call AddLib('rexxreqtools.library',0,-30,0);ELSE;DO;sEcho(BOLD'Please Install Libs:rexxreqtools.library (from the XDCC-Get archive) to run XDCC-Get'BOLD);Exit;End;Repeater=-2;LibCheck="rexxsupport.library";DO Until Repeater=0;IF Exists('Libs:'LibCheck) THEN Call AddLib(LibCheck,0,-30,0);ELSE;DO;sEcho(BOLD'Please Install Libs:'LibCheck' (from your Workbench disks) to run XDCC-Get'BOLD);Exit;End;LibCheck="rexxdossupport.library";Repeater=Repeater+1;End;NL='0A'x;CTCP='01'x;SendType='C';Number=1;XDCCCancel=BOLD"Quit GUI on "nick"."BOLD;Tag='rt_pubscrname='pubs'rt_reqpos=reqpos_pointer';Title="XDCC-Get "Version" by lanky - ";IF reqtype~="" THEN Sendtype=Upper(Compress(reqtype));IF pack ~='' THEN;DO;Upper pack;pack=Compress(pack);SELECT;WHEN pack="LIST" THEN;DO;List();Exit;End;WHEN pack="INPUT" THEN;DO;Get();Exit;End;WHEN pack="LISTINPUT" THEN;DO;List();Get();Exit;End;WHEN pack="MANUAL" THEN;DO;Manual();Exit;End;WHEN pack="LISTMANUAL" THEN;DO;List();Manual();Exit;End;WHEN pack="MULTI" THEN;DO;Manual();Exit;End;WHEN pack="LISTMULTI" THEN;DO;List();Manual();Exit;End;WHEN DATATYPE(pack,'N')~=0 THEN;DO;xdccnum=pack;Request();Exit;End;OTHERWISE;sEcho(BOLD'Unknown Command: 'BOLD'/XDCCGet 'nick pack ',' reqtype BOLD' - Starting GUI on 'nick'.'BOLD);sEcho(BOLD'Type /XDCCGet or read the documentation for the various OPTION Information.'BOLD);Menus();Exit;End;End;Menus:;IF SendType="M" THEN;DO;Msg();Exit;End;ELSE;DO;CTCP();Exit;End;CTCP:;call rtezrequest("Choose your CTCP XDCC Request from "nick||NL||""||NL||"O - Requests a list and opens the Pack GUI"||NL||"L - Requests a list and Quits"||NL||"P - Goes to pack input menu"||NL||"M - Go to XDCC-Get Msg menu"||NL||"A - Brings up the Author's information","List & _Open Pack GUI|_List & Quit|_Pack|_Msg|_About|_Quit",Title'CTCP Menu',Tag);IF rtresult=0 THEN;DO;sEcho(XDCCCancel);Exit;End;IF rtresult=1 THEN;DO;List();Get();Exit;End;IF rtresult=2 THEN;DO;List();Exit;End;IF rtresult=3 THEN;DO;Get();Exit;End;IF rtresult=4 THEN;DO;SendType="M";Msg();Exit;End;IF rtresult=5 THEN;Call About();CTCP();Exit;End;Msg:;call rtezrequest("Choose your Msg XDCC Request from "nick||NL||""||NL||"O - Requests a list and opens the Pack GUI"||NL||"L - Requests a list and Quits"||NL||"P - Goes to pack input menu"||NL||"C - Go to the XDCC-Get CTCP menu"||NL||"A - Brings up the Author's information","List & _Open Pack GUI|_List & Quit|_Pack|_CTCP|_About|_Quit",Title'Msg Menu',Tag);IF rtresult=0 THEN;DO;sEcho(XDCCCancel);Exit;End;IF rtresult=1 THEN;DO;List();Get();Exit;End;IF rtresult=2 THEN;DO;List();Exit;End;IF rtresult=3 THEN;DO;Get();Exit;End;IF rtresult=4 THEN;DO;SendType="C";CTCP();Exit;End;IF rtresult=5 THEN;Call About();Msg();Exit;End;Get:;DO WHILE rtresult>0;Display='';DO Counter=Number to Number+9;l=length(Counter)-1;Disp=Insert('_',Counter,l);Display=Display||Disp'|';End Counter;Prev='_Prev|';IF Number=1 THEN Prev='';call rtezrequest("Pick the XDCC pack number to request from "nick||NL||"M for Manual to input more easily multiple packs"||NL||"N or Return will choose Next",""Display"_Next|_Manual|"Prev"_Quit",Title'Pack Input Request Menu','rtez_defaultresponse=11' Tag);IF rtresult=0 THEN;DO;sEcho(XDCCCancel);Exit;End;IF rtresult=11 THEN;DO;Number=Number+10;Get();End;IF rtresult=12 THEN Manual();IF rtresult=13 THEN;DO;Number=Number-10;Get();End;xdccnum=rtresult+Number-1;Request();END;Manual:;DO WHILE rtresult>0;xdccnum=rtgetstring(,"Enter numeric XDCC pack #'s to request from "nick||NL||"You can put a space or . , - / + * \ between each. Example: 5,8,12,18",Title"Manual Input Pack Request Menu","_Ok|_Quit",Tag);IF rtresult=0 THEN;DO;sEcho(XDCCCancel);Exit;End;xdccnum=Space(Translate(xdccnum," ",".,-+*/\"),1,',');Request();END;Exit;End;List:;IF QUERY="Y" THEN 'Say /Query 'nick;IF SendType="M" THEN;DO;"RAW PRIVMSG "nick" :XDCC List";sEcho(BOLD'Msg XDCC List sent to 'nick'.'BOLD);End;ELSE;DO;"RAW PRIVMSG "nick" :"CTCP"XDCC List"CTCP;sEcho(BOLD'CTCP XDCC List sent to 'nick'.'BOLD);End;Return(0);Request:;DO WHILE xdccnum~='';PARSE VAR xdccnum xdccn','xdccnum;xdccn=Compress(xdccn);Repeater=Repeater+1;IF Repeater>1 THEN;DO;StartTime=Time(Seconds);DO UNTIL Time(Seconds)-StartTime>5;End;End;IF DATATYPE(xdccn,'N')=0 THEN;DO;sEcho(BOLD'Error! Pack "'xdccn'" is not a Number! Manual Pack orders must be Numbers separated by a space or . , - / + * \ Example: 1,5,8,12'BOLD);Leave;End;If Getclip('st_init')='1' THEN;DO;Call setclip('st_autoget',strip(getclip('st_autoget') ':'upper(nick)));sEcho('Activating temporary DCC Autoget from' Nick);End;IF SendType="M" THEN;DO;"RAW PRIVMSG "nick" :XDCC Send #"xdccn;sEcho(BOLD'Sent a Msg request for pack #'xdccn' to 'nick'.'BOLD);End;ELSE;DO;"RAW PRIVMSG "nick" :"CTCP"XDCC Send #"xdccn CTCP;sEcho(BOLD'Sent a CTCP request for pack #'xdccn' to 'nick'.'BOLD);End;End;Return(0);About:;call rtezrequest("XDCC-Get "Version". For any comments / ideas / suggestions contact me:"||NL||"IRC: lanky - EMail: sykoe@sub.net.au - Web: http://www.sub.net.au/~sykoe/","_Ok|_Yam EMail|_IBrowse|_Voyager|_AWeb",Title"About Menu",'rtez_defaultresponse=1' Tag);IF rtresult=1 THEN;DO;End;IF rtresult=2 THEN;DO;YamEMail();End;IF rtresult=3 THEN;DO;Browser='IBrowse';Browser();End;IF rtresult=4 THEN;DO;Browser='Voyager';Browser();End;IF rtresult=0 THEN;DO;Browser='AWeb.1';Browser();End;Return(0);YamEMail:;IF SHOW('P','YAM')=0 THEN;DO;Address Command 'Run <>nil: YAM:YAM nocheck';i=0;DO UNTIL SHOW('P','YAM')>0|i=3;Address Command 'SYS:RexxC/WaitForPort YAM';i=i+1;End;if show('P','YAM')=0 then;do;sEcho(BOLD'XDCC-Get could not get YAM started.'BOLD);Exit;End;End;sEcho(BOLD'XDCC-Get has Quit and YAM is ready for message input.'BOLD);ADDRESS YAM;show;mailwrite;writesubject 'XDCC-Get_'Version;writemailto "sykoe@sub.net.au";Exit;End;Return(0);Browser:;BROWSE=SHOW('P',Upper(Browser));SELECT;WHEN BROWSE=0 THEN;DO;call rtezrequest(Browser" is not running. Please start it and try again.","_Ok",Title"Browser Help",Tag);About();End;WHEN BROWSE>0 THEN;DO;sEcho(BOLD'XDCC-Get is opening up and loading in the web page on 'Browser'.'BOLD);IF Browser='Voyager' THEN;DO;Address VOYAGER;ScreenToFront;SHOW;OPENURL 'http://www.sub.net.au/~sykoe/';Exit;End;IF Browser='IBrowse' THEN;DO;Address IBROWSE;ScreenToFront;SHOW;GOTOURL 'http://www.sub.net.au/~sykoe/' RELOAD;Exit;End;IF Browser='AWeb.1' THEN;DO;Address AWEB.1;ScreenToFront;WindowToFront;SHOW;OPEN 'http://www.sub.net.au/~sykoe/' RELOAD;Exit;End;End;Return(0);sEcho:;IF arg(1)~='' then 'ECHO P='d2c(27)'b½XDCC-GET╗ 'arg(1);Return(0)
