alias firewurx window -pk0 +f @animation -1 -1 300 300
menu @animation { 
  .start:firewirx 
}
alias firewirx {
  var %w = @animation
  var %a = 300
  while (%a > 50) { dec %a 4 | clear %w | drawcracker %a %w }
  clear %w
  var %o = 0
  while (%o < 30) {
    inc %o 1
    clear
    explode %a %w %o
  }
}
alias explode {
  var %ndots = $r(12,40)
  var %a = 0
  while (%a < %ndots) {
    inc %a
    drawdot -r $2 $rgb($r(10,234),$r(10,158),$r(10,200)) 2 $rand(131,171) $rand($1,$calc($1 - 40)))
  }
}

alias drawcracker {
  var %o = 0
  var %c = $rgb(45,87,34)
  while (%o < 6) { drawdot -r $2 %c 2 151 $calc($1 + %o) | inc %o }
  drawrect -rdf $2 %c 2 145 $calc($1 - 12) 8 12
}