home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / L2C / adenozin / SimpleScript.exe / Main / xdccc < prev    next >
Encoding:
Text File  |  2000-05-25  |  3.1 KB  |  72 lines
  1. menu @XDCC {
  2.   Refresh:/xdcc.packs
  3.   -
  4.   Add\Change Pack
  5.   .Pack 1:/set %pack1 $$dir="XDCC: Choose file" | /set %pack1.desc $?="Enter description" | xdcc.packs
  6.   .Pack 2:/set %pack2 $$dir="XDCC: Choose file" | /set %pack2.desc $?="Enter description" | xdcc.packs
  7.   .Pack 3:/set %pack3 $$dir="XDCC: Choose file" | /set %pack3.desc $?="Enter description" | xdcc.packs
  8.   .Pack 4:/set %pack4 $$dir="XDCC: Choose file" | /set %pack4.desc $?="Enter description" | xdcc.packs
  9.   .Pack 5:/set %pack5 $$dir="XDCC: Choose file" | /set %pack5.desc $?="Enter description" | xdcc.packs
  10.   .Pack 6:/set %pack6 $$dir="XDCC: Choose file" | /set %pack6.desc $?="Enter description" | xdcc.packs
  11.   .Pack 7:/set %pack7 $$dir="XDCC: Choose file" | /set %pack7.desc $?="Enter description" | xdcc.packs
  12.   .Pack 8:/set %pack8 $$dir="XDCC: Choose file" | /set %pack8.desc $?="Enter description" | xdcc.packs
  13.   .Pack 9:/set %pack9 $$dir="XDCC: Choose afile" | /set %pack9.desc $?="Enterdescription" | xdcc.packs
  14.   .Pack 10:/set %pack10 $$dir="XDCC: Choose a file" | /set %pack10.desc $?="Enter a description" | xdcc.packs
  15.   Remove Pack
  16.   .Pack 1:/unset %pack1 | /unset %pack1.desc | xdcc.packs
  17.   .Pack 2:/unset %pack2 | /unset %pack2.desc | xdcc.packs
  18.   .Pack 3:/unset %pack3 | /unset %pack3.desc | xdcc.packs
  19.   .Pack 4:/unset %pack4 | /unset %pack4.desc | xdcc.packs
  20.   .Pack 5:/unset %pack5 | /unset %pack5.desc | xdcc.packs
  21.   .Pack 6:/unset %pack6 | /unset %pack6.desc | xdcc.packs
  22.   .Pack 7:/unset %pack7 | /unset %pack7.desc | xdcc.packs
  23.   .Pack 8:/unset %pack8 | /unset %pack8.desc | xdcc.packs
  24.   .Pack 9:/unset %pack9 | /unset %pack9.desc | xdcc.packs
  25.   .Pack 10:/unset %pack10 | /unset %pack10.desc | xdcc.packs
  26.   -
  27.   Close:/window -c $active
  28. }
  29. ctcp 1:XDCC Send*:*:{
  30.   if (%XDCC == Off) { halt }
  31.   else if (#1 isin $3) {
  32.     if (%pack1 == $null) { notice $nick That packet is empty. %ver1 } 
  33.     else { dcc send $nick %pack1 }
  34.   }
  35.   if (#2 isin $1-) {
  36.     if (%pack2 == $null) { notice $nick That packet is empty. %ver1 } 
  37.     else { dcc send $nick %pack2 }
  38.   }
  39.   if (#3 isin $1-) {
  40.     if (%pack3 == $null) { notice $nick That packet is empty. %ver1 } 
  41.     else { dcc send $nick %pack3 }
  42.   }
  43.   if (#4 isin $1-) {
  44.     if (%pack4 == $null) { notice $nick That packet is empty. %ver1 } 
  45.     else { dcc send $nick %pack4 }
  46.   }
  47.   if (#5 isin $1-) {
  48.     if (%pack5 == $null) { notice $nick That packet is empty. %ver1 } 
  49.     else { dcc send $nick %pack5 }
  50.   }
  51.   if (#6 isin $1-) {
  52.     if (%pack6 == $null) { notice $nick That packet is empty. %ver1 } 
  53.     else { dcc send $nick %pack6 }
  54.   }
  55.   if (#7 isin $1-) {
  56.     if (%pack7 == $null) { notice $nick That packet is empty. %ver1 } 
  57.     else { dcc send $nick %pack7 }
  58.   }
  59.   if (#8 isin $1-) { 
  60.     if (%pack8 == $null) { notice $nick That packet is empty. %ver1 } 
  61.     else { dcc send $nick %pack8 }
  62.   }
  63.   if (#9 isin $1-) {
  64.     if (%pack9 == $null) { notice $nick That packet is empty. %ver1 } 
  65.     else { dcc send $nick %pack9 }
  66.   }
  67.   if (#10 isin $1-) { 
  68.     if (%pack10 == $null) { notice $nick That packet is empty. %ver1 } 
  69.     else { dcc send $nick %pack10 }
  70.   }
  71. }
  72.