What PC? 1997 December/WPCDEC97.ISO/DXRS/CYRIXO.DXR/00194_CYSelectthing.ls

Text File | 1997-10-13 | 4.9 KB | 150 lines

on CYSelectthing
  global CRSelect, LineHFlag, CRCountContent, XCount, CRCountContentTwo, CrSlide, CySlidePosList
  case LineHFlag of
    0:
      set XCount to 80
      set yCount to 40
    6:
      set XCount to 10
      set yCount to 3
      if CRCountContent > XCount then
        set CRCountContent to 0
      end if
      if CRCountContentTwo > yCount then
        set CRCountContentTwo to 0
      end if
    5:
      set XCount to 10
      set yCount to 3
      if CRCountContent > XCount then
        set CRCountContent to 0
      end if
      if CRCountContentTwo > yCount then
        set CRCountContentTwo to 0
      end if
  end case
  case CrSlide of
    0:
      case CRCountContent of
        XCount:
          if the castNum of sprite 43 = the number of member "CRContentOne" then
            set the castNum of sprite 43 to the number of member "CRContentOneB"
          else
            set the castNum of sprite 43 to the number of member "CRContentOne"
          end if
          updateStage()
          set CRCountContent to 0
      end case
      set CRCountContent to 1 + CRCountContent
    1:
      CrSlidePuz()
  end case
  case CRCountContentTwo of
    yCount:
      if the castNum of sprite 44 = the number of member "CRContentTwoB" then
        set the castNum of sprite 44 to the number of member "CRContentTwo"
      else
        set the castNum of sprite 44 to the castNum of sprite 44 + 1
      end if
      if the castNum of sprite 45 = the number of member "CRContentThreeB" then
        set the castNum of sprite 45 to the number of member "CRContentThree"
        set the locV of sprite 45 to the locV of sprite 45 + 36
        puppetSound(1, "bounce")
        updateStage()
      else
        set the castNum of sprite 45 to the castNum of sprite 45 + 1
        set the locV of sprite 45 to the locV of sprite 45 - 12
      end if
      updateStage()
      set CRCountContentTwo to 0
  end case
  set CRCountContentTwo to 1 + CRCountContentTwo
  case rollOver() of
    44:
      if the mouseDown then
        set CrSlide to 0
        set the castNum of sprite 42 to the number of member "CRBlank"
        ReplaceCast()
      end if
    43:
      if the mouseDown then
        if CrSlide = 0 then
          set CrSlide to 1
          set the castNum of sprite 43 to the number of member "SldeBoxA"
          repeat with f = 1 to 18
            set the locH of sprite f to 2000
          end repeat
          set the locH of sprite 46 to 2000
          set the locH of sprite 38 to 2000
          set LineHFlag to 6
          updateStage()
          AdWait(1)
          set the castNum of sprite 43 to the number of member "SldeBoxB"
          set the castNum of sprite 42 to the castNum of sprite 42 + 1
          set the castNum of sprite 2 to the number of member "CRBlankC"
          set the loc of sprite 2 to the loc of sprite 42
          repeat with f = 1 to count(CySlidePosList)
            set the castNum of sprite getAt(getAt(CySlidePosList, f), 1) to the number of member getAt(getAt(CySlidePosList, f), 2)
            set the loc of sprite getAt(getAt(CySlidePosList, f), 1) to point(getAt(getAt(CySlidePosList, f), 5), getAt(getAt(CySlidePosList, f), 6))
            set the ink of sprite getAt(getAt(CySlidePosList, f), 1) to 36
          end repeat
          updateStage()
        end if
      end if
    45:
      if the mouseDown then
        if the castNum of sprite 47 = the number of member "CrLogoTwo" then
          puppetSound(1, "cyrguit1")
          set the castNum of sprite 47 to the number of member "CrFast"
          if CrSlide = 0 then
            repeat with f = 1 to 17
              set the locH of sprite f to 2000
            end repeat
          end if
          updateStage()
          repeat while the mouseDown
          end repeat
          repeat while the mouseUp
          end repeat
          set the castNum of sprite 47 to the number of member "CrLogoTwo"
          updateStage()
          repeat while the mouseDown
          end repeat
        end if
      end if
  end case
  if (the mouseH > 302) and (the mouseH < 326) and (the mouseV > 356) and (the mouseV < 378) and the mouseDown then
    repeat with f = 1 to 18
      set the locH of sprite f to 2000
    end repeat
    repeat with f = 42 to 47
      set the locH of sprite f to 2000
    end repeat
    set the locH of sprite 38 to 2000
    set the castNum of sprite 1 to the number of member "CRBlank"
    set the loc of sprite 1 to point(312, 237)
    updateStage()
    repeat with f = 1 to 7
      set the castNum of sprite 1 to the castNum of sprite 1 - 1
      updateStage()
    end repeat
    puppetSound(1, "doorclos")
    updateStage()
    repeat while soundBusy(1) = 1
    end repeat
    set CRSelect to 2
    set LineHFlag to 6
    set CrSlide to 0
  end if
  if rollOver(48) and the mouseDown then
    repeat with d = 1 to 48
      set the locH of sprite d to 2000
      puppetSprite(d, 0)
    end repeat
    updateStage()
    set the stageColor to 255
    updateStage()
    play done
  end if
end