home *** CD-ROM | disk | FTP | other *** search
Wrap
on clickTrack global gTraccia, gpag, gSolo, gGrooveSel, gRed, gBlue, stateTrackList, volPosList, panPosList, soloGroupList set gGrooveSel to 0 set the locV of sprite 3 to getAt(volPosList, gTraccia) set the locV of sprite 4 to getAt(panPosList, gTraccia) updateStage() if getAt(stateTrackList, gTraccia) <> "off" then set q to getAt(virTracklIst, gTraccia) / 20 set r to getAt(virTracklIst, gTraccia) mod 20 case r of 0: scrollByLine(member "fieldAudio", 20 * (q - gpag)) set gpag to q otherwise: scrollByLine(member "fieldAudio", 20 * (q + 1 - gpag)) set gpag to q + 1 end case end if if not gSolo and the controlDown and (getAt(virTracklIst, gTraccia) <> -1) then setAt(soloGroupList, gTraccia, not getAt(soloGroupList, gTraccia)) if getAt(soloGroupList, gTraccia) then set nome to the name of member the memberNum of sprite (40 + gTraccia) & "S" else set nome to chars(the name of member the memberNum of sprite (40 + gTraccia), 1, length(the name of member the memberNum of sprite (40 + gTraccia)) - 1) end if set the memberNum of sprite (40 + gTraccia) to the number of member nome updateStage() end if repeat with i = 9 to 10 set the visible of sprite i to 1 end repeat set Hname to "Htraccia" & gTraccia set the memberNum of sprite 12 to the number of member Hname case gTraccia of 1: set the loc of sprite 12 to point(320, 68) 2: set the loc of sprite 12 to point(441, 119) 3: set the loc of sprite 12 to point(491, 240) 4: set the loc of sprite 12 to point(441, 361) 5: set the loc of sprite 12 to point(320, 411) 6: set the loc of sprite 12 to point(199, 361) 7: set the loc of sprite 12 to point(148, 240) 8: set the loc of sprite 12 to point(199, 119) end case if getAt(virTracklIst, gTraccia) <> -1 then set N to getAt(virTracklIst, gTraccia) set the foreColor of word 2 of line N of field "fieldAudio" to gBlue set fullName to line N of field "song" repeat with i = 1 to 4 delete word 1 of fullName if char 1 of fullName = " " then delete char 1 of fullName end if end repeat put fullName into field "fieldFullName" set the textFont of member "fieldFullName" to "IK10" set the foreColor of member "fieldFullName" to gRed else put " " into field "fieldFullName" end if end on clickRed global gSolo, gOn, gArp, gProg, gOnSynth, gPosVolSynth, gPosPanSynth, gPath, stateTrackList, virTracklIst, volValList, redList, soloList, panValList, synthList, progList if gSolo then set gSolo to 0 set soloList to [0, 0, 0, 0, 0, 0, 0, 0] end if case gOn of 0: set gOn to 1 puppetSprite(13, 0) if redList = [0, 0, 0, 0, 0, 0, 0, 0] then repeat with i = 1 to 8 if getAt(stateTrackList, i) <> "off" then IKVolume(i, getAt(volValList, i)) IKPan(i, getAt(panValList, i)) IKPlay(i, getAt(virTracklIst, i)) setAt(stateTrackList, i, "on") if getAt(soloGroupList, i) then set onT to "on" & i & "S" else set onT to "on" & i end if set the memberNum of sprite (40 + i) to the number of member onT updateStage() end if end repeat else repeat with i = 1 to 8 if getAt(redList, i) then IKVolume(i, getAt(volValList, i)) IKPan(i, getAt(panValList, i)) IKPlay(i, getAt(virTracklIst, i)) setAt(stateTrackList, i, "on") setAt(redList, i, 0) if getAt(soloGroupList, i) then set onT to "on" & i & "S" else set onT to "on" & i end if set the memberNum of sprite (40 + i) to the number of member onT updateStage() end if end repeat end if 1: set gOn to 0 set gOnSynth to 0 puppetSprite(13, 1) IKBeginBlock() repeat with i = 1 to 8 if (getAt(stateTrackList, i) = "on") or (getAt(stateTrackList, i) = "solo") then IKPlay(i, -1) setAt(redList, i, 1) setAt(stateTrackList, i, "mute") if getAt(soloGroupList, i) then set mute to "mute" & i & "S" else set mute to "mute" & i end if set the memberNum of sprite (40 + i) to the number of member mute updateStage() next repeat end if setAt(redList, i, 0) end repeat IKEndBlock() IKSynthStop() IKStop() IKFunction() end case end on clickMarker global virTracklIst, volValList, volPosList, stateTrackList, panValList, panPosList, audioList if the lineCount of member "grooveMem" < 99 then set spento to 0 repeat with i = 1 to 8 if (getAt(stateTrackList, i) = "on") or (getAt(stateTrackList, i) = "solo") then case length(string(getAt(volValList, i))) of 1: set volVal to "00" & getAt(volValList, i) 2: set volVal to "0" & getAt(volValList, i) 3: set volVal to getAt(volValList, i) end case case length(string(getAt(panValList, i))) of 1: set panVal to "00" & getAt(panValList, i) 2: set panVal to "0" & getAt(panValList, i) 3: set panVal to getAt(panValList, i) end case put volVal & getAt(volPosList, i) & panVal & getAt(panPosList, i) & getAt(audioList, getAt(virTracklIst, i)) & " " after field "grooveMem" next repeat end if put "0 " after field "grooveMem" set spento to spento + 1 end repeat if the lineCount of member "grooveMem" > 1 then set linea1 to the last line in field "grooveMem" set linea2 to line the lineCount of member "grooveMem" - 1 of field "grooveMem" else set linea1 to 1 set linea2 to 2 end if if (spento = 8) or (linea1 = linea2) then delete char -30003 of field "grooveMem" put RETURN after field "grooveMem" else put RETURN after field "grooveMem" case the lineCount of member "grooveMem" of 1, 2, 3, 4, 5, 6, 7, 8: repeat with i = 1 to the lineCount of member "grooveMem" puppetSprite(29 + i, 1) set mNum to "g" & i set the memberNum of sprite (29 + i) to the number of member mNum updateStage() end repeat otherwise: repeat with i = 1 to 8 puppetSprite(29 + i, 1) set mNum to "g" & the lineCount of member "grooveMem" - 8 + i set the memberNum of sprite (29 + i) to the number of member mNum updateStage() end repeat end case end if end if end on clickNameAudio numLine global gTraccia, gSolo, gBlue, gRed, gSync, gGreen, stateTrackList, virTracklIst, panVolList, panPosList, volValList, volPosList if gTraccia then if word 1 of line numLine of field "fieldAudio" = "=" then if getAt(virTracklIst, gTraccia) <> -1 then put "=" into word 1 of line getAt(virTracklIst, gTraccia) of field "fieldAudio" set the foreColor of line getAt(virTracklIst, gTraccia) of field "fieldAudio" to gGreen end if setAt(virTracklIst, gTraccia, numLine) setAt(volValList, gTraccia, integer(word 2 of line getAt(virTracklIst, gTraccia) of field "song")) setAt(volPosList, gTraccia, integer(log(power(1.02150000000000007, (142 + (310 * 141)) / 142) * 128 / (power(1.02150000000000007, 142) * getAt(volValList, gTraccia))) / log(1.02150000000000007)) + 2) setAt(panValList, gTraccia, integer(word 3 of line getAt(virTracklIst, gTraccia) of field "song")) setAt(panPosList, gTraccia, integer(163 + (19 * getAt(panValList, gTraccia) / 16))) set the locV of sprite 3 to getAt(volPosList, gTraccia) set the locV of sprite 4 to getAt(panPosList, gTraccia) updateStage() put gTraccia into word 1 of line numLine of field "fieldAudio" set the foreColor of line numLine of field "fieldAudio" to gBlue if getAt(stateTrackList, gTraccia) <> "mute" then puppetSprite(40 + gTraccia, 1) if not gSolo then set num to "on" & gTraccia setAt(stateTrackList, gTraccia, "on") else set num to "solo" & gTraccia setAt(stateTrackList, gTraccia, "solo") repeat with i = 1 to 8 if getAt(stateTrackList, i) = "on" then IKPlay(i, -1) set mute to "mute" & i setAt(stateTrackList, i, "mute") set the memberNum of sprite (40 + i) to the number of member mute end if end repeat end if set the memberNum of sprite (40 + gTraccia) to the number of member num updateStage() if the controlDown then set gSync to 1 set the memberNum of sprite 54 to the number of member "HRledSync" updateStage() end if if gSync then IKVolumeSync2(gTraccia, getAt(volValList, gTraccia)) IKPanSync2(gTraccia, getAt(panValList, gTraccia)) IKPlaySync(gTraccia, getAt(virTracklIst, gTraccia)) else IKVolumeSync(gTraccia, getAt(volValList, gTraccia)) IKPanSync(gTraccia, getAt(panValList, gTraccia)) IKPlay(gTraccia, getAt(virTracklIst, gTraccia)) end if end if set fullName to line getAt(virTracklIst, gTraccia) of field "song" repeat with i = 1 to 4 delete word 1 of fullName if char 1 of fullName = " " then delete char 1 of fullName end if end repeat put fullName into field "fieldFullName" set the textFont of member "fieldFullName" to "IK10" set the foreColor of member "fieldFullName" to gRed end if end if if the memberNum of sprite 26 then if (the name of member the memberNum of sprite 26 = "Hkeep") and (word 1 of line numLine of field "fieldAudio" <> "=") then putKeep(numLine) end if end if end on clickControlTrack traccia, spriteNum global gSolo, gSync, stateTrackList, virTracklIst, volValList, panValList if the controlDown then set gSync to 1 set the memberNum of sprite 54 to the number of member "HRledSync" updateStage() end if case gSolo of 0: case getAt(stateTrackList, traccia) of "on", "solo": if gSync then IKPlaySync(traccia, -1) else IKPlay(traccia, -1) end if set mute to "mute" & chars(the name of member the memberNum of sprite spriteNum, 3, length(the name of member the memberNum of sprite spriteNum)) set the memberNum of sprite spriteNum to the number of member mute updateStage() setAt(stateTrackList, traccia, "mute") "mute": IKVolumeSync(traccia, getAt(volValList, traccia)) IKPanSync(traccia, getAt(panValList, traccia)) if gSync then IKPlaySync(traccia, getAt(virTracklIst, traccia)) else IKPlay(traccia, getAt(virTracklIst, traccia)) end if set onT to "on" & chars(the name of member the memberNum of sprite spriteNum, 5, length(the name of member the memberNum of sprite spriteNum)) set the memberNum of sprite spriteNum to the number of member onT updateStage() setAt(stateTrackList, traccia, "on") end case 1: case getAt(stateTrackList, traccia) of "on", "mute": set solo to "solo" & traccia set the memberNum of sprite spriteNum to the number of member solo setAt(stateTrackList, traccia, "solo") IKVolumeSync(traccia, getAt(volValList, traccia)) IKPanSync(traccia, getAt(panValList, traccia)) if gSync then IKPlaySync(traccia, getAt(virTracklIst, traccia)) else IKPlay(traccia, getAt(virTracklIst, traccia)) end if repeat with i = 1 to 8 if i <> traccia then if getAt(stateTrackList, i) = "on" then set mute to "mute" & i set the memberNum of sprite (40 + i) to the number of member mute setAt(stateTrackList, i, "mute") if gSync then IKPlaySync(i, -1) next repeat end if IKPlay(i, -1) end if end if end repeat "solo": if gSync then IKPlaySync(traccia, -1) else IKPlay(traccia, -1) end if set mute to "mute" & traccia set the memberNum of sprite (40 + traccia) to the number of member mute setAt(stateTrackList, traccia, "mute") end case end case end on clickSolo global gSolo, gSync, gFirstClick, stateTrackList, soloList, volValList, panVolList, soloGroupList if the controlDown then set gSync to 1 set the memberNum of sprite 54 to the number of member "HRledSync" updateStage() end if case gSolo of 1: if soloList = [0, 0, 0, 0, 0, 0, 0, 0] then repeat with i = 1 to 8 if getAt(stateTrackList, i) = "on" then setAt(soloList, i, 1) next repeat end if setAt(soloList, i, 0) end repeat end if if soloGroupList <> [0, 0, 0, 0, 0, 0, 0, 0] then repeat with i = 1 to 8 if getAt(virTracklIst, i) <> -1 then case getAt(soloGroupList, i) of 0: setAt(stateTrackList, i, "mute") set mute to "mute" & i set the memberNum of sprite (40 + i) to the number of member mute if gSync then IKPlaySync(i, -1) else IKPlay(i, -1) end if 1: setAt(stateTrackList, i, "solo") set solo to "solo" & i set the memberNum of sprite (40 + i) to the number of member solo end case updateStage() end if end repeat set gFirstClick to 0 set soloGroupList to [0, 0, 0, 0, 0, 0, 0, 0] end if 0: repeat with i = 1 to 8 if getAt(soloList, i) and (getAt(stateTrackList, i) <> "off") then IKVolumeSync(i, getAt(volValList, i)) IKPanSync(i, getAt(panValList, i)) if gSync then IKPlaySync(i, getAt(virTracklIst, i)) else IKPlay(i, getAt(virTracklIst, i)) end if setAt(stateTrackList, i, "on") set onT to "on" & i set the memberNum of sprite (40 + i) to the number of member onT updateStage() next repeat end if if getAt(stateTrackList, i) <> "off" then if gSync then IKPlaySync(i, -1) else IKPlay(i, -1) end if setAt(stateTrackList, i, "mute") set mute to "mute" & i set the memberNum of sprite (40 + i) to the number of member mute updateStage() end if end repeat set gFirstClick to 0 set soloList to [0, 0, 0, 0, 0, 0, 0, 0] end case end on delUser user global gPath, gNumUser, gSong, virTracklIst, audioList, stateTrackList, minMaxGroupList, groupList set vTrack to getPos(audioList, user) IKSynthStop() IKStop() IKRemoveVTrack(vTrack) IKFunction() set nomeFile to gPath & "Song\" & gSong & "\" & user & ".wav" IKChangeAttrib(nomeFile) DeleteFile(nomeFile) delete line vTrack of field "fieldAudio" repeat with i = 1 to 8 if getAt(virTracklIst, i) > vTrack then setAt(virTracklIst, i, getAt(virTracklIst, i) - 1) end if end repeat deleteAt(audioList, vTrack) set gNumUser to gNumUser - 1 delete line vTrack of field "song" if gNumUser = 0 then IKChangeAttrib(gPath & "Song\" & gSong & "\infoUs.gms") DeleteFile(gPath & "Song\" & gSong & "\infoUs.gms") set gms to gPath & "Song\" & gSong & "\info.gms" else set temp to IKCryptOpen(gPath & "Song\" & gSong & "\infoUs.gms") set theFile to EMPTY set stringTemp to IKCryptGets(temp) repeat while stringTemp <> "**********" set theFile to theFile & stringTemp & RETURN set stringTemp to IKCryptGets(temp) end repeat IKCryptClose(temp) if the last line in theFile = EMPTY then delete char -30003 of theFile end if set N to 1 repeat while not offset(user, line N of theFile) set N to N + 1 end repeat delete line N of theFile set N to 1 repeat while not offset("LONGCOMMAND: SONGTRACKS: ", line N of theFile) set N to N + 1 end repeat set newLine to line N of theFile set tot to integer(the last word in newLine) delete char -30001 of newLine set newLine to newLine & tot - 1 put newLine into line N of theFile repeat with j = 1 to count(minMaxGroupList) set mi to integer(word 1 of getAt(minMaxGroupList, j)) set ma to integer(word 2 of getAt(minMaxGroupList, j)) if (vTrack >= mi) and (vTrack <= ma) then exit repeat end if end repeat setAt(minMaxGroupList, j, "mi " & ma - 1) repeat with k = j + 1 to count(minMaxGroupList) set mi to integer(word 1 of getAt(minMaxGroupList, k)) set ma to integer(word 2 of getAt(minMaxGroupList, k)) setAt(minMaxGroupList, k, mi - 1 && ma - 1) end repeat set N to 1 repeat while not offset("LONGCOMMAND: CATEGORYLIST: ", line N of theFile) set N to N + 1 end repeat repeat with k = 1 to integer(the last word in line N of theFile) put getAt(groupList, k) && getAt(minMaxGroupList, k) into line N + k of theFile end repeat IKChangeAttrib(gPath & "Song\" & gSong & "\infoUs.gms") DeleteFile(gPath & "Song\" & gSong & "\infoUs.gms") set newFile to gPath & "Song\" & gSong & "\infoUs.gms" set temp to IKCryptCreate(newFile) repeat with k = 1 to the number of lines in theFile set stringa to line k of theFile IKCryptPuts(temp, stringa) end repeat IKCryptClose(temp) set gms to gPath & "Song\" & gSong & "\infoUs.gms" end if readGms(gms) IKBeginBlock() repeat with i = 1 to 8 if (getAt(virTracklIst, i) <> -1) and (getAt(stateTrackList, i) <> "mute") then IKVolume(i, getAt(volValList, i)) IKPan(i, getAt(panValList, i)) IKPlay(i, getAt(virTracklIst, i)) end if end repeat IKEndBlock() end