What PC? 1996 August/WPCAUG96.ISO/artwaug.dxr/00029.ls

Text File | 1996-06-17 | 5.1 KB | 120 lines

on ARTNextOrLast
  global ARTMusicOneList, ARTAreSomewhere, ARTMusOneBackgroudSprite, ArtMusicOneBoxesList, ARTMusicOnePlayCount, ARTWhichSide, ARTStoreList, ARTStoreListTwo, ARTWhichSideFut, ARTSIDEUP, ARTMusicOneStopSprite, ARTStoreListThree, ArtMusicOneBoxesListTwo, ArtMusicOneBoxesListThree, ARTWhichSideFutLst
  if ARTMusicOnePlayCount = 2 then
    set TemPList to getAt(ARTMusicOneList, 2)
    set InfoList to getAt(TemPList, 4)
    if rollOver(getAt(InfoList, 1)) then
      set ThisOne to 4
      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 mouseDown then
        if ThisOne = 4 then
          if getAt(InfoList, 7) = 0 then
            setAt(InfoList, 7, 1)
            if ARTWhichSideFut = 1 then
              repeat with f = 1 to 4
                set BoxList to getAt(ArtMusicOneBoxesListTwo, 2)
                set the castNum of sprite (f + 6) to getAt(BoxList, f)
              end repeat
              set ARTWhichSideFut to 2
              set the castNum of sprite 20 to the castNum of sprite 20 + 2
              set the castNum of sprite 16 to the castNum of sprite 16 + 1
            else
              if ARTWhichSideFut = 2 then
                repeat with f = 1 to 4
                  set BoxList to getAt(ArtMusicOneBoxesListThree, 2)
                  set the castNum of sprite (f + 6) to getAt(BoxList, f)
                end repeat
                set ARTWhichSideFut to 3
                set the castNum of sprite 20 to the castNum of sprite 20 + 2
                set the castNum of sprite 16 to the castNum of sprite 16 + 1
              else
                repeat with f = 1 to 4
                  set BoxList to getAt(ArtMusicOneBoxesList, 2)
                  set the castNum of sprite (f + 6) to getAt(BoxList, f)
                end repeat
                set ARTWhichSideFut to 1
                set the castNum of sprite 20 to the castNum of sprite 20 - 4
                set the castNum of sprite 16 to the castNum of sprite 16 - 2
              end if
            end if
          end if
        end if
      end if
    end if
    if the mouseUp then
      setAt(InfoList, 7, 0)
    end if
    set TemPListThree to getAt(ARTMusicOneList, 2)
    set InfoListThree to getAt(TemPListThree, 4)
    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 if
  if ARTMusicOnePlayCount = 3 then
    set TemPList to getAt(ARTMusicOneList, 3)
    set InfoList to getAt(TemPList, 4)
    if rollOver(getAt(InfoList, 1)) then
      set ThisOne to 4
      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 mouseDown then
        if ThisOne = 4 then
          if getAt(InfoList, 7) = 0 then
            setAt(InfoList, 7, 1)
            if ARTWhichSideFutLst = 1 then
              repeat with f = 1 to 4
                set BoxList to getAt(ArtMusicOneBoxesListTwo, 3)
                set the castNum of sprite (f + 6) to getAt(BoxList, f)
              end repeat
              set ARTWhichSideFutLst to 2
              set the castNum of sprite 20 to the castNum of sprite 20 + 2
              set the castNum of sprite 16 to the castNum of sprite 16 + 1
            else
              if ARTWhichSideFutLst = 2 then
                repeat with f = 1 to 4
                  set BoxList to getAt(ArtMusicOneBoxesListThree, 3)
                  set the castNum of sprite (f + 6) to getAt(BoxList, f)
                end repeat
                set ARTWhichSideFutLst to 3
                set the castNum of sprite 20 to the castNum of sprite 20 + 2
                set the castNum of sprite 16 to the castNum of sprite 16 + 1
              else
                repeat with f = 1 to 4
                  set BoxList to getAt(ArtMusicOneBoxesList, 3)
                  set the castNum of sprite (f + 6) to getAt(BoxList, f)
                end repeat
                set ARTWhichSideFutLst to 1
                set the castNum of sprite 20 to the castNum of sprite 20 - 4
                set the castNum of sprite 16 to the castNum of sprite 16 - 2
              end if
            end if
          end if
        end if
      end if
    end if
    if the mouseUp then
      setAt(InfoList, 7, 0)
    end if
    set TemPListThree to getAt(ARTMusicOneList, 3)
    set InfoListThree to getAt(TemPListThree, 4)
    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 if
end