Stuff

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 
  }
  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 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
    drawcracker 280 $1
    drawreplace -r $1 $rgb(45,87,34) $rgb(0,0,255)
    drawguy %a $1 2
  }
  unset %arm
}
alias bendover {
  var %c = $rgb(45,87,34)
  drawdot -r $2 %c 5 $calc($1 + 2) 279
}  
alias drawguy {
  set %arm $calc(%arm + $iif(%arm == 2,-1,1))
  var %c = $rgb(45,87,34)
  drawdot -r $2 %c 3 $calc($1 + 2) 274
  drawline -r $2 %c 1 $1 274 $1 282
  if ((%arm == 2) && ($3 == 1)) { drawline -r $2 %c 1 $1 274 $calc($1 + 3) 279 | drawline -r $2 %c 1 $1 276 $calc($1 + 3) 282 }
  if ((%arm == 2) && ($3 == 2)) { drawline -r $2 %c 1 $1 274 $calc($1 - 3) 279 | drawline -r $2 %c 1 $1 276 $calc($1 - 3) 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)
  drawline -r $2 %c 2 149 $1 149 $calc($1 + 3)
  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 
}