if the castNum of sprite ARTMusicOneStopSprite = 171 then
set the castNum of sprite ARTMusicOneStopSprite to 172
end if
if the mouseDown then
set the locH of sprite ARTMusicOneStopSprite to 2000
set the castNum of sprite ARTMusicOneStopSprite to 171
set TemPList to getAt(ARTMusicOneList, 1)
repeat with x = 4 to count(TemPList)
set InfoListTwo to getAt(TemPList, x)
if getAt(InfoListTwo, 7) = 1 then
setAt(InfoListTwo, 7, 0)
setAt(InfoListTwo, 6, 1)
end if
end repeat
set ARTStoreList to 0
set ARTStoreListTwo to 0
set ARTStoreListThree to 0
if the machineType > 200 then
win_midiStop()
else
end if
end if
updateStage()
end repeat
set the castNum of sprite ARTMusicOneStopSprite to 171
end if
repeat with g = 1 to count(ARTMusicOneList)
if rollOver(getAt(getAt(ARTMusicOneList, g), 1)) then
if the mouseDown and (getAt(getAt(ARTMusicOneList, g), 3) = 0) then
setAt(getAt(ARTMusicOneList, g), 3, 1)
repeat with f = 1 to count(ARTMusicOneList)
if (getAt(getAt(ARTMusicOneList, f), 3) = 1) and (f <> g) then
set LastPlace to f
set ARTAreSomewhere to 1
setAt(getAt(ARTMusicOneList, f), 3, 0)
end if
end repeat
if g = 1 then
if ARTWhichSide = 1 then
repeat with f = 1 to 4
set TemPList to getAt(ArtMusicOneBoxesList, g)
set the castNum of sprite (f + 6) to getAt(TemPList, f)
end repeat
else
if ARTWhichSide = 2 then
repeat with f = 1 to 4
set TemPList to getAt(ArtMusicOneBoxesListTwo, g)
set the castNum of sprite (f + 6) to getAt(TemPList, f)
end repeat
else
repeat with f = 1 to 4
set TemPList to getAt(ArtMusicOneBoxesListThree, g)
set the castNum of sprite (f + 6) to getAt(TemPList, f)
end repeat
end if
end if
else
repeat with f = 1 to 4
set TemPList to getAt(ArtMusicOneBoxesList, g)
set the castNum of sprite (f + 6) to getAt(TemPList, f)
end repeat
end if
if (g <> 1) and (LastPlace = 1) then
set TemPList to getAt(ARTMusicOneList, 1)
repeat with x = 4 to count(TemPList)
set InfoListTwo to getAt(TemPList, x)
setAt(InfoListTwo, 2, the castNum of sprite getAt(InfoListTwo, 1))
setAt(InfoListTwo, 10, 1)
end repeat
end if
set TemPList to getAt(ARTMusicOneList, g)
repeat with d = 4 to count(TemPList)
set InfoList to getAt(TemPList, d)
set the castNum of sprite getAt(InfoList, 1) to getAt(InfoList, 2)
set the locH of sprite getAt(InfoList, 1) to getAt(InfoList, 3)
set the locV of sprite getAt(InfoList, 1) to getAt(InfoList, 4)
set the ink of sprite getAt(InfoList, 1) to getAt(InfoList, 5)
end repeat
updateStage()
if g = 1 then
set ARTMusicOnePlayCount to 1
else
if g = 2 then
set ARTMusicOnePlayCount to 2
set ARTWhichSideFut to 1
else
set ARTMusicOnePlayCount to 3
set ARTWhichSideFutLst to 1
end if
end if
end if
if getAt(getAt(ARTMusicOneList, g), 2) = 0 then
set the castNum of sprite getAt(getAt(ARTMusicOneList, g), 1) to the castNum of sprite getAt(getAt(ARTMusicOneList, g), 1) + 1
setAt(getAt(ARTMusicOneList, g), 2, 1)
repeat with f = 1 to count(ARTMusicOneList)
if (getAt(getAt(ARTMusicOneList, f), 2) = 1) and (f <> g) and (getAt(getAt(ARTMusicOneList, f), 3) = 0) then
set the castNum of sprite getAt(getAt(ARTMusicOneList, f), 1) to the castNum of sprite getAt(getAt(ARTMusicOneList, f), 1) - 1
setAt(getAt(ARTMusicOneList, f), 2, 0)
end if
end repeat
end if
end if
end repeat
repeat with g = 1 to count(ARTMusicOneList)
if not rollOver(getAt(getAt(ARTMusicOneList, g), 1)) then
if (getAt(getAt(ARTMusicOneList, g), 2) = 1) and (getAt(getAt(ARTMusicOneList, g), 3) = 0) then
set the castNum of sprite getAt(getAt(ARTMusicOneList, g), 1) to the castNum of sprite getAt(getAt(ARTMusicOneList, g), 1) - 1
setAt(getAt(ARTMusicOneList, g), 2, 0)
end if
end if
end repeat
if ARTMusicOnePlayCount = 1 then
repeat while ((the mouseH < 640) and (the mouseH > 201) and (the mouseV < 352) and (the mouseV > 189)) or rollOver(20)
set TemPList to getAt(ARTMusicOneList, 1)
repeat with d = 4 to count(TemPList)
set InfoList to getAt(TemPList, d)
if rollOver(getAt(InfoList, 1)) then
set ThisOne to d
if (getAt(InfoList, 6) = 0) and (getAt(InfoList, 7) <> 1) then
setAt(InfoList, 6, 1)
set the castNum of sprite getAt(InfoList, 1) to the castNum of sprite getAt(InfoList, 1) + 1
updateStage()
end if
if the mouseUp then
set ARTSIDEUP to 1
end if
if the mouseDown and (ARTSIDEUP = 1) then
set ARTSIDEUP to 0
if ThisOne = 4 then
setAt(InfoList, 7, 1)
if ARTWhichSide = 1 then
set ARTWhichSide to 2
repeat with f = 1 to 4
set BoxList to getAt(ArtMusicOneBoxesListTwo, 1)
set the castNum of sprite (f + 6) to getAt(BoxList, f)
end repeat
repeat with x = 4 to count(TemPList)
set InfoListTwo to getAt(TemPList, x)
if x = 4 then
set the castNum of sprite getAt(InfoListTwo, 1) to the castNum of sprite getAt(InfoListTwo, 1) + 1
else
if getAt(InfoListTwo, 7) = 1 then
set ARTStoreList to InfoListTwo
set the castNum of sprite getAt(InfoListTwo, 1) to the castNum of sprite getAt(InfoListTwo, 1) + 7
else
set the castNum of sprite getAt(InfoListTwo, 1) to the castNum of sprite getAt(InfoListTwo, 1) + 8
end if
end if
if InfoListTwo = ARTStoreListTwo then
set the castNum of sprite getAt(InfoListTwo, 1) to the castNum of sprite getAt(InfoListTwo, 1) + 1
setAt(InfoListTwo, 6, 0)
setAt(InfoListTwo, 7, 1)
next repeat
end if
setAt(InfoListTwo, 6, 0)
setAt(InfoListTwo, 7, 0)
end repeat
else
if ARTWhichSide = 2 then
set ARTWhichSide to 3
repeat with f = 1 to 4
set BoxList to getAt(ArtMusicOneBoxesListThree, 1)
set the castNum of sprite (f + 6) to getAt(BoxList, f)
end repeat
repeat with x = 4 to count(TemPList)
set InfoListTwo to getAt(TemPList, x)
if x = 4 then
set the castNum of sprite getAt(InfoListTwo, 1) to the castNum of sprite getAt(InfoListTwo, 1) + 1
else
if getAt(InfoListTwo, 7) = 1 then
set ARTStoreListTwo to InfoListTwo
set the castNum of sprite getAt(InfoListTwo, 1) to the castNum of sprite getAt(InfoListTwo, 1) + 7
else
set the castNum of sprite getAt(InfoListTwo, 1) to the castNum of sprite getAt(InfoListTwo, 1) + 8
end if
end if
if InfoListTwo = ARTStoreListThree then
set the castNum of sprite getAt(InfoListTwo, 1) to the castNum of sprite getAt(InfoListTwo, 1) + 1
setAt(InfoListTwo, 6, 0)
setAt(InfoListTwo, 7, 1)
next repeat
end if
setAt(InfoListTwo, 6, 0)
setAt(InfoListTwo, 7, 0)
end repeat
else
set ARTWhichSide to 1
repeat with f = 1 to 4
set BoxList to getAt(ArtMusicOneBoxesList, 1)
set the castNum of sprite (f + 6) to getAt(BoxList, f)
end repeat
repeat with x = 4 to count(TemPList)
set InfoListTwo to getAt(TemPList, x)
if x = 4 then
set the castNum of sprite getAt(InfoListTwo, 1) to the castNum of sprite getAt(InfoListTwo, 1) - 5
else
if getAt(InfoListTwo, 7) = 1 then
set ARTStoreListThree to InfoListTwo
set the castNum of sprite getAt(InfoListTwo, 1) to the castNum of sprite getAt(InfoListTwo, 1) - 17
else
set the castNum of sprite getAt(InfoListTwo, 1) to the castNum of sprite getAt(InfoListTwo, 1) - 16
end if
end if
if InfoListTwo = ARTStoreList then
set the castNum of sprite getAt(InfoListTwo, 1) to the castNum of sprite getAt(InfoListTwo, 1) + 1
setAt(InfoListTwo, 6, 0)
setAt(InfoListTwo, 7, 1)
next repeat
end if
setAt(InfoListTwo, 6, 0)
setAt(InfoListTwo, 7, 0)
end repeat
end if
end if
else
if getAt(InfoList, 7) = 0 then
set TemPList to getAt(ARTMusicOneList, 1)
repeat with x = 4 to count(TemPList)
set InfoListTwo to getAt(TemPList, x)
if (getAt(InfoListTwo, 7) = 1) or (InfoListTwo = ARTStoreList) or (InfoListTwo = ARTStoreListTwo) or (InfoListTwo = ARTStoreListThree) then
if getAt(InfoListTwo, 7) = 1 then
if the machineType < 200 then
if ARTWhichSide = 1 then
set StopSideOne to getAt(InfoListTwo, 8)
put "For the mac-"
put "Stop midi file" & StopSideOne
else
if ARTWhichSide = 2 then
set StopSideTwo to getAt(InfoListTwo, 9)
put "For the mac-"
put "Stop midi file" & StopSideTwo
else
set StopSideThree to getAt(InfoListTwo, 11)
put "For the mac-"
put "Stop midi file" & StopSideThree
end if
end if
exit repeat
else
if ARTWhichSide = 1 then
set StopSideOne to getAt(InfoListTwo, 8)
win_midiStop()
else
set StopSideTwo to getAt(InfoListTwo, 9)
win_midiStop()
end if
exit repeat
end if
next repeat
end if
if InfoListTwo = ARTStoreList then
if the machineType < 200 then
set StopSideOne to getAt(InfoListTwo, 8)
put "For the mac-"
put "Stop midi file" & StopSideOne
exit repeat
else
set StopSideOne to getAt(InfoListTwo, 8)
win_midiStop()
exit repeat
end if
next repeat
end if
if InfoListTwo = ARTStoreListTwo then
if the machineType < 200 then
set StopSideTwo to getAt(InfoListTwo, 9)
put "For the mac-"
put "Stop midi file" & StopSideTwo
exit repeat
else
set StopSideTwo to getAt(InfoListTwo, 9)
win_midiStop()
exit repeat
end if
next repeat
end if
if the machineType < 200 then
set StopSideThree to getAt(InfoListTwo, 11)
put "For the mac-"
put "Stop midi file" & StopSideThree
exit repeat
next repeat
end if
set StopSideThree to getAt(InfoListTwo, 11)
win_midiStop()
exit repeat
end if
end repeat
set ARTStoreList to 0
set ARTStoreListTwo to 0
set ARTStoreListThree to 0
setAt(InfoList, 7, 1)
set the locH of sprite ARTMusicOneStopSprite to 93
set the locV of sprite ARTMusicOneStopSprite to 407
set the ink of sprite ARTMusicOneStopSprite to 37
updateStage()
if the machineType < 200 then
if ARTWhichSide = 1 then
set PlaySideOne to getAt(InfoList, 8)
put "For the mac-"
put "Start midi file" & PlaySideOne
else
if ARTWhichSide = 2 then
set PlaySideTwo to getAt(InfoList, 9)
put "For the mac-"
put "Start midi file" & PlaySideTwo
else
set PlaySideThree to getAt(InfoList, 11)
put "For the mac-"
put "Start midi file" & PlaySideThree
end if
end if
else
if ARTWhichSide = 1 then
set PlaySideOne to getAt(InfoList, 8)
put "For the P.C"
put "Start midi file" & PlaySideOne
win_midiStart("midi\" & PlaySideOne)
else
if ARTWhichSide = 2 then
set PlaySideTwo to getAt(InfoList, 9)
put "For the P.C"
put "Start midi file" & PlaySideTwo
win_midiStart("midi\" & PlaySideTwo)
else
set PlaySideThree to getAt(InfoList, 11)
put "For the P.C"
put "Start midi file" & PlaySideThree
win_midiStart("midi\" & PlaySideThree)
end if
end if
end if
end if
end if
set TemPList to getAt(ARTMusicOneList, 1)
repeat with x = 4 to count(TemPList)
set InfoListTwo to getAt(TemPList, x)
if (getAt(InfoListTwo, 7) = 1) and (x <> ThisOne) and (InfoListTwo <> ARTStoreList) and (InfoListTwo <> ARTStoreListTwo) and (InfoListTwo <> ARTStoreListThree) then
setAt(InfoListTwo, 7, 0)
setAt(InfoListTwo, 6, 1)
end if
end repeat
end if
end if
end repeat
set TemPListThree to getAt(ARTMusicOneList, 1)
repeat with v = 4 to count(TemPListThree)
set InfoListThree to getAt(TemPListThree, v)
if not rollOver(getAt(InfoListThree, 1)) then
if (getAt(InfoListThree, 6) = 1) and (getAt(InfoListThree, 7) = 0) then
setAt(InfoListThree, 6, 0)
set the castNum of sprite getAt(InfoListThree, 1) to the castNum of sprite getAt(InfoListThree, 1) - 1
updateStage()
end if
end if
end repeat
end repeat
set TemPListThree to getAt(ARTMusicOneList, 1)
repeat with v = 4 to count(TemPListThree)
set InfoListThree to getAt(TemPListThree, v)
if not rollOver(getAt(InfoListThree, 1)) then
if (getAt(InfoListThree, 6) = 1) and (getAt(InfoListThree, 7) = 0) then
setAt(InfoListThree, 6, 0)
set the castNum of sprite getAt(InfoListThree, 1) to the castNum of sprite getAt(InfoListThree, 1) - 1
