/* DWaRFCom.AmIRX - By David Newton
\\
// Allows simple commands to be added easily to AmIRC. The commands are
\\ as follows (just use a simple assign to them from within amirc, and
// the assign to use is noted with each command):
\\
// COMMANDS:                         ALIAS:           USAGE:
\\
//  /CTCP <nick> XDCC LIST           XLIST %p        /XLIST <nick>
\\  /CTCP <nick> XDCC SEND <pack>    XSEND %p        /XSEND <nick> <pack>
//  /CTCP <nick> XDCC HELP           XHELP %p        /XHELP <nick>
\\  /CTCP <nick> PAGE                PAGE %p         /PAGE <nick>
//  /CTCP <nick> SOUND <sound>       SOUND %p        /SOUND <sound> <nick>
\\  /CTCP <channel> SOUND <sound>    SOUND %p        /SOUND <sound>
\\  /CTCP <nick> GETSOUND <sound>    GETSOUND %p     /GETSOUND <nick> <sound>
//  /CTCP <nick> FINGER              FINGER %p       /FINGER <nick>
\\  /NOTICE "MYNICK" %QUIT           DQUIT           /DFxQUIT
//
\\ The usage list is how to actually use these commands from inside AmIRC!
//
\\ The aliases are built up using this script as the start, and a command
// from the alias list. eg, 
\\           /Alias SOUND = /rx rexx/dwarfx/DWaRFCom.AmIRX SOUND %p
*/
Options Results;Parse Arg com nick junk .;com=Upper(com);"GetMyNick";mynick=result;Select;When com="XLIST" Then "Say /CTCP "nick" XDCC LIST";When com="XSEND" Then "Say /CTCP "nick" XDCC SEND #"junk;When com="XHELP" Then "Say /CTCP "nick" XDCC HELP";When com="SOUND" Then;Do;If Strip(junk)="" Then;Do;'GetChannel';junk=result;End;"Say /CTCP "junk" SOUND "nick" ("nick")";End;When com="PAGE" Then "Say /CTCP "nick" PAGE";When com="GETSOUND" Then "Say /CTCP "nick" GETSOUND "junk;When com="FINGER" Then "Say /CTCP "nick" FINGER";When com="DQUIT" Then "Raw NOTICE "mynick" :%QUIT";Otherwise;"Echo p="d2c(27)"x«DWaRFx» "d2c(2)"ERROR:"d2c(2)" Unknown Command!";End;Exit