Better Homes & Gardens: …oking for Today - Chicken/Image.iso/pc/shared.dxr/01012_Button.ls

Text File | 1995-11-21 | 645 b | 30 lines

property spriteChan, releasedCast, pressedCast, group
global theLegoList

on birth me, argList
  return me
end

on init me
  set the releasedCast of me to the castNum of sprite the spriteChan of me
  if the pressedCast of me = 0 then
    set the pressedCast of me to the releasedCast of me
  end if
  puppetSprite(the spriteChan of me, 1)
  addProp(theLegoList, spriteChan, me)
end

on click me
  click(the group of me, me)
end

on press me
  set the castNum of sprite the spriteChan of me to the pressedCast of me
  updateStage()
end

on release me
  set the castNum of sprite the spriteChan of me to the releasedCast of me
  updateStage()
end