Bible Champions - The Birth of Jesus/BIRTH.ISO/pc/mainmenu.dxr/00015.ls

Text File | 1999-07-02 | 1.6 KB | 67 lines

on exitFrame
  cursor(0)
  repeat with g = 15 to 17
    if rollOver(g) or rollOver(g - 6) then
      puppetSound(1, 44)
      set the visible of sprite (g - 3) to 1
      updateStage()
      repeat while rollOver(g) or rollOver(g - 6)
        if the mouseDown then
          puppetSound(1, 42)
          repeat while the mouseDown
            nothing()
          end repeat
          case g of
            15:
              go("timeline")
            16:
              go("stories")
            17:
              go("games")
          end case
          exit repeat
        end if
      end repeat
      set the visible of sprite (g - 3) to 0
      updateStage()
    end if
  end repeat
  set flag to 0
  repeat with g = 5 to 7
    if rollOver(g) then
      puppetSound(1, 45)
      set the memberNum of sprite g to the memberNum of sprite g + 1
      updateStage()
      repeat while rollOver(g)
        if the mouseDown then
          puppetSound(1, 43)
          repeat while the mouseDown
            nothing()
          end repeat
          case g of
            5:
              set flag to 1
              go("myquit")
            6:
              cursor(200)
              sound playFile 1, "Mainhelp.AIF"
              repeat while soundBusy(1)
                nothing()
              end repeat
              cursor(0)
            7:
              set flag to 1
              go("credits")
          end case
          exit repeat
        end if
      end repeat
      if flag = 0 then
        set the memberNum of sprite g to the memberNum of sprite g - 1
        updateStage()
      end if
    end if
  end repeat
  go(the frame)
end