Xdccfind

Commenter

Contenu du snippet

xdccfind permet de rechercher des packs xdcc .

syntaxe : /xdccfind ce_que_vous_cherchez
expl : /xdccfind max payne

....

( lizer le script vs comprendrez )

Source / Exemple : 


menu @xdccfind {
  page suivante :/xdccsuivant
  page précedente :/xdccprec
}
alias xdccprec { 
  if ( %page > 1 ) { 
    set %page $calc( %page -1) 
    set %search %searchsave $+ &page= $+ %page
    sockclose sdb
    sockopen sdb www.packetnews.com 80
  }
} 
alias xdccsuivant { 
  inc %page
  set %search %searchsave $+ &page= $+ %page
  sockclose sdb
  sockopen sdb www.packetnews.com 80
} 
alias xdccfind { sockclose sdb | sockopen sdb www.packetnews.com 80 | set %search $replace($1-,$chr(32),+) | set %page 1 | set %searchsave $1- }
on *:sockopen:sdb:{
  window -ze @xdccfind
  renwin @xdccfind @xdccfind * by aBd0ulaX *
  clear @xdccfind
  sockwrite -tn $sockname GET /search.php?kw= $+ %search
}
on *:sockread:sdb:{
  /sockread %sdb
  if ( class=td nowrap width= isin %sdb ) && (   !isin %sdb ) {
    echo @xdccfind 
    echo @xdccfind 4 $remove(%sdb,<tr bgcolor=,#dddddd,#cccccc,><td class=td nowrap width=115>,$chr(9),</td>)
  }
  elseif ( <td class=td> isin %sdb ) && ( <tr bgcolor=#dddddd><td class=td> !isin %sdb ) {
    if ( <font color=#006600> isin %sdb ) { set %sdb $remove(%sdb,<td class=td>,</td>,$chr(9),</font>,&nbsp;,</i>,<a onclick="toclip,</b>,<font color=#006600>) | if ( %sdb != $null ) { echo @xdccfind 12slot open :15 %sdb } }
    elseif ( <font color=#0000CC> isin %sdb ) { set %sdb $remove(%sdb,<td class=td>,</td>,$chr(9),</font>,&nbsp;,</i>,<a onclick="toclip,</b>,<font color=#0000CC>) | if ( %sdb != $null ) { echo @xdccfind 12Queue :15 %sdb } }
    elseif ( <i> isin %sdb ) { set %sdb $remove(%sdb,<td class=td>,</td>,$chr(9),</font>,&nbsp;,</i>,<a onclick="toclip,</b>,<i>) | if ( %sdb != $null ) { echo @xdccfind 12kbps :15 %sdb } }
    elseif ( style="color:#0000FF;"> isin %sdb ) { 
      set %sdb 12taille :15 $remove($replace($replace($remove($mid(%sdb,$pos(%sdb,<td class=td>,2),$pos(%sdb,</td></tr>,1)),<td class=td>,</b>),style="color:#0000FF;">,4),</td>,$chr(32)),<b ,</td>,</tr>,</tbody>,</table>,<tr bgcolor=#b,<tr bgcolor=#,<tr bgcolor=) 
      var %f = 1
      while ( %f <= $pos(%sdb,4,0) ) {
        set %sdb $replace(%sdb,$mid(%sdb,$pos(%sdb,4,%f),$pos($mid(%sdb,$pos(%sdb,4,%f),9999999),$chr(32))),$mid(%sdb,$pos(%sdb,4,%f),$pos($mid(%sdb,$pos(%sdb,4,%f),9999999),$chr(32))) $+ 15 ) ) 
        inc %f
      }
      echo @xdccfind $remove($mid(%sdb,1,$pos(%sdb,$chr(32),3)),$chr(41),</ta) 12description :15 $remove($mid(%sdb,$pos(%sdb,$chr(32),3),99999999),$chr(41),</ta)
    }
    elseif ( xdcc send isin %sdb ) { echo @xdccfind $remove($replace($replace($mid(%sdb,$pos(%sdb,href=,1),$calc($pos(%sdb,title=,1)-$pos(%sdb,href=,1))),href="irc://,12server : 15 ),/,12 salon : 15# ),") 12pack :15 $remove($mid(%sdb,$pos(%sdb,$chr(35),1),3),') }
  }
  elseif ( Results isin %sdb ) && ( of about isin %sdb ) { 
    echo @xdccfind 9  .::4 $remove($mid(%sdb,$pos(%sdb,about,1),99999),<b>,</font>,</td>,.,about,</b>) résultats 9::4 $remove($mid(%sdb,$pos(%sdb,Results,1),$calc($pos(%sdb,of,1)- $pos(%sdb,Results,1))),Results,<b>,</b>) 9:: 4page %page 9::. 
    renwin @xdccfind @xdccfind .:: $remove($mid(%sdb,$pos(%sdb,about,1),99999),<b>,</font>,</td>,.,about,</b>) résultats :: $remove($mid(%sdb,$pos(%sdb,Results,1),$calc($pos(%sdb,of,1)- $pos(%sdb,Results,1))),Results,<b>,</b>) :: page %page ::. by aBd0ulaX
  }
}

Conclusion :


je compte modifier cette addon car il n'est poa totalement finit . ( à venir : ouvrir le server , le chan , et envoyer le message au xdcc par un "simple clik" )

have fun

by abdoulax
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (abdoulax)