Better Homes & Gardens: …oking for Today - Chicken/Image.iso/pc/utility.dxr/00002_GACButton.ls

Text File | 1995-11-20 | 660 b | 31 lines

property mySprite, myCast, pressedCast

on birth me, spriteNum
  set mySprite to spriteNum
  puppetSprite(mySprite, 1)
  set myCast to the castNum of sprite mySprite
  set pressedCast to myCast + 1
  return me
end

on down me
  set the castNum of sprite mySprite to pressedCast
  repeat while the mouseDown
    if rollOver(mySprite) then
      set the castNum of sprite mySprite to pressedCast
    else
      set the castNum of sprite mySprite to myCast
    end if
    updateStage()
  end repeat
end

on up me
  if the castNum of sprite mySprite = pressedCast then
    set the castNum of sprite mySprite to myCast
    return 1
  else
    return 0
  end if
end