Personal Computer World 1997 June/Personal_Computer_World_Jun_97.iso/dxrs/mgipcw06.dxr/00021_MGIButtonRoll.ls

Text File | 1997-03-25 | 5.3 KB | 149 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
  if rollOver(12) then
    set MGIstarRoll to 12
  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()
        else
          set the castNum of sprite 9 to the number of member "StartR"
          updateStage()
        end if
        if MGISTONEON = 1 then
          if the locH of sprite 12 < 870 then
            set the locH of sprite 12 to the locH of sprite 12 + 2
            updateStage()
            next repeat
          end if
          set the locH of sprite 12 to -292
          updateStage()
        end if
      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
        if MGISTONEON = 1 then
          case MGIStoneyCounter of
            5:
              set MGIStoneyCounter to 0
              if the locH of sprite 12 < 870 then
                set the locH of sprite 12 to the locH of sprite 12 + 2
                updateStage()
              else
                set the locH of sprite 12 to -300
                updateStage()
              end if
          end case
        end if
        set MGIStoneyCounter to 1 + MGIStoneyCounter
        if rollOver(12) and the mouseDown then
          set the locH of sprite 12 to 2000
          set MGISTONEON to 0
          updateStage()
        end if
      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