home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / reswaug.dxr / 00015_RESCheckBrowser.ls < prev    next >
Encoding:
Text File  |  1996-06-14  |  830 b   |  34 lines
  1. on RESCheckBrowser
  2.   global browserID, IFLBrowsercounter, IFLMistake, GTSWIN95
  3.   repeat while BrowserRunning()
  4.     if the mouseUp then
  5.       if IFLMistake = 0 then
  6.         set the castNum of sprite 36 to 900
  7.         set the locH of sprite 36 to 235
  8.         set the locV of sprite 36 to 261
  9.         updateStage()
  10.       end if
  11.       StopBrowser()
  12.       exit repeat
  13.     end if
  14.   end repeat
  15.   if BrowserRunning() then
  16.     set IFLMistake to 1
  17.     if GTSWIN95 = 1 then
  18.       set the castNum of sprite 36 to 68
  19.       updateStage()
  20.     else
  21.       set the castNum of sprite 36 to 67
  22.       updateStage()
  23.     end if
  24.   end if
  25.   if not BrowserRunning() then
  26.     set the locH of sprite 36 to 2000
  27.     set the locV of sprite 36 to 2000
  28.     updateStage()
  29.     set IFLBrowsercounter to 0
  30.     set browserID to 0
  31.     set IFLMistake to 0
  32.   end if
  33. end
  34.