on mouseDown
  puppetSound(2) "Sound2"
  ClickMe
end

on ClickMe
  set spriteNum = the clickOn
  set offCast = the castNum of sprite spriteNum
  set onCast = offCast+1
  set the castNum of sprite spriteNum = onCast
  updateStage
  repeat while the mouseDown
    scrollByLine member"zlist", -1
    if (rollover(spriteNum)) then
      set the castNum of sprite spriteNum = onCast
    else
      set the castNum of sprite spriteNum = offCast
    end if
    updateStage
  end repeat
  set the castNum of sprite spriteNum = offCast
  updateStage
  return (rollover(spriteNum))  -- TRUE if released on sprite
end ClickMe