All pastes #483044 Raw Edit

Unnamed

public text v1 · immutable
·published 2007-05-11 15:21 UTC
rendered paste body
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) { drawtext $active 07 200 100 The ball should now be moving! | set %sqr $true } }
}
on *:CLOSE:*:{ if (($target == @Squash) && (%sqr)) unset %sqr }