ECRAN DE VEILLE MIRC

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 }
}