Voilà ce que je me suis amusé à faire quand j'avais un peu de temps libre.
Ceci n'a pas vraiment d'intérêt mais bon ça pourra peut-être servir à quelqu'un (le principe), qui sait ? :)
Source / Exemple :
/* A coller dans vos remotes
Commande : /dc1
Faites bouger la souris dans la @window xD
Commande : /dc2
Mon premier join en scripting IRC ! :D
Commandes : /dc3 /dc4 /dc5 /dc6 /dc7 /dc8
Y'a qu'à regarder :P
Dsl, j'ai rien trouvé de mieux à faire pour m'occuper... xD
alias dc1 {
var %ticks $ticks, %mediane 50, %angle 0, %x 0, %y 0
window -c @dc
window -apdCBk0 @dc -1 -1 600 600
while %mediane > 0 {
while %angle < 359 {
%x = $calc(%mediane * $cos(%angle) + $mouse.x)
%y = $calc(%mediane * $sin(%angle) + $mouse.y)
drawdot -r @dc $rgb(120,$calc(%mediane * 5.15),200) 1 %x %y
%angle = $calc(%angle + .5)
}
dec %mediane
%angle = 0
}
echo -a DC1 terminé en $calc(($ticks - %ticks)/1000) secs
}
alias dc2 {
var %ticks $ticks, %mediane 70, %angle 0, %x 0, %y 0
window -c @dc
window -apdCBk0 @dc -1 -1 600 600
drawrect -f @dc 1 1 0 0 600 600
while %mediane > 5 {
while %angle < 359 {
%x = $calc(%mediane * $calc($cos(%angle) + 2) + 150)
%y = $calc(%mediane * $calc($sin(%angle) + 2) + 150)
drawdot -r @dc $rgb(255,255,255) 1 %x %y
%angle = $calc(%angle + .5)
}
dec %mediane
%angle = 0
}
set %mediane 70
while %mediane > 0 {
while %angle < 359 {
%x = $calc(%mediane * $cos(%angle) + 292)
%y = $calc(%mediane * $sin(%angle) + 292)
drawdot -r @dc $rgb($calc(%mediane * 4),0,0) 1 %x %y
%angle = $calc(%angle + .5)
}
dec %mediane
%angle = 0
}
echo -a DC2 terminé en $calc(($ticks - %ticks)/1000) secs
}
alias dc3 {
var %ticks $ticks, %mediane 40, %angle 0, %x 0, %y 0
window -c @dc
window -apdCBk0 @dc -1 -1 600 600
drawrect -f @dc 1 1 0 0 600 600
while %mediane > -100 {
while %angle < 359 {
%x = $calc(%mediane * $calc($sin(%angle) + 4) + 300 + %angle)
%y = $calc(50 * $cos(%angle) + 50 + %angle)
drawdot -r @dc $rgb(0,$calc(%angle * 2),100) 1 %x %y
inc %angle
}
dec %mediane
%angle = 0
}
echo -a DC3 terminé en $calc(($ticks - %ticks)/1000) secs
}
alias dc4 {
var %ticks $ticks, %mediane 70, %angle 0, %x 0, %y 0
window -c @dc
window -apdCBk0 @dc -1 -1 1000 700
drawrect -f @dc 1 1 0 0 1000 700
while %mediane > 0 {
while %angle < 359 {
%x = $calc(5 * %mediane * $sin(%angle) + 500)
%y = $calc(50 * $cos($calc(%angle * %mediane)) + 300)
drawdot -r @dc $rgb(0,$calc(%mediane * 4),100) 1 %x %y
inc %angle
}
dec %mediane
%angle = 0
}
echo -a DC4 terminé en $calc(($ticks - %ticks)/1000) secs
}
alias dc5 {
var %ticks $ticks, %mediane 100, %angle 0, %x 0, %y 0
window -c @dc
window -apdCBk0 @dc -1 -1 600 600
while %mediane > 0 {
while %angle < 359 {
%x = $calc((%mediane * %angle) / (%y + 1) * $cos(%angle) + 300)
%y = $calc(%mediane * $sin(%angle) + 300)
drawdot -r @dc $rgb($calc(%mediane * 50),0,0) 1 %x %y
%angle = $calc(%angle + .5)
}
dec %mediane
%angle = 0
}
echo -a DC5 terminé en $calc(($ticks - %ticks)/1000) secs
}
alias dc6 {
var %ticks $ticks, %mediane 5, %angle 0, %x 0, %y 0
window -c @dc
window -apdCBk0 @dc -1 -1 600 600
while %mediane > 0 {
while %angle < 359 {
%x = $calc(45 / %mediane * $cos(%angle) + 300)
%y = $calc(45 * %mediane * $sin(%angle) + 300)
drawdot -r @dc $rgb($calc(%mediane * 50),0,0) 1 %x %y
%angle = $calc(%angle + 0.5)
}
%mediane = %mediane - .15
%angle = 0
}
echo -a DC6 terminé en $calc(($ticks - %ticks)/1000) secs
}
alias dc7 {
var %ticks $ticks, %mediane 5, %angle 0, %x 0, %y 0
window -c @dc
window -apdCBk0x @dc -1 -1 600 600
while %mediane > 0 {
while %angle < 359 {
%x = $calc(((%mediane - %angle) / ($cos(%angle))) / %mediane * $cos(%angle) + 1000)
%y = $calc(((%mediane + %angle) / -10)* %mediane * $sin(%angle) + 300)
drawdot -r @dc $rgb($calc(%mediane * 50),0,0) 1 %x %y
%angle = $calc(%angle + .912)
}
%mediane = %mediane - .1
%angle = 0
}
echo -a DC7 terminé en $calc(($ticks - %ticks)/1000) secs
}
alias dc8 {
var %ticks $ticks, %mediane 5, %angle 0, %x 0, %y 0
window -c @dc
window -apdCBk0x @dc -1 -1 600 600
while %mediane > 0 {
while %angle < 359 {
%x = $calc(((%mediane - %angle) / ($cos(%angle))) / %mediane * $cos(%angle) + 1000)
%y = $calc(((%mediane - %angle) * ($cos(%angle))) / %mediane * $sin(%angle) + 300)
drawdot -r @dc $rgb($calc(%mediane * 50),0,0) 1 %x %y
%angle = $calc(%angle + 1)
}
%mediane = %mediane - .1
%angle = 0
}
echo -a DC8 terminé en $calc(($ticks - %ticks)/1000) secs
}
Conclusion :
Coller le code dans vos remotes (nouveau fichier de préférence) et tappez /dc1 à /dc8.
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.