Accueil > > > ECRAN DE VEILLE MIRC
ECRAN DE VEILLE MIRC
Information sur la source
Description
Ben voilà c'est un écran de veille mIRC que j'ai fait, j'ai apris les drawline il y a pas longtemps et je me suis dit qu'on pouvait faire quelque chose donc.. Le code n'est certes pas très complexe mais je le met en initié.. Vous collez ce code dans les remote (ALT+R) et ensuite vous tapez /ss
Source
- alias ss {
- unset %anim*
- if ($window(@ss)) { window -c @ss }
- window -bdhp +d @ss 0 0 $window(-1).w $window(-1).h
- drawfill @ss 1 1 1 1
- .anim_1
- }
- alias dls1 { .drawline -dr @ss $rgb($rand(0,255),$rand(0,255),$rand(0,255)) 3 $1- }
- alias anim_1 {
- if (!$window(@ss)) { halt }
- var %ô = 100
- var %Ö = 0
- :next
- inc %anim_1
- .timer -m 1 %ô .dls1 3 %Ö 800 %Ö
- inc %ô 100
- inc %Ö 20
- if (%anim_1 <= 28) { goto next }
- elseif (%anim_1 >= 28) { anim_2 | halt }
- }
- alias dls2 { .drawline -dr @ss $rgb($rand(0,255),$rand(0,255),$rand(0,255)) 5 $1- }
- alias anim_2 {
- if (!$window(@ss)) { halt }
- var %û = 100
- var %Ü = 800
- :next2
- inc %anim_2
- .timer -m 1 %û .dls2 %Ü 3 %Ü 600
- inc %û 100
- dec %Ü 30
- if (%anim_2 <= 39) { goto next2 }
- else { .timer 1 $rand(1,3) anim_3 | halt }
- }
- alias dls3 { .drawline @ss 1 3 $1- }
- alias anim_3 {
- if (!$window(@ss)) { halt }
- var %â = 100
- var %Ä = 0
- :next3
- inc %anim_3
- .timer -m 1 %â .dls3 3 %Ä 800 %Ä
- inc %â 100
- inc %Ä 20
- if (%anim_3 <= 28) { goto next3 }
- elseif (%anim_3 >= 28) { anim_4 | halt }
- }
- alias dls4 { .drawline @ss 1 5 $1- }
- alias anim_4 {
- if (!$window(@ss)) { halt }
- var %î = 100
- var %Ï = 800
- :next4
- inc %anim_4
- .timer -m 1 %î .dls4 %Ï 3 %Ï 600
- inc %î 100
- dec %Ï 30
- if (%anim_4 <= 39) { goto next4 }
- else { unset %anim* | .timer 1 $rand(1,3) anim_1 | halt }
- }
alias ss {
unset %anim*
if ($window(@ss)) { window -c @ss }
window -bdhp +d @ss 0 0 $window(-1).w $window(-1).h
drawfill @ss 1 1 1 1
.anim_1
}
alias dls1 { .drawline -dr @ss $rgb($rand(0,255),$rand(0,255),$rand(0,255)) 3 $1- }
alias anim_1 {
if (!$window(@ss)) { halt }
var %ô = 100
var %Ö = 0
:next
inc %anim_1
.timer -m 1 %ô .dls1 3 %Ö 800 %Ö
inc %ô 100
inc %Ö 20
if (%anim_1 <= 28) { goto next }
elseif (%anim_1 >= 28) { anim_2 | halt }
}
alias dls2 { .drawline -dr @ss $rgb($rand(0,255),$rand(0,255),$rand(0,255)) 5 $1- }
alias anim_2 {
if (!$window(@ss)) { halt }
var %û = 100
var %Ü = 800
:next2
inc %anim_2
.timer -m 1 %û .dls2 %Ü 3 %Ü 600
inc %û 100
dec %Ü 30
if (%anim_2 <= 39) { goto next2 }
else { .timer 1 $rand(1,3) anim_3 | halt }
}
alias dls3 { .drawline @ss 1 3 $1- }
alias anim_3 {
if (!$window(@ss)) { halt }
var %â = 100
var %Ä = 0
:next3
inc %anim_3
.timer -m 1 %â .dls3 3 %Ä 800 %Ä
inc %â 100
inc %Ä 20
if (%anim_3 <= 28) { goto next3 }
elseif (%anim_3 >= 28) { anim_4 | halt }
}
alias dls4 { .drawline @ss 1 5 $1- }
alias anim_4 {
if (!$window(@ss)) { halt }
var %î = 100
var %Ï = 800
:next4
inc %anim_4
.timer -m 1 %î .dls4 %Ï 3 %Ï 600
inc %î 100
dec %Ï 30
if (%anim_4 <= 39) { goto next4 }
else { unset %anim* | .timer 1 $rand(1,3) anim_1 | halt }
}
Conclusion
J'me suis servi du tutorial de DixrouE sur scriptsdb.org donc merci à lui Quand vous allez fermer la fenêtre vous risqué d'avoir * /drawline.. Je resoudrai ça dans la prochaine version et je le ferai en hashtable donc voila bon amusement
Historique
- 22 juillet 2004 17:03:27 :
- J'avais fait une erreur, Drawline au lieu de Drawfill dans les 1eres lignes
- 22 juillet 2004 17:05:31 :
- J'avais fait une erreur, Drawline au lieu de Drawfill dans les 1eres lignes
Sources du même auteur
Sources de la même categorie
Commentaires et avis
|
Derniers Blogs
ETENDRE LE TEAM WEB ACCESS DE TFS 2012 - STEP 0ETENDRE LE TEAM WEB ACCESS DE TFS 2012 - STEP 0 par Philess
L'extensibilité du Team Web Access
Le Web Access (site d'équipe) de Team Foundation Server a été complètement réécrit dans la version 2012 avec pas moins de 400.000 lignes de JavaScript. Ce nouveau modèle a été pensé pour offrir de grandes...
Cliquez pour lire la suite de l'article par Philess SIMULER FACILEMENT L'ENVOI DE MAILSIMULER FACILEMENT L'ENVOI DE MAIL par JeremyJeanson
il m'a été demandé, à plusieurs reprises, comment je faisais pour simuler l'envoi de mail lors de mes démos de Workflow Foundation. Ma solution est plutôt simple : j'utilise la configuration par défaut du SmtpClient et j'oriente les mails vers un dossier ...
Cliquez pour lire la suite de l'article par JeremyJeanson VOTEZ POUR LE TOP 10 DES INFLUENCEURS SHAREPOINT FRANCOPHONES !VOTEZ POUR LE TOP 10 DES INFLUENCEURS SHAREPOINT FRANCOPHONES ! par Patrick Guimonet
Si ce n'est déjà fait (comme plus de 600 personnes déjà), il est encore temps de voter pour le concours TOP 10 des influenceurs SharePoint francophones ! Il est organisé par harmon.ie et accessible ici : http://harmon.ie/top-...
Cliquez pour lire la suite de l'article par Patrick Guimonet [CONF'SHAREPOINT] DERNIER RAPPEL ! :-)[CONF'SHAREPOINT] DERNIER RAPPEL ! :-) par Patrick Guimonet
La Conf'SharePoint en chiffres c'est : 3 jours de SharePoint ! 4 parcours et 60 sessions 17 partenaires représentant toutes les fac...
Cliquez pour lire la suite de l'article par Patrick Guimonet
Forum
LANGAGE 4DLANGAGE 4D par wvalter
Cliquez pour lire la suite par wvalter PROBLEME MIRCPROBLEME MIRC par PaTaTe
Cliquez pour lire la suite par PaTaTe PERFECTIONPERFECTION par gorby10
Cliquez pour lire la suite par gorby10
Logiciels
Easy-Planning (4.5.0.11)EASY-PLANNING (4.5.0.11)Easy-Planning permet de créer des plannings sous la représentation de diagrammes et est adapté a... Cliquez pour télécharger Easy-Planning CVEasy (3.1.0.51)CVEASY (3.1.0.51)PHMSD-CVEasy est un logiciel d'aide à la rédaction de CV d'une simplicité déconcertante.
PHMSD-C... Cliquez pour télécharger CVEasy LettresFaciles 2011 (8.6.0.31)LETTRESFACILES 2011 (8.6.0.31)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011 sDEVIS-FACTURES vlPRO (8.4.2.62)SDEVIS-FACTURES VLPRO (8.4.2.62)sDEVIS-FACTURES vlPRO a été mis au point pour les particuliers, créateurs, entrepreneurs, artisa... Cliquez pour télécharger sDEVIS-FACTURES vlPRO Devis-Factures PHMSD (2.1.0.11)DEVIS-FACTURES PHMSD (2.1.0.11)Configuration minimale
Nécessite Windows™ 2000, XP, Windows 7, 8, Vista (Service Pack à... Cliquez pour télécharger Devis-Factures PHMSD
|