Chip Hitware 7 B/CHIP_HITWARE_7B.iso/Edukacja/Guitar Tuner/Wintun16.dxr/00020_pressButton.ls

Text File | 1997-04-24 | 864 b | 34 lines

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