What PC? 1996 August/WPCAUG96.ISO/refwaug.dxr/00047_REFCheckBrowser.ls

Text File | 1996-06-14 | 823 b | 33 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 206
        set the locV of sprite 36 to 202
        updateStage()
      end if
      if REFAcro = 1 then
        win_StopRunning(browserID)
      else
        StopBrowser()
      end if
      exit repeat
    end if
  end repeat
  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