/*  $VER: Custom_CTCP.amirx 6.6 (1.9.98) CTCP Extension commands        */
/*                                                                      */
/*                                                                      */
/*                Bossman^   bosman@erols.com                           */
/*                                                                      */
/*----------------------------------------------------------------------*/

Options Results 
Amiport=ADDRESS()
ADDRESS VALUE Amiport
"INFO screen"
pubs='"'||result||'"'

lib.1 = "rexxreqtools.library"
lib.2 = "rexxdossupport.library"
lib.3 = "rexxidentify.library"
lib.4 = "rexxsupport.library"
lib.5 = "rexxtricks.library"
lib.6 = "rexxkuang11.library"

X= 0 
DO UNTIL x = 6
   x = x + 1
 IF EXISTS('libs:'lib.x) THEN DO 
   IF ~SHOW('L',lib.x) THEN CALL ADDLIB(lib.x,0,-30,0) 
 END
 ELSE DO
   ADDRESS COMMAND 'MUIrequest >NIL: Title="Library Error" Body="Seems You''re Missing *N a required Library *N*N'lib.x'*N" Gadgets="_OK" PUBSCREEN=pubs'
   EXIT
 END
END

DIV='01'X
NL = '0a'x
cr='0d'x
lf='0a'x
crnl=cr||lf
SIGNAL ON SYNTAX
PARSE ARG command fromnick destination arguments
amiport = ADDRESS()
arguments = UPPER(STRIP(arguments))
command = UPPER(command)
"GETMYNICK";mynick=result
"GETPROGDIR";Amircpath = result
"GETCHANNEL";channel = result
chan = SUBSTR(destination,1,1)
ctcpver = '6.6 (01.09.98)'

SELECT
WHEN command = 'BEER' THEN beer()
WHEN command = 'COMMODITIES' THEN COMMODITIES()
WHEN command = 'COMPIC' THEN Compic()
WHEN command = 'CONVERT' THEN convert()
WHEN command = 'RATE' THEN rate()
WHEN command = 'STATS' THEN stats()
WHEN command = 'FILEVER' THEN Filever()
WHEN command = 'LAMER_ALERT' THEN lamer_alert()
WHEN command = 'PICTURE' THEN pic()
WHEN command = 'FACEPIC' THEN pic()
WHEN command = 'FACE' THEN pic()
WHEN command = 'WAFFLE' THEN waffle()
WHEN command = 'SNAPSHOT' THEN snap()
WHEN command = 'CHELP' THEN help()
WHEN command = 'SETUP' THEN setup()
WHEN command = 'CVERSION' THEN ctcpv()
WHEN command = 'HOMEPAGE' THEN hompg()
WHEN command = 'URL' THEN hompg()
WHEN command = 'EMAIL' THEN email()
WHEN command = 'NEEDS' THEN needs()
WHEN command = 'WHERE' THEN where()
WHEN command = 'VERSION' THEN version()
WHEN command = 'SOURCE' THEN source()
WHEN command = 'FUCKOFF' THEN fuckoff()
WHEN command = 'LAMER' THEN lamer()
WHEN command = 'SHUTUP' THEN shutup()
WHEN command = 'BYE' THEN bye()
WHEN command = 'HELLO' THEN hello()
WHEN command = 'PIZZA' THEN pizza()
WHEN command = 'XDCC' & arguments = 'LIST' THEN DO cECHO('You recieved a K11' BOLD(command||" "||arguments)' request from 'fromnick);EXIT;END
WHEN command = 'XDCC' & Word(arguments,1) = 'SEND' THEN DO cECHO('You recieved a K11' BOLD(command||' SEND ')'for packet 'Word(arguments,2)' from 'fromnick);END 
WHEN command = 'XDCC' THEN NOP
WHEN command = 'GDCC' THEN DO cECHO(fromnick 'sent you' BOLD(GDCC)' command' BOLD(arguments));END
WHEN command = 'PAGE' THEN NOP
WHEN command = 'MP3' THEN NOP
WHEN command = 'GETSOUND' THEN DO cECHO(fromnick 'sent you' BOLD(GETSOUND)' command for sound' BOLD(arguments));END
WHEN command = 'HELP' THEN DO cECHO('You received a K¹¹' BOLD(command)' request from' fromnick);END
WHEN command = 'IDENT' THEN DO cECHO('You received a K¹¹' BOLD(command)' request from' fromnick);END
WHEN command = 'WHOIS' THEN DO cECHO('You received a K¹¹' BOLD(command)' request from' fromnick);END
WHEN command = 'KICK' THEN DO cECHO('You received a K¹¹' BOLD(command)' request from' fromnick 'for 'arguments);END
WHEN command = 'UNBAN' THEN DO cECHO('You received a K¹¹' BOLD(command)' request from' fromnick);END
WHEN command = 'INVITE' THEN DO cECHO('You received a K¹¹' BOLD(command)' request from' fromnick);END
WHEN command = 'LIST' THEN reply(fromnick,' Try putting 'BOLD(XDCC) 'in front of' BOLD(LIST)',' BOLD('Lamer!'))  
	OTHERWISE DO 
   cecho('Unknown 'STRIP(command) STRIP(arguments)' request from ' fromnick)
   reply(fromnick,STRIP(command) STRIP(arguments)' is an unkown' BOLD('CTCP Command')'.')
     EXIT
    END
END
EXIT


COMMODITIES:
IF UPPER(rkl(comx)) = 'ON' THEN comon = 1;ELSE comon = 0
  IF comon THEN DO 
    commclip = fromnick||'_comm'
     IF GETCLIP(commclip) ~=1 THEN DO
       SETCLIP(commclip,1)
       cECHO(fromnick 'requested your 'BOLD('COMMODITIES')' list.')
       slot = ID_LockCX()
       NICKNOTICE(mynick 'has 'ID_CountCX(slot)-1' Commodities Running')
        DO i=0 TO ID_CountCX(slot)-1
         name   = ID_GetCX(slot,i,"NAME")
         title  = ID_GetCX(slot,i,"TITLE")
         desc   = ID_GetCX(slot,i,"DESC")
          IF ID_GetCX(slot,i,"GUI") = 1 THEN; flags = "[GUI] "; ELSE ; flags = ""
          IF ID_GetCX(slot,i,"ACTIVE") = 1 THEN ; flags = flags||"[ACTIVE]"
          NICKNOTICE(BOLD('Name:') name BOLD(' Title:') title BOLD(' Description:') desc BOLD(' Options:') flags)
        END
       CALL ID_UnlockCX(slot)
       SETCLIP(commclip,2)
       NICKNOTICE('That''s all of 'mynick'''s Commodities')
      END 
       ELSE NICKNOTICE('Your request is being processed')
  END
   ELSE reply(fromnick,' Commodities Lists is turned off.')
EXIT


Convert:
PARSE VAR arguments amount type chan

SELECT 
 WHEN UPPER(type) = 'MIL' THEN MIL()
 WHEN UPPER(type) = 'KM'  THEN KM()
 WHEN UPPER(type) = 'IN'  THEN IN()
 WHEN UPPER(type) = 'CM'  THEN CM()
 WHEN UPPER(type) = 'FT'  THEN FT()
 WHEN UPPER(type) = 'M'   THEN M()
 WHEN UPPER(type) = 'OZ'  THEN oz()
 WHEN UPPER(type) = 'G'   THEN G()
 WHEN UPPER(type) = 'LBS' THEN lbs()
 WHEN UPPER(type) = 'KG'  THEN KG()
 WHEN UPPER(type) = '°F'  THEN far()
 WHEN UPPER(type) = '°C'  THEN Cel()
 OTHERWISE Converthelp()
END

CONSAY:
IF chan ~= "Y" THEN nicknotice(amount type1 'is equal to' newamount type2)
IF chan = "Y" THEN 'say ' amount type1 'is equal to' newamount type2
EXIT

MIL:
checkamount();type1 = 'Mile(s)';type2 = 'Kilometre(s)';
newamount = amount * 1.60934;fix();consay();EXIT

KM:
checkamount();type1 = 'Kilometre(s)';type2 = 'Mile(s)'
newamount = amount * .621371;fix();consay();EXIT

IN:
checkamount();type1 = 'Inche(s)';type2 = 'Centimetre(s)'
newamount = amount * 2.54;fix();consay();EXIT

CM:
checkamount();type1 = 'Centimetre(s)';type2 = 'Inche(s)'
newamount = amount * .3937;fix();consay();EXIT

FT:
checkamount();type1 = 'Feet';type2 = 'Metre(s)'
newamount = amount * .3048;fix();consay();EXIT

M:
checkamount();type1 = 'Metre(s)';type2 = 'Feet'
newamount = amount * 3.28084;fix();consay();EXIT

OZ:
checkamount();type1 = 'Ounce(s)';type2 = 'Gram(s)'
newamount = amount * 28.3495;fix();consay();EXIT

G:
checkamount();type1 = 'Gram(s)';type2 = 'Ounce(s)'
newamount = amount * .0352740;fix();consay();EXIT

LBS:
checkamount();type1 = 'Pound(s)';type2 = 'Kilogram(s)'
newamount = amount * .453592;fix();consay();EXIT

KG:
checkamount();type1 = 'Kilogram(s)';type2 = 'Pound(s)'
newamount = amount * 2.20462;fix();consay();EXIT

far:
checkamount2();type1 = '°Farenheit';type2 = '°Celsius'
newamount = (amount - 32)*5/9;fix();consay();EXIT

Cel:
checkamount2();type1 = '°Celsius';type2 = '°Fahrenheit'
newamount = (amount * 9)/5 + 32;fix();consay();EXIT

checkamount2:
IF amount < -300 | amount > 100000000000000000 THEN DO
 reply(fromnick,' you entered a invalid amount...')
EXIT;END;RETURN 0

checkamount:
IF amount < 0 | amount > 100000000000000000 THEN DO
 reply(fromnick,' You entered a invalid amount...')
EXIT;END;RETURN 0


Converthelp:
     cECHO(fromnick 'requested your' BOLD('Convert HELP'))
     NICKNOTICE('Welcome to Custom_CTCP Convert.')    
     NICKNOTICE('/CTCP {nick} Convert {amount} {type} <Y>')
     NICKNOTICE('Converts the following:')
     NICKNOTICE('Miles (mil) to Kilometers (km)')
     NICKNOTICE('Kilometers (km) to Miles (mil)')
     NICKNOTICE('Inches (in) to Centimeters (cm)')
     NICKNOTICE('Centimeters (cm) to Inches (in)')
     NICKNOTICE('Feet (ft) to Meters (m)')
     NICKNOTICE('Meters (m) to feet (ft)')
     NICKNOTICE('Ounce (oz) to Grams (g)')
     NICKNOTICE('Grams (g) to Ounces (oz)')
     NICKNOTICE('Pounds (lbs) to Kilograms (kg)')
     NICKNOTICE('Kilograms (kg) to Pounds(lbs)')
     NICKNOTICE('Fahrenheit(°F) to Celsius(°C)')
     NICKNOTICE('Celsius(°C) to Fahrenheit(°F)')
     NICKNOTICE('ie /ctcp Bossman^ convert 10 ft Y {Y for channel output}')
EXIT


/* --------------------------------------------------------- */
/* Rate Exchange                                             */
/* --------------------------------------------------------- */

Rate:

IF destination ~= 'LOCAL' then CECHO(fromnick 'sent you a 'BOLD(command) 'command, with arguments 'BOLD(arguments)'.')

PARSE UPPER VAR arguments amount cur1 to cur2 chan

ratelist.1  = "DZD = Algerian Dinars"
ratelist.2  = "USD = American Dollars"
ratelist.3  = "ARP = Argentinian Pesos"
ratelist.4  = "AUD = Australian Dollars"
ratelist.5  = "ATS = Austrian Schillings"
ratelist.6  = "BSD = Bahamian Dollars"
ratelist.7  = "BBD = Barbados Dollars"
ratelist.8  = "BEF = Belgian Francs" 
ratelist.9  = "BMD = Bermudian Dollars"
ratelist.10 = "BRR = Brazilian Real"  
ratelist.11 = "GBP = British Pounds"  
ratelist.12 = "BGL = Bulgarian Lev"   
ratelist.13 = "CAD = Canadian Dollars"
ratelist.14 = "CLP = Chilean Pesos"   
ratelist.15 = "CNY = Chinese Renmimbi"
ratelist.16 = "CYP = Cyprus Pounds"   
ratelist.17 = "CSK = Czech Koruna"    
ratelist.18 = "DKK = Danish Kroner"   
ratelist.19 = "NLG = Dutch Guilders"  
ratelist.20 = "XEC = Eastern Caribbean Units" 
ratelist.21 = "EGP = Egyptian Pounds"         
ratelist.22 = "XEU = European Currency Units" 
ratelist.23 = "FJD = Fijian Dollars"          
ratelist.24 = "FIM = Finnish Markka"          
ratelist.25 = "FRF = French Francs"           
ratelist.26 = "DEM = German Marks"            
ratelist.27 = "XAU = Gold Ounces (New York)"  
ratelist.28 = "GRD = Greek Drachmas"          
ratelist.29 = "HKD = Hong Kong Dollars"       
ratelist.30 = "HUF = Hungarian Forint"      
ratelist.31 = "ISK = Icelandic Krona"       
ratelist.32 = "INR = Indian Rupees"         
ratelist.33 = "IDR = Indonesian Rupiah"     
ratelist.34 = "IEP = Irish Punt"            
ratelist.35 = "ILS = Israeli New Shekels"   
ratelist.36 = "ITL = Italian Lira "          
ratelist.37 = "JMD = Jamaican Dollars"      
ratelist.38 = "JPY = Japanese Yen"          
ratelist.39 = "JOD = Jordanian Dinar"       
ratelist.40 = "LBP = Lebanese Pounds"       
ratelist.41 = "LUF = Luxembourg Francs"     
ratelist.42 = "MYR = Malaysian Ringgit"     
ratelist.43 = "MXP = Mexican New Pesos"     
ratelist.44 = "NZD = New Zealand Dollars"   
ratelist.45 = "NOK = Norwegian Kroner"      
ratelist.46 = "PKR = Pakistani Rupees"      
ratelist.47 = "PHP = Philippines Pesos"     
ratelist.48 = "XPT = Platinum Ounces (New York)"
ratelist.49 = "PLZ = Polish Zloty"             
ratelist.50 = "PTE = Portuguese Escudo"        
ratelist.51 = "ROL = Romanian Leu"             
ratelist.52 = "SUR = Russian Rubles"           
ratelist.53 = "SAR = Saudi Arabian Riyal"      
ratelist.54 = "XAG = Silver Ounces (New York)" 
ratelist.55 = "SGD = Singapore Dollars"        
ratelist.56 = "SKK = Slovakian Koruna"         
ratelist.57 = "ZAR = South African Rand"       
ratelist.58 = "KRW = South Korean Won"         
ratelist.59 = "ESP = Spanish Pesetas"          
ratelist.60 = "XDR = Special Drawing Right"    
ratelist.61 = "SDD = Sudanese Dinar"           
ratelist.62 = "SEK = Swedish Krona"            
ratelist.63 = "CHF = Swiss Francs"             
ratelist.64 = "TWD = Taiwan Dollars"           
ratelist.65 = "THB = Thai Baht"                
ratelist.66 = "TTD = Trinidad and Tobago Dollars"
ratelist.67 = "TRL = Turkish Lira"              
ratelist.68 = "VEB = Venezuelan Bolivar"        
ratelist.69 = "ZMK = Zambian Kwacha"

cntout = 0
IF amount = 'LIST' THEN DO
  IF UPPER(cur1) = ALL THEN DO
     DO x = 1 to 69
        IF destination = 'LOCAL' THEN CYECHO(ratelist.x)
         ELSE NICKNOTICE(ratelist.x)
     END
   EXIT
  END
  
  DO x = 1 to 69
   IF UPPER(cur1) = SUBSTR(WORD(ratelist.x,3),1,1) THEN DO
        cntout = cntout + 1
        IF destination = 'LOCAL' THEN CYECHO(ratelist.x)
         ELSE NICKNOTICE(ratelist.x)
   END
  END
 IF cntout = 0 THEN NICKNOTICE('No Country match for 'cur1)
 EXIT
END

IF amount < 0 | amount > 100000000000000000 THEN DO
   IF destination = 'LOCAL' then do
              cyecho('I''m Sorry you entered a invalid amount...')
              Exit
        END
        IF chan ~= "Y" THEN NICKNOTICE('I''m Sorry you entered a invalid amount...')
        IF chan = "Y" THEN 'Say I''m Sorry you entered a invalid amount...'   

  EXIT
 END

SELECT
WHEN strip(cur1) = 'DZD' THEN Fromline = "DZD+Algerian+Dinars"
WHEN strip(cur1) = 'USD' THEN Fromline = "USD+American+Dollars"
WHEN strip(cur1) = 'ARP' THEN Fromline = "ARP+Argentinian+Pesos"
WHEN strip(cur1) = 'AUD' THEN Fromline = "AUD+Australian+Dollars"
WHEN strip(cur1) = 'ATS' THEN Fromline = "ATS+Austrian+Schillings"
WHEN strip(cur1) = 'BSD' THEN Fromline = "BSD+Bahamian+Dollars"
WHEN strip(cur1) = 'BBD' THEN Fromline = "BBD+Barbados+Dollars"
WHEN strip(cur1) = 'BEF' THEN Fromline = "BEF+Belgian+Francs" 
WHEN strip(cur1) = 'BMD' THEN Fromline = "BMD+Bermudian+Dollars"
WHEN strip(cur1) = 'BRR' THEN Fromline = "BRR+Brazilian+Real"  
WHEN strip(cur1) = 'GBP' THEN Fromline = "GBP+British+Pounds"  
WHEN strip(cur1) = 'BGL' THEN Fromline = "BGL+Bulgarian+Lev"   
WHEN strip(cur1) = 'CAD' THEN Fromline = "CAD+Canadian+Dollars"
WHEN strip(cur1) = 'CLP' THEN Fromline = "CLP+Chilean+Pesos"   
WHEN strip(cur1) = 'CNY' THEN Fromline = "CNY+Chinese+Renmimbi"
WHEN strip(cur1) = 'CYP' THEN Fromline = "CYP+Cyprus+Pounds"   
WHEN strip(cur1) = 'CSK' THEN Fromline = "CSK+Czech+Koruna"    
WHEN strip(cur1) = 'DKK' THEN Fromline = "DKK+Danish+Kroner"   
WHEN strip(cur1) = 'NLG' THEN Fromline = "NLG+Dutch+Guilders"  
WHEN strip(cur1) = 'XEC' THEN Fromline = "XEC+Eastern+Caribbean+Units" 
WHEN strip(cur1) = 'EGP' THEN Fromline = "EGP+Egyptian+Pounds"         
WHEN strip(cur1) = 'XEU' THEN Fromline = "XEU+European+Currency+Units" 
WHEN strip(cur1) = 'FJD' THEN Fromline = "FJD+Fijian+Dollars"          
WHEN strip(cur1) = 'FIM' THEN Fromline = "FIM+Finnish+Markka"          
WHEN strip(cur1) = 'FRF' THEN Fromline = "FRF+French+Francs"           
WHEN strip(cur1) = 'DEM' THEN Fromline = "DEM+German+Marks"            
WHEN strip(cur1) = 'XAU' THEN Fromline = "XAU+Gold+Ounces+(New+York)"  
WHEN strip(cur1) = 'GRD' THEN Fromline = "GRD+Greek+Drachmas"          
WHEN strip(cur1) = 'HKD' THEN Fromline = "HKD+Hong+Kong+Dollars"       
WHEN strip(cur1) = 'HUF' THEN Fromline = "HUF+Hungarian+Forint"      
WHEN strip(cur1) = 'ISK' THEN Fromline = "ISK+Icelandic+Krona"       
WHEN strip(cur1) = 'INR' THEN Fromline = "INR+Indian+Rupees"         
WHEN strip(cur1) = 'IDR' THEN Fromline = "IDR+Indonesian+Rupiah"     
WHEN strip(cur1) = 'IEP' THEN Fromline = "IEP+Irish+Punt"            
WHEN strip(cur1) = 'ILS' THEN Fromline = "ILS+Israeli+New+Shekels"   
WHEN strip(cur1) = 'ITL' THEN Fromline = "ITL+Italian+Lira "          
WHEN strip(cur1) = 'JMD' THEN Fromline = "JMD+Jamaican+Dollars"      
WHEN strip(cur1) = 'JPY' THEN Fromline = "JPY+Japanese+Yen"          
WHEN strip(cur1) = 'JOD' THEN Fromline = "JOD+Jordanian+Dinar"       
WHEN strip(cur1) = 'LBP' THEN Fromline = "LBP+Lebanese+Pounds"       
WHEN strip(cur1) = 'LUF' THEN Fromline = "LUF+Luxembourg+Francs"     
WHEN strip(cur1) = 'MYR' THEN Fromline = "MYR+Malaysian+Ringgit"     
WHEN strip(cur1) = 'MXP' THEN Fromline = "MXP+Mexican+New+Pesos"     
WHEN strip(cur1) = 'NZD' THEN Fromline = "NZD+New+Zealand+Dollars"   
WHEN strip(cur1) = 'NOK' THEN Fromline = "NOK+Norwegian+Kroner"      
WHEN strip(cur1) = 'PKR' THEN Fromline = "PKR+Pakistani+Rupees"      
WHEN strip(cur1) = 'PHP' THEN Fromline = "PHP+Philippines+Pesos"     
WHEN strip(cur1) = 'XPT' THEN Fromline = "XPT+Platinum+Ounces+(New+York)"
WHEN strip(cur1) = 'PLZ' THEN Fromline = "PLZ+Polish+Zloty"             
WHEN strip(cur1) = 'PTE' THEN Fromline = "PTE+Portuguese+Escudo"        
WHEN strip(cur1) = 'ROL' THEN Fromline = "ROL+Romanian+Leu"             
WHEN strip(cur1) = 'SUR' THEN Fromline = "SUR+Russian+Rubles"           
WHEN strip(cur1) = 'SAR' THEN Fromline = "SAR+Saudi+Arabian+Riyal"      
WHEN strip(cur1) = 'XAG' THEN Fromline = "XAG+Silver+Ounces+(New+York)" 
WHEN strip(cur1) = 'SGD' THEN Fromline = "SGD+Singapore+Dollars"        
WHEN strip(cur1) = 'SKK' THEN Fromline = "SKK+Slovakian+Koruna"         
WHEN strip(cur1) = 'ZAR' THEN Fromline = "ZAR+South+African+Rand"       
WHEN strip(cur1) = 'KRW' THEN Fromline = "KRW+South+Korean+Won"         
WHEN strip(cur1) = 'ESP' THEN Fromline = "ESP+Spanish+Pesetas"          
WHEN strip(cur1) = 'XDR' THEN Fromline = "XDR+Special+Drawing+Right"    
WHEN strip(cur1) = 'SDD' THEN Fromline = "SDD+Sudanese+Dinar"           
WHEN strip(cur1) = 'SEK' THEN Fromline = "SEK+Swedish+Krona"            
WHEN strip(cur1) = 'CHF' THEN Fromline = "CHF+Swiss+Francs"             
WHEN strip(cur1) = 'TWD' THEN Fromline = "TWD+Taiwan+Dollars"           
WHEN strip(cur1) = 'THB' THEN Fromline = "THB+Thai+Baht"                
WHEN strip(cur1) = 'TTD' THEN Fromline = "TTD+Trinidad+and+Tobago+Dollars"
WHEN strip(cur1) = 'TRL' THEN Fromline = "TRL+Turkish+Lira"              
WHEN strip(cur1) = 'VEB' THEN Fromline = "VEB+Venezuelan+Bolivar"        
WHEN strip(cur1) = 'ZMK' THEN Fromline = "ZMK+Zambian+Kwacha"
OTHERWISE CURERROR(cur1)
END

SELECT
WHEN strip(cur2) = 'DZD' THEN Toline = "DZD+Algerian+Dinars"
WHEN strip(cur2) = 'USD' THEN Toline = "USD+American+Dollars"
WHEN strip(cur2) = 'ARP' THEN Toline = "ARP+Argentinian+Pesos"
WHEN strip(cur2) = 'AUD' THEN Toline = "AUD+Australian+Dollars"
WHEN strip(cur2) = 'ATS' THEN Toline = "ATS+Austrian+Schillings"
WHEN strip(cur2) = 'BSD' THEN Toline = "BSD+Bahamian+Dollars"
WHEN strip(cur2) = 'BBD' THEN Toline = "BBD+Barbados+Dollars"
WHEN strip(cur2) = 'BEF' THEN Toline = "BEF+Belgian+Francs" 
WHEN strip(cur2) = 'BMD' THEN Toline = "BMD+Bermudian+Dollars"
WHEN strip(cur2) = 'BRR' THEN Toline = "BRR+Brazilian+Real"  
WHEN strip(cur2) = 'GBP' THEN Toline = "GBP+British+Pounds"  
WHEN strip(cur2) = 'BGL' THEN Toline = "BGL+Bulgarian+Lev"   
WHEN strip(cur2) = 'CAD' THEN Toline = "CAD+Canadian+Dollars"
WHEN strip(cur2) = 'CLP' THEN Toline = "CLP+Chilean+Pesos"   
WHEN strip(cur2) = 'CNY' THEN Toline = "CNY+Chinese+Renmimbi"
WHEN strip(cur2) = 'CYP' THEN Toline = "CYP+Cyprus+Pounds "   
WHEN strip(cur2) = 'CSK' THEN Toline = "CSK+Czech+Koruna"    
WHEN strip(cur2) = 'DKK' THEN Toline = "DKK+Danish+Kroner"   
WHEN strip(cur2) = 'NLG' THEN Toline = "NLG+Dutch+Guilders"  
WHEN strip(cur2) = 'XEC' THEN Toline = "XEC+Eastern+Caribbean+Units" 
WHEN strip(cur2) = 'EGP' THEN Toline = "EGP+Egyptian+Pounds"         
WHEN strip(cur2) = 'XEU' THEN Toline = "XEU+European+Currency+Units" 
WHEN strip(cur2) = 'FJD' THEN Toline = "FJD+Fijian+Dollars"          
WHEN strip(cur2) = 'FIM' THEN Toline = "FIM+Finnish+Markka"          
WHEN strip(cur2) = 'FRF' THEN Toline = "FRF+French+Francs"           
WHEN strip(cur2) = 'DEM' THEN Toline = "DEM+German+Marks"            
WHEN strip(cur2) = 'XAU' THEN Toline = "XAU+Gold+Ounces+(New+York)"  
WHEN strip(cur2) = 'GRD' THEN Toline = "GRD+Greek+Drachmas"          
WHEN strip(cur2) = 'HKD' THEN Toline = "HKD+Hong+Kong+Dollars"       
WHEN strip(cur2) = 'HUF' THEN Toline = "HUF+Hungarian+Forint"      
WHEN strip(cur2) = 'ISK' THEN Toline = "ISK+Icelandic+Krona"       
WHEN strip(cur2) = 'INR' THEN Toline = "INR+Indian+Rupees"         
WHEN strip(cur2) = 'IDR' THEN Toline = "IDR+Indonesian+Rupiah"     
WHEN strip(cur2) = 'IEP' THEN Toline = "IEP+Irish+Punt "            
WHEN strip(cur2) = 'ILS' THEN Toline = "ILS+Israeli+New+Shekels"   
WHEN strip(cur2) = 'ITL' THEN Toline = "ITL+Italian+Lira"          
WHEN strip(cur2) = 'JMD' THEN Toline = "JMD+Jamaican+Dollars"      
WHEN strip(cur2) = 'JPY' THEN Toline = "JPY+Japanese+Yen"          
WHEN strip(cur2) = 'JOD' THEN Toline = "JOD+Jordanian+Dinar"       
WHEN strip(cur2) = 'LBP' THEN Toline = "LBP+Lebanese+Pounds"       
WHEN strip(cur2) = 'LUF' THEN Toline = "LUF+Luxembourg+Francs"     
WHEN strip(cur2) = 'MYR' THEN Toline = "MYR+Malaysian+Ringgit"     
WHEN strip(cur2) = 'MXP' THEN Toline = "MXP+Mexican+New+Pesos"     
WHEN strip(cur2) = 'NZD' THEN Toline = "NZD+New+Zealand+Dollars"   
WHEN strip(cur2) = 'NOK' THEN Toline = "NOK+Norwegian+Kroner"      
WHEN strip(cur2) = 'PKR' THEN Toline = "PKR+Pakistani+Rupees"      
WHEN strip(cur2) = 'PHP' THEN Toline = "PHP+Philippines+Pesos"     
WHEN strip(cur2) = 'XPT' THEN Toline = "XPT+Platinum+Ounces+(New+York)"
WHEN strip(cur2) = 'PLZ' THEN Toline = "PLZ+Polish+Zloty"             
WHEN strip(cur2) = 'PTE' THEN Toline = "PTE+Portuguese+Escudo"        
WHEN strip(cur2) = 'ROL' THEN Toline = "ROL+Romanian+Leu"             
WHEN strip(cur2) = 'SUR' THEN Toline = "SUR+Russian+Rubles"           
WHEN strip(cur2) = 'SAR' THEN Toline = "SAR+Saudi+Arabian+Riyal"      
WHEN strip(cur2) = 'XAG' THEN Toline = "XAG+Silver+Ounces+(New+York)" 
WHEN strip(cur2) = 'SGD' THEN Toline = "SGD+Singapore+Dollars"        
WHEN strip(cur2) = 'SKK' THEN Toline = "SKK+Slovakian+Koruna"         
WHEN strip(cur2) = 'ZAR' THEN Toline = "ZAR+South+African+Rand"       
WHEN strip(cur2) = 'KRW' THEN Toline = "KRW+South+Korean+Won"         
WHEN strip(cur2) = 'ESP' THEN Toline = "ESP+Spanish+Pesetas"          
WHEN strip(cur2) = 'XDR' THEN Toline = "XDR+Special+Drawing+Right"    
WHEN strip(cur2) = 'SDD' THEN Toline = "SDD+Sudanese+Dinar"           
WHEN strip(cur2) = 'SEK' THEN Toline = "SEK+Swedish+Krona"            
WHEN strip(cur2) = 'CHF' THEN Toline = "CHF+Swiss+Francs"             
WHEN strip(cur2) = 'TWD' THEN Toline = "TWD+Taiwan+Dollars"           
WHEN strip(cur2) = 'THB' THEN Toline = "THB+Thai+Baht"                
WHEN strip(cur2) = 'TTD' THEN Toline = "TTD+Trinidad+and+Tobago+Dollars"
WHEN strip(cur2) = 'TRL' THEN Toline = "TRL+Turkish+Lira"              
WHEN strip(cur2) = 'VEB' THEN Toline = "VEB+Venezuelan+Bolivar"        
WHEN strip(cur2) = 'ZMK' THEN Toline = "ZMK+Zambian+Kwacha"
OTHERWISE CURERROR(cur2)
END

ratesendline ='Amount='amount'&From='fromline'&To='toline
contentlength = length(ratesendline)

IF ~SHOWLIST(H,'TCP') THEN ADDRESS COMMAND 'Mount TCP: FROM AmiTCP:Devs/Inet-Mountlist'
IF ~SHOWLIST(H,'TCP') THEN ADDRESS COMMAND 'Mount TCP:'
IF SHOWLIST(H,'TCP') THEN DO
    IF OPEN(1,'TCP:www.xe.net/80','W') THEN DO
      CALL WRITECH(1,'POST /cgi-bin/ucc/convert HTTP/1.0')
  

      CALL WRITECH(1,'User-Agent: Custom_CTCP/6.5; (Amiga IRC Exchange Client)'||crnl)
      CALL WRITECH(1,'Accept: *;q=1'||crnl)
      CALL WRITECH(1,'Host: www.xe.net'||crnl)
      CALL WRITECH(1,'Content-Length: 'contentlength||crnl)
      CALL WRITECH(1,'Content-Type: application/x-www-form-urlencodedwidth'||crnl)
      CALL WRITECH(1,crnl)
      CALL WRITECH(1,ratesendline||crnl)
 
      
        txt=READLN(1)
        IF SUBWORD(txt,2,1)='500' THEN DO
           CECHO(' Server Error ')
           CALL WRITELN(1,'Quit')
           CALL CLOSE(1)
           CALL CLOSE(2)
           EXIT
        END
        IF SUBWORD(txt,2,1)='200' THEN DO
          
           DO UNTIL EOF(1)
            txt=READLN(1)
            IF subword(txt,3,2)='as of' THEN DO
               updateline = reverse(subword(txt,5,1))
               parse var updateline blah '.' date
               date = reverse(date)
                           
            END
            IF POS('is equivalent to',txt,1) > 0 THEN DO
               parse var txt blah '<B>' dataline '.</B>' .
            END
         END
           CALL WRITELN(1,'Quit')
           CALL CLOSE(1)
           CALL CLOSE(2)
           
        END
        IF destination = 'LOCAL' then do
              CYECHO('On ('date')' dataline 'at HTTP://www.xe.net/currency/')
              Exit
        END
        IF chan ~= "Y" THEN NICKNOTICE('On ('date')' dataline 'at HTTP://www.xe.net/currency/')
        IF chan = "Y" THEN 'Say On ('date')' dataline 'at HTTP://www.xe.net/currency/'

    END
EXIT

CURERROR:
IF destination = 'LOCAL' then do
   cyecho(arg(1) 'Is an unkown Country code. Try /exchange list <All or Letter> where letter is first letter of country you are looking for.')
   Exit
END
ELSE NICKNOTICE(arg(1) 'Is an unkown Country code. Try /ctcp 'mynick' Rate list <ALL or Letter> where letter is first letter of country you are looking for.')
EXIT


/* --------------------------------------------------------- */
/* File Version                                              */
/* --------------------------------------------------------- */

FILEVER:
IF UPPER(rkl(flvr)) = 'ON' THEN fileon = 1;ELSE fileon = 0
IF fileon THEN DO 
   parse var arguments name'.'ext

  
   select
     WHEN ext = 'LIBRARY' THEN fpath = 'LIBS:'
     WHEN ext = 'DEVICE' THEN fpath = 'DEVS:'
     WHEN ext = 'CLASS' THEN fpath = 'sys:classes/'
     WHEN ext = 'CODEC' THEN fpath = 'sys:classes/codecs/'
     WHEN ext = 'DATATYPE' THEN fpath = 'sys:classes/datatypes/'
     WHEN ext = 'GADGET' THEN fpath = 'sys:classes/gadgets/'
     WHEN ext = 'IMAGE' THEN fpath = 'sys:classes/images/'
     WHEN ext = 'MCC' THEN fpath = 'MUI:libs/mui/'
     WHEN ext = 'MCP' THEN fpath = 'MUI:libs/mui/'
     WHEN ext = 'MUI' THEN fpath = 'MUI:libs/mui/'
     WHEN ext = 'AMIRX' THEN fpath = ADDPART(amircpath,'rexx/')
     WHEN ext = 'AMIPLUG' THEN fpath = ADDPART(amircpath,'Plugins/')
     WHEN ext = 'ALIAS' THEN fpath = ADDPART(amircpath,'ALIASES/')
     WHEN ext = 'KSM' THEN fpath = ADDPART(amircpath,'Kuang11/')

     OTHERWISE NICKNOTICE('Check file name, ' BOLD(arguments) ' is not a valid file.' )
      EXIT
     END


   chckfile = ADDPART(fpath,STRIP(arguments))
  
   IF EXISTS(chckfile) THEN DO
     list = 'Ram:T/'||STRIP(FILEPART(arguments))
     ADDRESS COMMAND 'C:versionWB' chckfile 'Text >'list 'Shortdate'
     fpath2 = SUBWORD(SEARCHFOR(list,'File'),2)
     fver = SUBWORD(SEARCHFOR(list,'Version'),2)
     fdate = SUBWORD(SEARCHFOR(list,'Date'),2)
     fmisc= SUBWORD(SEARCHFOR(list,'Misc'),2)
     DELETE(list)
     IF fdate ~= '' THEN edate =  BOLD('Date:') fdate     
     IF fdate = '' THEN edate = " "
     IF fmisc ~= '' THEN eMisc =  BOLD('Misc:') fMisc
     IF fmisc = '' THEN eMisc = " "   
     IF fver ~= '' THEN ever =  BOLD('Version:') fver
     IF fver = '' THEN Ever = BOLD(' No Version info found')   
     IF chan ~='#' THEN cECHO(fromnick 'requested what 'BOLD('Version') 'of 'BOLD(arguments)' you are using...')
     IF chan = '#' THEN cECHO(fromnick 'requested what 'BOLD('Version') 'of 'BOLD(arguments)' everyone on 'BOLD(destination)' is using')
     reply(fromnick,BOLD('FILEVER:') fpath2 ever edate emisc)
     EXIT
   END
    ELSE DO
     reply(fromnick,BOLD('FILEVER:')' does not have ' arguments )
    END

END
ELSE NICKNOTICE(mynick'''s File-Version is turned off')
EXIT

/* --------------------------------------------------------- */
/* Personal Info                                             */
/* --------------------------------------------------------- */

stats:
IF UPPER(rkl(stat)) = 'ON' THEN staton = 1;ELSE staton = 0
IF staton THEN DO
yday = rkl(DAY);yyear = rkl(YEAR);ymonth = rkl(MONTH)
 mrs = rkl(MRGES);ysex = rkl(SEX);Job=rkl(job);Hob=rkl(hob)
 TWGH=rkl(wgh);THGT=rkl(hgt)
 Bhgt = rkl(shgt)
 Bwgh = rkl(swgh)

IF Thgt = 'Inches' THEN DO
   Chgt = bhgt * 2.54
   Ihgt = Bhgt
 END
ELSE DO
 Ihgt = bhgt/2.54
 Chgt = Bhgt
END

Ihgt = ((Ihgt + .5000001)%1)
Chgt = ((Chgt + .5000001)%1)

feet = Ihgt%12
inch = Ihgt//12

IF twgh = 'Pounds' THEN DO
    STbwgh = Bwgh
    KGwhgh = bwgh/2.2
END
ELSE DO 
    KGwhgh = bwgh
    STbwgh = bwgh*2.2
END

stbwgh = ((stbwgh + .5000001)%1)
kgwhgh = ((kgwhgh + .500001)%1)

 IF chan ~='#' THEN cECHO(fromnick 'requested your 'BOLD(command))
 IF chan = '#' THEN cECHO(fromnick 'requested everyone''s 'BOLD(command) 'on' BOLD(destination))

NICKNOTICE('Birthday: 'yday  ymonth  yyear  '   ' mrs '  '     'GENDer - 'ysex)
IF twgh = 'Pounds' THEN NICKNOTICE('Weight:' stbwgh ' lbs ('kgwhgh'kg)')
ELSE NICKNOTICE('Weight:' kgwhgh 'kg ('stbwgh'lbs)')
IF thgt = 'Inches' THEN NICKNOTICE('Height:' feet 'ft' inch 'In ('Chgt'centimeters)')
ELSE NICKNOTICE('Height:' Chgt 'centimeters ('feet 'ft' inch 'In)')
NICKNOTICE('Occupation:'job)
NICKNOTICE('Hobbies:'hob)
END 
 ELSE NICKNOTICE('Hey that private stuff, buzz OFF!!!')
EXIT

/* --------------------------------------------------------- */
/* Lamer_Alert                                               */
/* --------------------------------------------------------- */

lamer_alert:
IF chan ~= '#' THEN cECHO(fromnick' spotted a Lamer using the nick' BOLD(arguments)'.')
IF chan ='#' THEN cECHO(fromnick' spotted a lamer on ' destination ' using the nick 'BOLD(arguments)'.')
EXIT

/* --------------------------------------------------------- */
/* System Setup                                              */
/* --------------------------------------------------------- */

Setup:
IF chan ~= '#' THEN cecho(fromnick 'requested your' BOLD(command)'.')
IF chan = '#' THEN cECHO(fromnick 'requested everyone''s 'BOLD(command) 'on' BOLD(destination))

accdata = rkl(ACCTY);harddrives = rkl(HDDS);modemdata = rkl(MODEM)
extrasdata = rkl(EXTRA);systemy = rkl(SYSY);cpuy = rkl(CPUY) 
mmuy=rkl(mmuy);fpuy = rkl(fpuy);osvy = rkl(osvy);osnry = rkl(osnry)
wbvy=rkl(wbvy);chpsy = rkl(chpsy);gfxsy = rkl(gfxsy)
chpry=rkl(chpry);fstry = rkl(fstry)
agnusy=rkl(agnusy);agnusm=rkl(agnusm)


bord1 = rkl(bord1);bord2 = rkl(bord2);bord3 = rkl(bord3)
bord4 = rkl(bord4);bord5 = rkl(bord5);bord6 = rkl(bord6)
bord7 = rkl(bord7);bord8 = rkl(bord8)

NICKNOTICE( BOLD('System :') systemy '('BOLD('CPU:') cpuy  BOLD('FPU:') fpuy BOLD('MMU:') mmuy  BOLD('GFXCHP:') chpsy BOLD('GFXMODE:') gfxsy ')')
NICKNOTICE( BOLD('ChipRam:')chpry BOLD('FastRam:') fstry BOLD('OS:')osvy '(known as' BOLD(osnry)')' BOLD('WB:')wbvy)
NICKNOTICE( BOLD('AGNUS ver:')agnusy BOLD('Screen Mode:') agnusm)
IF bord1 ~= ' ' THEN NICKNOTICE('1.' bord1)
IF bord2 ~= ' ' THEN NICKNOTICE('2.' bord2)
IF bord3 ~= ' ' THEN NICKNOTICE('3.' bord3)
IF bord4 ~= ' ' THEN NICKNOTICE('4.' bord4)
IF bord5 ~= ' ' THEN NICKNOTICE('5.' bord5)
IF bord6 ~= ' ' THEN NICKNOTICE('6.' bord6)
IF bord7 ~= ' ' THEN NICKNOTICE('7.' bord7)
IF bord8 ~= ' ' THEN NICKNOTICE('8.' bord8)
NICKNOTICE( BOLD('Accelerator:') accdata BOLD('HD:') harddrives BOLD('Modem:') modemdata BOLD('Extras:') extrasdata)
EXIT

help: 
select
WHEN arguments= '' THEN DO
     cECHO(fromnick 'requested your' BOLD('CTCP HELP'))
     NICKNOTICE('Welcome to Custom_CTCP.amirx available commmands.')
     NICKNOTICE('/CTCP {nick|channel} [command] {text}')
     NICKNOTICE('/CTCP {nick|channel} CHELP [command] for more info')
     NICKNOTICE('SETUP, CVERSION, HOMEPAGE, URL, WHERE, NEEDS, FUCKOFF, LAMER, BYE, SHUTUP, PIZZA, HELLO, SNAPSHOT, COMMODITIES')
     NICKNOTICE('SNAPSHOT GIF, EMAIL, PICTURE, FACE, FACEPIC, STATS, FILEVER, LAMER_ALERT, COMPIC, CONVERT, RATE, WAFFLE, VERSION, SOURCE, BEER')
  END
WHEN arguments = 'PIZZA'         THEN NICKNOTICE('BEER - will request some Beer from user.')
WHEN arguments = 'COMMODITIES'   THEN NICKNOTICE('COMMODITIES   - will request a list of users Commodities he has running.')
WHEN arguments = 'SETUP'         THEN NICKNOTICE('SETUP    - will request users computer SETUP.')
WHEN arguments = 'CVERSION'      THEN NICKNOTICE('CVERSION - will request custom_ctcp version.')
WHEN arguments = 'HOMEPAGE'      THEN NICKNOTICE('HOMEPAGE - will request user Homepage')
WHEN arguments = 'URL'           THEN NICKNOTICE('URL - will request user Homepage')
WHEN arguments = 'NEEDS'         THEN NICKNOTICE('NEEDS - will request what ever text is entered.')
WHEN arguments = 'WHERE'         THEN NICKNOTICE('WHERE - will request where the user lives.')
WHEN arguments = 'FUCKOFF'       THEN NICKNOTICE('FUCKOFF - will tell user to FUCKOFF.')
WHEN arguments = 'LAMER'         THEN NICKNOTICE('LAMER    - will call the user a LAMER.')
WHEN arguments = 'BYE'           THEN NICKNOTICE('BYE - will tell user GOODBYE.')
WHEN arguments = 'SHUTUP'        THEN NICKNOTICE('SHUTUP - will tell user to SHUTUP')
WHEN arguments = 'PIZZA'         THEN NICKNOTICE('PIZZA - will request a PIZZA from user.')
WHEN arguments = 'HELLO'         THEN NICKNOTICE('HELLO - will tell user HELLO.')
WHEN arguments = 'SNAPSHOT'      THEN NICKNOTICE('SNAPSHOT - will request a snapshot of current screen. Number in file name is the current time.')
WHEN arguments = 'SNAPSHOT GIF'  THEN NICKNOTICE('SNAPSHOT GIF - will request a Snapshot of current screen in GIF format, may take a about 15sec. Number in file name is the current time.')
WHEN arguments = 'EMAIL'         THEN NICKNOTICE('EMAIL - will request users EMAIL Address.')
WHEN arguments = 'PICTURE'       THEN NICKNOTICE('PICTURE - will request a personal picture. Save as FACE & FACEPIC')
WHEN arguments = 'FACE'          THEN NICKNOTICE('FACE - will request a personal picture. Same as PICTURE & FACEPIC')
WHEN arguments = 'FACEPIC'       THEN NICKNOTICE('FACEPIC - will request a personal picture. Same as PICTURE & FACE')
WHEN arguments = 'STATS'         THEN NICKNOTICE('STATS - will request personal user-infos.')
WHEN arguments = 'FILEVER'       THEN NICKNOTICE('FILEVER <name> - will request file-version of <name>.')
WHEN arguments = 'LAMER_ALERT'   THEN NICKNOTICE('LAMER_ALERT <nick> - will tell user that <nick> is a LAMER.')
WHEN arguments = 'COMPIC'        THEN NICKNOTICE('COMPIC - will request a pic from users computer.')
WHEN arguments = 'CONVERT'       THEN converthelp()
WHEN arguments = 'VERSION'       THEN NICKNOTICE('VERSION - will request client version.')
WHEN arguments = 'SOURCE'        THEN NICKNOTICE('SOURCE - will request the client source.')
WHEN arguments = 'RATE' THEN DO
     NICKNOTICE('RATE <amount> <country-code from money u have> TO <country-code from money u want> - will tell u the exchange.')
     NICKNOTICE('RATE LIST <ALL|country letter> - will show all codes or countries beginning with Letter.')
     END
WHEN arguments = 'WAFFLE' THEN   NICKNOTICE('WAFFLE - kills user with a WAFFLE')
END
EXIT

helpold:
     cECHO(fromnick 'requested your' BOLD('CTCP HELP'))
     NICKNOTICE('Welcome to Custom_CTCP.amirx available commmands.')    
     NICKNOTICE('/CTCP {nick|channel} [command] {text}')
     NICKNOTICE('SETUP, CVERSION, HOMEPAGE, NEEDS, FUCKOFF, LAMER, BYE, SHUTUP, PIZZA, HELLO, SNAPSHOT, SNAPSHOT GIF, EMAIL, PICTURE, STATS, FILEVER, LAMER_ALERT, COMPIC, CONVERT, RATE')
EXIT

BEER:
cECHO(fromnick 'sent you' BOLD(command)' request')
NICKNOTICE( mynick 'calls the bootlegger and orders you a 24 of Molson Export.')
delay(2000)
NICKNOTICE( fromnick 'you better have saved me a beer!!!!')
delay(2000)
NICKNOTICE( mynick 'comes over all drunk and hammered looking for a party')
EXIT

PIZZA:
cECHO(fromnick 'sent you a' BOLD(command)' request')
NICKNOTICE( mynick 'Calls the pizza guy and orders you a large hot pepperoni pizza.')
delay(6000)
NICKNOTICE( mynick 'Says you pizza has arrived')  
EXIT

COMPIC:
IF UPPER(rkl(CPICT)) = 'ON' THEN cpicv = 1;ELSE cpicv = 0
picpath = rkl(CPICP)
IF cpicv THEN DO
IF chan ~='#' THEN cECHO(fromnick 'requested your 'BOLD(Computer Picture))
IF chan = '#' THEN cECHO(fromnick 'requested everyones 'BOLD(Computer Picture Picture)' on ' BOLD(destination))
   'say /dcc sEND 'fromnick picpath
    EXIT
 END 
ELSE DO
  cECHO(fromnick 'requested your 'BOLD(Computer Picture)' and you do not have one.')
 NICKNOTICE( 'Doesn''t have a Computer Picture')
END
EXIT


PIC:
IF UPPER(rkl(PICTS)) = 'ON' THEN picv = 1;ELSE picv = 0
picpath = rkl(PICPT)
IF picv THEN DO
IF chan ~='#' THEN cECHO(fromnick 'requested your 'BOLD(Personal Picture))
IF chan = '#' THEN cECHO(fromnick 'requested everyones 'BOLD(Personal Picture)' on ' BOLD(destination))
   'say /dcc sEND 'fromnick picpath
    EXIT
 END 
ELSE DO
  cECHO(fromnick 'requested your 'BOLD(Personal Picture)' and you do not have one.')
 NICKNOTICE( 'Doesn''t have a Personal Picture')
END
EXIT

HELLO:
IF chan = '#' THEN cECHO(fromnick' tells everyone on' destination BOLD(Hello!!)'.')
IF chan ~='#' THEN cECHO(fromnick' says' BOLD(Hello!!))
EXIT

BYE:
IF chan = '#' THEN cECHO(fromnick' tells everyone on' destination BOLD(Goodbye!!)'.')
IF chan ~='#' THEN cECHO(fromnick' says ' BOLD(goodbye!!))
EXIT

NEEDS:
IF chan = '#' THEN cecho(fromnick' sENDs a file/program request for ' STRIP(BOLD(arguments))' to 'destination)
IF chan ~= '#'THEN cecho(fromnick' needs file or program 'STRIP(BOLD(arguments)))
EXIT

VERSION:
reply(fromnick,'VERSION' bold('Custom_CTCP.amirx') ctcpver)
EXIT

SOURCE:
IF chan = '#' THEN cECHO(fromnick' wants to know the' BOLD(command)' of IRC client every one on' destination 'is using.')
IF chan ~= '#' THEN cECHO('Your IRC ' BOLD(command)' was requested by ' fromnick)
EXIT

FUCKOFF:
IF chan = '#' THEN cECHO(fromnick' tells ' destination ' to ' BOLD(command) '.')
IF chan ~= '#' THEN cECHO('You have been told to' BOLD(fuck off)' by' BOLD(fromnick))
EXIT

LAMER:
IF chan ='#' THEN cECHO(fromnick' thinks everyone on ' destination ' is a ' BOLD(command) '.')
IF chan ~='#' THEN cECHO(fromnick' thinks you''re a ' BOLD(command))
EXIT

SHUTUP:
IF chan = '#' THEN cECHO(fromnick' tells everyone on' destination ' to ' BOLD(command) '.')
IF chan ~= '#' THEN cECHO(fromnick' politely asks you to ' BOLD(shut the fuck up!!))
EXIT

WAFFLE:
IF chan ='#' THEN cECHO('A' BOLD(command)' falls from the sky and hits everyone in' BOLD(destination) 'square on the head.')
IF chan ~='#'THEN cECHO('A' BOLD(command)' falls from the sky and hits you square on the head')
EXIT

EMAIL:
IF chan ~= '#' THEN cECHO(fromnick 'requested your 'BOLD('Email Address'))
IF chan = '#' THEN cECHO(fromnick 'requested everyone''s 'BOLD('Email Address') 'on' BOLD(destination))
NICKNOTICE('This is' mynick'''s Email Address:'rkl(EMAIL))
EXIT

HOMPG:
IF chan ~='#' THEN cECHO(fromnick 'requested your 'BOLD('Homepage Address'))
IF chan = '#' THEN cECHO(fromnick 'requested everyone''s 'BOLD('Homepage Address') 'on' BOLD(destination))
NICKNOTICE('This is' mynick'''s Web page Address:'rkl(HMPGE))
EXIT

CTCPV:
IF Chan ~= '#' THEN cECHO(fromnick 'requested your 'BOLD('Custom_CTCP.amirx Version'))
IF chan = '#' THEN cECHO(fromnick 'requested everyone''s 'BOLD('Custom_CTCP.amirx Version') 'on' BOLD(destination))
reply(fromnick,' has Custom_CTCP.amirx 'ctcpver)
EXIT

WHERE:
IF chan ~= '#' THEN cECHO(fromnick' wants to know' BOLD(command)' you''re from.')
IF chan = '#' THEN cECHO(fromnick' wants to know' BOLD(command)' every one on' destination 'is from.')
text = " is "||STRIP(rkl(wfrom))
reply(fromnick,rkl(wfrom))
EXIT

SNAP:
IF UPPER(rkl(SNAPS)) = 'ON' THEN snapon = 1;ELSE snapon = 0
IF UPPER(rkl(SSAFE)) = 'ON' THEN snapsafe = 1;ELSE snapsafe = 0
 snaptime = rkl(SAFET)
IF snapon THEN DO 
 IF chan ~= '#' THEN cECHO(fromnick 'requested a 'BOLD(command arguments)' of your screen')
 IF chan = '#' THEN cECHO(fromnick 'requested everyone''s screen 'BOLD(command arguments) 'on' BOLD(destination))
 IF snapsafe THEN DO 
  reply(fromnick, ' has SnapSafe enabled, with a time out of 'snaptime 'secs Standbye till 'mynick 'gets to a safe screen. If time-out is reached no Snapshot will be sent.')
  tags = '_NoSnap'
  tag = ' '
   IF pubscreenlist('screenlist') THEN DO
     do i = 1 to screenlist.0
      tag = tag'|_'||screenlist.i
     END
   END
  tags = tag||'|'tags
  tags = STRIP(tags,'L','| ')
  snapsafescreen = 'Ram:t/'fromnick'.snapscreentxt'
  ADDRESS COMMAND 'MUIrequest >'snapsafescreen 'T="SnapSafe" B="*N*EbCustom_CTCP 'ctcpver'*En*N*N'fromnick' on channel 'channel 'requested a Snapshot.*N*NWhich Screen would you like A SnapShot of?*N*N What ever Screen you select will POP to front and a snapshot taken..*N*N" G='tags 'TIME='snaptime 'PUBSCREEN='pubs
   
   open(l,snapsafescreen,R)
     snapsafescreen=readln(l)
   close(l)

   delete(snapsafescreen)

    IF Snapsafescreen = 0 THEN DO
       reply(fromnick, ' says it not a good time for a Snapshot, or SnapSafe has Timed-Out. Try again later...')
       Cecho('SnapShot Exited')
       EXIT
    END
   pubscreentofront(screenlist.snapsafescreen)
  ADDRESS COMMAND 'delete ' snapsafefile
 END
  
 reply(fromnick, ' Standbye while a 'BOLD(command arguments) 'is created this may take a few seconds..')
 snapshot()

 IF cybersnap THEN output = 'T:tempfile'
  parse var output dir':'file
  fmynick = STRIP(TRANSLATE(mynick,' ','[]|'))
/* check using compress */

  ffromnick = STRIP(TRANSLATE(fromnick,' ','[]|'))
  newname = dir':'fmynick'-'compress(time(c),":")||'-'ffromnick'.ilbm'
  ADDRESS COMMAND 'rename 'output 'To' newname 
    IF arguments = 'GIF' THEN DO
      IF UPPER(rkl(GIFN)) = 'ON' THEN gifon = 1;ELSE gifon = 0
        IF gifon THEN DO
           parse var newname file'.'ext
           newname1 = file'.'gif
           ADDRESS COMMAND 'rename 'newname 'To' newname1 
           ADDRESS COMMAND rkl(TAPP) newname1 newname1
           delay(2000)
           newname = newname1
        END 
        ELSE DO
         NICKNOTICE( mynick'''s GIF option is turned off, due to a convertor ERROR.')
        END
  
 END

'Say /dcc sEND ' fromnick newname
IF UPPER(rkl(DELSN)) = 'ON' THEN delsnaps = 1;ELSE delsnaps = 0
 IF delsnaps THEN DO
    DO UNTIL ~exists(newname)
      delay(3000)
      ADDRESS COMMAND 'delete ' newname
    END
 END
  cecho('Deleted 'newname)
  EXIT
END

ELSE DO
 cECHO(fromnick 'requested a ' BOLD(command arguments)' of your screen, but u have it disabled.')
 NICKNOTICE(BOLD(command arguments) 'is disabled')
 EXIT
END

SNAPSHOT:
IF rkl(SNAPP) = 'CRSnap' THEN Cybersnap = 0;ELSE Cybersnap = 1
IF cybersnap THEN DO 
 ADDRESS COMMAND 'run <>nil: 'rkl(CYBPR) 'FILE=T:tempfile DELAY=1'
 DELAY(2000)
 snapfin()
 RETURN 0
END
ELSE DO
 IF SHOW('P','CRSNAP')=0 THEN DO
  ADDRESS COMMAND 'run <>nil: ' rkl(CRSNP) 'SNAPPATH="t:"'
  i=0
  DO UNTIL SHOW('P','CRSNAP')>0 | i=3
    ADDRESS COMMAND 'sys:rexxc/WaitForPort CRSNAP'
    i=i+1
  END
   IF SHOW('P','CRSNAP')=0 THEN DO
    	cecho('Error - CRSNAP failed to start.')
	EXIT 
   END
 END

 ADDRESS CRSnap
 'SNAP'
 output = result
END
snapfin()
RETURN 0


snapfin:
SnapEND = UPPER(STRIP(rkl(SFIN)))
IF SnapEND = 'SYSTEM' THEN BEEP()
 IF SnapEND = 'WAV' THEN DO
   snapwav = rkl(SNWAV)
   ADDRESS COMMAND 'play16 'snapwav
 END
ADDRESS VALUE amiport
Cecho('SnapShot complete')
RETURN 0


/* --------------------------------------------------------- */
/* Sub-Calls                                                 */
/* --------------------------------------------------------- */
  
rkl:
ctcpdata = addpart(amircpath,'rexx/custom_ctcp/ctcp.data')
   dir=UPPER(STRIP(arg(1)))
   IF EXISTS(ctcpdata) THEN DO
      line =  SEARCHFOR(ctcpdata,dir)  
      PARSE VAR line var '=' data 
   END
  ELSE data = ''
RETURN data


fix:
ex1 = 1;if pos('+',newamount) ~=0 then EX()
if ex1 ~=0 then newamount = trunc(newamount,2);return 0

ex:
x = newamount;i=0;xx=1.0E+18;do while xx > 1
y.i=trunc(x/xx,0);x=x-(y.i*xx);xx=xx/1000;i=i+1;end
y.i=x;j=0;do while y.j=0;j=j+1;end
str = "";do k=j to i;if k = j then str = str||y.k
else str = str||right("00"||y.k, 3);end
newamount = str||".00";ex1 = 0;Return 0

reply:;'QueueRAW NOTICE' ARG(1) ':'||DIV||ARG(2)||DIV;RETURN 0
bold:;RETURN '02'x||arg(1)||'02'x
CYECHO:;"ECHO P="d2c(27)"b«"Currency"» C=1" arg(1);return 0
cecho:;"ECHO P="d2c(27)"b«"CTCP"» C=6" arg(1);RETURN 0
NOTICE:;'QueueRAW NOTICE' arg(1) ':'arg(2);RETURN 0
NICKNOTICE:;'QueueRAW NOTICE' fromnick ':'arg(1);RETURN 0
syntax:;cecho("Command on line" SIGL "RETURNed" RC ":" errortext(rc) sourceline(SIGL));EXIT