What PC? 1997 June/WPCJUN97.ISO/dxrs/mgiwjun.dxr/00021_MGIButtonRoll.ls

Text File | 1997-04-07 | 4.3 KB | 118 lines

on MGIButtonRoll
  global MGIRotateRCounter, MGIstarRoll, MGILaunch, MGIRadioON, MGIStoneyCounter, MGISTONEON
  repeat with s = 4 to 5
    if rollOver(s) then
      set MGIstarRoll to s
    end if
  end repeat
  if rollOver(9) then
    set MGIstarRoll to 6
  end if
  repeat with t = 4 to 6
    if (the mouseCast = the castNum of sprite t) or (MGIstarRoll <> 0) then
      if MGIstarRoll <> 0 then
        set t to MGIstarRoll
      end if
      set the castNum of sprite t to the castNum of sprite t + 1
      updateStage()
      repeat while (the castNum of sprite 7 <> the number of member "endStar") and (the castNum of sprite 8 <> the number of member "endStar")
        if the castNum of sprite 7 <> the number of member "endStar" then
          set the castNum of sprite 7 to the castNum of sprite 7 + 1
          updateStage()
        end if
        if the castNum of sprite 8 <> the number of member "StartStar" then
          set the castNum of sprite 8 to the castNum of sprite 8 - 1
          updateStage()
        else
          set the castNum of sprite 8 to the number of member "endStar"
          updateStage()
        end if
        if the castNum of sprite 9 <> the number of member "EndR" then
          set the castNum of sprite 9 to the castNum of sprite 9 + 1
          updateStage()
          next repeat
        end if
        set the castNum of sprite 9 to the number of member "StartR"
        updateStage()
      end repeat
      case t of
        4:
          set the castNum of sprite 7 to the number of member "pinkStar"
        5:
          set the castNum of sprite 8 to the number of member "pinkStar"
      end case
      repeat while (the mouseCast = the castNum of sprite t) or ((rollOver(9) or rollOver(4) or rollOver(5) or rollOver(6)) and (MGILaunch <> 2))
        if (rollOver(4) or rollOver(7)) and the mouseDown then
          set the ink of sprite 10 to 0
          set the castNum of sprite 10 to the number of member "ExplainRoom"
          set the loc of sprite 10 to point(336, 408)
          updateStage()
          repeat while the mouseDown
          end repeat
        end if
        if (rollOver(5) or rollOver(8)) and the mouseDown then
          set the ink of sprite 10 to 0
          set the castNum of sprite 10 to the number of member "ExplainBrowser"
          set the loc of sprite 10 to point(336, 408)
          updateStage()
          repeat while the mouseDown
          end repeat
        end if
        if (MGISTONEON <> 3) and (MGIRadioON <> 3) then
          if rollOver(6) and the mouseDown then
            set the castNum of sprite 6 to the number of member "MGIChooseLaunch"
            set the castNum of sprite 11 to the number of member "NetYesNoOne"
            set the loc of sprite 11 to point(481, 241)
            set the locH of sprite 9 to 376
            set MGILaunch to 1
            updateStage()
            repeat while the mouseDown
            end repeat
          end if
          if MGILaunch = 1 then
            MGILaunchWWW()
          end if
        else
          if rollOver(6) then
            exit repeat
          end if
        end if
        if MGILaunch = 3 then
          exit repeat
        end if
        case MGIRotateRCounter of
          30:
            if the castNum of sprite 9 <> the number of member "EndR" then
              set the castNum of sprite 9 to the castNum of sprite 9 + 1
              updateStage()
            else
              set the castNum of sprite 9 to the number of member "StartR"
              updateStage()
            end if
            set MGIRotateRCounter to 0
        end case
        set MGIRotateRCounter to 1 + MGIRotateRCounter
      end repeat
      set MGIStoneyCounter to 0
      set MGIRotateRCounter to 0
      set MGIstarRoll to 0
      if MGILaunch <> 3 then
        set the castNum of sprite t to the castNum of sprite t - 1
        set the castNum of sprite 6 to the number of member "MGIEnterroomOne"
        set the locH of sprite 9 to 435
        set the locH of sprite 10 to 2000
        set the locH of sprite 11 to 2000
        set MGILaunch to 0
      end if
      case t of
        4:
          set the castNum of sprite 7 to the number of member "endStar"
        5:
          set the castNum of sprite 8 to the number of member "endStar"
      end case
      updateStage()
      updateStage()
    end if
  end repeat
end