What PC? 1996 July/WPCJUL96.ISO/file.exe/GROFINJ.DXR/00031_grolabs.ls

Text File | 1996-05-15 | 2.2 KB | 82 lines

on grolabs
  global grosectactive, gropastsection, GROChooseQuit
  GROENTSECTION()
  set grosectactive to 1
  set gropastsection to "grolabs"
  set the castNum of sprite 17 to 64
  set the castNum of sprite 18 to 65
  set the castNum of sprite 17 to 64
  set the castNum of sprite 18 to 65
  set the castNum of sprite 35 to 81
  set the locH of sprite 17 to 380
  set the locH of sprite 18 to 430
  set the locH of sprite 35 to 380
  set the locV of sprite 17 to 288
  set the locV of sprite 18 to 337
  set the locV of sprite 35 to 288
  set the castNum of sprite 20 to 92
  set the locH of sprite 20 to 200
  set the locV of sprite 20 to 200
  set the ink of sprite 20 to 39
  set the castNum of sprite 5 to 49
  set the locH of sprite 11 to 200
  set the locV of sprite 11 to 200
  set the ink of sprite 11 to 39
  updateStage()
  set the castNum of sprite 10 to 33
  set the locH of sprite 10 to 515
  set the locV of sprite 10 to 264
  updateStage()
  repeat while grosectactive = 1
    GROQuitCD()
    if GROChooseQuit = 2 then
      exit repeat
    end if
    repeat while the movieTime of sprite 10 < 1620
      GROQuitCD()
      if GROChooseQuit = 2 then
        exit repeat
      end if
      if rollOver(18) then
        if the mouseDown then
          set the movieRate of sprite 10 to 0
          if GROChooseQuit <> 2 then
            repeat while the movieRate of sprite 10 = 0
              if rollOver(17) then
                if the mouseDown then
                  set the movieRate of sprite 10 to 1
                end if
              end if
              groANIMATESCREEN()
              if GROChooseQuit = 2 then
                exit repeat
              end if
            end repeat
          end if
          if GROChooseQuit = 2 then
            exit repeat
          end if
        end if
      else
        if rollOver(17) then
          if the mouseDown then
            set the movieRate of sprite 10 to 1
          end if
        end if
      end if
      updateStage()
      set the movieRate of sprite 10 to 1
      updateStage()
    end repeat
    if GROChooseQuit = 2 then
      exit repeat
    end if
    if rollOver(17) then
      if the mouseDown then
        set the movieTime of sprite 10 to 0
      end if
    end if
    groANIMATESCREEN()
  end repeat
end