Accueil > > > SYESTEME DE VOTE POUR WEBRADIO
SYESTEME DE VOTE POUR WEBRADIO
Information sur la source
Description
Voila un petit script pour ceux qui on un stream privé et qui veulent instauré un systeème de vote sur lec chansons qui passent... Il n'est pas parfait, c'est sur. Mais il requiert que le titre qui joue actuellement soit mentionné dans un fichier texte. Certain logiciels le permettent donc regardez la notice...
Source
- ON *:TEXT:!vote:#:{
- %titre = $read now.txt
- $read(top.txt,w,& %titre)
- %ligne = $readn
- if (%ligne == 0) {
- %points = 0
- }
- else {
- var %points = $gettok($read(top.txt,%ligne),1,32)
- }
- if (%quizz != on) { notice $nick 15,1 %titre 7,1 a actuellement11,1 %points point 7,1pour le faire évoluer tape }
- notice $nick 9,1!top7,1 si le titre te plait
- notice $nick 9,1!megatop7,1 si le titre te plait énormément
- notice $nick 4,1!flop7,1 si le titre déplait
- notice $nick 4,1!megaflop7,1 si lz titr te déplait énormément
- }
-
- ON *:TEXT:!*:#:{
- if ($1 == !top) { %bonus = 1 }
- if ($1 == !megatop) { %bonus = 2 }
- if ($1 == !flop) { %bonus = -1 }
- if ($1 == !megaflop) { %bonus = -2 }
- if ($1 == !top || $1 == !megatop || $1 == !flop || $1 == !megaflop) {
- %votant = $address($nick,14)
- %titre = $read(now.txt)
- !.echo -q $read(top.txt,w,& %titre)
- %ligne.titre = $readn
- !.echo -q $read(votants.txt,w,%votant)
- %ligne.topflop = $readn
- if (%ligne.topflop == 0 && %ligne.titre == 0) {
- %points = 0
- %existe = non
- }
- if (%ligne.topflop == 0 && ours !isin $nick) {
- %points = $calc($gettok($read(top.txt,%ligne.titre),1,32) + %bonus)
- if (%existe == $null) {
- write -l $+ %ligne.titre top.txt %points %titre
- }
- else {
- write top.txt %points %titre
- }
- write votants.txt %votant
- notice $nick 7,1 Merci d'avoir donné ton avis sur :
- if (%quizz != on) { notice $nick 15,1 %titre }
- notice $nick 11,1 le titre a %points points
- unset %existe
- }
- else {
- notice $nick 7,1 Désolé, mais 4,1un seul vote par chanson...
- }
- }
- }
ON *:TEXT:!vote:#:{
%titre = $read now.txt
$read(top.txt,w,& %titre)
%ligne = $readn
if (%ligne == 0) {
%points = 0
}
else {
var %points = $gettok($read(top.txt,%ligne),1,32)
}
if (%quizz != on) { notice $nick 15,1 %titre 7,1 a actuellement11,1 %points point 7,1pour le faire évoluer tape }
notice $nick 9,1!top7,1 si le titre te plait
notice $nick 9,1!megatop7,1 si le titre te plait énormément
notice $nick 4,1!flop7,1 si le titre déplait
notice $nick 4,1!megaflop7,1 si lz titr te déplait énormément
}
ON *:TEXT:!*:#:{
if ($1 == !top) { %bonus = 1 }
if ($1 == !megatop) { %bonus = 2 }
if ($1 == !flop) { %bonus = -1 }
if ($1 == !megaflop) { %bonus = -2 }
if ($1 == !top || $1 == !megatop || $1 == !flop || $1 == !megaflop) {
%votant = $address($nick,14)
%titre = $read(now.txt)
!.echo -q $read(top.txt,w,& %titre)
%ligne.titre = $readn
!.echo -q $read(votants.txt,w,%votant)
%ligne.topflop = $readn
if (%ligne.topflop == 0 && %ligne.titre == 0) {
%points = 0
%existe = non
}
if (%ligne.topflop == 0 && ours !isin $nick) {
%points = $calc($gettok($read(top.txt,%ligne.titre),1,32) + %bonus)
if (%existe == $null) {
write -l $+ %ligne.titre top.txt %points %titre
}
else {
write top.txt %points %titre
}
write votants.txt %votant
notice $nick 7,1 Merci d'avoir donné ton avis sur :
if (%quizz != on) { notice $nick 15,1 %titre }
notice $nick 11,1 le titre a %points points
unset %existe
}
else {
notice $nick 7,1 Désolé, mais 4,1un seul vote par chanson...
}
}
}
Conclusion
Voilà c'est tout j'attends vos commentaires et vos suggestions notament sur la limite de vote, j'ai pris un timer, car le fait de mettre les adresses dans un fichier texte et faire une vérification ne marchait pas (l'effacage du fichier se faisait bien lui au début de chaque nouvelle chanson).
Historique
- 01 mars 2005 16:21:50 :
- Correction de faute de frappe sur %pointst remplacé par %points (Ooops)
- 05 mars 2005 10:23:59 :
- Optimisation du code en regroupant certaines fonctions
- 05 mars 2005 10:27:39 :
- .correction d'un oublie de changemet de variable
- 16 mars 2005 01:08:04 :
- Maintenant on ne peut voter qu'une seule fois par chanson, au lieu de une fois toutes les deux minutes...
- 22 avril 2005 04:49:37 :
- Corrction d'un bug...
Sources du même auteur
Sources de la même categorie
Commentaires et avis
|
Derniers Blogs
[RIA SERVICES] INCLUDE ET DOMAINDATASOURCE[RIA SERVICES] INCLUDE ET DOMAINDATASOURCE par Audrey
Dans un de mes articles précédents , j'avais parlé des DomainDataSource avec RIA Services dans le cas d'une interface Maître - Détail. Dans le même principe, je vais parler d'une autre manière de mettre en forme ce cas d'interface avec RIA Services. Et po...
Cliquez pour lire la suite de l'article par Audrey ZUNE : VERSION ZUNE SOFTWARE V 4.2 ET LA SOCIALISATIONZUNE : VERSION ZUNE SOFTWARE V 4.2 ET LA SOCIALISATION par ROMELARD Fabrice
Une des nouveautés de la version V 3.0 était l'apparition de l'onglet Social qui ne fonctionnait que si le MarketPlace était activé sur son poste. Cela limitait donc son intérêt, car hors du cadre commercial USA-CANADA, peu de monde trouva...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice PRATIQUE DE SILVERLIGHT PAR ERIC AMBROSIPRATIQUE DE SILVERLIGHT PAR ERIC AMBROSI par MPOWARE
Je viens de finir la lecture du dernier livre d'
Eric Ambrosi
éditions PEARSON
Son livre donne une approche pratique de Silverlight qui sera aussi bien comprise par le développeur que par le designeur.
Tous les aspects du développement RIA sont abor...
Cliquez pour lire la suite de l'article par MPOWARE APPRENDRE à DéVELOPPER POUR LES MOBILES AVEC LA NOUVELLE GéNéRATION .NETAPPRENDRE à DéVELOPPER POUR LES MOBILES AVEC LA NOUVELLE GéNéRATION .NET par odewit
2 déclinaisons de Silverlight et 2 déclinaisons de Mono permettent dorénavant (ou permettront prochainement) de développer des applications .NET mobiles pour les principales plates-formes du marché :
Silverlight pour Symbian, basé sur Silverlight 2...
Cliquez pour lire la suite de l'article par odewit ZUNE : NOUVELLE VERSION DU ZUNE SOFTWARE - V 4.2ZUNE : NOUVELLE VERSION DU ZUNE SOFTWARE - V 4.2 par ROMELARD Fabrice
Avec la dernière génération du lecteur MP3 de Microsoft, le ZUNE HD, Microsoft a publié une nouvelle version du logiciel pour PC. Ainsi, je me suis décidé à installer celle-ci sur mon Tablet PC ACER, comme toujours le logiciel est donc tél...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
Academy System (10.9.4.0)ACADEMY SYSTEM (10.9.4.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods
|