What PC? 1997 January/WPCJAN97.ISO/artwjan.dxr/00012_ARTMusicOne.ls

Text File | 1996-11-07 | 13.2 KB | 289 lines

on ARTMusicOne
  global ARTMusicOneList, ARTAreSomewhere, ARTMusOneBackgroudSprite, ArtMusicOneBoxesList, ARTMusicOnePlayCount, ARTWhichSide, ARTStoreList, ARTStoreListTwo, ARTWhichSideFut, ARTSIDEUP, ARTMusicOneStopSprite, ARTStoreListThree, ArtMusicOneBoxesListTwo, ArtMusicOneBoxesListThree, ARTWhichSideFutLst
  if rollOver(ARTMusicOneStopSprite) then
    repeat while rollOver(ARTMusicOneStopSprite)
      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()
        end if
      end if
      updateStage()
    end repeat
    set the castNum of sprite ARTMusicOneStopSprite to 171
  end if
  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
          updateStage()
        end if
      end if
    end repeat
  end if
end