What PC? 1997 February/WPCFEB97.ISO/dxrs/radio.dxr/00006_SelectClockWISE.ls

Text File | 1996-12-05 | 1.3 KB | 46 lines

on SelectClockWISE whichKnob
  global SelectCounter, RedCounter, eightButList, volumecounter
  if SelectCounter = 100 then
    if the castNum of sprite whichKnob = the number of member "SelectEnd" then
      set the castNum of sprite whichKnob to the number of member "SelectStart"
    else
      set the castNum of sprite whichKnob to the castNum of sprite whichKnob + 1
    end if
    updateStage()
    set SelectCounter to 0
  else
    set SelectCounter to 1 + SelectCounter
  end if
  if whichKnob = 4 then
    if RedCounter = 250 then
      if the locV of sprite 3 > 60 then
        set the locV of sprite 3 to the locV of sprite 3 - 5
      else
        set the locV of sprite 3 to 50
      end if
      repeat with f = 1 to count(eightButList)
        if the locV of sprite 3 = getAt(getAt(eightButList, f), 9) then
          puppetSound(0)
          updateStage()
          puppetSound(getAt(getAt(eightButList, f), 10))
          set RedCounter to 0
        end if
      end repeat
      updateStage()
      set RedCounter to 0
    else
      set RedCounter to 1 + RedCounter
    end if
  else
    if volumecounter = 200 then
      set volumecounter to 0
      if the volume of sound 1 < 245 then
        set the volume of sound 1 to the volume of sound 1 + 10
      end if
      updateStage()
    else
      set volumecounter to 1 + volumecounter
    end if
  end if
end