|
Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
ANIMATION ÉTOILE
Information sur la source
Description
Voilà une simple petite animation que j'ai fait dans un temp libre et aussi parce que j'était (très) en manque d'inspiration ^^"
Source
- alias stars {
- if ($hget(stars)) hfree stars
- hadd -m stars s 0
- window -Cdp +l @stars 0 0 500 500
- drawfill @stars 1 1 0 0
- .timersnews -m 0 $r(150,300) new_star
- }
-
- alias -l new_star {
- var %j 250
- while (250 isin %j) var %j $+($r(200,300),:,$r(200,300))
- hadd stars $+(d.,$hget(stars,s)) %j
- hadd stars $+(p.,$hget(stars,s)) $hget(stars,$+(d.,$hget(stars,s)))
- hadd stars $+(c.,$hget(stars,s)) 100
- hadd stars $+(g.,$hget(stars,s)) 2
- var %b $gettok($hget(stars,$+(d.,$hget(stars,s))),1,58), %c $gettok($hget(stars,$+(d.,$hget(stars,s))),2,58)
- hadd stars $+(a.,$hget(stars,s)) $+($c($c(%b -225) *10),:,$c($c(%c -225) *10))
- drawrect -f @stars 0 1 %b %c 2 2
- .timerstar. $+ $hget(stars,s) -m 0 1 move_star $hget(stars,s)
- hinc stars s
- }
-
- alias -l move_star {
- if $over_star($1) == over { .timerstar. $+ $1 off | hdel -w stars $1 }
- else {
- hinc stars $+(c.,$1) | hadd stars $+(g.,$1) $int($c($hget(stars,$+(c.,$1)) /50))
- var %a $c($gettok($hget(stars,$+(a.,$1)),1,58) - $gettok($hget(stars,$+(d.,$1)),1,58)), %b $c($gettok($hget(stars,$+(a.,$1)),2,58) - $gettok($hget(stars,$+(d.,$1)),2,58))
- var %c $gettok($hget(stars,$+(p.,$1)),1,58), %d $gettok($hget(stars,$+(p.,$1)),2,58)
- drawrect -f @stars 1 1 %c %d $hget(stars,$+(g.,$1)) $hget(stars,$+(g.,$1))
- hadd stars $+(p.,$1) $+($c(%c + $iif(%a < 0,-) $abs($c(%a / %b))),:,$c(%d + $iif(%b < 0,-) $abs($c(%b / %a))))
- drawrect -f @stars 0 1 $gettok($hget(stars,$+(p.,$1)),1,58) $gettok($hget(stars,$+(p.,$1)),2,58) $hget(stars,$+(g.,$1)) $hget(stars,$+(g.,$1))
- }
- }
-
- alias -l over_star {
- tokenize 58 $hget(stars,$+(p.,$1))
- var %a $1, %b $2
- if (!$inrect(%a,%b,-10,-10,500,490)) return over
- }
-
- alias -l c return $calc($1-)
-
- on *:close:@stars:.timers* off | hfree stars
alias stars {
if ($hget(stars)) hfree stars
hadd -m stars s 0
window -Cdp +l @stars 0 0 500 500
drawfill @stars 1 1 0 0
.timersnews -m 0 $r(150,300) new_star
}
alias -l new_star {
var %j 250
while (250 isin %j) var %j $+($r(200,300),:,$r(200,300))
hadd stars $+(d.,$hget(stars,s)) %j
hadd stars $+(p.,$hget(stars,s)) $hget(stars,$+(d.,$hget(stars,s)))
hadd stars $+(c.,$hget(stars,s)) 100
hadd stars $+(g.,$hget(stars,s)) 2
var %b $gettok($hget(stars,$+(d.,$hget(stars,s))),1,58), %c $gettok($hget(stars,$+(d.,$hget(stars,s))),2,58)
hadd stars $+(a.,$hget(stars,s)) $+($c($c(%b -225) *10),:,$c($c(%c -225) *10))
drawrect -f @stars 0 1 %b %c 2 2
.timerstar. $+ $hget(stars,s) -m 0 1 move_star $hget(stars,s)
hinc stars s
}
alias -l move_star {
if $over_star($1) == over { .timerstar. $+ $1 off | hdel -w stars $1 }
else {
hinc stars $+(c.,$1) | hadd stars $+(g.,$1) $int($c($hget(stars,$+(c.,$1)) /50))
var %a $c($gettok($hget(stars,$+(a.,$1)),1,58) - $gettok($hget(stars,$+(d.,$1)),1,58)), %b $c($gettok($hget(stars,$+(a.,$1)),2,58) - $gettok($hget(stars,$+(d.,$1)),2,58))
var %c $gettok($hget(stars,$+(p.,$1)),1,58), %d $gettok($hget(stars,$+(p.,$1)),2,58)
drawrect -f @stars 1 1 %c %d $hget(stars,$+(g.,$1)) $hget(stars,$+(g.,$1))
hadd stars $+(p.,$1) $+($c(%c + $iif(%a < 0,-) $abs($c(%a / %b))),:,$c(%d + $iif(%b < 0,-) $abs($c(%b / %a))))
drawrect -f @stars 0 1 $gettok($hget(stars,$+(p.,$1)),1,58) $gettok($hget(stars,$+(p.,$1)),2,58) $hget(stars,$+(g.,$1)) $hget(stars,$+(g.,$1))
}
}
alias -l over_star {
tokenize 58 $hget(stars,$+(p.,$1))
var %a $1, %b $2
if (!$inrect(%a,%b,-10,-10,500,490)) return over
}
alias -l c return $calc($1-)
on *:close:@stars:.timers* off | hfree stars
Conclusion
Pour ouvrir l'anim tapper /stars Enjoy :o)
Historique
- 20 août 2006 23:33:29 :
- La durée entre les apparitions des étoiles est désormais aléatoire
- 16 février 2007 18:56:45 :
- Mise à jour
- 16 février 2007 18:57:55 :
- Mise à jour
- 29 septembre 2007 00:56:02 :
- Mise à jour
Sources du même auteur
Sources de la même categorie
Sources en rapport avec celle ci
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Picwin dans une window [ par Panthouffle ]
Bonjour à tous, je cherches un moyen pour coller une picture window sur la toolbar de mIRC, j'aimerais qu'il n'y ai aucune trace de cette window sauf
Ligne de commandes dans une window [ par Panthouffle ]
J'aimerais savoir si il est possible de récupéré le contenu de la ligne de commandes (editbar) dans une window lorsqu'on appuie sur "entrer", ça fait
Dline [ par MJ92 ]
Salut, je reviens pour un problème avec Dline... On *:join:#Opers:{ If ($nick == $nick) { If !$window(@Ircops) { window -ek0l10 @Ircops }
Drawrect -d [ par wims ]
Hier j'ai découvert un bug avec /drawrect -d, il s'agit de donné une profondeur différente de 1 pixel et des lignes apparaissent depuis les coins form
Picwin [ par atlantisfr ]
Comment peut-on créer une liste avec une vsbar en picwin ?
Problème de lag en mIRC [ par Lorya51100 ]
Bonjour à tous :)Voici mon second post dans ce fofo car j'ai un nouveau soucis : le lag !En fait, je réalise un bot d'animation en mIRC, donc, quand j
ACCESS ANIMATION BOUTON [ par BOOK ]
BONJOURJ AIMERAI AVOIR DES MODELES POUR ANIMATION BOUTON DANS ACCESSMERCI DE VOTRE AIDECOCO
changer la taille de la fenêtre [ par Camanche ]
Bonjour, quand on crée une fenêtre, on fait window -k(0) @fenêtre mais c'est une fenêtre standard, comment fait-on pour modifier la taille de cette f
Copier pv sur un chan [ par pepinojohnny ]
bonjour,donc j'ai un serveur irc, j'ai un bot d'animation doncsi mon bot d'animation a un pv je voudrais que le pv soit automatiquement copier sur un
Ouvrir une fenetre internet en @Window [ par GuitarParty32 ]
Bonjour à tous et à toutes, je ne sais pas si je postes dans la bonne catégories, première fois que j'utilises ce forum, je penses que le titre de mon
|
Téléchargements
Logiciels à télécharger sur le même thème :
|