Miscellany

menu * {
  Squash!:window -pdk0 @Squash 0 0 400 400
}
menu @Squash {
  mouse:{
    drawreplace $active 02 00 | drawline $active 02 10 $calc($mouse.x - 30) 330 $calc($mouse.x + 30) 330
    if (!%sqr) { drawreplace $active 04 00 | drawdot $active 04 6 $mouse.x 322 }
  }
  sclick:{ if (!%sqr) { set %sqd 322 | set %sqs $mouse.x | set %sqr $true | .timerSquash -m 0 100 mball } }
}
on *:CLOSE:*:{ if (($target == @Squash) && (%sqr)) unset %sqr }
alias mball {
  set %sqd $calc(%sqd - 3)
  drawreplace @Squash 04 00
  drawdot $active 04 6 %sqs %sqd
}