What PC? 1996 July/WPCJUL96.ISO/file.exe/REFFINJ.DXR/00047_REFCheckBrowser.ls

Text File | 1996-05-15 | 1.4 KB | 55 lines

on REFCheckBrowser
  global browserID, IFLBrowsercounter, IFLMistake, GTSWIN95, REFAcro
  repeat while BrowserRunning()
    if the mouseUp then
      if IFLMistake = 0 then
        if REFAcro = 1 then
          set the castNum of sprite 36 to 87
        else
          set the castNum of sprite 36 to 900
        end if
        set the locH of sprite 36 to 204
        set the locV of sprite 36 to 165
        updateStage()
      end if
      if REFAcro = 1 then
        win_StopRunning(browserID)
      else
        StopBrowser()
      end if
      exit repeat
    end if
  end repeat
  if BrowserRunning() then
    set IFLMistake to 1
    if GTSWIN95 = 1 then
      if REFAcro = 1 then
        set the castNum of sprite 36 to 85
      else
        set the castNum of sprite 36 to 82
        set the locH of sprite 36 to 224
        set the locV of sprite 36 to 52
      end if
      updateStage()
    else
      if REFAcro = 1 then
        set the castNum of sprite 36 to 84
      else
        set the castNum of sprite 36 to 81
        set the locH of sprite 36 to 224
        set the locV of sprite 36 to 52
      end if
      updateStage()
    end if
  end if
  if not BrowserRunning() then
    set the locH of sprite 36 to 2000
    set the locV of sprite 36 to 2000
    updateStage()
    set IFLBrowsercounter to 0
    set browserID to 0
    set IFLMistake to 0
    set REFAcro to 0
  end if
end