home *** CD-ROM | disk | FTP | other *** search
- on pressButton
- set chButton to the clickOn
- set castNumButtonUp to the castNum of sprite chButton
- set butUpName to the name of cast castNumButtonUp
- set nWordsInName to the number of words in butUpName
- if nWordsInName > 1 then
- if word 2 of butUpName = "Grey" then
- return 0
- end if
- end if
- set castNumButtonDown to castNumButtonUp + 1
- puppetSound("3")
- set downFlag to 1
- repeat while downFlag
- if rollOver(chButton) then
- set the castNum of sprite chButton to castNumButtonDown
- else
- set the castNum of sprite chButton to castNumButtonUp
- end if
- updateStage()
- set downFlag to the stillDown
- end repeat
- set the castNum of sprite chButton to castNumButtonUp
- repeat while soundBusy(1)
- end repeat
- puppetSound(0)
- updateStage()
- if rollOver(chButton) then
- return 1
- else
- return 0
- end if
- end
-