/ScriptServ

[script]
n0=; xSearch - Smallest xdcc catcher/searcher/auto resumer by FiEsTy
n1=
n2=dialog xsearch {
n3=  title "xSearch - XDCC Searcher"
n4=  Size -1 -1 391 441
n5=  List  1, 12 41 363 343,
n6=  Edit "", 2, 14 395 165 19, autohs
n7=  Button "search", 3, 187 393 89 23, 
n8=  Button "kill requests", 4, 284 393 89 23, 
n9=  Text "Double click to request a file.", 5, 15 15 191 18, 
n10=}
n11=on 1:dialog:xsearch:dclick:1:var %i $did(xsearch,1).seltext | scon -a msg $gettok(%i,1,32) xdcc send $remove($gettok(%i,2,32),«,»,[,])
n12=on 1:dialog:xsearch:sclick:3:var %i * $+ $did(xsearch,2).text $+ * | filter -foc xsearch.txt xsearch 1 %i
n13=on 1:dialog:xsearch:sclick:4:.timerxsearch* off
n14=
n15=#xsearch off
n16=on 1:TEXT:*#*:*:{
n17=  if efnet == $network && #sk8videos == # { return }
n18=  if *#?* !iswm $1- { return } | tokenize 32 $strip($1-)
n19=
n20=  ; #12 «73.8MB» Ultimate_Dance_Craze-Various - (3 gets)
n21=  ;old ->  if (» isin $2) { var %t $gettok(%t, -1, 187) | goto end }
n22=  if *#?*«?*MB»* iswm $1- { write -s $+ $qt($nick $1) xsearch.txt $nick $1 $3- | return }
n23=
n24=  ; [#17] (12x|5.1Mb) - Promo - Danger Man
n25=  ;old ->  if (x isin $2) && ($chr(124) isin $2) { var %t $3- | goto end }
n26=  if *#*?x|?*Mb* iswm $1- { var %n $remove($1,[,]) | write -s $+ $qt($nick %n) xsearch.txt $nick %n $4- | return }
n27=
n28=  ; [#3] [__5.6MB] - Team Speak Client FULL [4 Gets]
n29=  if *[#?*[*?MB]* iswm $1- { var %n $remove($1,[,]) | write -s $+ $qt($nick %n) xsearch.txt $nick %n $4- | return }
n30=
n31=  ;UPP v2.00 KyD - http://www.upp-irc.tk
n32=  ; [#1] (5.65mb/kb|5x) Description..::Alien Front BETA by neiltoe::..
n33=  if [#?*] (?*b|*?x) Description..::*::.. iswm $1- { write -s $+ $qt($nick $remove($1,[,])) xsearch.txt $nick $remove($1,[,]) $remove($3-,Description..::,::..) | return }
n34=
n35=  ;iroffer
n36=  ; #8  52x [697M] Red.Eye.2005.DVDRIP.XVID-NeDiVx.avi
n37=  ; #3  66x [ 71M] Ne-Yo-In_My_Own_Words-2006-RNS.rar
n38=  if *#?*x*[*?M]* iswm $1- { write -s $+ $qt($nick $1) xsearch.txt $nick $1 $iif([ = $3,$5-,$4-) | return }
n39=
n40=  ;kvcd
n41=  ; #8 0x [768.44MB] KVcd.Eight.Below.CAM.mpg
n42=  if *#?*x*[*?MB]* iswm $1- { write -s $+ $qt($nick $1) xsearch.txt $nick $1 $iif([ = $3,$5-,$4-) | return }
n43=
n44=}
n45=#xsearch end
n46=
n47=alias search { window -aesl @xsearch | filter -wkg # xsearch.line / $+ $1- $+ /i }
n48=menu channel,menubar {
n49=  xSearch v0.1
n50=  .list:dialog -md xsearch xsearch | filter -focte 1 32 xsearch.txt xsearch 1 *
n51=  .search:echo -a $$?="search" | window -aesl @xsearch | filter -wkg # xsearch.line / $+ $! $+ /i
n52=  .channel packs:window -aesl @xsearch | filter -wkg # xsearch.line $chr(35)
n53=  .filter:echo -a $$?="search term" | window -ae @filter! | filter -ww # @filter! * $+ $! $+ *
n54=  .-
n55=  .ques:window -aesl @xsearch | var %i 1 | while %i <= $ini($qt($script),que,0) { aline -n @xsearch $readini($qt($script),que,$ini($qt($script),que,%i)) | inc %i }
n56=  .waiting time:echo -a Only works if ur in a queue. | window -aesl @xsearch | scon -a queuetime
n57=  .-
n58=  .google video:echo searching for $$?="file" | run http://video.google.com.au/videosearch?q= $+ $replace($!,$chr(32),+)
n59=  .$iif($group(#xsearch) != ON,start,stop) recording:$iif($group(#xsearch) != ON,enable,disable) #xsearch
n60=  .-
n61=  .uninstall:if ($input(Are you sure you want to uninstall $+($crlf,$nopath($script) ?),136,Unload Confirmation)) unload -rs $qt($script)
n62=}
n63=alias xsearch.line { tokenize 32 $1- | if *#?* iswm $strip($2-4) { aline -n @xsearch $iif($left($2-,1) == -,$left($mid($2,2),-1) $3-,$2-) } }
n64=
n65=menu @xSearch {
n66=  get:{
n67=    if $chr(42) isin $sline(@xsearch,1) { $iif($?!="new server window?" = $true,s -mz $gettok($sline(@xsearch,1),2,42) -j,join) $gettok($sline(@xsearch,1),3,42) | clipboard $gettok($sline(@xsearch,1),-1,42) | .timer 1 20 scon -a $gettok($sline(@xsearch,1),-1,42) | return }
n68=    tokenize 32 $strip($sline(@xsearch,1)) | msg $remove($1,+,@,&,~,<,>,!) xdcc send $chr(35) $+ $remove($gettok($gettok($1-,2,35),1,32),[,],) | que $1-
n69=  }
n70=  remove:tokenize 32 $strip($sline(@xsearch,1)) | remini $qt($script) que $remove($1,+,@,&,~,<,>,!) | ;msg $remove($1,+,@,&,~,<,>,!) xdcc remove $2
n71=}
n72=alias -l que {
n73=  tokenize 32 $1-
n74=  writeini -n $qt($script) que $remove($1,+,@,&,~,<,>,!) $1- $+ * $+ $network $+ * $+ $comchan($remove($1,+,@,&,~,<,>,!),1) $+ * $+ msg $remove($1,+,@,&,~,<,>,!) xdcc send $chr(35) $+ $remove($gettok($gettok($1-,2,35),1,32),[,],)
n75=}
n76=alias queuetime { var %i 1 | while ($chan(0) >= %i) { filter -wkg $chan(%i) xsearch.line / $+ or more remaining. $+ /i | inc %i } }
n77=
n78=on ^1:JOIN:#:if $readini($qt($script),que,$nick) { .timer 1 20 scon -a $gettok($v1,-1,42) }
n79=
n80=on 1:GETFAIL:*.*:.timerxsearch $+ $nick 1 120 scon -a $gettok($readini($qt($script),que,$nick),-1,42)
n81=
n82=;on 1:NOTICE:*Sending you pack #*:?:writeini -n $qt($script) que $nick xdcc send $chr(35) $+ $gettok($gettok($5,-1,35),1,32)
n83=on 1:NOTICE:*Punish-ignore*minutes*:?:.timerxsearch $+ $nick 1 600 scon -a $gettok($readini($qt($script),que,$nick),-1,42)
n84=
n85=on 1:FILERCVD:*.*:remini $qt($script) que $nick
n86=