SNIPPET : LOGICIEL DU JOUR

on *:text:*:#:{
  if $strip($1-) = !logiciel { set %logiciel_chan $chan | sockopen logiciel www.telecharger.com 80 } 
  elseif $strip($1-) = !info-logiciel { set %logiciel_chan $chan | sockopen logiciel2 www.telecharger.com 80 }
}

ON *:SOCKOPEN:logiciel:{ sockwrite -n $sockname GET http://telecharger.01net.com/index.html HTTP/1.0 | sockwrite -n $sockname $CRLF }

ON *:SOCKREAD:logiciel:{
  sockread %logiciel
  if <font face="arial,helvetica" size="4"> isin %logiciel {
    tokenize 32 %logiciel
    var %logiciel_1 = $replace($1-,><,> <), %logiciel_1 = $remove(%logiciel_1,<font face="arial $+ $chr(44) $+ helvetica" size="4"> <a href=","> <b>,</b>,</a> </font> <br>)
    tokenize 32 %logiciel_1
    var %logiciel_1 = $replace($1-,.html,.html $+ $chr(32))
    tokenize 32 %logiciel_1
    msg %logiciel_chan Logiciel du jour sur telecharger.com :  $+ $2- $+  - http://telecharger.01net.com $+ $1 - 4tape !info-logiciel pour avoir des infos sur $2-
    set %logiciel_date $date
    set %logiciel_lien http://telecharger.01net.com $+ $1
    unset %logiciel_chan
    unset %logiciel
  }
}

on *:sockopen:logiciel2:{
  if %logiciel_date = $date { sockwrite -n $sockname GET %logiciel_lien HTTP/1.0 | sockwrite -n $sockname $CRLF }
  else { msg %logiciel_chan Tape d'abord !logiciel pour voir le logiciel du jour | sockclose logiciel2 }
}

on *:sockread:logiciel2:{
  sockread %logiciel2
  if Présentation par telecharger.com isin %logiciel2 { 
    set %logiciel2_1 $left(%logiciel2,400)
    tokenize 32 %logiciel2_1
    set %logiciel2_1 $remove($1-,	 ,<font size="2" color="#000000" face="arial $+ $chr(44) $+ helvetica"><b>Présentation par telecharger.com&nbsp;:</b>)
    set %logiciel2_1 $gettok(%logiciel2_1,1-15,32) $+ ...
  }
  if Mo</font></TD> isin %logiciel2 { tokenize 32 %logiciel2 | set %logiciel2_mo $remove($1-,	 <TD bgColor="#FFFAE6" height=21 width=180><font face="MS Sans Serif" size="2">,</font></TD> </tr> <tr>) }
  if size="2">Windows isin %logiciel2 { tokenize 32 %logiciel2 | set %logiciel2_os $remove($1-,	 <TD bgColor="#FFFAE6" height=21 width=180><font face="MS Sans Serif" size="2">, </font></TD> </tr><tr>) }
  if <a href="../../"><font face="MS Sans Serif" size="2"> isin %logiciel2 { tokenize 32 %logiciel2 | set %logiciel2_cat1 $remove($1-,	 <TD bgColor="#FFFAE6" height=21 width=180><a href="../../"><font face="MS Sans Serif" size="2">,</font></a></TD> </tr><tr>) }
  if <a href="../"><font face="MS Sans Serif" size="2"> isin %logiciel2 { tokenize 32 %logiciel2 | set %logiciel2_cat2 $remove($1-,	 <TD bgColor="#ECF1F4" height=21 width=180><a href="../"><font face="MS Sans Serif" size="2">,</font></A></TD></tr><tr>) }
  if <td valign="top"><font face="arial,helvetica" size="5"> isin %logiciel2 { var %logiciel2 $replace(%logiciel2,>,> $+ $chr(32)) | tokenize 32 %logiciel2 | set %logiciel2_nom $remove($1-,$1-7,</a>,&nbsp;<img border="0" src="/images/etoile1.gif",&nbsp;<img border="0" src="/images/etoile2.gif",&nbsp;<img border="0" src="/images/etoile3.gif",&nbsp;<img border="0" src="/images/etoile4.gif",&nbsp;<img border="0" src="/images/etoile5.gif"> </font> </td>) }
  if src="/images/etoile1.gif" isin %logiciel2 { set %logiciel2_note 1 }
  elseif src="/images/etoile2.gif" isin %logiciel2 { set %logiciel2_note 2 }
  elseif src="/images/etoile3.gif" isin %logiciel2 { set %logiciel2_note 3 }
  elseif src="/images/etoile4.gif" isin %logiciel2 { set %logiciel2_note 4 }
  elseif src="/images/etoile5.gif" isin %logiciel2 { set %logiciel2_note 5 }
  if <font face="MS Sans Serif" size="2"> isin %logiciel2 && <A href=" isin %logiciel2 && target=_blank> isin %logiciel2 { tokenize 32 %logiciel2 | set %logiciel2_auteur $remove($1-,$1-10,size="2">,</font></A></TD></tr><tr>) | msg %logiciel_chan  $+ %logiciel2_nom $+  4- Auteur : %logiciel2_auteur 4- Taille : %logiciel2_mo 4- Os : %logiciel2_os 4- Catégorie : %logiciel2_cat1 $+ / $+ %logiciel2_cat2 4- Note : %logiciel2_note $+ /5 4- Lien : %logiciel_lien | msg %logiciel_chan Petite Description : %logiciel2_1 | unset %logiciel2* | unset %logiciel_chan }
}