|
 |
|
;Pour le lancer, taper /dico mot
;Exemple, vous ne savez pas ce que veut dit bonjour, taper /dico bonjour
;Enfin j'espere quand meme que vous savez ce que veux dire bonjour :)
alias dico {
set %dico.mot $1
.remove dico.txt
sockclose dico
sockopen dico www.sdv.fr 80
}
on *:sockopen:dico:{
sockwrite -n dico GET http://www.sdv.fr/cgi/orthonet/orthonet?mot= $+ %dico.mot
}
on *:sockread:dico:{
sockread %temp
if (<!--sdvD=RES--><BR><FONT SIZE=+2> isin %temp) { write dico.txt $replace($remove(%temp,<!--sdvD=RES-->,<BR>,</FONT>,<!--sdvF=RES-->,<B>REM</B>),*,* $+ $crlf,<FONT SIZE=+2>,$chr(32) $+ $crlf ) }
}
on *:sockclose:dico:{
var %i = 2
while (%i <= $lines(dico.txt)) {
echo -a $read(dico.txt,%i)
inc %i
}
.remove dico.txt
}
| |
|
Retour à la liste des snippets
|
Cette annonce est-elle crédible? |
|
|
|
