Un socket qui va cherché les 15 dernieres news sur
http://www.jeuxvideo.com et qui vous en dit une au hasard sur la fenetre active :)
Source / Exemple :
alias news {
unset %news
if ($1 > $lines(news-com.txt)) { echo -a 5,1[0Erreur , Cette news n'existe pas5] | halt }
if ($1- == $null) set %ligne $rand(1,$lines(news-com.txt))
if ($1- isnum 1- $+ $lines(news-com.txt)) set %ligne $1-
news-com
}
alias news-com {
sockclose news
sockopen news www.jeuxvideo.com 80
write -c news-com.txt
}
on *:sockopen:news:{
if ($sockerr > 0) return
sockwrite -n $sockname GET http://www.jeuxvideo.com/news.htm HTTP/1.0
sockwrite -n $sockname $crlf
}
on *:sockread:news:{
sockread %news.com
if (http://www.jeuxvideo.com/news/2005/ isin %news.com) { var %newscom = $replace($remove(%news.com,<a href=,</a>,<br>,>),",$chr(32))
write news-com.txt %newscom
inc %news
if (%news >= 15) { sockclose news | say.news | return }
}
}
on *:sockclose:news:{
say.news
}
alias say.news {
set %news-com $read(news-com.txt,%ligne)
set %links $gettok(%news-com,1,32)
set %titre $gettok(%news-com,2-,32)
msg $active 5,1[0News "Jeuxvideo.com" - Titre : %titre - Url : %links $+ 5]
}
Conclusion :
Je suis debutant en irc scripting donc j'attends vos conseils et ce qui ne va pas pour m'ameliorer merci :)
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.