Computer Music Interactif 7/cd.iso/pc/PC/Demos/GroovMak/data1.cab/Program_Executable_Files/Media/grooveM.dxr/00365.ls

Text File | 1999-09-17 | 22.3 KB | 561 lines

on mouseDown
  global gOn, gpag, gPath, gSong, gNumUser, gSync, stateTrackList, virTracklIst, apri
  if not (the visible of window "help") then
    if gOn then
      if inside(the clickLoc, rect(615, 454, 634, 471)) then
        repeat while the mouseDown
          set the memberNum of sprite 13 to the number of member "Hquit"
          set the ink of sprite 13 to 36
          set the loc of sprite 13 to point(625, 464)
          updateStage()
        end repeat
        pass()
      end if
      if inside(the clickLoc, rect(249, 169, 390, 310)) and not inside(the clickLoc, rect(292, 196, 348, 216)) and not inside(the clickLoc, rect(280, 236, 360, 242)) and not inside(the clickLoc, rect(292, 264, 348, 284)) and (virTracklIst <> [-1, -1, -1, -1, -1, -1, -1, -1]) and not gSync then
        repeat while the mouseDown
          set the memberNum of sprite 13 to the number of member "Hred"
          set the ink of sprite 13 to 36
          set the loc of sprite 13 to point(320, 240)
          updateStage()
        end repeat
        pass()
      end if
      if inside(the clickLoc, rect(565, 52, 573, 60)) then
        repeat while the mouseDown
          set the memberNum of sprite 13 to the number of member "HpreviousPage"
          set the ink of sprite 13 to 36
          set the loc of sprite 13 to point(569, 57)
          updateStage()
        end repeat
        pass()
      end if
      if inside(the clickLoc, rect(626, 52, 634, 60)) then
        repeat while the mouseDown
          set the memberNum of sprite 13 to the number of member "HnextPage"
          set the ink of sprite 13 to 36
          set the loc of sprite 13 to point(631, 57)
          updateStage()
        end repeat
        pass()
      end if
      if inside(the clickLoc, rect(102, 150, 108, 159)) and (field "grooveMem" <> EMPTY) then
        if (the lineCount of member "grooveMem" > 8) and not ((integer(chars(the name of member the memberNum of sprite 30, 2, length(the name of member the memberNum of sprite 30))) + 7) >= the lineCount of member "grooveMem") then
          repeat while the mouseDown
            set the memberNum of sprite 13 to the number of member "HnextGroove"
            set the ink of sprite 13 to 36
            set the loc of sprite 13 to point(106, 155)
            updateStage()
          end repeat
          pass()
        end if
      end if
      if inside(the clickLoc, rect(102, 308, 108, 316)) and (field "grooveMem" <> EMPTY) then
        if the name of member the memberNum of sprite 30 <> "g1" then
          repeat while the mouseDown
            set the memberNum of sprite 13 to the number of member "HpreviousGroove"
            set the ink of sprite 13 to 36
            set the loc of sprite 13 to point(106, 312)
            updateStage()
          end repeat
          pass()
        end if
      end if
      if inside(the clickLoc, rect(592, 454, 611, 471)) then
        repeat while the mouseDown
          set the memberNum of sprite 13 to the number of member "Hpref"
          set the ink of sprite 13 to 36
          set the loc of sprite 13 to point(602, 464)
          updateStage()
        end repeat
        pass()
      end if
      if inside(the clickLoc, rect(567, 433, 633, 446)) then
        repeat while the mouseDown
          set the memberNum of sprite 13 to the number of member "HvMix"
          set the ink of sprite 13 to 36
          set the loc of sprite 13 to point(601, 441)
          updateStage()
        end repeat
        pass()
      end if
      if inside(the clickLoc, rect(22, 212, 78, 269)) then
        if not ((getPos(stateTrackList, "on") = 0) and (getPos(stateTrackList, "solo") = 0)) then
          set temp to chars(the name of member the memberNum of sprite 12, 2, length(the name of member the memberNum of sprite 12))
          if not integerp(integer(temp)) then
            repeat while the mouseDown
              set the memberNum of sprite 13 to the number of member "Hmarker"
              set the ink of sprite 13 to 36
              set the loc of sprite 13 to point(51, 240)
              updateStage()
            end repeat
          end if
        end if
        pass()
      end if
      if inside(the clickLoc, rect(35, 155, 81, 197)) then
        if (stateTrackList <> ["off", "off", "off", "off", "off", "off", "off", "off"]) and (stateTrackList <> ["mute", "mute", "mute", "mute", "mute", "mute", "mute", "mute"]) then
          repeat while the mouseDown
            set the memberNum of sprite 13 to the number of member "HsaveGroove"
            set the ink of sprite 13 to 36
            set the loc of sprite 13 to point(58, 177)
            updateStage()
          end repeat
        end if
        pass()
      end if
      if inside(the clickLoc, rect(35, 283, 81, 325)) then
        repeat while the mouseDown
          set the memberNum of sprite 13 to the number of member "HloadGroove"
          set the ink of sprite 13 to 36
          set the loc of sprite 13 to point(58, 305)
          updateStage()
        end repeat
        pass()
      end if
      if inside(the clickLoc, rect(567, 413, 633, 426)) then
        repeat while the mouseDown
          set the memberNum of sprite 13 to the number of member "Hseq"
          set the ink of sprite 13 to 36
          set the loc of sprite 13 to point(601, 422)
          updateStage()
        end repeat
        pass()
      end if
      if inside(the clickLoc, rect(567, 372, 633, 387)) then
        repeat while the mouseDown
          set the memberNum of sprite 13 to the number of member "HsongMenu"
          set the ink of sprite 13 to 36
          set the loc of sprite 13 to point(601, 381)
          updateStage()
        end repeat
        pass()
      end if
      if inside(the clickLoc, rect(508, 50, 563, 63)) then
        if gNumUser < 16 then
          repeat while the mouseDown
            set the memberNum of sprite 13 to the number of member "HloadUser"
            set the ink of sprite 13 to 36
            set the loc of sprite 13 to point(536, 58)
            updateStage()
          end repeat
        end if
        pass()
      end if
    end if
  end if
end

on mouseUp
  global gRandom, gTraccia, gSong, gBpmSong, gFirstNum, gOn, gpag, gReturn, gPath, gGrooveSel, gOnSynth, gArp, gProg, gPosVolSynth, gPosPanSynth, gNumUser, gMix, gGreen, gloadGroove, gSync, gFirstClick, gBlue, tempList, volValList, volPosList, stateTrackList, tapList, keepList, virTracklIst, panValList, panPosList, soloGroupList, progList, synthList, randomizeList, apri
  if not (the visible of window "help") then
    if inside(point(the mouseH, the mouseV), rect(615, 454, 634, 471)) then
      openWin("YesNo")
      tell window "YesNo"
        go("quit")
      end tell
      pass()
    end if
    if inside(point(the mouseH, the mouseV), rect(249, 169, 390, 310)) and not inside(point(the mouseH, the mouseV), rect(292, 196, 348, 216)) and not inside(point(the mouseH, the mouseV), rect(280, 236, 360, 242)) and not inside(point(the mouseH, the mouseV), rect(292, 264, 348, 284)) and (virTracklIst <> [-1, -1, -1, -1, -1, -1, -1, -1]) and not gSync then
      clickRed()
      pass()
    end if
    if gOn then
      if inside(point(the mouseH, the mouseV), rect(102, 150, 108, 159)) then
        if (the lineCount of member "grooveMem" > 8) and not ((integer(chars(the name of member the memberNum of sprite 30, 2, length(the name of member the memberNum of sprite 30))) + 7) >= the lineCount of member "grooveMem") then
          if gGrooveSel then
            puppetSprite(12, 0)
          end if
          repeat with i = 1 to 8
            set the memberNum of sprite (29 + i) to the memberNum of sprite (29 + i) + 1
            updateStage()
          end repeat
          if gGrooveSel then
            set firstNum to integer(chars(the name of member the memberNum of sprite 30, 2, length(the name of member the memberNum of sprite 30)))
            set lastNum to integer(chars(the name of member the memberNum of sprite 37, 2, length(the name of member the memberNum of sprite 37)))
            if (gGrooveSel >= firstNum) and (gGrooveSel <= lastNum) then
              puppetSprite(12, 1)
              set nS to "h" & gGrooveSel
              set the memberNum of sprite 12 to the number of member nS
              set the loc of sprite 12 to the loc of sprite (29 + (gGrooveSel - firstNum + 1))
            end if
          end if
        end if
        pass()
      end if
      if inside(the clickLoc, rect(102, 308, 108, 316)) and (field "grooveMem" <> EMPTY) then
        if the name of member the memberNum of sprite 30 <> "g1" then
          if gGrooveSel then
            puppetSprite(12, 0)
          end if
          repeat with i = 8 down to 1
            if chars(the name of member the memberNum of sprite (29 + i), 1, 2) <> "gr" then
              set ultimo to integer(chars(the name of member the memberNum of sprite (29 + i), 2, length(the name of member the memberNum of sprite (29 + i))))
              exit repeat
            end if
          end repeat
          set j to 0
          repeat with k = i + 1 down to 1
            set j to j + 1
            set nS to "g" & ultimo - j + 1
            set the memberNum of sprite (29 + k) to the number of member nS
          end repeat
          if gGrooveSel then
            set firstNum to integer(chars(the name of member the memberNum of sprite 30, 2, length(the name of member the memberNum of sprite 30)))
            set lastNum to integer(chars(the name of member the memberNum of sprite 37, 2, length(the name of member the memberNum of sprite 37)))
            if (gGrooveSel >= firstNum) and (gGrooveSel <= lastNum) then
              puppetSprite(12, 1)
              set nS to "h" & gGrooveSel
              set the memberNum of sprite 12 to the number of member nS
              set the loc of sprite 12 to the loc of sprite (29 + (gGrooveSel - firstNum + 1))
            end if
          end if
          pass()
        end if
      end if
      if inside(point(the mouseH, the mouseV), rect(565, 52, 573, 60)) then
        if gpag <> 1 then
          scrollByLine(member "fieldAudio", -20)
          set gpag to gpag - 1
        else
          set q to the lineCount of member "fieldAudio" / 20
          set r to the lineCount of member "fieldAudio" mod 20
          if r then
            set numPag to q + 1
          else
            set numPag to q
          end if
          scrollByLine(member "fieldAudio", 20 * (numPag - 1))
          set gpag to numPag
        end if
        pass()
      end if
      if inside(point(the mouseH, the mouseV), rect(626, 52, 634, 60)) then
        set q to the lineCount of member "fieldAudio" / 20
        set r to the lineCount of member "fieldAudio" mod 20
        if r then
          set numPag to q + 1
        else
          set numPag to q
        end if
        if gpag <> numPag then
          scrollByLine(member "fieldAudio", 20)
          set gpag to gpag + 1
        else
          scrollByLine(member "fieldAudio", -20 * (numPag - 1))
          set gpag to 1
        end if
        puppetSprite(13, 0)
        pass()
      end if
      if inside(point(the mouseH, the mouseV), rect(592, 454, 611, 471)) then
        set tapList to [0, 0]
        set gReturn to "groove grooveM"
        set gFirstNum to chars(the name of member the memberNum of sprite 30, 2, length(the name of member the memberNum of sprite 30))
        if the visible of window "synth" then
          close(window "synth")
        end if
        go("start", "pref")
        pass()
      end if
      if inside(point(the mouseH, the mouseV), rect(567, 433, 633, 446)) then
        set gFirstNum to chars(the name of member the memberNum of sprite 30, 2, length(the name of member the memberNum of sprite 30))
        repeat with i = 3 to 5
          puppetSprite(i, 0)
        end repeat
        puppetSprite(11, 0)
        puppetSprite(12, 0)
        puppetSprite(13, 0)
        repeat with i = 14 to 21
          puppetSprite(i, 0)
        end repeat
        puppetSprite(26, 0)
        repeat with i = 30 to 37
          puppetSprite(i, 0)
        end repeat
        set the memberNum of sprite 39 to 1000
        repeat with i = 41 to 48
          puppetSprite(i, 0)
        end repeat
        set tapList to [0, 0]
        set keepList to [0, 0, 0, 0, 0, 0, 0, 0]
        set soloGroupList to [0, 0, 0, 0, 0, 0, 0, 0]
        if IKGetCurrentBeat() <> -1 then
          if gOnSynth then
            IKSynthStop()
            set gOnSynth to 0
          end if
          IKStop()
          IKFunction()
          if gOnSynth and (synthList <> []) then
            case char 1 of gArp of
              "[":
                set arp to 1
              "]":
                set arp to 2
              "{":
                set arp to 4
              "}":
                set arp to 8
            end case
            IKSynthVolume(integer(128 * (-gPosVolSynth + 54) / 45))
            IKSynthPan(integer(128 * (-gPosPanSynth + 54) / 45))
            IKSynthArp(getPos(progList, gProg) - 1, arp, createSeq())
          end if
        end if
        put EMPTY into field "fieldBarBeat"
        repeat with i = 1 to 8
          if getAt(virTracklIst, i) <> -1 then
            put "=" into word 1 of line getAt(virTracklIst, i) of field "fieldAudio"
          end if
        end repeat
        go("vMix")
        set the loc of sprite 39 to point(320, 226)
        set bpm to float(field "fieldBpm")
        set the locH of sprite 24 to (15 * 25 * (bpm - gBpmSong) / gBpmSong) + 321
        set the locV of sprite 24 to 341
        updateStage()
        pass()
      end if
      if not gSync or (gSync and gFirstClick) then
        set gFirstClick to 0
        set random to 0
        if inside(point(the mouseH, the mouseV), rect(109, 63, 130, 84)) then
          set gRandom to getAt(randomizeList, 4)
          set random to 1
        end if
        if inside(point(the mouseH, the mouseV), rect(129, 47, 150, 68)) then
          set gRandom to getAt(randomizeList, 3)
          set random to 1
        end if
        if inside(point(the mouseH, the mouseV), rect(150, 32, 171, 54)) then
          set gRandom to getAt(randomizeList, 2)
          set random to 1
        end if
        if inside(point(the mouseH, the mouseV), rect(171, 20, 193, 41)) then
          set gRandom to getAt(randomizeList, 1)
          set random to 1
        end if
        if random then
          set random to 0
          if gTraccia then
            set the foreColor of word 2 of line getAt(virTracklIst, gTraccia) of field "fieldAudio" to gGreen
          end if
          set gTraccia to 0
          set the loc of sprite 3 to point(529, 239)
          set the loc of sprite 4 to point(543, 239)
          if virTracklIst <> [-1, -1, -1, -1, -1, -1, -1, -1] then
            repeat with i = 1 to 8
              setAt(tempList, i, getAt(virTracklIst, i))
            end repeat
          end if
          repeat with i = 1 to 8
            if getAt(virTracklIst, i) <> -1 then
              put "=" into word 1 of line getAt(virTracklIst, i) of field "fieldAudio"
            end if
          end repeat
          set virTracklIst to [-1, -1, -1, -1, -1, -1, -1, -1]
          set soloGroupList to [0, 0, 0, 0, 0, 0, 0, 0]
          updateStage()
          playRandom()
          pass()
        end if
      end if
      set traccia to 0
      if not gSync then
        if gTraccia <> 0 then
          set the foreColor of word 2 of line getAt(virTracklIst, gTraccia) of field "fieldAudio" to gGreen
        end if
        if inside(point(the mouseH, the mouseV), rect(295, 42, 344, 92)) then
          set gTraccia to 1
          set traccia to 1
        else
          if inside(point(the mouseH, the mouseV), rect(295, 387, 344, 437)) then
            set gTraccia to 5
            set traccia to 1
          end if
        end if
        if inside(point(the mouseH, the mouseV), rect(416, 91, 466, 141)) then
          set gTraccia to 2
          set traccia to 1
        else
          if inside(point(the mouseH, the mouseV), rect(416, 336, 466, 386)) then
            set gTraccia to 4
            set traccia to 1
          end if
        end if
        if inside(point(the mouseH, the mouseV), rect(174, 91, 224, 141)) then
          set gTraccia to 8
          set traccia to 1
        else
          if inside(point(the mouseH, the mouseV), rect(174, 336, 224, 386)) then
            set gTraccia to 6
            set traccia to 1
          end if
        end if
        if inside(point(the mouseH, the mouseV), rect(467, 216, 517, 266)) then
          set gTraccia to 3
          set traccia to 1
        else
          if inside(point(the mouseH, the mouseV), rect(123, 216, 173, 266)) then
            set gTraccia to 7
            set traccia to 1
          end if
        end if
      end if
      if traccia then
        set traccia to 0
        puppetSprite(12, 1)
        clickTrack()
        pass()
      end if
      if inside(point(the mouseH, the mouseV), rect(22, 212, 78, 269)) then
        puppetSprite(13, 0)
        if not ((getPos(stateTrackList, "on") = 0) and (getPos(stateTrackList, "solo") = 0)) then
          set temp to chars(the name of member the memberNum of sprite 12, 2, length(the name of member the memberNum of sprite 12))
          if not integerp(integer(temp)) then
            clickMarker()
          end if
        end if
        pass()
      end if
      if inside(point(the mouseH, the mouseV), rect(35, 155, 81, 197)) then
        if (stateTrackList <> ["off", "off", "off", "off", "off", "off", "off", "off"]) and (stateTrackList <> ["mute", "mute", "mute", "mute", "mute", "mute", "mute", "mute"]) then
          cursor(4)
          saveGroove()
          cursor(-1)
        end if
        pass()
      end if
      if inside(point(the mouseH, the mouseV), rect(35, 283, 81, 325)) then
        set myFile to new(xtra("fileio"))
        setFilterMask(myFile, ".txt")
        set gloadGroove to displayOpen(myFile)
        set myFile to 0
        puppetSprite(13, 0)
        pass()
      end if
      if inside(point(the mouseH, the mouseV), rect(489, 408, 523, 442)) then
        set click to the timer
        if getAt(tapList, 2) <> 0 then
          if ((click - getAt(tapList, 2)) <= 80) and ((click - getAt(tapList, 2)) >= 10) then
            puppetSprite(5, 0)
            set media to float((click - getAt(tapList, 1)) / 2)
            set bpm to float(3600) / media
            if bpm > (6 * gBpmSong / 5) then
              set bpm to float(6 * gBpmSong / 5)
            end if
            if bpm < (4 * gBpmSong / 5) then
              set bpm to float(4 * gBpmSong / 5)
            end if
            set tapList to [0, 0]
            IKMixBPM(bpm * 1000)
            put bpm into field "fieldBpm"
            set the textFont of member "fieldBpm" to "IK10"
            set the foreColor of member "fieldBpm" to gGreen
            set the locH of sprite 24 to (15 * 25 * (bpm - gBpmSong) / gBpmSong) + 321
            set the locV of sprite 24 to 449
            updateStage()
          else
            set tapList to [click, 0]
            puppetSprite(5, 1)
            set the memberNum of sprite 5 to the number of member "Htap"
            set the loc of sprite 5 to point(507, 425)
            set the ink of sprite 5 to 8
            updateStage()
          end if
        else
          if (getAt(tapList, 2) = 0) and (getAt(tapList, 1) <> 0) then
            if ((click - getAt(tapList, 1)) <= 80) and ((click - getAt(tapList, 1)) >= 10) then
              setAt(tapList, 2, click)
            else
              setAt(tapList, 1, click)
            end if
          else
            setAt(tapList, 1, click)
          end if
          puppetSprite(5, 1)
          set the memberNum of sprite 5 to the number of member "Htap"
          set the loc of sprite 5 to point(507, 425)
          set the ink of sprite 5 to 8
          updateStage()
        end if
        pass()
      end if
      if inside(point(the mouseH, the mouseV), rect(567, 413, 633, 426)) then
        if chars(the name of member the memberNum of sprite 30, 1, 2) <> "gr" then
          set gFirstNum to chars(the name of member the memberNum of sprite 30, 2, length(the name of member the memberNum of sprite 30))
        else
          set gFirstNum to "0"
        end if
        repeat with i = 3 to 5
          puppetSprite(i, 0)
        end repeat
        puppetSprite(11, 0)
        puppetSprite(12, 0)
        repeat with i = 13 to 21
          puppetSprite(i, 0)
        end repeat
        puppetSprite(26, 0)
        repeat with i = 30 to 37
          puppetSprite(i, 0)
        end repeat
        repeat with i = 41 to 48
          puppetSprite(i, 0)
        end repeat
        set the loc of sprite 39 to point(138, 239)
        set the visible of sprite 5 to 1
        set tapList to [0, 0]
        set keepList to [0, 0, 0, 0, 0, 0, 0, 0]
        set soloGroupList to [0, 0, 0, 0, 0, 0, 0, 0]
        repeat with i = 1 to 8
          if getAt(virTracklIst, i) <> -1 then
            put "=" into word 1 of line getAt(virTracklIst, i) of field "fieldAudio"
          end if
        end repeat
        go("seq")
        put "00" & word 1 of field "fieldBarBeat" into word 1 of field "fieldBarBeat"
        set bpm to float(field "fieldBpm")
        set the locH of sprite 24 to (15 * ((100 * (bpm - gBpmSong) / gBpmSong) + 52) / 4) + 5
        set the locV of sprite 24 to 362
        updateStage()
        put EMPTY into field "fieldState"
        pass()
      end if
      if inside(point(the mouseH, the mouseV), rect(567, 372, 633, 387)) then
        openWin("YesNo")
        tell window "YesNo"
          go("newSong")
        end tell
        pass()
      end if
      if inside(point(the mouseH, the mouseV), rect(508, 50, 563, 63)) then
        puppetSprite(13, 0)
        openWin("Message")
        tell window "Message"
          go("22")
        end tell
        pass()
      end if
      if inside(the clickLoc, rect(508, 67, 563, 79)) then
        if not (the memberNum of sprite 26) then
          puppetSprite(26, 1)
          set the memberNum of sprite 26 to the number of member "Hkeep"
          set the ink of sprite 26 to 36
          set the loc of sprite 26 to point(536, 76)
          updateStage()
        else
          puppetSprite(26, 0)
          repeat with i = 1 to 8
            if getAt(keepList, i) then
              set the foreColor of word 1 of line getAt(virTracklIst, i) of field "fieldAudio" to gBlue
            end if
          end repeat
          set keepList to [0, 0, 0, 0, 0, 0, 0, 0]
        end if
        pass()
      end if
    end if
  end if
  set the editable of member "fieldBpm" to 0
end