Anonymous

alias firewurx window -pk0 +f @animation -1 -1 300 300
menu @animation { 
  .start:firewirx $?="How fast do you want it to go 1-20" 
}
alias firewirx {
  var %w = @animation
  var %a = 280
  clear %w | drawbg %w
  lightitup %w
  while (%a > 50) { 
    dec %a $1
    drawreplace -r %w $rgb(45,87,34) $rgb(0,0,255)
    drawcracker %a %w 
  }
  clear %w
  var %o = 0
  while (%o < 30) {
    inc %o 1
    drawreplace -r %w $rgb(0,0,255) $rgb(255,255,255)
    explode %a %w %o
  }
}
alias lightitup {
  var %a = 0
  while (%a < 147) {
    inc %a 2
    drawreplace -r $1 $rgb(45,87,34) $rgb(0,0,255)
    drawguy %a $1
  }
  var %b = 10
  while (%b > 0) { dec %b 1 | bendover %a $1 | drawreplace -r $1 $rgb(45,87,34) $rgb(0,0,255) }
  while (%a > -4) {
    dec %a 2
    drawreplace -r $1 $rgb(45,87,34) $rgb(0,0,255)
    drawguy %a $1
  }
}
alias bendover {
  var %c = $rgb(45,87,34)
  drawdot -r $2 %c 5 $calc($1 + 2) 279
}  
alias drawguy {
  var %c = $rgb(45,87,34)
  drawdot -r $2 %c 3 $calc($1 + 2) 274
  drawline -r $2 %c 1 $1 274 $1 282
}
alias explode {
  var %ndots = $r(12,40)
  var %a = 0
  drawbg $2
  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 < 3) { drawdot -r $2 %c 2 151 $calc($1 + %o) | inc %o }
  drawrect -rdf $2 %c 2 145 $calc($1 - 12) 8 12
}
alias drawbg {
  drawfill -r $1 $rgb(0,0,255) $rgb(0,0,255) 1 1
  drawrect -rf $1 $rgb(0,255,0) 1 0 282 300 10 
}